PROGRAM SEDERHANA VISUAL BASIC

Program 1

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 hasinya 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.