Tugas 2 Pemrogaman Visual

Jawaban Latihan 1

A.Yang menyebabkah program error padad btalamat1_Click baris program alamat = “kuningan”, adalah karena sifat dari tipe data constanta sendiri nilannya tidak bisa dirubah.

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

Kekurangan progam :

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.

Misal Dengan menambahkan

Case "TAS"

namaBarang = "tas"

harga = 700000

di bagaian select case sebelum case else pada cmbKode

hasil program 2 setelah di perbaiki:

Koding :

Public Class Form1

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

txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)