If-Case pada vb 2010

1. Apa yang menyebabkan program eror pada btalamat1_clik baris program alamat="kuningan"?
jawab:Karena pesanan alamat tersebut sudah ada pada modulel.

2.Kenapa saat ditekan tombol nama1 & nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 & alamat2 tampilannya sama?
jawab: karena pada button nama1, nama sudah terisi nilai.sedang pada button2, nama memesan pada apa yang terisi pada modulel.

3.Kenapa saat ditekan tombol tambah umur1 selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur2 umur selalu bertambah 1 dari umur sebelumnya?
jawab:
Pada button umur1 saat ditekan umur hanya tampil 1 karena type variabel yang dipesan berupa “DIM” bahasa secara khusus adalah bersifat lokal, sementara “dim” hanya mempunyai nilai yang tetap, yaitu (=1).

Bentuk Variable: Umur1 : Dim umur As Integer

Sedangkan pada tombol umur2 pemesanan variabel nya adalah bersifat statis yang berarti jumlah dari variabel yang disimpan dan ditampilkan dapat berubah2 nilainya, jadi jika nilai yang sudah tersimpan atau ditampilkan di tambahkan dengan +=1) maka nilainya akan terus bertambah.

Bentuk Variable: Umur2 : Static umur As Integer

4.Berikan Analisa anda tentang Form2?
jawab:Pada Button 1,2 dan 3 yang telah terisi text Nama Alamat dan umur.Btnama, Btalamat, Btumur, hanya mengambil pesanan yang sudah terpesan di modulel. form ini berada pada keadaan posisi Option Explicit off artinya bahwa compiler tidak mengharuskan semua variabel dideklarasikan secara eksplisit sebelum digunakan dalam program tersebut. Kelemahan dari mode ini adalah tidak adanya kepastian variabel mana yang digunakan untuk variabel lainnya. atau tidak dideklarasikan secara permanen pada variable.

TUGAS KE-2

If dan Case

Menurut analisa saya kelemahan pada latihan 2 If dan Case yaitu tidak ada tombol Hitung. Pada program ini saya rasa user atau orang awam akan merasa kebingungan saat menggunakannya, apabila akan menginputkan datanya. Maka saya sedikit merubah posisi radio button "Tunai" dan "Kredit" serta menambahkan tombol Hitung.

Listing program dari tombol Hitung yaitu:
Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
If Me.radiotunai.Checked = True Then
txtdiskon.Text = Val(txttotal.Text) * 10 / 100
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
ElseIf Me.radiokredit.Checked = True Then
txtdiskon.Text = 0
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End If
End Sub

Kelemahan selanjutnya pada pilihan Kode Barang "TAS" listing programnya belum sempurna, pada saat program dijalankan hasilnya 0. Seharusnya seperti ini:
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-Shirt"
harga = 1500000
Case "TOP"
namabarang = "Topi"
harga = 500000
Case "TAS"
namabarang = "Tas"
harga = 130000
Case Else
namabarang = "-"
harga = 0

End Select
txtnama.Text = namabarang
txtharga.Text = harga
End Sub

Tampilan setelah kita memilih Kode Barang "TAS" dan menginputkan Jumlah Barang

Kemudian kelemahan yang saya temukan lagi yaitu pada tombol Clear apabila kita menekannya maka semua hasil yang ditampilkan textbox akan hilang, akan tetapi pada radio button Cara Beli akan berubah menjadi FALSE.

Perbaikannya coding saat menekan tombol clear adalah sebagai berikut:
Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
txtnama.Clear()
txtharga.Clear()
txtjumlah.Clear()
txttotal.Clear()
txtdiskon.Clear()
txtbayar.Clear()
radiotunai.Text = "Tunai"
radiokredit.Text = "Kredit"
cmbkode.Text = " "
End Sub

Demikian utek2 yang saya keluarkan semoga bermanfaat!!
Wassalamu'alaikum...