Tutorial Membuat Kalkulator Sederhana dengan Visual Basic 6.0

Kalkulator adalah alat untuk menghitung perhitungan sederhana. Kalian bisa membuat kalkulator sederhana di visual basic 6.0, sebelum kalian mengikuti tutorial di bawah ini, pastikan kalian harus sudah mengetahui dasar-dasar visual basic 6.0 terlebih dahulu. Langsung saja berikut adalah tutorial membuat kalkulator sederhana dengan menggunakan visual basic 6.0

1. Pertama, buka aplikasi Visual Basic 6.0

2. Pilih standard exe, lalu klik open

3. Buat form yang terdiri dari 16 buah command button, 1 buah label dan 1 buah textbox seperti gambar di bawah ini :

4. Isi properties sesuai dengan tabel di bawah ini

Kalian juga bisa pilih font dan ukuran font sesuai dengan ukuran dan font yang kalian inginkan dengan cara : pilih properties font di pojok kiri bawah, lalu klik tanda titik 3 tersebut, lalu tinggal pilih font dan size font yang kalian inginkan

5. Selanjutnya, kita buat kodenya dengan perlahan, disini saya hanya menggunakan 4 tanda saja yaitu plus (+), negatif (-), kali (x) dan bagi (/). Kalian bisa menambah tanda lainnya sesuai dengan keinginan kalian dengan cara mengganti perumusannya perhitungan tandanya saja.

6. Pertama, kita buat kode untuk tiap angkanya, dengan tujuan ketika angka di klik maka akan muncul tulisan di textbox

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption

End Sub

7. Selanjutnya, kita akan mengartikan nilai index dari pilihan tanda {(+); (-); (x); (/)} dan juga nilai x dan y untuk membuat tanda-tanda aritmatik berfungsi, masukan kode berikut ini :

Dim pil As String

Dim x As Integer

Dim y As Integer

8. Lalu, kita buat kode untuk setiap tanda yang kita gunakan {(+); (-); (x); (/)}

Private Sub Command2_Click()

x = Text1.Text

Text1.Text = ""

pil = "+"

End Sub

Private Sub Command3_Click()

x = Text1.Text

Text1.Text = ""

pil = "x"

End Sub

Private Sub Command4_Click()

x = Text1.Text

Text1.Text = ""

pil = "-"

End Sub

Private Sub Command5_Click()

x = Text1.Text

Text1.Text = ""

pil = "/"

End Sub

9. Selanjutnya, buat kode untuk nilai hasil atau untuk command (=), agar ketika kita klik (=) maka akan muncul nilai hasil yang sudah kita operasikan di textbox

Private Sub Command7_Click()

If pil = "+" Then

y = Text1.Text

n = x + y

Text1.Text = n

Else

If pil = "-" Then

y = Text1.Text

n = x - y

Text1.Text = n

Else

If pil = "x" Then

y = Text1.Text

n = x * y

Text1.Text = n

Else

If pil = "/" Then

y = Text1.Text

n = x / y

Text1.Text = n

End If

End If

End If

End If

End Sub

10. Terakhir kita buat kode untuk command (hapus) dimana ketika (hapus) di klik maka angka yang ada di textbox hilang

Private Sub Command6_Click()

Text1.Text = ""

End Sub

11. Sekarang kita coba apakah kalkulator sudah berfungsi dengan baik apa belum dengan cara klik run, lalu klik start

12. Setelah itu, save project dengan cara klik file, klik save project as lalu save di file yang kalian inginkan

Itu dia cara untuk membuat kalkulator sederhana dengan visual basic 6.0. Caranya mudah bukan?, agar kalian lebih paham mengenai langkah-langkah dalam membuat kalkulator di visual basic 6.0, kalian bisa mengikuti video tutorial di bawah ini: