Pemutar Musik Versi 1
Mau? Unduh Aja
Pemutar Musik Versi 2
Mau? Unduh Aja
Pemutar Film
Mau? Unduh Aja
Permainan Mbahkom
Programnya:
Private Sub CdKeluar_Click()
Dim pesan As String
pesan = MsgBox("Anda Mau Keluar", vbQuestion + vbOKCancel, "Keluar")
If pesan = vbOK Then
MsgBox "Terima Kasih", vbInformation + vbOKOnly, "Sampai Jumpa"
End
Else
jawab = ""
Kunci = ""
Tanya = ""
Password = ""
Kunci.SetFocus
End If
End Sub
Private Sub CmdClear_Click()
jawab = ""
Kunci = ""
Tanya = ""
Password = ""
Kunci.SetFocus
End Sub
Private Sub CmdCoba_Click()
Dim pesan As String
pesan = MsgBox("Anda Ingin Main Lagi", vbQuestion + vbOKCancel, "Main Lagi")
If pesan = vbOK Then
jawab = ""
Kunci = ""
Tanya = ""
Password = ""
Kunci.SetFocus
Else
End
End If
End Sub
Private Sub CmdPembuat_Click()
MsgBox "Lab Komputer SMP Islam AL Izhar Pondok Labu", vbInformation + vbOKOnly, "Pembuat"
End Sub
Private Sub Kunci_Change()
Dim kata As String
kata = "Mbah Jawab ya"
Password = Left(kata, Len(Kunci))
End Sub
Private Sub Kunci_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Tanya.SetFocus
End If
End Sub
Private Sub Tanya_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
jawab = Kunci
End If
End Sub
Tidak ada komentar:
Posting Komentar