1) Yang membuat program error yaitu
alamat tidak menemukan tujuan yang jelas, tujuan yang terdekat adalah pada const
alamat = “Kuningan”, sedangkan di module adalah Purwokerto”. Seharusnya pada program
btalmtt1_Click baris alamat = “Kuningan” di beri tanda ‘ untuk
mentidak aktifkannya, dikarenakan sebelumnya tidak ada pendeklarasian alamat (
seharusnya Dim di ubah menjadi String )
2) Karena Pada tombol nama1
pendeklarasian nama sudah di masukan Dim nama As String. Nama = “Nandang”
sedangkan pada tombol nama2, nama belum di deklarasikan sehingga sehingga
mengambil dari module. Pada Btalamat 1 dan tombol alamat2 sudah di deklarasikan
di form1 dengan Conts alamat = “kuningan”
3) Pada program bttambahumur1_Click
baris Dim umur As Integer, seharusnya Dim diganti dengan Static
agar saat ditekan tombol tambah umur 1, umur bertambah 1 dari sebelumnya.
4) Pada form2 button – button seperti
btnama, btalamat, dan btumur sudah menemukan target yang jelas pada module,
pada btnama baris txtnama.Text = nama ada target di module yaitu Public const
nama As String = “Nandang Hermanto” Pada btalamat juga ada target di
module yaitu Public const alamat As String = “Purwokerto” Pada btumur
juga ada target di module yaitu Public const umur As Integer = 17
If dan Case.
Kelemahan:
Programnya ada
pada nama barang dan harga barang, dimana tertuliskan nama barang = - dan harga
barang = 0, itulah yang menyebabkan program menjadi salah.
Design
Program
Listing program setelah di benarkan
Program siap
di jalankan ( F5 )
Tidak ada komentar:
Posting Komentar