Tugas VB 2_ Analisa Program

Tugas 2

 Pemrograman Visual Basic

1.         Apa yang menyebabkan program error pada btalamat1_click baris program alamat = “Kuningan”?

2.         Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditakan tombol alamat1  dan alamat2 alamat yang ditampilkan pada textbox alamat sama?

3.         Kenapa saat ditekan tombol tambah umur 1  umur selalu keluar angka 1 sedangkan saat ditekan tombol umur 2 umur selalu bertambah 1 dari umur sebelumnya?

4.         Berilah analisa anda untuk form 2?

Hasil Analisa Program:

1.         Menurut saya yang 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 berbeda karena nama dalam form1 hanya menggunakan “Dim....” yang hanya dikenal di variabel itu saja, sedangkan pada module menggunakan “Public Const.....” sehingga dikenal disemua program.

* Sedangkan pada alamat dalam form1 sudah menggunakan “Const...” dan pada module “ Public Const....” digunakan kembali sehingga untuk alamat itu tidak berpengaruh..

3.         Karena pada tombol umur 1 hanya menggunakan;

Dim umur As Integer

 Umur +=1

 Sehingga hanya angka 1 yang muncul, dan apabila angka 1 diganti 2, begitu juga angka 2 saja yang muncul.

Sedangakan, pada tombol umur 2 menggunakan;

Static umur As Integer

        umur += 1

Sehingga angka tersebut akan bertambah secara urut sampai tak terhingga dan tak hilang selama program dijalankan.

4.        Karena 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.

Program 2_If dan Case

Kelemahannya yaitu tidak ada pendeklarasian pada harga dan nama barang “TAS”, sehingga apabila di Run pada ComboBox pilih kode barang “Tas” nama barang dan harga tidak tercantum.

Coding dan tampilan sebelum di edit.

Coding dan tampilan setelah di edit.

Setalah pada coding saya tambah pendeklarasian nama barang dan harga, setelah di Run nama barang dan harga pun muncul lihat gambar di bawah ini: 

Setelah di deklarasikan dan di Run hasilnya seperti dibawah ini:

Demikian Analisa kami

Semoga Bermanfaat :)

Codingnya ada di bawah ini: 

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

Sedot Program'e neng ngisor iki:

Klik Untuk Download Programnya