Tugas pemrograman 2

Latihan 1

A.    Penyebabkan error pada btalamat1_Click adalah :

Kita seharusnya mendeklarasikan variabel “alamat” dengan DIM dan type data STRING

        Dim alamat As String

        alamat = "kuningan"

        txtalamat.Text = alamat

B.     Penyebabkan munculnya nama yang berbeda  pada textbox namapada saat tombol nama1 dan nama2 ditekan adalah:

Karena pada Btnama2_Click tidak ada pendeklarasian variabel “NAMA” seperti pada Btnama1_Click, sehingga secara otomatis variabel nama yang diambil pada Btnama2_Click dari Public Const nama yang dideklarasikan pada Module.

Sedangkan pada saat tombol alamat 1 dan alamat 2 ditekan menghasilkan alamat yang saya karena ada pendeklarasian “ALAMAT” pada FORM1 dengan CONST yang berarti pengenalan data yang digunakan untuk menyimpan data dan nilai tidak dapat berubah pada saat program dijalankan. Untuk mendapatkan hasil yang berbeda sebaiknya hapus pendeklarasian ALAMAT yang mrnggunakan CONST tersebut, dengan begitu data yang diambil ketika tombol  alamat 2 ditekan dari Public Const alamat yang dideklarasikan pada Module.

C.     Penyebab perbedaan hasil ketika tombol tambah umur 1 dan tambah umur 2 ditekan adalah :

Karena pada tombol tambah umur 1 menggunakan variabel DIM yang berarti nilai atau data akan disimpan  dan bernilai tetap selama prosedur atau form aktif

Sedangkan pada tombol tambah umur 2 menggunakan varibel STATIC data akan didimpan selama program dijalankan dan nilainya tidak tetap, sehingga jika “umur += 1” maka hasil akan terus ditambah satu.

             

D.    Pada form2 tidak perlu dideklarasikan lagi menggunakan variabel, karena sudah dideklarasikan pada MODULE yang menggunakan variabel “PUBLIC” yang mempunyai ciri dapat dikenal diseluruh bagian program.

           

Latihan 2

Analisa program 2

Menurut analisa saya,  melengkapi program dengan menambah listing program untuk kode TAS, satu button yaitu button kembalian, dua textbox untuk uang bayar dan kembalian, dan dua buah label

Buatlah sebuah form seperti ini dengan ketentuan sebagai berikut dengan menggunakan Button, ComboBox, TextBox, RadioButton dan Label

Isikan coding sebagai berikut

Public Class Form1

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

        cmbcode.Items.Add("SPT")

        cmbcode.Items.Add("SND")

        cmbcode.Items.Add("TST")

        cmbcode.Items.Add("TOP")

        cmbcode.Items.Add("TAS")

    End Sub

    Private Sub cmbcode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbcode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbcode.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 = 500000

Case "TAS"

                namabarang = "Tas"

                harga = 250000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

txtnabar.Text = Namabarang

        txthabar.Text = Harga

    End Sub

    Private Sub txxtjumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumbar.TextChanged

        txttohar.Text = Val(txthabar.Text) * Val(txtjumbar.Text)

        txttotbar.Text = Val(txttohar.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

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

        txttotbar.Text = Val(txttohar.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        txtdiskon.Text = 0

        txttotbar.Text = Val(txttohar.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub BtHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapus.Click

        txtdiskon.Clear()

        txthabar.Clear()

        txtnabar.Clear()

        txttohar.Clear()

        txttotbar.Clear()

        txtjumbar.Clear()

        txtbayar.Clear()

        txtkembalian.Clear()

        Me.RadioButton1.Checked = False

        Me.RadioButton2.Checked = False

        cmbkode.Text = ""

    End Sub

    Private Sub BtKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKeluar.Click

        Me.Close()

    End Sub

    Private Sub Btkembalian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btkembalian.Click

        If txtbayar.Text = "" Then

            MessageBox.Show("Maaf Anda Belum Memasukkan Uang Bayar")

        ElseIf txtbayar.Text > txttotbar.Text Then

            txtkembalian.Text = txtbayar.Text - txttotbar.Text

        End If

    End Sub

End Class