Hasil Karya Murid

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