Membuat Efek Magnetik Mouse dengan Code VB6

Pada artikel kali ini Admin akan berbagi sebuah kode vb6 yang berfungsi untuk membuat efek mouse seolah-olah mouse mempunyai daya tarik magnet.

Pada contoh program ini saya akan membuat sebuah garis (line) yang panjang pendeknya mengikuti gerakan mouse seolah-olah datarik.

Untuk membuatnya perhatikan langkah-langkah dibawah ini :

1. Sipakan Form vb6 dan tambahkan Control PictureBox

2. Ketik kode dibawah ini untuk membuat efek magnetik yang akan menggerakan garis di didalam PictureBox :

Private Sub Form_Load()

Picture1.AutoRedraw = True

Picture1.ScaleMode = vbPixels

End Sub


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim centerX As Single

    Dim centerY As Single

    Dim distance As Single

    Dim color As Long

    

    ' Koordinat pusat

    centerX = Picture1.ScaleWidth / 2

    centerY = Picture1.ScaleHeight / 2

    

    ' Hapus gambar sebelumnya

    Picture1.Cls

    

    ' Hitung jarak antara pusat dan kursor

    distance = Sqr((X - centerX) ^ 2 + (Y - centerY) ^ 2)

    

    ' Tentukan warna berdasarkan jarak

    If distance < 100 Then

        color = vbRed

    ElseIf distance < 200 Then

        color = vbGreen

    Else

        color = vbBlue

    End If

    

    ' Gambar garis

    Picture1.Line (centerX, centerY)-(X, Y), color

End Sub


Hasil

  1. Saat Anda menjalankan program:
    • Garis akan selalu menghubungkan pusat PictureBox dengan posisi kursor.
    • Garis diperbarui secara dinamis mengikuti pergerakan kursor.
  2. Jika menggunakan warna dinamis, garis akan berubah warna berdasarkan jarak kursor dari pusat:
    • Merah untuk jarak dekat.
    • Hijau untuk jarak menengah.
    • Biru untuk jarak jauh.

Demukialah artikel kali ini saya buat semoga bermanfaat.

No comments: