TUGAS 2 PEMROGRAMAN VISUAL ANALISA PROGRAM DENGAN VISUAL BASIC 2010

Artikel terkait : TUGAS 2 PEMROGRAMAN VISUAL ANALISA PROGRAM DENGAN VISUAL BASIC 2010

TUGAS 2 PEMROGRAMAN VISUAL

MENGANALISA PROGRAM VB ERROR REPORTING

pada posting ini merupakan salah satu tugas matakuliah di kampus saya "Pemrograman Visual". tentang menganalisa kesalahan program dan membuat sebuah program dengan menggunakan 2 permisalan variabel yaitu "if" dan "Case" dimana permisalan ini akan digunakan pada program penjualan produk seperti contoh program dibawah ini.

1. Pertanyaan yang menyebabkan program error pada saat di run di btalamat1_click alamat=kuningan ?

Jawab :

Adalah program code pada btalamat1 yang menggunakan variabel alamat telah menggunakan variabel const alamat = “Kuningan” dimana variabel ini adalah nilai tetap yang tidak dapat di rubah dimana setiap variabel “alamat” yang ada dalam satu class, otomatis akan menggunakan nilai konstanta yang berada persisi dibawah public class dengan variable const alamat = “Kuningan”.

Pada saat di run maka akan muncul error “Constant Cannot Be The Target Of The Assignment” untuk mengatasi permasalahannya dengan cara mengubah variabel menjadi komentar dengan menambahkan tanda (‘) petik pada variabel alamat=”Kuningan” menjadi ‘alamat=”Kuningan”. ( llihat tanda petik sebelum alamat :D )

ANALISA :

- Kenapa nama1 dan nama2 pada saat ditampilkan pada texbox nama berbeda ?

Jawab:

NAMA1 : Agung

NAMA2 : Agung Isnandar

Pada btnama1 variabel nama telah digunakan variabel terdekat yaitu “Dim nama = “Agung”,sehingga btnama1 menggunakan variabel tersebut dengan ouput nama : Agung.

Sedangkan pada btnama2 menampilkan “Agung Isnandar” dimana pada class button tersebut tidak memakai variabel langsung dibawahnya, tetapi menggunakan module1 , dimana module ini berfungsi sebagai variabel publik sehingga dapat di panggil oleh button lain termasuk yang beda form.

- Kenapa alamat1 dan alamat2 pada saat ditampilkan pada texbox alamat sama ?

Karena pada variabel alamat semua ditujukan ke variabel konstanta = “Kuningan” yang telah ditentukan sebelumnya yang telah di taruh di bawah public class agar menjadi variabel publik (umum).sehingga pada saat di klik button alamat1 atau alamat2 akan menmpilkan output yang sama yaitu “kuningan”.

Sources List Code Form1 :

Public Class frmsatu
    Const alamat = "Kuningan"

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

    End Sub

    Private Sub btnama2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnama2.Click

        txtnama.Text = nama
    End Sub

    Private Sub btalmat1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btalmat1.Click
        'alamat = "Kuningan"
        txtalamat.Text = alamat
    End Sub

    Private Sub btalamat2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btalamat2.Click
        txtalamat.Text = alamat
    End Sub

    Private Sub showform2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles showform2.Click
        frmdua.ShowDialog()

    End Sub

    Private Sub bttmbahumur1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttmbahumur1.Click
        Dim umur As Integer
        umur += 1
        txtumur.Text = umur
    End Sub

    Private Sub bttambhumur2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambhumur2.Click
        Static umur As Integer
        umur += 1
        txtumur.Text = umur
    End Sub

    Private Sub Btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
        If MsgBox("Mau Keluar yah ?", vbQuestion + vbYesNo + vbDefaultButton1, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub btnama1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnama1.Click
        Dim nama As String
        nama = "Agung"
        txtnama.Text = nama
    End Sub
End Class

- Kenapa saat ditekan tombol tambah umur1 selalau kelauar angka 1 sedangkan pada saat ditekan tombol tambah umur2 selalu bertambah satu dari sebelumnya ?

Jawab:

Karena pada button tambah umur1 menggunakan variabel yang berbeda sehingga outputnya berbeda .

pada tombol tambah umur1 menggunakan variabel integer :

Dim umur As Integer

umur += 1

txtumur.Text = umur

sedangkan pada tombol tambah umur2 menggunakan variabel static sehingga angkanya terus bertambah :

Static umur As Integer

umur += 1

txtumur.Text = umur

- Analisa pada aplikasi form dua ?

Pada form dua berisi 3 textbox nama,alamat,umur serta 4 tombol Nama,Alamat,Umur dan Tutup.

Dimana semua model pemanggilan ini menggunakan variabel yang telah di inisialisaikan pada module1.

Analisa program latihan 2

Pada combo box perlu adanya tambahan pilihan lagi yaitu berupa kode “TAS” dimana barangnya untuk tas yang sebelumnya belum ada list dan codenya.

Case "TAS"

nmbarang = "TAS"

harga = 170000

Untuk menampilkan jumlah diskon dan bayar pada program penjualan terlebih dahulu memilih “cara beli” yang telah disediakan pilihan pada menu “RadioButton”.

Berikut contoh list code pada uji coba menggunakan permisalan IF dan CASE :

Source List Code menggunakan Case :

Public Class Form1

    Private Sub txtkodebrang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkodebrang.SelectedIndexChanged
        Dim kdbarang, nmbarang As String
        Dim harga As Single
        kdbarang = txtkodebrang.Text

        Select Case kdbarang
            Case "SPT"
                nmbarang = "Sepatu"
                harga = 200000
            Case "SND"
                nmbarang = "Sandal"
                harga = 100000
            Case "TST"
                nmbarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                nmbarang = "Topi"
                harga = 50000
            Case "TAS"
                nmbarang = "TAS"
                harga = 170000
            Case Else
                nmbarang = "-"
                harga = 0
        End Select
        txtnamabrang.Text = nmbarang
        txthargabarang.Text = harga
    End Sub

    Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged
        txttotalharga.Text = Val(txthargabarang.Text) * Val(txtjmlbarang.Text)
        txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
    End Sub

    Private Sub tunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunai.CheckedChanged
        txtdiskon.Text = Val(txttotalharga.Text) * 10 / 100
        txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
    End Sub

    Private Sub kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kredit.CheckedChanged
        txtdiskon.Text = 0
        txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.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 Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click
        txtdiskon.Clear()
        txthargabarang.Clear()
        txtjmlbarang.Clear()
        txtnamabrang.Clear()
        txttotalbayar.Clear()
        txttotalharga.Clear()
    End Sub
End Class

Sorce List Code menggunakan If :

Public Class Form1

    Private Sub txtkodebrang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkodebrang.SelectedIndexChanged
        Dim kdbarang, nmbarang As String
        Dim harga As Single
        kdbarang = txtkodebrang.Text

        If kdbarang = "SPT" Then
            nmbarang = "SEPATU"
            harga = 200000
        ElseIf kdbarang = "SND" Then
            nmbarang = "SANDAL"
            harga = 100000
        ElseIf kdbarang = "TST" Then
            nmbarang = "T-SHIRT"
            harga = 150000
        ElseIf kdbarang = "TOP" Then
            nmbarang = "TOPI"
            harga = 50000
        ElseIf kdbarang = "TAS" Then
            nmbarang = "TAS"
            harga = 170000
        Else
            nmbarang = "kosong"
            harga = 0
        End If
        txtnamabrang.Text = nmbarang
        txthargabarang.Text = harga
    End Sub

    Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged
        txttotalharga.Text = Val(txthargabarang.Text) * Val(txtjmlbarang.Text)
        txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
    End Sub

    Private Sub tunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunai.CheckedChanged
        txtdiskon.Text = Val(txttotalharga.Text) * 10 / 100
        txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)
    End Sub

    Private Sub kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kredit.CheckedChanged
        txtdiskon.Text = 0
        txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.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 Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click
        txtdiskon.Clear()
        txthargabarang.Clear()
        txtjmlbarang.Clear()
        txtnamabrang.Clear()
        txttotalbayar.Clear()
        txttotalharga.Clear()
    End Sub
End Class

Download Aplikasi diatas berupa windows form application menggunakan visual basic 2010

DOWNLOAD

Semoga Bermanfaat ... ^_^