FORUM COBRA SMAN 1 MASBAGIK

SOURCE CODE MEMBUAT PENGHITUNGAN SEDERHANA

MENGGUNAKAN VB 6.0

Buatlah 4 label dengan caption diubah menjadi : Aplikasi Penghitungan Sederhana,bil1, bil2, hasil. dan tambahkan juga 4 option button, dimana captionnya diubah menjadi Penjumlahan, pengurangan, pembagian dan perkalian. selain itu tambahkan 3 Command button dan captionnya diubah menjadi proses, bersih data dan keluar. dan berikut listing programnya, dan nama2 properties dari masing toolbox, silahkan anda sesuaikan sendiri serta desainnya anda gunakan kreasi sendiri....
Listing Program untuk Form ketika dibuka :
Private sub form_load
hasil.enabled = false
end sub
listing Program untuk Command Proses (cmdok) :
Private sub cmdok_Click
if jumlah.value=true then
hasil= val(bil1.text) + Val(bil2.text)
hasil.text=hasil
elseif kurang.value= true then
hasil = val(bil1.text) - val(bil2.text)
hasil.text = hasil
elseif bagi.value= true then
hasil = val(bil1.text) / val(bil2.text)
hasil.text = hasil
elseif kali.value= true then
hasil = val(bil1.text) * val(bil2.text)
hasil.text = hasil
end if
end sub
Listing Program untuk Command Bersih :
Private sub cmdbersih_Click
bil1.text = ""
bil2.text = ""
hasil.text = ""
bil1.setfocus
end sub
Listing untuk Program Command Keluar :
Private sub keluar_Click
dim x as integer
x=msgbox("Anda yakin mau keluar???",VbOkCancel,"KONFIRMASI")
if x = vbOk then
end
end if
end sub