TI 11 C
Meilita Rahayu
11.11.2468
A.)Yang
menyebabkan error adalah karena variabel nama belum di deklarasikan
pada method di dalam class tersebut, di dalam btalamat1_Click hanya
tertulis :
alamat = "Kuningan"
Txtalamat.Text = alamat
alamat = "Kuningan"
Txtalamat.Text = alamat
seharusnya
dituliskan listing sebagai berikut
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat
B.)
karena pada button nama1 menggunakan Dim yang bersifat
lokal,sehingga program menjalankan nilai atau isi dari variabel nama
dalam button tersebut,sementara pada button nama2 tidak di tentukan
variabel dan nilainya dan di lain sisi pada modul variabel
namanya telah dideklarasikan,selain itu pada modul juga menggunakan
public yang bersifat global.
Kemudian
mengapa ketika kita menekan tombol alamat1 dan alamat2 pada textbox
akan muncul alamat yang sama itu dikarenakan pada program frmsatu
sudah ada pendeklarasian const alamat = “kuningan” sehingga
program akan mengambil dari pendeklarasian tersebut,kecuali apabila
pendeklarasian const alamat = “kuningan” kita hilangkan maka yang
muncul adalah purwokerto,karena program akan mengambil dari modul.
C.)
saat tombol "tambah umur 1" ditekan selalu mengeluarkan
angka satu karena tombol tersebut menggunakan variabel Dim yang sudah
ditetapkan.Sehingga pada saat tombol "tambah umur 1" kita
tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya
pun akan selalu satu, karena nilai dari variabel "umur"
akan selalu "umur += 1".
sedangkan pada tombol tambah umur2 menggunakan pendeklarasian static yang artinya nilainya tidak hilang pada saat dieksekusi,dan nilai yang ditentukan ialah +1 sehingga pada tombol tambah umur2 nilainya akan terus bertambah 1.
sedangkan pada tombol tambah umur2 menggunakan pendeklarasian static yang artinya nilainya tidak hilang pada saat dieksekusi,dan nilai yang ditentukan ialah +1 sehingga pada tombol tambah umur2 nilainya akan terus bertambah 1.
D.)
untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada
baris 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.
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.
Analisa
Kelemahan Program pada Latihan 2 If an Case

yang
saya temukan pada program ini adalah ketika kita memilih kode "TAS"
pada ComboBox Kode Barang, listing program masih kurang untuk kode
"TAS". Dan menurut saya, untuk harga T-Shirt dan Topi
mungkin ada kesalahan karena terlalu mahal, mungkin harga yang tepat
adalah 150.000 untuk T-Shirt dan 50.000 untuk TOPI dan TAS.
listing
yang tepat pada ComboBox kode barang adalah :
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 "SPT"
namabarang = "Sepatu"
harga = 200000
Case "TST"
namabarang = "T-Shirt"
harga = 150000
Case "TOP"
namabarang = "Topi"
harga = 50000
Case "TAS"
namabarang = "Tas"
harga = 50000
Case Else
namabarang = "-"
harga = 0
End Select
txtnama.Text = namabarang
txtharga.Text = harga
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 "SPT"
namabarang = "Sepatu"
harga = 200000
Case "TST"
namabarang = "T-Shirt"
harga = 150000
Case "TOP"
namabarang = "Topi"
harga = 50000
Case "TAS"
namabarang = "Tas"
harga = 50000
Case Else
namabarang = "-"
harga = 0
End Select
txtnama.Text = namabarang
txtharga.Text = harga