tugas 2 pemrograman visual

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...