Membuat Kalkulator Sederhana Dengan Visual Basic 6.0

Tutorial kali ini adalah membuat kalkulator sederhana dengan visual basic 6.

karena kalkulator sederhana jadi kita membuatnya dengan simple aja .seperti gambar di atas:

okeh langsung ke TKP:

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.sekarang giliran comboBox

        tambahkan combo box di sebelah label operator.

9.tambahkan 3 buah command button

       lalu ganti caption masing-masing command button pada properti dengan:

       command button1= "hasil"

       command button2="reset"

       command button3="exit"

       hasilnya seperti ini

10.langkah terakhir merupakan hal yang paling di tunggu-tunggu yaitu script atau kodenya.

cara memasukan kode yaitu 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

#hati-hati dalam melakukan koding karena salah sedikit saja bisa fatal.

keterangan:  

1.untuk kode bagian ini:

Private Sub Form_Load()

Combo1.AddItem ("+")

Combo1.AddItem ("-")

Combo1.AddItem ("x")

Combo1.AddItem ("/")

End Sub

merupakan tugas agar combo Box 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 text Box 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

script di atas merupakan proses dimana jika combo box terisi text + atau x atau - atau / maka akan melakukan pengkalian ,pengurangan,pembagian,penjumlahan(sesuai text yang berisi di combo box)

#JANGAN COBA SATU KALI, COBALAH BEBERAPA KALI !!!!