Ads 468x60px

Jumat, 19 Oktober 2012

Tugas Kedua

1.         Yang bisa menyebabkan program error pada  btalamat1_click baris program alamat = “Kuningan” yaitu pada btalamat1_click tidak ada pendeklarasiannya yaitu kurang “Dim alamat As String”/ type const tidak dapat mewakili untuk alamat.
2.         *Untuk  nama1 dan nama2 itu berbeda karena nama dalam form1 hanya menggunakan “Dim....” yang hanya dikenal di variabel itu saja, sedangkan pada module menggunakan “Public Const.....” sehingga dikenal semua program.
* Sedangkan pada alamat dalam form1 sudah menggunakan “Const...” dan pada module “ Public Const....” digunakan kembali sehingga untuk alamat itu tidak berpengaruh..
3.          pada tombol umur 1 hanya menggunakan;
Dim umur As Integer
 Sehingga hanya angka 1 yang muncul,
Dan pada tombol umur 2 menggunakan;
Static umur As Integer
Sehingga angka tersebut akan bertambah secara urut sampai tak terhingga dan tak hilang ketika program dijalankan.

4.        dikarenakan terdapat Coding Option Explicit Off yang 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.

IF/CASE
Kekuranganya adalah tak ada coding pada harga dan nama barang TAS, sehingga apabila di Run ComboBox pilih kode barang “Tas” nama barang dan harga tidak tercantum.
Hasil Sebelum di edit:


Hasil Setelah di edit:
Saya menambahkan coding pada nama barang dan harga, setelah di Run nama barang dan harga pun muncul.









Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Cmbkodbar.Items.Add("SPT")
        Cmbkodbar.Items.Add("SND")
        Cmbkodbar.Items.Add("TST")
        Cmbkodbar.Items.Add("TOP")
        Cmbkodbar.Items.Add("TAS")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbkodbar.SelectedIndexChanged
        Dim Kodebarang, namabarang As String
        Dim harga As Single
        Kodebarang = Cmbkodbar.Text

        Select Case Kodebarang
            Case "SPT"
                namabarang = "Sepatu"
                harga = 200000
            Case "SND"
                namabarang = "Sandal"
                harga = 100000
            Case "TST"
                namabarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 20000
            Case "TAS"
                namabarang = "Tas"
                harga = 90000
            Case Else
                namabarang = "-"
                harga = 0
        End Select
        Txtnambar.Text = namabarang
        Txtharbar.Text = harga
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Txtnambar.Clear()
        Txtharbar.Clear()
        Txtjumbar.Clear()
        TxtTotbay.Clear()
        Txttothar.Clear()
        Txtdis.Clear()
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        Cmbkodbar.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Apakah anda ingin keluar?", vbYesNo + vbQuestion + vbDefaultButton2,
                     "Keluar") = vbYes Then
        End If
        Me.Close()
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Txtdis.Text = Val(Txttothar.Text) * 10 / 100
        TxtTotbay.Text = Val(Txttothar.Text) - Val(Txtdis.Text)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Txtdis.Text = 0
        TxtTotbay.Text = Val(Txttothar.Text) - Val(Txtdis.Text)
    End Sub

    Private Sub Txtjumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtjumbar.TextChanged
        Txttothar.Text = Val(Txtharbar.Text) * Val(Txtjumbar.Text)
        TxtTotbay.Text = Val(Txttothar.Text) - Val(Txtdis.Text)
    End Sub
End Class

Tidak ada komentar:

Posting Komentar