Posted by : Arief Hilman Nugraha Sabtu, 13 April 2013


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

berikut kode nya.cara memasukan kode yaitu klik kanan pada daerah aplikasi lalu "view code"



Private Sub Command1_Click()
If Combo1.Text = "+" Then
Text3.Text = Text1.Text + Val(Text2.Text)
Else
If Combo1.Text = "-" Then
Text3.Text = Text1.Text - Val(Text2.Text)
Else
If Combo1.Text = "x" Then
Text3.Text = Text1.Text * Val(Text2.Text)
Else
If Combo1.Text = "/" Then
Text3.Text = Text1.Text / Val(Text2.Text)
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()
'Mengosongkan nilai input
Text1.Text = ""
Text2.Text = ""
Text3.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)
SUMBER

Leave a Reply

Subscribe to Posts | Subscribe to Comments

Welcome to My Blog

Guilty Ghost

Guilty Ghost
Haking Tips , Tips Dan Trick , dll Disini Tempatnya

Berlangganan Lewat Email

Subscribe via Email

Jam

Lagu

Total Pageviews

Arief Hilman Nugraha. Diberdayakan oleh Blogger.

- Copyright © Arief Hilman Nugraha - Robotic Notes - Disponsori Oleh Blogger - Editing by Arief Hilman Nugraha -