Jawaban Tugas 2

Jawaban Latihan 1 Nomor 3 :

 

1. nama belum di deklarasikan pada method di dalam class tersebut, di btalamat1_Click hanya tertulis :
   alamat = “Kuningan”
   Txtalamat.Text = alamat
   seharusnya adalah :
   Dim alamat As String
   alamat = “Kuningan”
   Txtalamat.Text = alamat
2. 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. 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

 

 

 

 

 

 

 

Tambahan Listing Program Tas

 

 

 

 

 

 

 

 

 

 

 

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