Posted by : Yusuf Suprianto Jumat, 19 Oktober 2012


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 :


Leave a Reply

Subscribe to Posts | Subscribe to Comments

- Copyright © QIEBAE -Metrominimalist- Powered by Blogger - Designed by Johanes Djogan -