Archive for 2012-10-14
Analisa Program Tugas 2
Latihan 1
1)Karena pada saat penulisan “Const
alamat = "kuningan"” tidak disertai dengan type
dari variable. Dan juga konstanta tidak bisa menjadi target dari suatu
pekerjaan/perintah.
2)Karena pada “btnama1” data sudah dideklarasikan “Dim nama As String” “nama =
"Nandang"” sedangkan pada “btnama2” data belum
dideklarasikan dan pada modul tertulis “Public
Const nama As String = "Nandang Hermanto"” sehingga “btnama2” membaca apa yang ada di modul,
karena jangkauan pada modul lebih luas dari apa yg hanya dideklarasikan di “btnama1” saja.
3)Karena pada “bttambahumur2” menggunakan jenis
variable static dimana jenis
variable ini tidak akan mengubah nilai selama program dijalankan, sehingga saat
“bttambahumur2” diclick nilai pada
textbox umur akan bertambah dan pada saat “bttambahumur1”
diclick nilai akan berubah menjadi 1, dan saat “bttambahumur2” diclick lagi nilai akan bertambah karena sifat dari
variable static tersebut yang akan
menyimpan nilai selama program masih berjalan.
4)Pada
form2, tidak ada perintah menyatakan variable, sehingga saat tombol
“nama-alamat-umur” diclick semua akan membaca apa yang ada dimodule.
Latihan 2
1)Analisa Program pada
latihan 2
Sejauh
saya mengetauhi dan menganalisa tidak ada kelemahan pada penggunaan If dan Case.
Dan pada Tas tidak muncul karena
tidak ada ketentuan harga. Tetapi saya mengisinya dengan ketentuan saya
sendiri.
2)Skrip Hasil :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
cmbkode.Items.Add("SPT")
cmbkode.Items.Add("SND")
cmbkode.Items.Add("TST")
cmbkode.Items.Add("TOP")
cmbkode.Items.Add("TAS")
End
Sub
Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged
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 = "150000"
Case "TOP"
namabarang = "Topi"
harga = "50000"
Case Else
namabarang = "Tas"
harga = "200000"
End Select
txtnama.Text = namabarang
txtharga.Text = harga
End
Sub
Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles txtjumlah.TextChanged
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End
Sub
Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged
txtdiskon.Text
= Val(txttotal.Text) * 10 / 100
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End
Sub
Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged
txtdiskon.Text = 0
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End
Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
txtbayar.Clear()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
Me.radiotunai.checked = False
Me.radiokredit.checked = False
cmbkode.Text = ""
End
Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End
Sub
Private Sub cmbkode_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label1.Click
End
Sub
End Class
Berikut adalah hasil dari perbaikan :