Membuat Kalkulator Sederhana Dengan Visual Basic

Pernahkah teman teman semua berpikir secara sederhana bagaimana kerja kalkulator sebenarnya ??? yang pastinya terdiri dari dua atau lebih bilangan yang diantaranya terdapat operator ( +, -, X, dan / ) yang hasilnya akan ditampilkan di berikutnya, misalnya :

Menurut logika kita yaitu bilangan pertama akan masuk ke text1, operatornya akan masuk ke text2 dan bilangan kedua akan masuk ke text3 sementara hasilnya akan ditampilkan di text4.

Tapi kebanyakan kalkulator yang kita gunakan hanya memiliki 1 (satu) tampilan, maka dari itu untuk text1, text2 dan text3 akan kita hilangkan (dihiden).

Baiklah kita langsung ja ke proses pembuatannya yaitu kita buat tampilan seperti gambar disamping yang terdiri dari 4 buah komponen text dan 19 buah kompone command button, kemudian disusun seperti tampilan kalkulator atau sesuai yang anda inginkan.

Setelah selesai, kita akan memasukan kode (listing kode) yaitu :

Private Sub Command1_Click()
Text4.Text = Text4.Text + "7"
End Sub

Private Sub Command10_Click()
Text4.Text = Text4.Text + "-"
End Sub

Private Sub Command11_Click()
Text4.Text = Text4.Text + "0"
End Sub

Private Sub Command12_Click()
Text4.Text = Text4.Text + "."
End Sub

Private Sub Command13_Click()
Text2.Text = "+"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command14_Click()
Text2.Text = "-"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command15_Click()
Text2.Text = "*"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command16_Click()
Text2.Text = "/"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command17_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command18_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command19_Click()
Text3.Text = Text4.Text
If Text2.Text = "+" Then
                Text4.Text = Val(Text1.Text) + Val(Text3.Text)
End If
If Text2.Text = "-" Then
                Text4.Text = Val(Text1.Text) - Val(Text3.Text)
End If
If Text2.Text = "*" Then
                Text4.Text = Val(Text1.Text) * Val(Text3.Text)
End If
If Text2.Text = "/" Then
                Text4.Text = Val(Text1.Text) / Val(Text3.Text)
End If
End Sub

Private Sub Command2_Click()
Text4.Text = Text4.Text + "8"
End Sub

Private Sub Command3_Click()
Text4.Text = Text4.Text + "9"
End Sub

Private Sub Command4_Click()
Text4.Text = Text4.Text + "4"
End Sub

Private Sub Command5_Click()
Text4.Text = Text4.Text + "5"
End Sub

Private Sub Command6_Click()
Text4.Text = Text4.Text + "6"
End Sub

Private Sub Command7_Click()
Text4.Text = Text4.Text + "1"
End Sub

Private Sub Command8_Click()
Text4.Text = Text4.Text + "2"
End Sub

Private Sub Command9_Click()
Text4.Text = Text4.Text + "3"
End Sub

Untuk menyembunyikan text1.text2 dan text3 maka listing programnya kita tambahkan :
Private Sub Form_Load()
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
End Sub

Setelah selesai coba anda jalankan program yang anda buat, kalau yang anda buat sesuai dengan yang diatas maka akan terciptalah kalkulator sederhana buatan anda. Untuk tampilan lebih bagus text1, text2 dan text3 kita tutup dengan text4 sehingga tampilanya akan terlihat lebih rapi. contoh hasil tampilan akhir kalkulator yang saya buat :

Sekian dulu ya, udah capek ni ngetik lain kali akan kita sambung lagi ................ Semoga Bermanfaat Yaaaa

Share this post