Tugas Pemrograman Visual Basic 2

Filed under: Uncategorized — Tinggalkan komentar

Oktober 20, 2012

>> Jawaban latihan 1 nomer 3 :

A. Karena variable nama belum di deklarasikan pada method di dalam class tersebut, di dalam listing btalamat1_Click di tuliskan sbb :

alamat = “Kuningan”

Txt.alamat.Text = alamat

Seharusnya menggunakan sbb:

Dim alamat As String

alamat = “Kuningan”

Txt.alamat.Text = alamat

B. Karena pada program btnama2_click tidak di deklarasikan nama keduanya karena cuma ada pendeklarasian Txtnama.Text sehingga program akan mengambil langsung ke modul. Kemudian mengapa ketika kita menekan tombol alamat1 dan alamat2 pada textbox akan muncul alamat yang sama itu dikarenakan pada program frmssatu 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. Pada tombol tambah umur1 pendeklarasiannya menggunakan Dim yang artinya nilainya telah di tetapkan yaitu 1 sehingga yang keluar ialah angka 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. Form 2 bisa dipanggil dengan mengklik tombol show form 2 pada form 1 dengan mengisi codenya yaitu FrmDua.ShowDialog(). Pada saat form 2 kebuka, form 1 masih tetap ada dan jika kita pilih tombol tutup maka hanya form 2 saja yang di tutup.

>> Analisa kelemahan program pada latihan 2 If dan Case

Kelemahan dari program pada latihan 2 If dan Case yaitu belum ada coding untuk KODE “SEPATU”. Sehingga saya akan menambahkan kodingnya, langsung saja kodingnya dibawah ini :

PublicClassForm1

PrivateSub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

Dim kdbarang, namabarang AsString

Dim harga AsSingle

kdbarang = cmbkode.Text

SelectCase kdbarang

Case”SPT”

namabarang = “SEPATU”

harga = 200000

Case”SND”

namabarang = “SANDAL”

harga = 100000

Case”TST”

namabarang = “T-SHIRT”

harga = 150000

Case”TOP”

namabarang = “TOPI”

harga = 50000

Case Else

namabarang = “TAS”

harga = 300000

EndSelect

txtnamabarang.Text = namabarang

txthargabarang.Text = harga

EndSub

Lalu saya merubah codingnya menjadi sbb :

PublicClassForm1

PrivateSub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

Dim kdbarang, namabarang AsString

Dim harga AsSingle

kdbarang = cmbkode.Text

SelectCase kdbarang

Case”SPT”

namabarang = “SEPATU”

harga = 200000

Case”SND”

namabarang = “SANDAL”

harga = 100000

Case”TST”

namabarang = “T-SHIRT”

harga = 150000

Case”TOP”

namabarang = “TOPI”

harga = 50000

Case Else

namabarang = “TAS”

harga = 300000

EndSelect

txtnamabarang.Text = namabarang

txthargabarang.Text = harga

EndSub

PrivateSub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

txttotalharga.Text = Val(txthargabarang.Text) * Val(txtjumlah.Text)

txttotalbayar.Text = Val(txttotalharga.Text) – Val(txtdiskon.Text) * Val(txtjumlah.Text)

EndSub

PrivateSub Radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged

txtdiskon.Text = Val(txthargabarang.Text) * 10 / 100

txttotalbayar.Text = Val(txttotalharga.Text) – Val(txtdiskon.Text)

EndSub

PrivateSub Radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiokredit.CheckedChanged

txtdiskon.Text = 0

txttotalbayar.Text = Val(txttotalharga.Text) – Val(txtdiskon.Text)

EndSub

PrivateSub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

txttotalbayar.Clear()

txtdiskon.Clear()

txthargabarang.Clear()

txtjumlah.Clear()

txtnamabarang.Clear()

txttotalharga.Clear()

Me.Radiotunai.Checked = False

Me.Radiokredit.Checked = False

cmbkode.Text = “”

EndSub

PrivateSub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

Me.Close()

EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

cmbkode.Items.Clear()

cmbkode.Items.Add(“SPT”)

cmbkode.Items.Add(“SND”)

cmbkode.Items.Add(“TST”)

cmbkode.Items.Add(“TOP”)

cmbkode.Items.Add(“TAS”)

EndSub

PrivateSub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

EndSub

EndClass

Setelah pengisian coding telah selesai lalu kita run listing programnya, akan tampil program di bawah ini,, akan tetapi progam itu sudah saya isikan sbb :