program baru

Membuat tombol yang berubah tulisannya saat diklik

Private Sub Command2_Click()
If Command2.Caption = "mulai" Then
Command2.Caption = "selesai"
Else
Command2.Caption = "mulai"
End If
End Sub

Keterangan: tombol ini akan berubah dari mulai menjadi selesai dan sebaliknya



Membuat game sederhana 1
• buatlah 1 form dengan 3 tombol command1 dan 1 timer dengan interval 1000
• berikan kode berikut:

Private Sub Command1_Click(Index As Integer)
Command1(Index).Visible = False
End Sub

Private Sub Timer1_Timer()
Command1(0).Left = Rnd(10) * 8000
Command1(1).Left = Rnd(10) * 8000
Command1(2).Left = Rnd(10) * 8000

If Command1(0).Visible = False And Command1(1).Visible = False And Command1(2).Visible = False Then

If MsgBox("mau ke level berikutnya?", vbYesNo) = vbYes Then
Timer1.Interval = Timer1.Interval - 100
Command1(0).Visible = True
Command1(1).Visible = True
Command1(2).Visible = True
Else
Unload Me
End If
End If

End Sub