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 !
Dalam hal ini bagi para programer vb pasti sudah biasa menemukan tampilan awal, tinggal pilih standard EXE.   !  Lalu klik open ! 



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 !
 


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 ! 

Langkah-langkah pembuatan aplikasi pada vb paling benar ..

Advertisement