Membuat Kalkulator Sederhana (VB 6)
Berkenaan dengan postingan yang sebelumnya wadah solusi
posting membuat jam digital , sekarang masih membahas seputar aplikasi apa saja yang bisa dibuat
dalam aplikasi visual basic 6. Kemarin kita bisa membuat jam digital dengan
VB6. Sekarang kita membahas langkah-langkah membuat aplikasi kalkulator
sederhana. Berikut pemaparannya :
1.
Tampilan awal VB6 pada
layar, pilih standart seperti biasa !
2. Kemudian
sampai langkah kedua yaitu kita harus menambahkan 4 COMPONEN LABEL . Berikut
pemaparan dari label 1 – 4 berikut untuk kegunaannya :
Ø
Label
1 = bertuliskan KALKULATOR
Ø
Label
2 = berguna untuk nama Bilangan Pertama
Ø
Label
3 = berguna untuk nama Bilangan Kedua
Ø
Label
4 = berguna untuk nama HASIL
Sebagai
acuan agan-agan ini gambarannya nanti labelnya setelah diganti nama captionnya
akan seperti ini !
3.
Langkah
ketiga kita tambahkan lagi COMPONEN TEXT ! caranya seprti gambar berikut :
Catatan : jangan lupa pada propertis tepatnya pada
kolom textnya dikosongkan !
Gambarnya sebagai berikut !
Gambarnya sebagai berikut !
4.
Seterusnya
menambahkan 7 COMPONEN BUTTON seperti gambar dibawah !
5. Langkah ini adalah
penamaan semua captionsnya , semua LABEL, TEXT dan BUTTON harus sesuai gambar
dibawah !
6. Nahh
ini sebenarnya langkah terakhir namun ini paling membutuhhkan ketelitian ,
langkah ini saya namai sebagai pengcodinggan (atau penulisan rumus code untuk
menjalankan program aplikasi KALKULATOR
ini ) tolong dengan sangat simak baik-baik ya J
Namun
yang pertama masuk ke ruang pengkodean caranya klik kanan pada lembar project
kita ! seperti gambar dibawah ! lalu pilih view code !
Tulislah
kode dibawah ini pada ruang pengkodean !
Private
Sub Command1_Click()
Text3.Text
= Val(Text1) + Val(Text2)
End
Sub
Private
Sub Command2_Click()
Text3.Text
= Val(Text1) - Val(Text2)
End
Sub
Private
Sub Command3_Click()
Text3.Text
= Val(Text1) * Val(Text2)
End
Sub
Private
Sub Command4_Click()
Text3.Text
= Val(Text1) / Val(Text2)
End
Sub
Private
Sub Command5_Click()
Text1.Text
= ""
Text2.Text
= ""
Text3.Text
= ""
Text1.SetFocus
End
Sub
Private
Sub Command6_Click()
End
End
Sub
Private
Sub Command7_Click()
Command1.Enabled
= True
Command2.Enabled
= True
Command3.Enabled
= True
Command4.Enabled
= True
Command5.Enabled
= True
Command6.Enabled
= True
Command7.Enabled
= False
Text1.Enabled
= True
Text2.Enabled
= True
Text3.Enabled
= True
Text1.SetFocus
End
Sub
Private
Sub Form_Load()
Command1.Enabled
= False
Command2.Enabled
= False
Command3.Enabled
= False
Command4.Enabled
= False
Command5.Enabled
= False
Command6.Enabled
= False
Command7.Enabled
= True
Text1.Enabled
= False
Text2.Enabled
= False
Text3.Enabled
= False
End
Sub
Atau
gambarnya sebagai berikut :
7. Langkah
terakhir nih !!!!!!!!!!!!
8. Jadi ahayyyyyyy deh aplikasi printscreenya
sebagai berikut !
Ket
:
Tombol
+ untuk penjumlahan
Tombol
– untuk pengurangan
Tombol
x untuk perkalian
Tombol
/ untuk pembagian
Tombol
INPUT untuk penginputan data
Tombol
EXIT untuk keluar dari aplikasi KALKULATOR
Tombol
START untuk mengawali program ini setelah meklik play aplikasi ini tidak akan
bisa digunakan seebelum mengklik tombol START
Cari tahu apakah langkah pembuatan aplikasi anda sesuai kaedah metode ini !