Tugas Aplikasi VB 2

Tugas saya keseluruhan berisi tentang sebuah Toko Kue dimana kita bisa melihat tampilan produk yang dijual di toko kue tersebut dan juga bisa memesan kue. Pada Form pertama berisi halaman utama pada toko kue, dimana terdapat inputan nama pelanggan yang menggunakan ucase dan pelanggan2 dapat memasukan nama mereka dalam huruf kecil dan tampilan yang akan keluar adalah huruf besar. Selain itu di form1 terdapat iseng2 berhadiah dimana pelanggan hanya dapat mencobanya 1 kali saja. Hadiah- hadiahnya adalah macaroons, zupa sup dan green tea. Bila tidak dapat hadiah, akan muncul tulisan "Maaf anda kurang beruntung. Konsep iseng2 berhadiah ini menggunakan timer. Pada form ini terdapat link ke daftar menu,  dan juga pemesanan. Berikut ini adalah sourcecodenya

Public Class Form1

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

        Dim nama As String

        nama = InputBox("masukan nama anda dalam huruf kecil")

        TextBox1.Text = UCase(nama)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim a As Integer

        For a = 1 To 10

            Label1.Text = Rnd(a)

            Label2.Text = Strings.Mid(Label1.Text, 3, 1)

        Next

    End Sub

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

        If Button2.Text = "Silahkan diklik untuk iseng2 berhadiah" Then

            Timer1.Enabled = True

            Button2.Text = "stop"

        Else : Button2.Text = "stop"

            Button2.Text = "Iseng2 berhadiah hanya bisa dicoba 1 kali"

            Timer1.Enabled = False

            TextBox2.Enabled = False

            Select Case Label2.Text

                Case 1, 3

                    TextBox2.Text = "Gratis Green Tea"

                Case 2, 4

                    TextBox2.Text = " Gratis macaroons rasa apa saja"

                Case 5, 8

                    TextBox2.Text = "Gratis zuppa sup"

                Case 6, 7, 9, 0

                    TextBox2.Text = "Maaf Anda Kurang Beruntung"

            End Select

        End If

    End Sub

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

        Form2.Show()

    End Sub

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

        Dim x As String

        x = MsgBox("Apakah anda yakin akan keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "End")

        If x = vbYes Then

            Me.Close()

        End If

    End Sub

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

        Form3.Show()

    End Sub

End Class

Tampilan Design

Hasil Running 1

Hasil Running 2

Untuk button keluar

Pada form ke 2 berisi daftar makanan dan minuman beserta tampilan aslinya, jadi sebelum membeli kue atau minuman, pembeli dapat melihat-lihat tampilan makanan dan minuman yang ada. Untuk menampilkan makanan atau minuman menggunakan listbox dan picture box. Visible. pada semua picture boxnya bernilai false, agar hanya gambar yang dipilih tulisannya saja yang muncul. Selain itu pada form ini terdapat link untuk masuk ke form pemesanan. Berikut ini adalah sourcecodenya

Public Class Form2

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

        Select Case ComboBox1.Text

            Case "Chocolate cupcake"

                PictureBox1.Visible = True

                PictureBox3.Visible = False

                PictureBox4.Visible = False

                PictureBox5.Visible = False

                PictureBox2.Visible = False

                PictureBox6.Visible = False

            Case "Strawberry cupcake"

                PictureBox2.Visible = True

                PictureBox3.Visible = False

                PictureBox4.Visible = False

                PictureBox5.Visible = False

                PictureBox1.Visible = False

                PictureBox6.Visible = False

            Case "Tiramisu"

                PictureBox3.Visible = True

                PictureBox1.Visible = False

                PictureBox4.Visible = False

                PictureBox5.Visible = False

                PictureBox2.Visible = False

                PictureBox6.Visible = False

            Case "Zuppa Sup"

                PictureBox4.Visible = True

                PictureBox3.Visible = False

                PictureBox1.Visible = False

                PictureBox5.Visible = False

                PictureBox2.Visible = False

                PictureBox6.Visible = False

            Case "Macaroons"

                PictureBox5.Visible = True

                PictureBox3.Visible = False

                PictureBox4.Visible = False

                PictureBox1.Visible = False

                PictureBox2.Visible = False

                PictureBox6.Visible = False

            Case "Chocostrw cupcake"

                PictureBox6.Visible = True

                PictureBox3.Visible = False

                PictureBox4.Visible = False

                PictureBox5.Visible = False

                PictureBox2.Visible = False

                PictureBox1.Visible = False

        End Select

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text

            Case "Green Tea"

                PictureBox7.Visible = True

                PictureBox8.Visible = False

                PictureBox9.Visible = False

                PictureBox10.Visible = False

            Case "Green tea ice cream"

                PictureBox8.Visible = True

                PictureBox7.Visible = False

                PictureBox9.Visible = False

                PictureBox10.Visible = False

            Case "Strawberry Yoghurt"

                PictureBox9.Visible = True

                PictureBox8.Visible = False

                PictureBox7.Visible = False

                PictureBox10.Visible = False

            Case "Capucini"

                PictureBox10.Visible = True

                PictureBox8.Visible = False

                PictureBox9.Visible = False

                PictureBox7.Visible = False

        End Select

    End Sub

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

        Form3.Show()

    End Sub

End Class

Tampilan design

Hasil Running

Form 3 merupakan form pemesanan dimana pelanggan dapat terlebih dahulu mengklik makanan atau minuman yang ada di checkbox, yang bertujuan untuk melihat harganya terlebih dahulu. Setelah memilih makanan yang akan dipesan, kita dapat mengklik total untuk mengetahui berapa total belanja. Setelah itu pelanggan dapat mengklik di radio button untuk memilih apakah menggunakan jasa delivery atau tidak. Jika menggunakan jasa delivery, pelanggan akan dikenakan biaya tambahan sebesar 10000. Lalu setelah itu pelanggan dapat mengklik button jumlah bayar untuk menu pembayaran. Lalu jika ingin keluar tekan button keluar.Berikut ini adalah sourcecodenya


Public Class Form3

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Label1.Text = 9000
        Else
            Label1.Text = ""
        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Label2.Text = 8000
        Else
            Label2.Text = ""
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            Label3.Text = 500000
        Else
            Label3.Text = ""
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            Label4.Text = 15000
        Else
            Label4.Text = ""
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            Label5.Text = 20000
        Else
            Label5.Text = ""
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            Label6.Text = 8000
        Else
            Label6.Text = ""
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked = True Then
            Label7.Text = 16000
        Else
            Label7.Text = ""
        End If
    End Sub

    Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
        If CheckBox9.Checked = True Then
            Label9.Text = 11000
        Else
            Label9.Text = ""
        End If
    End Sub

    Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
        If CheckBox10.Checked = True Then
            Label10.Text = 15000
        Else
            Label10.Text = ""
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            Label8.Text = 9000
        Else
            Label8.Text = ""
        End If
      
    End Sub


  
  
  
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            TextBox2.Text = 10000
        Else
            TextBox2.Text = ""
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            TextBox2.Text = ""
        End If
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = TextBox1.Text + TextBox2.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = Label1.Text + Label2.Text + Label3.Text + Label4.Text + Label5.Text + Label6.Text + Label7.Text + Label8.Text + Label9.Text + Label10.Text
    End Sub
End Class

Tampilan Design

Hasil running daftar harga

Hasil running 2