Pada bahasan kali ini kita akan membahas bagaimana cara untuk membuat sebuah kalkulator sederhana dengan menggunakan Program Visual Basic 6.0, sebenarnya tidak sulit untuk membuat sebuah kalkulator sederhana ini,bahkan sangat mudah,asal kita sudah tau caranya dan tau prinsip utama dari kegunaan sebuah kalkulator,prinsip utama dari sebuah kalkulator adalah untuk menghitung ( menambah,mengurangi,mengkalikan, dan membagi ) itu saja kan, nah sekarang kita langsung saja ke langkah-langkah nya :
1. Persiapan Tampilan
Untuk menyiapkan tampilan kita membutuhkan beberapa komponen, diantaranya yaitu :
- empat komponen label
- Tiga komponen text box
- satu Combo Box, dan
- Dua buah Command Button dan aturlah letak nya seperti gambar di bawah ini atau jika mau berkreasi sendiri juga boleh !
Text Box pertama dan kedua itu adalah untuk memasukan angka yang akan kita hitung,sedangkan Combo box adalah sebagai pilihan aksi yang akan kita lakukan misalkan menambah,mengurangi,mengkali atau membagi, nah setelah kita memasukan angka di kolom satu dan dua juga memilih operator atau aksi apa yang akan di terapkan maka kita tinggak klik tombol “ Proses “ maka hasil nya akan tampil di kolom hasil.
2. Persiapan Koding
Setelah selesaii dengan tampilan,sekarang kita tinggal membahas koding nya yang akan di gunakan yaitu pada tombol “proses” saja,koding untuk tombol yang satu lagi sudah langsung berada di tombol proses,dan untuk tombol “Proses” koding nya adalah sebagai berikut :
If Combo1.Text = "+" Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
MsgBox ("Hasil dari penjumlahan adalah " & Text3.Text)
ElseIf Combo1.Text = "-" Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
MsgBox ("Hasil dari pengurangannya adalah " & Text3.Text)
ElseIf Combo1.Text = "*" Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
MsgBox ("Hasil dari perkaliannya adalah " & Text3.Text)
ElseIf Combo1.Text = "/" Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
MsgBox ("Hasil dari baginya adalah " & Text3.Text)
End If
Bersih
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
End Sub
Private Sub form_load()
Combo1.AddItem ("+")
Combo1.AddItem ("-")
Combo1.AddItem ("*")
Combo1.AddItem ("/")
Sampai di sini maka anda tinggal menjalankan program nya .
Selamat Menncoba Semoga Berhasil !!!!!
0 Komentar untuk "Membuat Kalkulator Di Visual Basic 6.0"