Cara Membuat Kalkulator Sederhana Dengan Visual Basic

Cara Membuat Kalkulator Sederhana Dengan Visual Basic - Tutorial kali ini adalah membuat kalkulator sederhana dengan menggunakan Visual Sasic 6. Karena kalkulator sederhana, jadi kita membuatnya dengan simple aja seperti gambar di atas. Okeh tanpa panjang lebar, langsung simak langkah-langkah berikut :

 

  

1. Tambahkan label untuk judul aplikasi

Lalu pada jendela properti :

Ganti "Caption" pada properti menjadi "Kalkulator Sederhana".

2. Tambah label, lalu pada jendela properti  ganti caption dengan "nilai 1".

3. Tambah lagi label, lalu pada jendela properti  ganti caption dengan "nilai 2".

3. Tambah lagi label, lalu pada jendela properti  ganti caption dengan "Operator".

4. Tambah lagi label, lalu pada jendela properti  ganti caption dengan "hasil" .

5. Sisipkan atau tambahkan TextBox 

Ganti (name) pada properti menjadi "nilai1"(kutipnya jangan di tulis).

6. Tambahkan textbox kembali, lalu ganti (name) pada properti menjadi "nilai2" .

7. Tambahkan lagi TextBox, lalu ganti (name) menjadi "Hasil".

8. Tambahkan ComboBox yang ada di sebelah label ListBox.

9. Tambahkan 3 buah CommandButton

Lalu ganti caption masing-masing CommandButton pada properti dengan :

command button1= "hasil"
command button2="reset"
command button3="exit"

Hasilnya seperti ini:

10. Langkah terakhir yaitu memasukkan script atau kodenya

Cara memasukan kode yaitu dengan klik kanan pada daerah aplikasi lalu "View Code"

Private Sub Command1_Click()
If Combo1.Text = "+" Then
hasil.Text = nilai1.Text + Val(nilai2.Text)
Else
If Combo1.Text = "x" Then
hasil.Text = nilai1.Text * Val(nilai2.Text)
Else
If Combo1.Text = "-" Then
hasil.Text = nilai1.Text - Val(nilai2.Text)
Else
If Combo1.Text = "/" Then
hasil.Text = nilai1.Text / Val(nilai2.Text)
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()
nilai1.Text = ""
nilai2.Text = ""
hasil.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem ("+")
Combo1.AddItem ("-")
Combo1.AddItem ("x")
Combo1.AddItem ("/")
End Sub

nb: hati-hati dalam melakukan coding, salah sedikit saja bisa berakibat aplikasi tidak bisa dijalankan.

Keterangan Code:

1. Untuk kode bagian ini:

Private Sub Form_Load()
Combo1.AddItem ("+")
Combo1.AddItem ("-")
Combo1.AddItem ("x")
Combo1.AddItem ("/")
End Sub

Merupakan tugas agar ComboBox pada awal pembukaan harus di isi dengan +, - , x dan  /.
        
2. Untuk kode bagian ini:

Private Sub Command3_Click()
End
End Sub

Merupakan tugas bagi tombol exit, dimana jika di tekan akan keluar dari aplikasi.

3. Bagian ini:

Private Sub Command2_Click()
nilai1.Text = ""
nilai2.Text = ""
hasil.Text = ""
End Sub

Merupakan script dimana jika tombol di tekan akan mengosongkan isi dalam TextBox yaitu
nilai1,nilai2, dan hasil.

4. Dan yang terakhir adalah script:

Private Sub Command1_Click()
If Combo1.Text = "+" Then
hasil.Text = nilai1.Text + Val(nilai2.Text)
Else
If Combo1.Text = "x" Then
hasil.Text = nilai1.Text * Val(nilai2.Text)
Else
If Combo1.Text = "-" Then
hasil.Text = nilai1.Text - Val(nilai2.Text)
Else
If Combo1.Text = "/" Then
hasil.Text = nilai1.Text / Val(nilai2.Text)
End If
End If
End If
End If
End Sub

Merupakan proses dimana jika ComboBox terisi text + atau x atau - atau / maka akan melakukan pengkalian , pengurangan, pembagian, penjumlahan (sesuai text yang berisi di ComboBox).

Selamat mencoba.. ^^