Rabu, 15 Maret 2017

CARA MEMBUAT APLIKASI PENJUMLAHAN DUA BILANGAN MENGGUNAKAN VISUAL BASIC 6.0

PERTAMA  buka terlebih dulu VISUAL BASIC 6.0 seperti gambar di bawah ini

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 



Kemudian... mulai mengetik kodenya seperti 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