Latihan 1  no 3

a.      Karena pada btalamat1_click, belum ada pendeklarasian alamat ‘

Seharusnya > dim alamat as string

b.      Karena Pada tombol nama1 pendeklarasian nama sudah di masukan Dim nama As String

Nama = “Nandang” sedangkan pada tombol nama2, nama belum di deklarasikan sehingga sehingga mengambil dari module

Pada Btalamat 1 dan tombol alamat

2 sudah di deklarasikan di form

1 dengan Conts alamat = “kuningan”

c.       Karena pada tombol tambah umur1 menggunakan dim yaitu masukan selalu memulai kembali jika tombol di tekan sedangkan pada tombol tambah umur2 menggunakan static yaitu masukan yang tetap dan bertambah jika di tekan karna static dan umur +=1

d.      Analisis form 2

Analisa saya untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada baris perintah :
Option Explicit Off
Itu 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.

Latihan 2

Saya melengkapi program dengan menambah listing program untuk kode TAS, satu button yaitu button kembalian, dan dua textbox untuk uang bayar dan kembalian.

Langkah-Langkah:

Buatlah form seperti ini dengan ketentuan sbb:

9 label,  8 text box, 1 combo box, 2 radio button, 3 button

  

  

1.     Isikan perintah atau coding pada masing-masing button, combobox, radio button

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

        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 btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        txtuangbayar.Clear()

        txtuangkembali.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbcode.Text = ""

    End Sub

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

        Me.Close()

    End Sub

    Private Sub btkembalian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkembalian.Click

        If txtuangbayar.Text = "" Then

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

        ElseIf txtuangbayar.Text < txtbayar.Text Then

            MessageBox.Show(txtuangbayar, "Maaf Uang Anda Kurang")

        ElseIf txtuangbayar.Text > txtbayar.Text Then

            txtuangkembali.Text = txtuangbayar.Text - txtbayar.Text

        End If

    End Sub

End Class