Tugas 1

TUTORIAL MEMBUAT PROGRAM KASIR PADA VISUAL BASIC 2010

Langkah-Langkah:

1. Membuka Aplikasi Visual Basic 2011

2. Klik  Windows Form Application maka akan mucul tampilan seperti berikut

3.  Menampilkan Toolbox yang akan digunakan Untuk memunculkan toolbox, bisa   dimunculkan dari menu bar-view-other windows-tollbox

A.                MEMBUAT DESIGN FORM

1. Bentuk Form seperti di bawah ini dengan menggunakan komponen toolbox di atas

2. Untuk mengganti background, form1 dipilih-properties – Backgroundimage-local resource-import-ok
 3. Mengganti style pada toolbox (font,background toolbox), klik toolbox yang hendak diganti stylenya,pilih properties-font(huruf)-)-backcolor(background toolbox)- forecolor(warna tulisan toolbox).

4. (Sebagai Tambahan) Untuk membuat agar gambar dapat muncul yaitu dengan klik picture box pada toolbox-import gambar yang diinginkan (dengan cara properties – Backgroundimage-local resource-import-ok)

5. Pada properties picture box, visible = false , agar gambar tidak muncul kembali

A.                  LISTING PROGRAM

Public Class Form1

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

        With ComboBox1

            .Items.Add("Buku Tulis")

            .Items.Add("Buku Gambar")

            .Items.Add("Pensil")

            .Items.Add("Penggaris")

        

        End With

    End Sub

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

        If ComboBox1.Text = ("Buku Tulis") Then

            TextBox1.Text = (3000)

        ElseIf ComboBox1.Text = ("Buku Gambar") Then

            TextBox1.Text = (2000)

        ElseIf ComboBox1.Text = ("Pensil") Then

            TextBox1.Text = (1500)

        ElseIf ComboBox1.Text = ("Penggaris") Then

            TextBox1.Text = (500)

        End If

        If ComboBox1.Text = ("Buku Tulis") Then

            PictureBox1.Show()

        ElseIf ComboBox1.Text = ("Buku Gambar") Then

            PictureBox2.Show()

        ElseIf ComboBox1.Text = ("Pensil") Then

            PictureBox3.Show()

        ElseIf ComboBox1.Text = ("Penggaris") Then

            PictureBox4.Show()

        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        If TextBox2.Text >= (0) Then TextBox3.Text = (0)

        If TextBox2.Text >= (10) Then TextBox3.Text = (5)

        If TextBox2.Text >= (20) Then TextBox3.Text = (10)

        TextBox4.Text = (TextBox1.Text * TextBox2.Text) - (TextBox3.Text * TextBox1.Text / 100)

    End Sub

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

        If TextBox5.Text = "" Then

            MessageBox.Show(TextBox5, "Maaf Anda Belum Memasukkan Uang Bayar")

        ElseIf TextBox5.Text < TextBox4.Text Then

            MessageBox.Show(TextBox5, "Maaf Uang Anda Kurang")

        ElseIf TextBox5.Text > TextBox4.Text Then

            TextBox6.Text = TextBox5.Text - TextBox4.Text

        End If

    End Sub

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

        ComboBox1.Text = Nothing

        TextBox1.Text = Nothing

        TextBox2.Text = Nothing

        TextBox3.Text = Nothing

        TextBox4.Text = Nothing

        TextBox5.Text = Nothing

        TextBox6.Text = Nothing

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

    End Sub

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

        Close()

    End Sub

End Class