membuat bola pantul dengan Visual Basic

Listing program

Form 1

Dim x, y As Integer

Dim btskanan As Integer

Dim btsatas As Integer

Private Sub Form_Load()

x = 10

y = 10

btskanan = Form1.Width - shBola.Width - 100

btsatas = Form1.Height - shBola.Height - 350

End Sub

Private Sub Timer1_Timer()

shBola.Left = shBola.Left + x

shBola.Top = shBola.Top + y

If shBola.Top = btsatas Or shBola.Top = 0 Or shBola.Left = btskanan Or shBola.Left = 0 Then

    y = y * -1

If shBola.Left = btskanan Or shBola.Left = 0 Then

    x = x * -1

If shBola.Top = btsatas Or shBola.Top = 0 Or shBola.Left = btskanan Or shBola.Left = 0 Then

    y = y * -1

End If

End If

End If

End Sub

MDI Form 1

Private Sub exit_Click()

MsgBox "Terima Kasih telah memantulkan bola ini", vbInformation, "Sebelumnya"

End

End Sub

Private Sub Mantul_Click()

Form1.Show

End Sub

Logika Program

Form 1

Dim x, y As Integer

Dim btskanan As Integer

Dim btsatas As Integer

Private Sub Form_Load()

x = 10

y = 10

btskanan = Form1.Width - shBola.Width - 100

btsatas = Form1.Height - shBola.Height - 350

End Sub

Statement diatas mendeklarasikan variabel x, y, btskanan, btsatas yang bertipe data Integer,selanjutnya mendeklarasikan btskanan dengan btskanan = Form1.Width - shBola.Width – 100 yaitu batas ketika bola menyentuh titik yaang ditentukan dia memantul dan juga untuk batas atasnya  btsatas = Form1.Height - shBola.Height – 350

Private Sub Timer1_Timer()

shBola.Left = shBola.Left + x

shBola.Top = shBola.Top + y

If shBola.Top = btsatas Or shBola.Top = 0 Or shBola.Left = btskanan Or shBola.Left = 0 Then

    y = y * -1

If shBola.Left = btskanan Or shBola.Left = 0 Then

    x = x * -1

If shBola.Top = btsatas Or shBola.Top = 0 Or shBola.Left = btskanan Or shBola.Left = 0 Then

    y = y * -1

End If

End If

End If

End Sub

Selanjutnya mendeklarasikan komponen timer yang digunakan untuk menentukan waktu pemantulan dari bola,dan juga menggunakan perulangan if untuk melakukan pemantulan secara berulang-ulang sehingga ketika bola akan selalu memantul tanpa berhenti karena ketika batas atas,bawah,kiri dan kanan bernilai 0 akan dilakukan perhitungan y = y * -1

MDI Form 1

Private Sub exit_Click()

MsgBox "Terima Kasih telah memantulkan bola ini", vbInformation, "Sebelumnya"

End

End Sub

Maksud statement diatas adalah mendeklarasikan dari button click yang terdapat pada MDI form yang kita buat,sehingga ketika kita klik button exit maka akan keluar kotak dialog yang bertuliskan “Terima Kasih telah memantulkan bola ini”

Private Sub Mantul_Click()

Form1.Show

End Sub

Statement diatas menjelaskan ketika kita mengklik button mantul yang terdapat pada MDI,maka program yang terdapat pada form1 yaitu program bola pantul yang kita buat akan langsung berjalan