Tugas Visual Basic Pertama

Langkah-langkah pengerjaan :

1.      Jalankan Visual Studio 2010 dengan cara :

i.        Star - All Programs - pilih dan klik Miscrosoft Visual Studio 2010

 

i.        Double klik dari desktop anda.

 

1.      Buat Project baru tempatkan pada folder latihan anda.

Caranya : File – New Project – Pilih Windows – Pilih windows forms application – atur nama project dan tempat penyimpanan project anda – klik Ok

2.      Rancang dahulu berapa banyak Form, Label, Combo box, Text box dan Button yang akan kita butuhkan :

*Rinciannya sebagai berikut :

Nama Komponen	Butuh
Form	1
Label	9
Combo box	2
Text box	7
Button	3

            *Rincian keterangannya :

Nama Komponen disingkat NK

Keterangan disingkat K

No.	Nama Komponen	Property	Value
1.	Form 1	Text Name	Kasir Pembayaran Accessories Fr Kasir Pembayaran Accessories
2.	Label 1	Text Name	Pernak-pernik Label 1
3.	Label 2	Text Name	Cosmetik Label 2
4.	Label 3	Text Name	Harga Label 3
5.	Label 4	Text Name	Harga Label 4
6.	Label 5	Text Name	Jumlah Label 5
7.	Label 6	Text Name	Jumlah Label 6
8.	Label 7	Text Name	Jumlah Label 7
9.	Label 8	Text Name	Jumlah Label 8
10.	Label 9	Text Name	Jumlah Label 9
11.	Combo box 1	Name	coboPernak-pernik
12.	Combo box 2	Name	coboCosmetik
13.	Text box 1	Name	txtPernak-pernik
14.	Text box 2	Name	txtCosmetik
15.	Text box 3	Name	txtjmlPernak-pernik
16.	Text box 4	Name	txtjmlCosmetik
17.	Text box 5	Name	txttoPernak-pernik
18.	Text box 6	Name	txttoCosmetik
19.	Text box 7	Name	txt bayar
20.	Button 1	Text Name	Hitung bt hitung
21.	Button 2	Text Name	Hapus bt clear
22.	Button 3	Text Name	Keluar bt exit

Buat listing programnya à

1. Dengan cara double klik pada Form di Combo box 1 dan Combo box 2 tersebut, kemudian masukkan listing programnya seperti ini :

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

        cboPernak-pernik.Items.Clear()

        cboPernak-pernik.Items.Add(“Kalung Etnik”)

        cboPernak-pernik.Items.Add(“Bross Bunga/hati”)

        cboPernak-pernik.Items.Add(“Jilbab Pashmina polos”)

        cboPernak-pernik.Items.Add(“Jilbab Paris”)

        cboPernak-pernik.Items.Add(“Kaos Panda Pita”)

        cboPernak-pernik.Items.Add(“Kaos Angry birds Slingshot”)

        cboPernak-pernik.Items.Add(“Tanktop pita Onde”)

        cboPernak-pernik.Items.Add(“Hello Kitty Polkadot Crop Tee”)

        cboPernak-pernik.Items.Add(“Jumpsuit camera”)

        cboPernak-pernik.Items.Add(“Kaos Beautiful Things”)

        cboPernak-pernik.Items.Add(“Kaos Piglet My sweet cake”)

        cboPernak-pernik.Items.Add(“Jilbab Pashmina double colour”)

        cboPernak-pernik.Items.Add(“Jilbab Bergo Instan Simply”)

        cboPernak-pernik.Items.Add(“Kaos panjang polos”)

        cboPernak-pernik.Items.Add(“Doraemon full body”)

        cboPernak-pernik.Items.Add(“Payung softcase kacamata”)

        cboPernak-pernik.Items.Add(“Kalung blink”)

        cboPernak-pernik.Items.Add(“Anting mutiara”)

        cboPernak-pernik.Items.Add(“Tas B & M”)

        cboPernak-pernik.Items.Add(“Tas X-D”)

        cboPernak-pernik.Items.Add(“Tas Lovely”)

        cboCosmetik.Items.Clear()

        cboCosmetik.Items.Add(“Lip ice_Lipgloss”)

        cboCosmetik.Items.Add(“Parfume”)

        cboCosmetik.Items.Add(“AcaiBerry whitening scrub”)

        cboCosmetik.Items.Add(“Facial Moisturizer”)

        cboCosmetik.Items.Add(“Pinkish white day cream”)

        cboCosmetik.Items.Add(“Lotion Pemutih Herbal asli Korea”)

        cboCosmetik.Items.Add(“Chlorophyll Mint Powder”)

        cboCosmetik.Items.Add(“Sunblock”)

        cboCosmetik.Items.Add(“Beauty case Organizer”)

        cboCosmetik.Items.Add(“Lipsense”)

    End Sub

2. Double click pada Combo box 1 untuk Combo Box 1 dan TextBox 1 masukkan masukkan listing program seperti dibawah ini :

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPernak-pernik.SelectedIndexChanged

        If cboPernak-pernik.Text = “Kalung Etnik” Then

            Me.txtPernak-pernik.Text = “13000″

        ElseIf cboPernak-pernik.Text = “Bross Bunga/hati” Then

            Me.txtPernak-pernik.Text = “8000″

        ElseIf cboPernak-pernik.Text = “Jilbab Pashmina polos” Then

            Me.txtPernakpernik.Text = “35000″

        ElseIf cboPernak-pernik.Text = “Jilbab Paris” Then

            Me.txtPernak-pernik.Text = “5000″

        ElseIf cboPernak-pernik.Text = “Kaos Panda Pita” Then

            Me.txtPernak-pernik.Text = “78000″

        ElseIf cboPernak-pernik.Text = “Kaos Angry birds Slingshot” Then

            Me.txtPernak-pernik.Text = “65000″

        ElseIf cboPernak-pernik.Text = “Tanktop pita Onde” Then

            Me.txtPernak-pernik.Text = “45000″

        ElseIf cboPernak-pernik.Text = “Hello Kitty Polkadot Crop Tee” Then

            Me.txtPernak-pernik.Text = “65000″

        ElseIf cboPernak-pernik.Text = “Jumpsuit camera” Then

            Me.txtPernak-pernik.Text = “95000″

        ElseIf cboPernak-pernik.Text = “Kaos Beautiful Things” Then

            Me.txtPernak-pernik.Text = “77000″

        ElseIf cboPernak-pernik.Text = “Kaos Piglet My sweet cake” Then

            Me.txtPernak-pernik.Text = “75000″

        ElseIf cboPernak-pernik.Text = “Jilbab Pashmina double colour” Then

            Me.txtPernak-pernik.Text = “45000″

        ElseIf cboPernak-pernik.Text = “Jilbab Bergo Instan Simply” Then

            Me.txtPernak-pernik.Text = “55000″

        ElseIf cboPernak-pernik.Text = “Kaos panjang polos” Then

            Me.txtPernak-pernik.Text = “50000″

        ElseIf cboPernak-pernik.Text = “Doraemon full body” Then

            Me.txtPernak-pernik.Text = “75000″

        ElseIf cboPernak-pernik.Text = “Payung softcase kacamata” Then

            Me.txtPernak-pernik.Text = “45000″

        ElseIf cboPernak-pernik.Text = “Kalung blink” Then

            Me.txtPernak-pernik.Text = “48000″

        ElseIf cboPernak-pernik.Text = “Anting Mutiara” Then

            Me.txtPernak-pernik.Text = “30000″

        ElseIf cboPernak-pernik.Text = “Tas B & M” Then

            Me.txtPernak-pernik.Text = “250000″

        ElseIf cboPernak-pernik.Text = “Tas X-D” Then

            Me.txtPernak-pernik.Text = “380000″

        ElseIf cboPernak-pernik.Text = “Tas Lovely” Then

            Me.txtPernak-pernik.Text = “430000″

        End If

    End Sub

3. Untuk pengisian data di Combo Box 2 dan TextBox 2 masukkan listing program ini, double clickkan pada combo box 2 :

 Private Sub cboCosmetik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCosmetik.SelectedIndexChanged

        If cboCosmetik.Text = “Lip ice_Lipgloss” Then

            Me.txtCosmetik.Text = “25000″

        ElseIf cboCosmetik.Text = “Parfume” Then

            Me.txtCosmetik.Text = “55000″

        ElseIf cboCosmetik.Text = “AcaiBerry whitening scrub” Then

            Me.txtCosmetik.Text = “72000″

        ElseIf cboCosmetik.Text = “Facial Moisturizer” Then

            Me.txtCosmetik.Text = “25000″

ElseIf cboCosmetik.Text = “Pinkish white day cream” Then

            Me.txtCosmetik.Text = “15000″

ElseIf cboCosmetik.Text = “Lotion Pemutih Herbal asli Korea” Then

            Me.txtCosmetik.Text = “160000″

ElseIf cboCosmetik.Text = “Chlorophyll Mint Powder” Then

            Me.txtCosmetik.Text = “180000″

ElseIf cboCosmetik.Text = “Sunblock” Then

            Me.txtCosmetik.Text = “90000″

ElseIf cboCosmetik.Text = “Beauty case Organizer” Then

            Me.txtCosmetik.Text = “175000″

ElseIf cboCosmetik.Text = “Lipsense” Then

            Me.txtCosmetik.Text = “45000″

        End If

    End Sub

 TextBox 5 sampai dengan TextBox 7 masukkan listing program ini, dengan cara double click btHitung :

 Private Sub btHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHitung.Click

        Me.txtToPernak-pernik.Text = Val(txtPernak-pernik.Text) * Val(txtjmlPernak-pernik.Text)

        Me.txtToCosmetik.Text = Val(txtCosmetik.Text) * Val(txtjmlCosmetik.Text)

        Me.txtBayar.Text = Val(txtToPernak-pernik.Text) + Val(txtToCosmetik.Text)

    End Sub

4. Untuk menghapus atau membersihkan layar, double click pada Hapus. Tuliskan listing program seperti ini :

Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click

Me.cboPernak-pernik.Text = “”

Me.cboCosmetik.Text = “”

Me.txtPernak-pernik.Clear()

Me.txtCosmetik.Clear()

Me.txtjmlPernak-pernik.Clear()

Me.txtjmlCosmetik.Clear()

Me.txtToPernak-pernik.Clear()

Me.txtToCosmetik.Clear()

Me.txtBayar.Clear()

End Sub

5. Untuk keluar plih double klick pada button buatan btExit, setelah itu masukkan listing program ini :

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

        Dispose()

 End Sub

6. Untuk mencoba menjalankan program, masukkan datanya apasaja yang akan dibeli dan berapa jumlah pembelian. Lalu pilih dan klik Build.