Jawaban Latihan 1
a. yang menyebabkah program error pd btAlamat1_Click baris program
alamat = “kuningan”, adalah karena sifat dari constanta sendiri yang
nilainya tidak bisa di ubah-ubah/ bersifat tetap ( yang pd program ini
pendeklarasian nilai konstantan alamat berada di bawah Public Class).
b. yang menyebabkan ketika menekan tombol Nama1 dan Nama2 mengeluarkan
output yang berbeda di txtNama yakni “Nandang” dengan “Nandang Hermanto”
hal ini dikarenakan di dalam coding tombol Nama1 telah memesan 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 “Nandan Hermanto”. Sehingga saat si User
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
Kelemahan dari program 2 menurut saya:
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 nilai pada select case.
Properti bagian enable dari TextBox-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.
gb. sebelum coding dirubah
Misal coding tetap sama hanya dengan menambahkan
Case "TAS"
namaBarang = "tas"
harga = 700000
di bagaian select case sebelum case else pada cmbKode
di bagaian select case sebelum case else pada cmbKode
hasil program 2 setelah di perbaiki:
gb. output setelah di perbaiki
dengan coding sebagai berikut:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbKode.Items.Add("SPT")
cmbKode.Items.Add("SND")
cmbKode.Items.Add("TST")
cmbKode.Items.Add("TOP")
cmbKode.Items.Add("TAS")
End Sub
Private Sub cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged
Dim kdBarang, namaBarang As String
Dim harga As Single
kdBarang = cmbKode.Text
Select Case kdBarang
Case "SPT"
namaBarang = "Sepatu"
harga = 200000
Case "SND"
namaBarang = "Sandal"
harga = 100000
Case "TST"
namaBarang = "T-Sirt"
harga = 1500000
Case "TOP"
namaBarang = "Topi"
harga = 500000
Case "TAS"
namaBarang = "Tas"
harga = 700000
Case Else
namaBarang = "-"
harga = 0
End Select
txtNama.Text = namaBarang
txtHarga.Text = harga
End Sub
Private Sub txtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged
txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
End Sub
Private Sub radioTunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioTunai.CheckedChanged
txtDiskon.Text = Val(txtTotal.Text) * 10 / 100
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
End Sub
Private Sub radioKredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioKredit.CheckedChanged
txtDiskon.Text = 0
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
End Sub
Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click
txtDiskon.Clear()
txtHarga.Clear()
txtJumlah.Clear()
txtTotal.Clear()
txtNama.Clear()
cmbKode.Text = ""
Me.radioTunai.Checked = False
Me.radioKredit.Checked = False End Sub
Private Sub btTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTutup.Click
Me.Close()
End Sub
End Class
0 komentar:
Posting Komentar