Contoh Program Pada Visual Basic

Form1

Private Sub Command1_Click()

Username = Text1.Text

Password = Text2.Text

If Username = "Tri" And Password = "03061992" Then

MsgBox "Username Dan Password Diterima", vbInformation, "Info"

Form1.Hide

Form2.Show

Else

MsgBox "Username Dan Password Ditolak", vbCritical, "Warning"

End If

End Sub

Form2

Private Sub Command1_Click()

Text1.Text = Int(Rnd * 10)

Text2.Text = Int(Rnd * 10)

Text3.Text = Int(Rnd * 10)

If Text1.Text = "7" And Text2.Text = "7" And Text3.Text = "7" Then

MsgBox "Hore", vbInformation, "Info"

End If

End Sub

Private Sub Command2_Click()

Form2.Hide

Form3.Show

End Sub

Form3

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

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

Command1.Top = Rnd * 4000

Command1.Left = Rnd * 4000

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + 100

If Shape1.Left >= 5000 Then

Shape1.Left = -Shape1.Width

End If

End Sub

Pada saat program dijalankan akan tampil Form1. Kemudian masukkan Username dan Password sesuai isi coding. Misalnya Username “Tri” dan Password “03061992”.

Jika Username dan Password salah, akan tampil pesan seperti ini!

Jika Username dan Password benar, akan tampil pesan seperti ini!

Kemudian Form1 tertutup dan masuk ke Form 2 dan akan tampil seperti ini!

Klik OK untuk menjalankan program yang ada. Kemudian angka pada text1, text2 dan text3 muncul secara acak dari 0 sampai 10

Jika angka yang muncul pada text1, text2 dan text3 7 7 7 maka akan muncul pesan Hore. Kemudian klik OK lalu klik Masuk, maka akan tampil Form3

Kemudian Form2 tertutup dan masuk ke Form 3 dan akan tampil seperti ini!

Pada saat ingin klik tombol Klik, tombol Klik akan berpindah-pindah pada jarak yang diinginkan. Misalnya 4000 horizontal dan 4000 vertikal. Tekan Spacebar untuk menjalankan program. Kemudian bola akan berjalan ke arah kanan dengan dengan kecepatan 100 sampai jarak 5000. Jika melebihi jarak 5000 maka bola akan berulang kembali ke awal. Klik Keluar untuk keluar dari program.

 

Source :  http://trimaaja.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Tugas Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.