Tugas Pemrograman visual 2

Tugas Pemrograman Visual 2

Analisa Program pada Latihan Praktikum Pertemuan ke-2

 

NAMA  : Anton Nugroho

NIM      : 11.11.2352

KELAS : Ti11A

Jawaban untuk soal no. 3 pada Latihan 1 :

a).  Error pada bombol btAlamat1 disebabkan karena belum adanya pendeklarasian Dim alamat As String pada method :

alamat = "Kuningan"
Txtalamat.Text = alamat

dan yang benar adalah :

Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat

atau bisa juga menggunakan Public karena digunakan untuk seluruh alamat, sedangkan tadinya menggunakan const.

b).  Yang menyebabkan adanya perbedaan nama pada btNama1 dan btNama2 adalah adanya tampungan pendeklarasian nama ( Dim ) pada btNama1, sehingga membuat fungsi variabel global (Public Const nama) yang telah di tuliskan dalam module1 tidak berpengaruh karena btnama1 telah memiliki dim variabel nama sendiri.

Dan yang menyebabkan munculnya alamat yang sama pada btalamat1 dan btalamat2 adalah karena terdapat method Const alamat = "Kuningan" pada Public Class frmsatu, lalu jika pada Const alamat = "Kuningan" Public Class frmsatu dihilangkan maka pada btalamat2 akan muncul "Purwokerto" karena diambil dari variabel "Public Const alamat" yang terdapat pada module1.

c).   Karena pada btTambahumur1 dan btTambahumur2 menggunakan pendeklarasian variabel yang berbeda, pada btTambahumur1 menggunakan Dim, yang menyebabkan nilainya ditetapkan pada angka 1, dan tidak memiliki nilai dasar yang dapat ditambahkan karena menggunakan dim,

walaupun dengan rumus yang sama yaitu umur += 1, jika diklik terus menerus tombol tambahumur1 maka hasilnya akan tetap menampilkan 1.

Berbeda dengan btTambahumur2 yang menggunakan pendeklarasiannya dengan Static, jika dalam nilai static maka telah ditetapkan bahwa nilai dasarnya adalah 1, dan tidak akan berubah.

maka jika menggunakan rumus yang sama, dan tombol tambahumur2 maka akan menghasilkan angka yang berbeda, berurutan dan akan terus bertambah menjadi 2 , 3 , 4 , ... sesuai rumus, dengan angka dasarnya 1.

d).  Menurut saya pada form 2 ini tidak terdapat isi variabelnya dalam setiap tombol maupun textboxnya, dan juga terdapat method "Option Explicit Off" yang berarti tidak perlu ada pemberian variabel dalam form2 ini karena secara otomatis program ini menggunakan variabel public yang ada di module ataupun dalam form lain yang bersifat public atau universal.

Jawaban Analisa Kelemahan pada Latihan 2 :

Printscreen nya

Menurut saya pada latihan yang ke-2 ini ada kelemahannya, yaitu Case pada pilihan "TAS" pada combobox belum ada, hal tersebut yang menyebabkan error.
lalu pada cmbkodenya beri method  Case "TAS"               
                                                           namabarang = "Tas"
                                                           harga = 40000
dan juga adanya sedikit perubahan harga barang pada methodnya.

Berikut adalah beberapa printscreennya :

Barang Sepatu dengan cara Tunai

Barang T-shirt dengan cara Tunai

Barang Sandal dengan cara Kredit

Barang Topi dengan cara Tunai

Barang Tas dengan cara Kredit

Apabila akan Keluar dari aplikasi

Berikut Listing method nya :

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_1(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 "TAS"
                namabarang = "Tas"
                harga = 40000
            Case Else
                namabarang = " "
                harga = 0
        End Select
        txtnama.Text = namabarang
        txtharga.Text = harga
    End Sub
    Private Sub txtjumlah_TextChanged_1(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_1(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_1(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_1(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()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = ""
    End Sub
    Private Sub bttutup_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
                  "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Seperti biasa, saya ucapkan Terimakasih kepada Bapak Nandang Hermanto yang telah memberi latihan-latihan kepada saya untuk dipelajari.