Contoh Program Visual Basic 6.0 Kalkulator

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