Contoh Program Visual Basic 6.0 Kalkulator

Visual Basic adalah salah satu bahasa pemrograman yang berorientasi obejek, tujuan dari OOP adalah untuk memermudah dalam pengembangan program dengan cara mengikuti model yang ada. Visual Basic menurut saya adalah bahasa perograman yang cukup mudah dan tidak memerlukan
script yang terlalu panjang, karna dalam membuat interface program visual basic kita dapat dengan mudah mendesignnya dengan drag and drop.

kali ini kita akan mencoba membuat sebuah program yang sangat sederhana yang kita sering gunakan sehari - hari yaitu kalkulator.

1. Buka Visual Basic 6.0 anda
2. Buat interface menjadi seperti ini :

Dengan property dari setiap objek :

Name	Property
Label1	Caption : Angka Ke -1 Font  : 12
Label2	Caption : Angka Ke -2 Font : 12
Label3	Caption : Hasil Font  : 12
Text1	Text : “ ” (Kosongkan)
Text2	Text : “ “ (Kosongkan)
Text3	Text : “ “ (Kosongkan)
Frame1	Caption : Operator Aritmatika
Frame2	Caption : Operator Perbandingan
Command1	Caption : + Font : 14
Command2	Caption : - Font : 14
Command3	Caption : x Font : 14
Command4	Caption : / Font : 14
Option1	Caption : > Font : 14
Option2	Caption : < Font : 14
Option3	Caption : >= Font : 14
Option4	Caption : <= Font : 14
Option 5	Caption : == Font : 14
Option6	Caption : <> Font : 14
Form1	Caption : From1

3. Kemudian klik dua kali pada salah satu tombol -> hapus semua script yang ada.
    Masukan script di bawah :

Dim bil1 As Single, bil2 As Single Dim hasil As Single Private Sub Command1_Click() bil1 = Text1.Text bil2 = Text2.Text Text3.Text = bil1 + bil2 End Sub Private Sub Command2_Click() bil1 = Text1.Text bil2 = Text2.Text Text3.Text = bil1 - bil2 End Sub Private Sub Command3_Click() bil1 = Text1.Text bil2 = Text2.Text Text3.Text = bil1 * bil2 End Sub Private Sub Command4_Click() bil1 = Text1.Text bil2 = Text2.Text Text3.Text = bil1 / bil2 End Sub Private Sub Option1_Click() bil1 = Text1.Text bil2 = Text2.Text hasil = (bil1 > bil2) Text3.Text = Format(hasil, "True/False") End Sub Private Sub Option2_Click() bil1 = Text1.Text bil2 = Text2.Text hasil = (bil1 < bil2) Text3.Text = Format(hasil, "True/False") End Sub Private Sub Option3_Click() bil1 = Text1.Text bil2 = Text2.Text hasil = (bil1 >= bil2) Text3.Text = Format(hasil, "True/False") End Sub Private Sub Option4_Click() bil1 = Text1.Text bil2 = Text2.Text hasil = (bil1 <= bil2) Text3.Text = Format(hasil, "True/False") End Sub Private Sub Option5_Click() bil1 = Text1.Text bil2 = Text2.Text hasil = (bil1 = bil2) Text3.Text = Format(hasil, "True/False") End Sub Private Sub Option6_Click() bil1 = Text1.Text bil2 = Text2.Text hasil = (bil1 <> bil2) Text3.Text = Format(hasil, "True/False") End Sub

  

4. Untuk menjalankan tekan tombol keyboard F5 atau klik Run -> Start.

Coba anda masukan angka 1 dan angka 2 lalu pilih perintah yang digunakan jika berhasil maka sekarang program kalkulator sederhana anda sudah selesai