ANALISIS LISTING & FLOWCHART 2D & 3D

 ANALISIS LISTING & FLOWCHART 2D & 3D

Pada form `1 tersedi sebuah combobox, jika anda memilih persegi maka form 3 akan muncul, jika memilih persegi panjang maka form 2 muncul dan seterusnya.

Form 2

Public Class Form2

    Dim Luas As Integer

    Dim sisi As Integer

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

        Me.Text = "Persegi Panjang"

        Me.BackColor = Color.BurlyWood

    End Sub

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

        Form1.Show()

        Me.Hide()

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        PictureBox1.Visible = False

    End Sub

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

        Luas = sisi * sisi

        TextBox3.Text = Luas

        TextBox3.Text = TextBox1.Text * TextBox2.Text

      

    End Sub

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

        PictureBox1.Visible = True

        PictureBox1.Width = TextBox1.Text * 2

        PictureBox1.Height = TextBox2.Text * 2

    End Sub

End Class

Pada form 2 adalah form tentang bangun persegi panjang. Kami menggunakan picturebox untuk bentuknya kemudian size mode kami ganti menjadi stretch image agar ukuran gambar bisa berubah.

Form 3

Public Class Form3

    Dim Luas As Integer

    Dim sisi As Integer

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

        Form1.Show()

        Me.Hide()

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        PictureBox1.Visible = False

    End Sub

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

        Me.Text = "Persegi"

        Me.BackColor = Color.BurlyWood

    End Sub

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

        Luas = sisi * sisi * sisi

        TextBox3.Text = Luas

        TextBox3.Text = TextBox1.Text * TextBox2.Text

       

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox2.Text = TextBox1.Text

    End Sub

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

        PictureBox1.Visible = True

        PictureBox1.Width = TextBox2.Text * 2

        PictureBox1.Height = TextBox1.Text * 2

    End Sub

End Class

Sama seperti form 2 untuk bangun kami menggunakan picturebox, tetapi karena ini persegi kami menambahkan listing textbox2.text=textbox1.text agar apa yang dimasukkan ke textbox 1 akan tampil juga pada textbox2.

Form4

Public Class Form4

    Dim volum As Integer

    Dim sisi As Integer

5

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

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox3.Text = TextBox1.Text

        TextBox2.Text = TextBox1.Text

    End Sub

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

        volum = sisi * sisi * sisi

        TextBox4.Text = volum

        TextBox4.Text = TextBox1.Text * TextBox2.Text * TextBox3.Text

      

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        PictureBox1.Visible = False

    End Sub

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

        Me.Text = "Kubus"

        Me.BackColor = Color.BurlyWood

    End Sub

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

        PictureBox1.Visible = True

        PictureBox1.Width = TextBox1.Text * 2

        PictureBox1.Height = TextBox2.Text * 2

        PictureBox1.Height = TextBox3.Text * 2

    End Sub

End Class

Karena ini kubus maka harus ada tiga sisi yang sama maka, listingnya adalah

        TextBox3.Text = TextBox1.Text

        TextBox2.Text = TextBox1.Text

Untuk mencari volume digunakan rumus matematika sisi x sisi x sisi oleh karena itu listingnya seperti ini TextBox4.Text = TextBox1.Text * TextBox2.Text * TextBox3.Text

Form 5

Public Class Form5

    Dim volum As Integer

    Dim sisi As Integer

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

        Form1.Show()

        Me.Hide()

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        PictureBox1.Visible = False

    End Sub

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

        volum = sisi * sisi * sisi

        TextBox3.Text = volum

        TextBox3.Text = TextBox1.Text * TextBox2.Text * TextBox4.Text

      

    End Sub

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

        Me.Text = "Balok"

        Me.BackColor = Color.BurlyWood

    End Sub

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

        PictureBox1.Visible = True

        PictureBox1.Width = TextBox2.Text * 2

        PictureBox1.Height = TextBox1.Text * 2

        PictureBox1.Height = TextBox4.Text * 2

    End Sub

End Class

Intinya sama seperti form 4, tetapi dalam form ini kita harus mengisi textbox satu persatu, karena balok memiliki sisi-sisi yang berbeda.

ANALISIS LISTING & FLOWCHART KASIR

ANALISIS LISTING PROGRAM APLIKASI KASIR

Kelompok 24

Program ini dibuat untuk memudahkan dalam pendataan barang yang dibeli oleh customer disebuah pusat perbelanjaan.Aplikasi  ini memudahkan kasir dalam merekap data barang apa saja yang di beli.Di sini juga dipakai toolbox datagridview untuk membuat colom rekap data dari barang yang di beli.

Ø  Variabel yang digunakan dalam aplikasi kasir :

·         Nama

·         Jenis barang

·         Harga

·         JumlahBarang

·         Jumlah

·         Nota

·         Total Belanja

·         Discount

·         Total pembayaran

·         Pembayaran

·         Kembalian

Berikut tipe data dari beberapa variabel diatas:

Public Class Form1

    Dim jumlahbarang As Double

    Dim harga As Double

    Dim jumlah As Double

    Dim discount As Double

    Dim potongan As Double

    Dim hasil As Double

    Dim total As Double

Items yang tersedia di OKE ZONE 24 OUTLET:

·         Sepatu

·         Highheels

·         Wedges

·         Sportshoes

·         Flatshoes

Jadi listing untuk mnambahkan items adalah:

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

        With ComboBox1

            .Items.Add("Sepatu")

            .Items.Add("Highheels")

            .Items.Add("Wedges")

            .Items.Add("Sportshoes")

            .Items.Add("Flatshoes")

        End With

    End Sub

Ø  Harga

Berikut listing untuk menyatakan harga suatu item:

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

        If ComboBox1.Text = ("Sepatu") Then TextBox3.Text = ("150000")

        If ComboBox1.Text = ("Highheels") Then TextBox3.Text = ("200000")

        If ComboBox1.Text = ("Wedges") Then TextBox3.Text = ("300000")

        If ComboBox1.Text = ("Sportshoes") Then TextBox3.Text = ("180000")

        If ComboBox1.Text = ("Flatshoes") Then TextBox3.Text = ("100000")

    End Sub

Maksudnya adalah jika di combobox1 kita memilih sepatu maka akan mucul harga yang sudah ditentukan di textbox3 yaitu Rp150000. Begitupun seterusnya.

Ø  Jumlah harga dan PictureBox

Berikut listing untung mencari perhitungan jumlah harga dari barang yang sudah di pilih di combobox dan pilihan gambar dari barang yang sudah diplih.

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

        harga = Val(TextBox3.Text)

        jumlahbarang = Val(TextBox2.Text)

        jumlah = (harga * jumlahbarang)

        TextBox8.Text = jumlah

        If ComboBox1.Text = ("Sepatu") Then TextBox3.Text = ("150000")

        If ComboBox1.SelectedItem = "Sepatu" Then PictureBox5.Hide()

        If ComboBox1.SelectedItem = "Sepatu" Then PictureBox4.Hide()

        If ComboBox1.SelectedItem = "Sepatu" Then PictureBox3.Hide()

        If ComboBox1.SelectedItem = "Sepatu" Then PictureBox2.Hide()

        If ComboBox1.SelectedItem = "Sepatu" Then PictureBox1.Show()

        If ComboBox1.Text = ("Highheels") Then TextBox3.Text = ("200000")

        If ComboBox1.SelectedItem = "Highheels" Then PictureBox5.Hide()

        If ComboBox1.SelectedItem = "Highheels" Then PictureBox4.Hide()

        If ComboBox1.SelectedItem = "Highheels" Then PictureBox3.Hide()

        If ComboBox1.SelectedItem = "Highheels" Then PictureBox2.Show()

        If ComboBox1.SelectedItem = "Highheels" Then PictureBox1.Hide()

        If ComboBox1.Text = ("Wedges") Then TextBox3.Text = ("300000")

        If ComboBox1.SelectedItem = "Wedges" Then PictureBox5.Hide()

        If ComboBox1.SelectedItem = "Wedges" Then PictureBox4.Hide()

        If ComboBox1.SelectedItem = "Wedges" Then PictureBox3.Show()

        If ComboBox1.SelectedItem = "Wedges" Then PictureBox2.Hide()

        If ComboBox1.SelectedItem = "Wedges" Then PictureBox1.Hide()

        If ComboBox1.Text = ("Sportshoes") Then TextBox3.Text = ("180000")

        If ComboBox1.SelectedItem = "Sportshoes" Then PictureBox5.Hide()

        If ComboBox1.SelectedItem = "Sportshoes" Then PictureBox4.Show()

        If ComboBox1.SelectedItem = "Sportshoes" Then PictureBox3.Hide()

        If ComboBox1.SelectedItem = "Sportshoes" Then PictureBox2.Hide()

        If ComboBox1.SelectedItem = "Sportshoes" Then PictureBox1.Hide()

        If ComboBox1.Text = ("Flatshoes") Then TextBox3.Text = ("100000")

        If ComboBox1.SelectedItem = "Flatshoes" Then PictureBox5.Show()

        If ComboBox1.SelectedItem = "Flatshoes" Then PictureBox4.Hide()

        If ComboBox1.SelectedItem = "Flatshoes" Then PictureBox3.Hide()

        If ComboBox1.SelectedItem = "Flatshoes" Then PictureBox2.Hide()

        If ComboBox1.SelectedItem = "Flatshoes" Then PictureBox1.Hide()

    End Sub

Listing diatas maksudnya apabila combobox1 pilihan kita flatshoes maka di textbox3 akan langsung muncul harga yang sebelumnya sudah ditentukan. Dan juga untuk memunculkan gambar dari item yang dipilih. Gambarnya dibuat dengan menggunakan toolbox,picturebox. Maka picturebox yang muncul adalah berdasarkan dari item yang sudah kita piliarus di beri listingh.Jadi picturebox yang mucul

Ø  Nota

Digunakan untuk merekap data yang sudah ada.

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

        Dim jenis As String = ComboBox1.SelectedItem

        Dim jumlahbarang As String = TextBox2.Text

        Dim harga As String = TextBox3.Text

        Dim jumlah As String = TextBox8.Text

        DataGridView1.Rows.Add(jenis, jumlahbarang, harga, jumlah)

    End Sub

Disini digunakan toolbox data grid view, sebelumnya kita harus mengeditnya dengan menambahkan colom yang kita inginkan. Disini ada 4 colom yang pertama jenis barang, jumlah barang, harga barang dan jumlah harga.Jadi data yang akan direkap di datagridview adalah apa jenis barang yang kita pilih , jumlah barang yang kita nginkan, harga per satuan barang dan jumlah harga.

Ø  Clear

Untuk menghapus data sebelumnya jika kita ingin memasukkan pilihan data baru. Jadi dilistingnya dinput perintah untuk mengosongkan tulisan di textbox,combobox dan picture box di sembunyikan dari layar display.

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

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox8.Text = ""

        ComboBox1.Text = ""

        PictureBox5.Hide()

        PictureBox4.Hide()

        PictureBox3.Hide()

        PictureBox2.Hide()

        PictureBox1.Hide()

    End Sub

Ø  Total

Untuk mencari total belanja berikut adalah rumusnya.

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

        Dim totalbelanja As Long

        totalbelanja = 0

        For t As Integer = 0 To DataGridView1.Rows.Count - 1

            totalbelanja = totalbelanja + Val(DataGridView1.Rows(t).Cells(3).Value)

        Next

        TextBox6.Text = totalbelanja

        discount = Val(TextBox4.Text)

        potongan = (totalbelanja * discount) / 100

        TextBox9.Text = totalbelanja - potongan

    End Sub

Apabila pilihan itemsnya lebih dari satu maka semua datanya akan  tercatat  digrid dan  akan djumlahkan sehingga menghasilkan total.

Ø  Discount

Private Sub TextBox6_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

        If TextBox6.Text <= 150000 Then

            TextBox4.Text = "0"

        ElseIf TextBox6.Text <= 500000 Then

            TextBox4.Text = "5"

        ElseIf TextBox6.Text <= 1000000 Then

            TextBox4.Text = "10"

        ElseIf TextBox6.Text <= 2000000 Then

            TextBox4.Text = "15"

        ElseIf TextBox6.Text >= 2000000 Then

            TextBox4.Text = "20"

        End If

        Dim a As String

        Dim potong As String

        a = Val(TextBox6.Text)

        potong = (a * discount) / 100

        TextBox9.Text = a - potong

    End Sub

Listing diatas adalah arithmatika Untuk menentukan diskon yang kita inginkan. Misalnya jika total belanja kita  lebih dari 2 juta maka otomatis kita mendapat diskon 20%.

Ø  Kembali

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

        TextBox5.Text = TextBox7.Text - TextBox9.Text

        If TextBox5.Text < 0 Then TextBox5.Text = ""

        If TextBox5.Text = "" Then MsgBox("Maaf Uang Anda Tidak Mencukupi")

    End Sub

 Listing ini untuk menentukan kembalian uang pembeli jika sudah dibyar. Apabila uangya cukup maka otomatis ditextbox5 akan muncul jumlah kembaliannya. Dan jika uang yang dibayarkan tidak cukup akan muncul Msg box bahwa” uang anda tidak cukup.

Ø  Quit

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

        MsgBox("Terima Kasih Atas Kunjungan Anda dan Silahkan Kembali Lagi")

        Close()

    End Sub

Listing ini apabila kita sudah selesai dan ingin keluar dari aplikasi kasir ini. Jika kita klik button “quit” maka akan muncul Msgbox “terimakasih atas kunjungan anda dan silahkan kembali lagi”.

BERIKUT KOMPONEN TOOLBOX YANG DIGUNAKAN DALAM APLIKASI KASIR OKE ZONE 24 OUTLET

No	Komponen	Properties	Keterangan
1	Form 1	Name  Text	Form 1 Program kasir
2	Label 1	Name Text	Label 1 Oke Zone 24 Outlet
3	Label2	Name Text	Label2 Nama
4	Textbox1	Name  Text
5	Label3	Name Text	Label3 Jenis barang
6	Combobox1	Name Text	Combobox1 Sepatu,highheels,wedges,sportshoes,flatshoes
7	Label4	Name Text	Label4 Jumlah barang
8	Textbox2	Name Text	Textbox2
9	Label4	Name Text	Label4 Harga
10	Textbox3	Name Text	Textbox3
11	Button1	Name Text	Button1 Jumlah
12	Textbox8	Name Text	Textbox8
13	Picturebox1	Name Text	Picturebox1
14	Picturebox2	Name Text	Picturebox2
15	Picturebox3	Name	Picturebox3
16	Picturebox4	Name	Picturebox4
17	Picturebox5	Name	Picturebox5
18	Button2	Name Text	Button2 Nota
19	Button3	Name Text	Button3 Clear
20	Datagridview	Name Text	Datagridview
21	Button3	Name Text	Button3 Clear
22	Button4	Name  Text	Button4 Total
23	Textbox6	Name Text	Textbox6
24	Label9	Name Text	Label9 Discount
25	Textbox4	Name  Text	Textbox4
26	Label10	Name Text	Label10 Total pembelian
27	Textbox9	Name Text	Textbox9
28	Label11	Name Text	Label11 Bayar
29	Textbox7	Name Text	Textbox7
30	Button5	Name Text	Button5 Kembali
40	Textbox5	Name Text	Textbox5
41	Label6	Name Text	Label6 Yes we’re 24
42	Button7	Name Text	Button7 Quit