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 ... ^_^