Membuat Program Penjualan Barang menggunakan Microsoft Visual Basic 2010 Express

Membuat Program Penjualan Barang

menggunakan Microsoft Visual Basic 2010 Express

1.       Buka aplikasi Microsoft Visual Basic 2010 pada PC/Laptop anda.

2.       Klik New Project.

Pilih Windows Forms Application dan isikan nama file yang akan dibuat pada kolom Name.

Kemudian klik OK.

3.         Buatlah Design program seperti dibawah ini :

4.       Klik ganda pada Baru, kemudian buat kode program sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.TxtKode.Clear()

        Me.TxtNama.Clear()

        Me.TxtAlamat.Clear()

        Me.TxtHarga.Clear()

        Me.TxtDisc.Clear()

        Me.TxtSub.Clear()

        Me.TxtPajak.Clear()

        Me.TxtTotal.Clear()

End Sub

5.       Klik ganda pada ListBox Jenis Kendaraan, kemudian buat kode program sebagai berikut :

Private Sub CbJenis_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CbJenis.Click

        If RbSport.Checked = True Then

            CbJenis.Items.Clear()

            CbJenis.Items.Add("Mega Pro")

            CbJenis.Items.Add("Tiger")

        Else

            CbJenis.Items.Clear()

            CbJenis.Items.Add("Supra Fit")

            CbJenis.Items.Add("Supra X")

        End If

    End Sub

    Private Sub CbJenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbJenis.SelectedIndexChanged

        If CbJenis.Text = "Mega Pro" Then

            TxtHarga.Text = "26000000"

        ElseIf CbJenis.Text = "Tiger" Then

            TxtHarga.Text = "24000000"

        ElseIf CbJenis.Text = "Supra Fit" Then

            TxtHarga.Text = "10000000"

        Else

            TxtHarga.Text = "15000000"

        End If

        TxtTotal.Text = Val(TxtSub.Text) + Val(TxtPajak.Text)

        TxtPajak.Text = (10 / 100) * Val(TxtSub.Text)

        TxtSub.Text = (TxtHarga.Text) - Val(TxtDisc.Text)

        TxtDisc.Text = (5 / 100) * Val(TxtHarga.Text)

    End Sub

6.       Klik ganda tombol Keluar, kemudian buat kode program sebagai berikut :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

End Sub

7.    Setelah semua selesai, jalankan program dengan menekan tombol start debugging atau bisa menggunakan tombol F5.

Jika berhasil maka program akan berjalan seperti ini :

8.    Selamat mencoba kawan.. semoga penjelasan diatas dapat bermanfaat dan mempermudah teman-teman semua dalam pembuatan program.

Tetap semangat, terus berusaha dan pantang menyerah !!  Selamat belajar..

http://fitrifebriani26.blogspot.com