Pertemuan 6 Perulangan(Looping)



Contoh Program mengitung penjualan barang 


Gambar 1.1 Desain Program


Kode Program

Public Class Form3
    Dim A As Integer

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CboKode.Items.Add("H001")
        CboKode.Items.Add("H002")
        CboKode.Items.Add("Y001")
        CboKode.Items.Add("Y002")
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        If CboKode.Text = "H001" Then
            TxtMerk.Text = "Honda"
            TxtType.Text = "Supra Fit"
            TxtSatuan.Text = 9000000
        ElseIf CboKode.Text = "H002" Then
            TxtMerk.Text = "Honda"
            TxtType.Text = "Supra X"
            TxtSatuan.Text = 11000000
        ElseIf CboKode.Text = "Y001" Then
            TxtMerk.Text = "Yamaha"
            TxtType.Text = "Mio"
            TxtSatuan.Text = 13000000
        Else
            TxtMerk.Text = "Yamaha"
            TxtType.Text = "Jupiter"
            TxtSatuan.Text = 12000000
        End If
    End Sub

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        TxtTotal.Text = TxtJumlah.Text * TxtSatuan.Text
        If TxtType.Text = "Supra Fit" And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 5 / 100 * TxtTotal.Text
        ElseIf TxtType.Text = "Mio" And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 10 / 100 * TxtTotal.Text
        Else
            TxtDiskon.Text = 0
        End If
        TxtBayar.Text = TxtTotal.Text - TxtDiskon.Text
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        ListView1.Items.Add(TxtTransaksi.Text)
        ListView1.Items(A).SubItems.Add(CboKode.Text)
        ListView1.Items(A).SubItems.Add(TxtMerk.Text)
        ListView1.Items(A).SubItems.Add(TxtType.Text)
        ListView1.Items(A).SubItems.Add(TxtSatuan.Text)
        ListView1.Items(A).SubItems.Add(TxtJumlah.Text)
        ListView1.Items(A).SubItems.Add(TxtTotal.Text)
        ListView1.Items(A).SubItems.Add(TxtDiskon.Text)
        ListView1.Items(A).SubItems.Add(TxtBayar.Text)
        A = A + 1
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtBayar.Text = ""
        TxtDiskon.Text = ""
        TxtJumlah.Text = ""
        TxtMerk.Text = ""
        TxtSatuan.Text = ""
        TxtTotal.Text = ""
        TxtTransaksi.Text = ""
        TxtType.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
End Class


Gamabar 1.2 Tampilan Cari




Gamabar 1.3 Hasil Proses




Gambar 1.4 Tampilan Simpan



Gambar 1.5 Tampilan Bersih













Komentar

Posting Komentar

Postingan populer dari blog ini

Menu Bar dan Main From

Gambar
MENU BAR dan MAIN FROM Menubar            Menubar adalah balok yang berisi menu yang akan digunakan untuk mengeksekusi perintah dalam suatu sistem informasi. Menu Strip               Untuk membuat menu pada form kita dapat menggunakann komponen pada ToolBox berupa MenuStrip, biasanya menu digunakan untuk akses fitur-fitur dari aplikasi yang kita buat dan ditempatkan pada form utama suatu progra. Bayangkam jika fitur yang kita buat dalam sebuah program begitu banyak dan kompleks, maka tidak mungkin bagi kita menggunakan control berupa Button atau sejenisnya kedalam tubuh Form karena akan memperjelek tampilan dari Form utama itu sendiri. Untuk menagtasi hal tersebut maka kita dapat mengunakan komponen MenuStrip untuk menampilkan semua fitru dengan tampilan dorpdown menu dari bagian atas form. Membuat Garis Batas Antar SubMenu -   Klik tanda panah pada Type Here -  Pi...
Baca selengkapnya

Exception Handling

Gambar
EXCEPTION HANDLING Exception Handling Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan. Struktur Exception Handling Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain : Try … Catch … Finally … End Try Merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi. Bentuk penulisan : Try         [ Perintah ] Catch         [Tampilkan kesalahan] Finally         [ Kode program setelah perintah Try dan Catch ] End Try Throw Throw merupaka...
Baca selengkapnya

Procedure, Function dan Module

Gambar
PROCEDURE, FUNCTION DAN MODULE Sejauh ini, anda telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan . Bentuk Umum : [Private|Public] Sub subname[(argumentlist)]       Statements End sub Sub Procedure dapat dipanggil dengan perintah : [call] subname[(argumentlist)] Keterangan : Sub procedure ( Procedure) sebaiknya menggunakan kata kerja (verb) Pemanggilan procedure yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me. Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference).Jika menggunakan by value, nilai pada argument tidak berubah.Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesu...
Baca selengkapnya