KEDUA desain seperti gambar di bawah ini
KETIGA setiap name TextBox diganti dengan "txtnilaipertama" txtnilaikedua" txthasil" dan tool Command diganti dengan "cmdhitung" "cmdlagi" "cmdselesai". Sebenarnya terserah mau dikasih nama apapun asal kita bisa paham ketika mengetik kodenya nanti. Perhatikan gambar dibawah ini
KODE TOMBOL PROGRAM HITUNG
Private Sub cmdhitung_Click(Index As Integer)
txthasil.Text = Val(txtnialipertama) + Val(txtnialikedua)
End Sub
KODE TOMBOL PROGRAM HITUNG LAGI
Private Sub cmdlagi_Click(Index As Integer)
txtnilaipertama.Text = ""
txtnilaikedua.Text = ""
txthasil.Text = ""
txtnilaipertama.SetFocus
End Sub
KODE TOMBOL PROGRAM SELESAI
Private Sub cmdselesai_Click(Index As Integer)
Unload Me
End Sub
SELANJUTNYA coba jalankan programnya, maka hasilnya seperti ini
Selesai......
Tidak ada komentar:
Posting Komentar