Praktikum TI 23

A. Konsep Aplikasi Online Kasir

Lalu, pelanggan memilih kode barang yang diinginkan. Maksud dari kode ini adalah model dari  produk yang diinginkan. Kemudian, pelanggan menentukan berapa banyak jumlah barang yang akan dibeli.

C. Analisis Aplikasi Online Kasir

Form	Komponen	Properties	Keterangan
Form 1	Form1	Name Text	Form1 Bata Online Store
	Label1	Name Text	Label1 Bata Online Store
	Label2	Name Text	Label2 Nama
	Label3	Name Text	Label3 Alamat
	Label4	Name Text	Label4 Kota
	Label5	Name Text	Label5 Nomor Telepon
	Label6	Name Text	Label6 Jenis Barang
	Label7	Name Text	Label7 Tipe
	Label8	Name Text	Label8 Banyaknya
	Label9	Name Text	Label9 Gratis ongkos kirim untuk kota Semarang
	Label10	Name Text	Label10 Dapatkan diskon hingga 75% untuk produk tertentu
	Label11	Name Text	Label11 Tata cara pembayaran klik
	Label12	Name Text	Label12 Harga Satuan
	Label13	Name Text	Label13 OngKir
	LinkLabel1	Name Text	LinkLabel1 disini
	Button1	Name Text	Button1 Pesan
	Button2	Name Text	Button2 Exit
	Button3	Name Text	Button3 Add to Chart
	Button4	Name Text	Button4 Add Items
	Button5	Name Text	Button5 Count
	DataGridView1	Name Text	DataGridView1
	PictureBox1	Name Text	PictureBox1
	TextBox1	Name Text	TextBox1
	TextBox2	Name Text	TextBox2
	TextBox3	Name Text	TextBox3
	TextBox4	Name Text	TextBox4
	TextBox5	Name Text	TextBox5
	TextBox6	Name Text	TextBox6
	ComboBox1	Name Text	ComboBox1
	ComboBox2	Name Text	ComboBox2
	ComboBox3	Name Text	ComboBox3
	ComboBox4	Name Text	ComboBox4
	ComboBox5	Name Text	ComboBox5
	RadioButton1	Name Text	RadioButton1 Sepatu Pria
	RadioButton2	Name Text	RadioButton2 Sepatu Wanita
	RadioButton3	Name Text	RadioButton3 Sepatu Anak
	RadioButton4	Name Text	RadioButton4 Sandal
	NumericUpDown1	Name Text	NumericUpDown1

Public Class Registrasi
    Dim total As Double
    Private Property Response As MsgBoxResult

Listing ini digunakan untuk mendeklarasikan nilai yang akan diinput dalam bentuk nilai double.

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        ComboBox6.Items.Add("")
        ComboBox6.Items.Add("BATA 01 213")
        ComboBox6.Items.Add("BATA 01 224")
        ComboBox6.Items.Add("BATA 01 276")
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        ComboBox6.Items.Add("")
        ComboBox6.Items.Add("BATA 02 858")
        ComboBox6.Items.Add("BATA 02 867")
        ComboBox6.Items.Add("BATA 02 998")
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        ComboBox6.Items.Add("")
        ComboBox6.Items.Add("BATA 03 490")
        ComboBox6.Items.Add("BATA 03 288")
        ComboBox6.Items.Add("BATA 03 217")
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        ComboBox6.Items.Add("")
        ComboBox6.Items.Add("BATA 11 788")
        ComboBox6.Items.Add("BATA 11 908")
        ComboBox6.Items.Add("BATA 11 233")
    End Sub
Listing di atas (Radiobutton1-4) digunakan untuk menambah pilihan barang yang akan dibeli pengguna.
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Form2.Show()
    End Sub
Listing di atas digunakan untuk menghubungkan form ini dengan form 2 yang berisi informasi tata cara pembayaran online kasir.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response = MsgBox("Do you want to Exit?", vbYesNo, "Exit")
        If Response = vbYes Then
            Me.Close()
        Else 'do nothing
        End If
    End Sub
listing ini berguna untuk memunculkan message box jika data yang dibutuhkan tidak terisi.
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If Not Char.IsDigit(e.KeyChar) Then e.Handled = True
    End Sub
Listing ini digunakan agar pada textbox4 yang dapat diinput hanya nilai bilangan.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = ("") Or TextBox2.Text = ("") Or ComboBox5.Text = ("") Or TextBox4.Text = ("") Or RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False Then
            MsgBox("Data yang Anda Isi Kurang Lengkap")
        Else
            Me.DataGridView1.Show()
            With Me.DataGridView1
                .Rows.Add(Me.ComboBox5.Text, Me.ComboBox6.Text, Me.TextBox5.Text, Me.NumericUpDown1.Value, Me.TextBox6.Text, Me.TextBox3.Text)
            End With
        End If
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
        NumericUpDown1.ResetText()
        ComboBox6.SelectedIndex = False
        TextBox5.ResetText()
        TextBox6.ResetText()
        TextBox3.ResetText()
    End Sub
Listing ini digunakan jika button Add to Charts diklik, maka data yang telah diinput akan dipindah ke datagridview.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
        NumericUpDown1.ResetText()
        ComboBox6.SelectedIndex = False
        TextBox5.ResetText()
        TextBox6.ResetText()
        TextBox3.ResetText()
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox6.SelectedIndexChanged
        If ComboBox6.Text = ("BATA 01 213") Then TextBox5.Text = ("200000")
        If ComboBox6.Text = ("BATA 01 224") Then TextBox5.Text = ("235000")
        If ComboBox6.Text = ("BATA 01 276") Then TextBox5.Text = ("270000")
        If ComboBox6.Text = ("BATA 02 858") Then TextBox5.Text = ("200000")
        If ComboBox6.Text = ("BATA 02 867") Then TextBox5.Text = ("190000")
        If ComboBox6.Text = ("BATA 02 998") Then TextBox5.Text = ("270000")
        If ComboBox6.Text = ("BATA 03 490") Then TextBox5.Text = ("200000")
        If ComboBox6.Text = ("BATA 03 288") Then TextBox5.Text = ("190000")
        If ComboBox6.Text = ("BATA 03 217") Then TextBox5.Text = ("270000")
        If ComboBox6.Text = ("BATA 11 788") Then TextBox5.Text = ("75000")
        If ComboBox6.Text = ("BATA 11 908") Then TextBox5.Text = ("128000")
        If ComboBox6.Text = ("BATA 12 233") Then TextBox5.Text = ("78000")
    End Sub
Listing ini digunakan untuk menginput kembali barang yang ingin pesan apabila pengguna ingin memesan lagi.
   
    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        If ComboBox5.Text = ("Semarang") Then TextBox6.Text = ("0")
        If ComboBox5.Text = ("Jogjakarta") Then TextBox6.Text = ("5000")
        If ComboBox5.Text = ("Surabaya") Then TextBox6.Text = ("5000")
        If ComboBox5.Text = ("Bandung") Then TextBox6.Text = ("8000")
        If ComboBox5.Text = ("Jakarta") Then TextBox6.Text = ("8000")
    End Sub
Listing ini digunakan untuk menentukan harga ongkos kirim sesuai kota yang dipilih.
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = Val(TextBox5.Text) * Val(NumericUpDown1.Value) + Val(TextBox6.Text)
    End Sub
Listing ini digunakan untuk menghitung jumlah yang harus dibayar sesuai dengan rumus yang ada.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Thanks for Purchasing with BATA Online Store")
        Me.Close()
    End Sub
Listing ini digunakan untuk menampilkan message box jika pengguna telah selesai memilih barang yang ingin dipesan.
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox7.Text = Val(TextBox3.Text) + Val(TextBox7.Text)
    End Sub
listing ini untuk menghitung harga yang harus dibayar pengguna sesuai dengan rumus yang ada.
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Val(TextBox7.Text) >= Val(TextBox8.Text) Then
            MsgBox("Not Enough Money")
        Else : TextBox9.Text = Val(TextBox8.Text) - Val(TextBox7.Text)
        End If
    End Sub
End Class
Listing ini digunakan untuk menampilkan message box jika uang yang dikirim tidak cukup untuk membayar, dan menghitung nilai uang kembalian jika uang yang dikirim berlebih.

Form 2	Form2	Name Text	Form2 Cara Pembayaran
	GroupBox1	Name Text	GroupBox1
	Label1	Name Text	Label1 Setelah anda melakukan pemesanan kami akan mengirim sms konfirmasi ke nomor anda
	Label2	Name Text	Label2 Pastikan anda mendapat sms dari pengirim "BATA ONLINE STORE" bukan dari nomor lainnya
	Label3	Name Text	Label3 Transfer pembayaran ke rekening a.n BATA ONLINE
	Label4	Name Text	Label4 Mandiri     101.00.98300.997 BCA           237.301.8881 BNI            000.530.2291
	Label5	Name Text	Label5 Kirim sms ke nomor 0813 100 2000 dengan format nama_tanggaltransfer_jumlah transfer
	Label6	Name Text	Label6 Barang akan kami kirim ke alamat anda menggunakan ekspedisi JNE
	PictureBox1	Name Text	PictureBox1
	PictureBox2	Name Text	PictureBox2
	PictureBox3	Name Text	PictureBox3
	PictureBox4	Name Text	PictureBox4