Tugas Praktikum kedua

a. Yang menyebabkan error pada btalama1_Click adalah
alamat = "Kuningan"
Txtalamat.Text = alamat
seharus nya adalah
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat
b.Yang menyebabkan munculnya nama yang berbeda  pada saat textbox tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tersebut sehingga secara otomatis variabel nama diambil dari Public Const nama yang didefiniskan pada Module1.
Sedangkan yang menebabkan munculnya alamat yang sama pada textbox saat tombol alamat1 dan alamat2 ditekan adalah karena terdapat Const alamat = "Kuningan" pada Public Class FrmSatu, ketika Const alamat = "Kuningan" pada Public Class FrmSatu kita hilangkan maka tombol alamat2 akan memunculkan hasil "Purwokerto" karena diambil dari "Public Const alamat" pada Module1.

c.Yang menyebabkan saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu adalah karena tombol tersebut menggunakan variabel Dim, dimana kita tahu bahwa Dim adalah kependekan dari Dinamis, variabel jenis ini akan selalu berubah nilainya saat kita mengeksekusinya dalam sebuat operasi bilangan. 

d.analisa saya pada form 2 yaitu kita coding pada form 2 dengan perintah :

Option Explicit Off

Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

ANALISIS PROGRAM LATIHAN IF DAN CASE

menurut saya program ini masih ada yang kurang karena saat dijalankan dan kita memilih kode tas pada combobox ternyata pada textbox nama barang dan harga barang masih kosong seperti gambar dibawah ini

setelah dibenarkan maka coding nya akan menjadi seperti ini 

Private Sub CmbKodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbKodbar.SelectedIndexChanged

        Dim Kodebarang, Namabarang As String

        Dim Harga As Single

        Kodebarang = CmbKodbar.Text

        Select Case Kodebarang

            Case "SPT"

                Namabarang = "Sepatu"

                Harga = 100000

            Case "SND"

                Namabarang = "Sandal"

                Harga = 150000

            Case "TST"

                Namabarang = "T-Shirt"

                Harga = 90000

            Case "TAS"

                Namabarang = "TAS"

                Harga = 100000

            Case "TOP"

                Namabarang = "TOPI"

                Harga = 50000

            Case Else

                Namabarang = "-"

                Harga = 0

        End Select

        TxtNambar.Text = Namabarang

        TxtHarbar.Text = Harga

    End Sub

dan akan menjadi seperti gambar dibawah ini

demikian analisa dari saya
terima kasih