LATIHAN ANALISIS PROGRAM

Ø  Yang menyebabkan error pada btalama1_Click adalah
alamat = "Kuningan"
Txtalamat.Text = alamat
seharus nya adalah
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat
Ø  Yang menyebabkan munculnya nama yang berbeda  pada saat textbox tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tersebut sehingga secara otomatis variabel nama diambil dari Public Const nama yang didefiniskan pada Module1.
Sedangkan yang menebabkan munculnya alamat yang sama pada textbox saat tombol alamat1 dan alamat2 ditekan adalah karena terdapat Const alamat = "Kuningan" pada Public Class FrmSatu, ketika Const alamat = "Kuningan" pada Public Class FrmSatu kita hilangkan maka tombol alamat2 akan memunculkan hasil "Purwokerto" karena diambil dari "Public Const alamat" pada Module1.
Ø  Yang menyebabkan saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu adalah karena tombol tersebut menggunakan variabel Dim, dimana kita tahu bahwa Dim adalah kependekan dari Dinamis, variabel jenis ini akan selalu berubah nilainya saat kita mengeksekusinya dalam sebuat operasi bilangan
Ø  Analisa saya pada form 2 yaitu kita coding pada form 2 dengan perintah 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.

ANALISIS PROGRAM LATIHAN IF DAN CASE

Setelah saya analisis program ini masih ada yang kurang karena saat saya jalankan dan kita memilih kode tas pada combobox ternyata pada textbox nama barang dan harga barang masih kosong seperti gambar dibawah ini.



Setelah saya benarkan codingnya menjadi seperti di bawah ini : 
Private Sub CmbKodbar_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 = 100000
            Case "SND"
                Namabarang = "Sandal"
                Harga = 150000
            Case "TST"
                Namabarang = "T-Shirt"
                Harga = 90000
            Case "TAS"
                Namabarang = "TAS"
                Harga = 100000
            Case "TOP"
                Namabarang = "TOPI"
                Harga = 50000
            Case Else
                Namabarang = "-"
                Harga = 0

        End Select
        TxtNambar.Text = Namabarang
        TxtHarbar.Text = Harga
End Sub
Dan hasilnya akan seperti gambar di bawah ini :


Sekian analisis dari saya...
Terimakasih...
^_^

Komentar

Posting Komentar

Postingan populer dari blog ini

termometer digital dengan sensor lm35

Gambar
MikroKontrol adalah  adalah sebuah chip yang berfungsi sebagai pengontrol rangkaian elektronik dan umunya dapat menyimpan program didalamnya. Mikrokontroler adalah sebuah chip yang berfungsi sebagai pengontrol rangkaian elektronik dan umunya dapat menyimpan program did umumnya terdiri dari CPU (Central Processing Unit), memori, I/O tertentu dan unit pendukung seperti Analog-to-Digital Converter (ADC) yang sudah terintegrasi di dalamnya. Kelebihan utama dari mikrokontroler ialah tersedianya RAM dan peralatan I/O pendukung sehingga ukuran board mikrokontroler menjadi sangat ringkas. Mikrokontroler adalah sebuah chip yang berfungsi sebagai pengontrol rangkaian elektronik dan umunya dapat menyimpan program did MCS51 ialah mikrokomputer CMOS 8 bit dengan 4 KB Flash PEROM (Programmable and Erasable Only Memory) yang dapat dihapus dan ditulisi sebanyak 1000 kali. Mikrokontroler ini diproduksi dengan menggunakan teknologi high density non-volatile memory. Flash PEROM on-chip tersebut memung
Baca selengkapnya

Contoh program Penerapan Function pada Microsoft Visual Studio 2010

Gambar
Function dengan Microsoft Visual Studio 2010 A. FUNCTION DENGAN RETURN VALUE BERUPA ARRAY Desain form seperti dibawah ini: Public Class Form1      Private Function fstat(ByVal ParamArray args() As Object) As Single()         Dim hasil(3) As Single         Dim i As Integer         For i = 0 To UBound(args)          hasil(0) = hasil(0) + args(i)           If i = 0 Then           hasil(1) = args(i)            hasil(2) = args(i)            End If             If hasil(1) > args(i) Then hasil(1) = args(i)          If hasil(2) < args(i) Then hasil(2) = args(i)          Next i         Return hasil        End Function     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click         Dim statistik As Single() = fstat(21, 30, 5, 19, 33, 89, 4)         TextBox1.Text = statistik(0)         TextBox2.Text = statistik(1)         TextBox3.Text = statistik(2)       End Sub End Class
Baca selengkapnya
Fiddler Web Debugger - Freeware HTTP(S) debugging tool fiddler2 .com/ fiddler2 /version.asp   - RSS Icon · download icon Get Fiddler ! ... Download . Install Fiddler2 (~700kb) ... The Fiddler Script Editor is a syntax-aware script editing environment. Bayden ...
Baca selengkapnya