a. Yang menyebabkah program error pd btalamat1_Click baris program alamat = “kuningan”, adalah karena sifat dari tipe data constanta sendiri nilannya tidak bisa dirubah.
kode eror
B.Karena didalam penulisan coding tombol Nama1 telah dipesan variabel nama bertipe String yang sudah di beri nilai “Nandang”. Sedangkan di tombol Nama2 hanya tertulis perintah untuk menampilkan nilai dari variabel nama saja, sehingga program akan mengambil nilai yang sudah dideklarasikan di modul1 yakni (Nandang Hermanto). Sehingga saat si pengguna program menekan tombol Nama1 program akan membaca variabel nama yang sudah diberi nilai akan muncul (Nandang) sedang tombol Nama2 program membaca nilai variabel yang aberada di modul1 akan muncul “Nandang Hermanto”.
C. Yang menyebabkan ketika menekan tombol Umur1 hasilnya tetap 1 sedang ketika menekan tombol Umur2 hasilnya selalu bertambah 1 secara berkala
hal ini dikarenakan pendeklarasian di tombol Umur1 berjenis Dim (sat pendeklarasian umur) yang mana data akan hilang setelang program tereksekusi sedang tombol Umur2 berjenis Static (saat pendeklarasian umur) yang nilainya tetap tersimpan walau telah tereksekusi.
D. Analisa saya di form2 yakni form2 mengakses seluruh data data yang sudah dideklarasikan dari modul1. (data yang diakses berupa output nama, alamat dan umur)
Jawaban Latihan 2
Menurut saya kelemahan dari program 2
1. Kata “TAS” dalam comboBox(daftar kode barang) belum ada nilainya sehingga tampak tak ada fungsinya, lebih baik di hapus atau kalau tidak ingin dihapus di beri koding program pada select case.
Properti bagian enable dari TextBox yang digunakan untuk output seperti namaBarang, hargaBarang, totalHarga, diskon dan total bayar hendaknya di falsekan agar user tidak bisa menginputkan data di bagian tsb, sehingga memperjelas dalam penginputkan data.
2. bila kita mengganti nama kode barang ketika kita sudah menginputkan kode barang, jumlah barang kita klik tunai /kredit program tidak bisa merubah total bayar pada saat kita mengganti nama kode barang.
3 bila kita mengganti nama kredit atau tunai ketika kita sudah menginputkan kode barang, jumlah barang , program tidak bisa merubah diskon
Bila kita ingin memperbaiki kita tambahkan kode dibawah ini di bawah koding case
Case "TAS"
namaBarang = "Tas"
harga = 700000
Case Else
namaBarang = "-"
harga = 0
End Select
txtNama.Text = namaBarang
txtHarga.Text = harga
txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
If radioTunai.Checked = True Then
txtDiskon.Text = Val(txtTotal.Text) * 10 / 100
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
ElseIf radioKredit.Checked = True Then
txtDiskon.Text = 0
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
End If
End Sub
hasil program 2 setelah di perbaiki: