TUGAS PEMROGRAMAN 2
Program di bawah ini apabila di jalankan akan ada kesalahan pada btalamat1_Click baris program alamat="Kuningan " karena sudah
terdapat konstanta yang terletak di Public Class frmsatu yaitu Const
alamat="Kuningan", kemudian tidak dideklarasikan variabel Dim di dalam
btalamat1_Click. Sehingga pada saat di panggil tidak akan muncul
Dim alamat As String
alamat = "kuningan"
txtalamat.Text = alamat
Kemudian, jika Tombol Nama1 dan Nama2 jika ditekan hasilnya berbeda saat
ditampilkan pada textbox nama karena pada btnama1_Click telah digunakan
variabel Dim yang hanya dapat dikenal ditempat variabel tersebut
dipesan. Sedangkan pada btnama2_Click hanya mencantumkan baris program
txtnama.Text=nama karena variabel nilainya diambil dari Module1 yaitu
Public Const nama As String = "Nandang Hermanto". Kemudian saat menekan
tombol Alamat1 dan Alamat2 alamat yang ditampilkan alamatnya sama,
disebabkan karena di Public Class frmsatu terdapat Const
alamat="Kuningan". Dan apabila konstanta dihilangkan dan pada
btalamat1_Click diberi variabel Dim. Jika programnya dijalankan, textbox
alamat akan menampilkan hasil yang berbeda apabila menekan tombol
Alamat1 dan Alamat2.
Saat tombol Tambah umur 1
ditekan angka yang selalu keluar adalah satu karena tombol tersebut menggunakan
variabel Dim, Sehingga pada saat tombol "tambah umur 1" kita
tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan
selalu satu.
Berbeda dengan varabel umur pada tombol Tambah umur 2 yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya.
Berbeda dengan varabel umur pada tombol Tambah umur 2 yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya.
Pada form2
Option Explicit Off sehingga
harus mendeklarasikan variable terlebih dahulu.
Kemudian pada button Nama, Alamat dan umur mempunyai variable yang di
deklarasikan pada Module1. Sehingga apabila di panggil ketiga Button tersebut
akan menampilkan sesuai dengan Module1.
-----> Lanjut kelatihan 2 IF and case
Pada Program If & Case selain memiliki kegagalan karena terdapat
fungsi yang tak berjalan, juga memiliki tampilan yang kurang menarik,
untuk itu saya disini berusaha menjelaskan kekurangan-kekurangan yang
terdapat pada program ini.
1. Ketika kita memilih kode "TAS" pada ComboBox kode barang, hasil yang keluar adalah 0 bisa juga diartikan fungsi tidak berjalan. hal ini di karenakan listing program masih
kurang untuk kode "TAS".
Berikut program perbaikannya :
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
Jadi tampilan yang benar harusnya seperti ini :
Sekian penyelesaian dan pembenaran dari program yang saya analisa lagi . Semoga bermanfaat bagi kalian semua .
