VISUAL BASIC 2010
Jawaban Latihan 1 Nomor 3 :
A.) Yang menyebabkan error adalah karena
varabel nama belum di deklarasikan pada method di dalam class tersebut, di
btalamat1_Click hanya tertulis :
alamat = "Kuningan"
Txtalamat.Text = alamat
seharusnya adalah :
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat
alamat = "Kuningan"
Txtalamat.Text = alamat
seharusnya adalah :
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat
B.) karena
pada tombol nama1 mengunakan Dim pada dalam tombol tersebut ,sehingga program
menjalankan nilai atau isi dari variabel nama dalam tombol tersebut
-sementara
pada tombol nama2 tidak di tentukan variabel dan nilai ny dalam tombol tersebut
, dan di lain sisi pada module variabel
nama nya “Public Const nama As String = "Ade candra" maka
dari itu tombol nama2 mengambil nilai secara global karena variabel ny public..
Dan pada alamat 1 dan alamat2 sama karena
variable dan nilai nya tidak di tentukan pada tombol masing-masing maka dari
itu program menjalankan perintah yg ada dalam module yaitu “ Public Const alamat As String =
"Tanjung" di ambil secara global atau luar karena menggunakan public
C.) saat tombol "tambah umur 1"
ditekan selalu mengeluarkan angka satu 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. 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".
Berbeda dengan varabel umur pada Bttambahumur2_Click yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 "umur +=1".
Berbeda dengan varabel umur pada Bttambahumur2_Click yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 "umur +=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.
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
0 Response to "TUGAS 2 VISUAL BASIC 2010"
Posting Komentar