Membuat Kalkulator Sederhana dengan Visual Basic

Membuat Kalkulator Sederhana dengan Visual Basic

Di tutorial kali ini saya akan mencoba menjelaskan cara membuat kalkulator dengan program Visual Basic 6.0, yang terdiri dari operator Aritmatika dan operator Perbandingan. Tentunya pertama kita mesti paham dulu rumus matematika karena kode program yang akan kita buat mengacu pada rumus - rumus matematika tersebut. Jadi kita harus mengetahui alur kerja dari rumus tersebut sehingga bisa diterapkan di dalam bahasa pemrograman Visual Basic.

 

1. Pertama, Desain lah sebuah form sederhana kurang lebih seperti tampilan berikut :

2. Kedua, Untuk mengosongkan text di textbox pilih textboxnya - pilih jendela properties - pilih text hapus namanya seprti contoh :

3. Ketiga, Untuk mengganti nama pada command1 di tombol button - pilih button - pilih jendela properties - pilih caption ganti namanya sesuai yang di inginkan :

setelah itu buatlah button sebanyak seperti gambar di atas dan rubah captionnya.

4. Keempat, ketikkan kode barikut untuk button Operator Aritmatika dan Operator Perbandingan

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command10_Click()
Text3.Text = (Text1.Text) < (Text2.Text)
End Sub

Private Sub Command11_Click()
Text3.Text = (Text1.Text) > (Text2.Text)
End Sub

Private Sub Command12_Click()
Text3.Text = (Text1.Text) <= (Text2.Text)
End Sub

Private Sub Command13_Click()
Text3.Text = (Text1.Text) >= (Text2.Text)
End Sub

Private Sub Command14_Click()
Text3.Text = (Text1.Text) = (Text2.Text)
End Sub

Private Sub Command15_Click()
Text3.Text = (Text1.Text) <> (Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = (Text1.Text) - (Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = (Text1.Text) * (Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = (Text1.Text) / (Text2.Text)
End Sub

Private Sub Command5_Click()
Text3.Text = (Text1.Text) ^ (Text2.Text)
End Sub

Private Sub Command6_Click()
Text3.Text = (Text1.Text) Mod (Text2.Text)
End Sub

Private Sub Command7_Click()
Text3.Text = (Text1.Text) & (Text2.Text)
End Sub

Private Sub Command8_Click()
Text3.Text = (Text1.Text) \ (Text2.Text)
End Sub

dan ini tuliskan kode berikut untuk tombol EXIT, dan RESET

Private Sub Command16_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command9_Click()
End
End Sub

5. Kelima, jalankan program tersebut,

Demikian tutorial mengenai Visual Basic 6.0 yang saya sampaikan semoga bermanfaat

 

 

SELAMAT MENCOBA DAN SUKSES

 

SALAM KREATIF :)