Program alat hitung sederhana dengan Visual Basic

Sobat BM, program visual basic sangat erat kaitannya dengan perumusan aritmetika, perhitungan perhitungan dan juga logikanya. Karena ini merupakan bahasa pemrograman. Kali ini saya akan membawa anda ke program awal mengenai program aritmatika yaitu program perhitungan.

Program alat hitung sederhana, disini saya hanya akan menjelaskan beberapa contoh ringan saja. Agar lebih efisien lagi, kita langsung saja ke inti dari artikel ini yaitu pembahasan. Buka program visual basic anda pada start window dan all program. Kemudian pilih new project.

Buatlah layout tampilan sebagai berikut :

 

Atau sesuka anda yang penting nyaman untuk anda.

Propertiesnya sebagai berikut:

Label1 properties

Caption = “Bilangan Pertama”

Label2 properties

Caption = “Bilangan kedua”

Textbox properties

Text=(kosong)

Command properties

Command1         caption=  +

Command2         caption=  -

Command3         caption= *

Command4         caption= /

Command5         caption= ON

Command6         caption= OFF

Command7         caption= EXIT

Command8         caption=CLEAR

Command9         caption=EXIT

Selanjutnya silahkan anda masukan listing berikut :

Private Sub Command1_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 + bil2

Text3.Text = hasil

End Sub

Private Sub Command2_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 - bil2

Text3.Text = hasil

End Sub

Private Sub Command3_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 * bil2

Text3.Text = hasil

End Sub

Private Sub Command4_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 / bil2

Text3.Text = hasil

End Sub

Private Sub Command5_Click()

Text1.Text = 0

Text2.Text = 0

Text3.Text = 0

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command6.Enabled = True

Command8.Enabled = True

Command5.Enabled = False

Text1.SetFocus

End Sub

Private Sub Command6_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command8.Enabled = False

Command6.Enabled = False

Command5.Enabled = True

End Sub

Private Sub Command7_Click()

End

End Sub

Private Sub Command8_Click()

Text1.Text = 0

Text2.Text = 0

Text3.Text = 0

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command8.Enabled = False

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Setelah itu silahkan sobat BM menjalankan programnya dan enjoy J. Kalau masih ada yang ditanyakan, silahkan koment di nawah. Atau yang mau mengkoreksi dan  menambahkan juga boleh. Program ini bisa di download disini