Program 1 variabel konstanta type data
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 non 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 = “Joni” sedangkan pada tombol nama2, nama belum di
deklarasikan 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 = “Joni Munandar”
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
PROGRAM 2 IF dan Case
Menurut pendapat saya, kekurangan
pada program ini adalah combobox yang terdapat kode "TAS" yang
belum ada listing programnya, maka jika program ini dijalankan akan keluar
gambar seperti contoh yang saya buat di bawah ini :
gambar diatas menunjukkan kode "TAS" itu tidak perlu ada pada combobox tetapi bisa juga ditambaih listing program agar kode "TAS" bisa dijalankan
dan inilah listing yang saya gunakan untuk memperbaiki prograam diatas.
case "TAS"
namabarang = "TAS"
harga = 150000
dan hasilnya adalah seperti di bawah ini
Demikianlah analisis program. terima Kasiiiihhh...
