contoh program sederhana,,

Program 1

KODING
Private Sub Command1_Click()

MsgBox " Selamat Belajar Visual Basic ! "

End Sub

Private Sub Command2_Click()

End

End Sub

Logika :

Pada koding command button1,,

properties Caption command1 diganti dengan “TAMPIL”

double klik kiri lalu tuliskan

msgbox“ Selamat Belajar Visual Basic ! ”

lalu Pada koding command button2,,

properties Caption command2 diganti dengan “SELESAI”

double klik kiri lalu tuliskan End…

Jika program dijalankan (F5) lalu mengklik tombol TAMPIL akan keluar sebuah pemberitahuan berupa tulisan “ Selamat Belajar Visual Basic ! ” dan jika mengklik tombol SELESAI secara otomatis program akan berhenti dan keluar..

Program 2

Koding :

Private Sub Command1_Click()

Text1.Text = " data "

Text2.Text = " data "

Text3.Text = " data "

Text4.Text = "data "

End Sub

Private Sub Command2_Click()

Text1.Text = "  "

Text2.Text = "  "

Text3.Text = "  "

Text4.Text = "  "

End Sub

Private Sub Command3_Click()

End

End Sub

Logika :

Pada command button 1 (Tampil) double klik kiri,, lalu kita tuliskan :

Text1.Text = " data "

Text2.Text = ” data ”

.......

Text4.Text = ” data ”

Dengan maksud dari koding tersebut adalah pada saat program dijalankan (F5),, kemudian mengklik TAMPIL text yang kita tuliskan tadi akan muncul semua,,

Lalu pada command button 2 berisikan :

Text1.Text = "  "

Text2.Text = ”  ”

.....

Dengan maksud dari koding tersebut adalah text kosong,, jika program dijalankan (F5),, kemudian mengklik HAPUS maka akan muncul text kosong yg kita tuliskan td,, data pertama akan dihilangkan dan akan muncul data ke 2 yg diisi pda command button2.

Lalu pada command button 3 berisikan:

End..

Dengan maksud dari koding tersebut jika dijalankan (F5).. mengklik pada tombol ”End” secara otomatis program akan keluar dan mengakhiri program tersebut.

Program 3

Koding :

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * (Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

End Sub

Private Sub Command3_Click()

End

End Sub

Logika :

            Jika program dijalankan lalu kita masukkan angka pada text Panjang dan Lebar maka pada text hasil akan muncul hasilnya jika kita mengklik tombol ”Hasil”. Lalu jika mengklik tombol ”Hapus” maka semua text akan kembali bersih dan siap untuk dimasukkan angka kambali. Lalu jika mengklik tombol ”Selesai” maka secara otomatis program akan berhenti dan keluar.