LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0
SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini
LANJUT kodenya seperti ini
KODE TOMBOL BERSIH
Private Sub cmdbersih_Click()
txtbil1.Text = ""
txtbil2.Text = ""
txthasil.Text = ""
End Sub
KODE TOMBOL HITUNG
Private Sub cmdhitung_Click()
a = txtbil1.Text
b = txtbil2.Text
hasil = a * b
txthasil.Text = hasil
End Sub
KODE TOMBOL KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub
TERAKHIR... coba jalankan programnya seperti ini
Tidak ada komentar:
Posting Komentar