UAS KONSEP PEMROGRAMAN TSI B

Form untuk Sales Order Mc Donalds Indonesia.
Terdapat 6 Form,
1. Form untuk Login.
2. Form utama untuk mengakses beberapa form lainnya.
3. Form untuk melakukan input order.
4. Form untuk mengetahui promo apa yang sedang berlaku.
5. Form untuk hasil cetak dari input order.
6. Form menu makanan yang tersedia.

Form untuk Login.

Username yang digunakan bebas, sesuai dengan nama masing-masing pegawai yang sedang bertugas,

tapi Password yang digunakan harus sesuai, untuk memastikan tidak ada yang bisa mengakses aplikasi ini kecuali mereka yang memiliki wewenang untuk membukanya.

Button reset di bagian atas digunakan untuk mengosongkan text box username dan textbox password. Button reset menggunakan procedur, bisa dilihat secara lengkap pada source code dibawah ini.

Public Class Form2

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

        If TextBox2.Text = "mcdindonesia" Then

            Form1.Show()

            Me.Hide()

        End If

    End Sub

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

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

        Call bersih()

    End Sub

End Class

Form utama yang dapat terakses jika memasukan Password yang sesuai.

Form ini digunakan untuk mengakses beberapa form lainnya.

Public Class Form1

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

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

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
        Form3.Close()
        Form4.Close()
        Form2.Close()
    End Sub

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

Form untuk menginput order.

Form ini akan terakses bila menekan button Order di form utama sebelumnya.

Waktu pemesanan menggunakan coding while, for, dan array.

Nama admin yang melayani customer akan langsung tercetak sesuai username yang diisikan saat login tadi. 

Selanjutnya, mengisi data data yang diperlukan seperti nama, alamat, no telp, email, dll.

Memasukkan order, menu sudah ada di combo box sehingga tinggal dipilih saja.

Saat memilih menu, harga makanan tersebut akan langsung muncul di sampingnya,

jangan lupa pula masukkan beapa banyak yang ingin dibeli, setelah memasukkan bilangannya,

akan langsung keluar nominal total dari satu/beberapa items yang tadi kita pilih.

Dalam perhitungan subtotal dan total, saya menggunakan coding function.

Di form ini digunakan juga coding select case dan if serta elseif.

Public Class Form3

   

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

        Label25.Text = Form2.TextBox1.Text

        For a = 1 To 31

            ComboBox1.Items.Add(a)

        Next

        Dim b As Integer

        b = 2013

        While b <= 2016

            ComboBox3.Items.Add(b)

            b = b + 1

        End While

        Dim bulan() As String = {"Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Agustus", "September", "Oktober", "November", "Desember"}

        ComboBox2.Items.Add(bulan(0))

        ComboBox2.Items.Add(bulan(1))

        ComboBox2.Items.Add(bulan(2))

        ComboBox2.Items.Add(bulan(3))

        ComboBox2.Items.Add(bulan(4))

        ComboBox2.Items.Add(bulan(5))

        ComboBox2.Items.Add(bulan(6))

        ComboBox2.Items.Add(bulan(7))

        ComboBox2.Items.Add(bulan(8))

        ComboBox2.Items.Add(bulan(9))

        ComboBox2.Items.Add(bulan(10))

        ComboBox2.Items.Add(bulan(11))

    End Sub

    Dim yeyeye As String

    Private Sub cmborder2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmborder2.LostFocus

        yeyeye = cmborder1.Text

        Select Case yeyeye

            Case "Double Cheese Burger"

                lblharga2.Text = "35000"

            Case "Cheese Burger"

                lblharga2.Text = "30000"

            Case "Chicken Burger with Cheese"

                lblharga2.Text = "40000"

            Case "PaNas Special"

                lblharga2.Text = "30000"

            Case "PaNas"

                lblharga2.Text = "27000"

        End Select

        If cmborder2.Text = "Double Cheese Burger" Then

            lblharga2.Text = "35000"

        ElseIf cmborder2.Text = "Cheese Burger" Then

            lblharga2.Text = "30000"

        ElseIf cmborder2.Text = "Chicken Burger with Cheese" Then

            lblharga2.Text = "40000"

        ElseIf cmborder2.Text = "McNuggets" Then

            lblharga2.Text = "25000"

        ElseIf cmborder2.Text = "PaNas Special" Then

            lblharga2.Text = "30000"

        ElseIf cmborder2.Text = "PaNas" Then

            lblharga2.Text = "27000"

        End If

    End Sub

    Private Sub cmborder1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmborder1.LostFocus

        If cmborder1.Text = "Double Cheese Burger" Then

            lblharga1.Text = "35000"

        ElseIf cmborder1.Text = "Cheese Burger" Then

            lblharga1.Text = "30000"

        ElseIf cmborder1.Text = "Chicken Burger with Cheese" Then

            lblharga1.Text = "40000"

        ElseIf cmborder1.Text = "McNuggets" Then

            lblharga1.Text = "25000"

        ElseIf cmborder1.Text = "PaNas Special" Then

            lblharga1.Text = "30000"

        ElseIf cmborder1.Text = "PaNas" Then

            lblharga1.Text = "27000"

        End If

    End Sub

    Function hitung(ByVal harga, ByVal qty)

        hitung = harga * qty

    End Function

    Private Sub txtqty1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty1.TextChanged

        lblsub1.Text = hitung(lblharga1.Text, txtqty1.Text)

    End Sub

    Private Sub txtqty2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty2.TextChanged

        lblsub2.Text = hitung(lblharga2.Text, txtqty2.Text)

    End Sub

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

        If TextBox1.Text = "ulangtahun" Then

            TextBox2.Text = 10 / 100 * (Val(lblsub1.Text) + Val(lblsub2.Text))

        ElseIf TextBox1.Text = "kejutanjuni" Then

            TextBox2.Text = 15 / 100 * (Val(lblsub1.Text) + Val(lblsub2.Text))

        End If

        Label17.Text = (Val(lblsub1.Text) + Val(lblsub2.Text)) - TextBox2.Text

    End Sub

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

        Form5.Show()

        Me.Hide()

    End Sub

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

        Me.Hide()

    End Sub

End Class

Ada promo dari Mc Donald Indonesia, untuk keterangan lebih lanjut tentang promo bisa memilih button Info Promo pada form utama, terlebih dahulu tekanlah button Back pada form ini.

Jika sudah memasukkan kode kupon, maka tekan button Proses. Dan keluarlah total yang harus dibayarkan. Setelah itu klik tombol Print untuk mencetak hasil input order di form ini.

Form hasil input order / Form print.

Saat tadi kita menekan button print, maka data data di form input order tadi langsung tercetak di form prnt ini. Dan siap untuk dicetak.

Public Class Form5

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

        txtadmin.Text = Form3.Label25.Text

        txtnama.Text = Form3.txtnama.Text

        txtpesanan.Text = Form3.cmborder1.Text

        txtpesanan2.Text = Form3.cmborder2.Text

        txttanggal.Text = Date.Now

        txttekp.Text = Form3.txttelp.Text

        txtqty.Text = Form3.txtqty1.Text

        txtqty2.Text = Form3.txtqty2.Text

        txtsub.Text = Form3.lblsub1.Text

        txtsub2.Text = Form3.lblsub2.Text

        TextBox2.Text = Form3.TextBox2.Text

        TextBox1.Text = (Val(txtsub.Text) + Val(txtsub2.Text)) - TextBox2.Text

    End Sub

End Class

Form Menu.

Form ini digunakan untuk melihat varian menu dan harga yang disediakan oleh Mcd Indonesia.

Public Class Form4

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

        Me.Close()

    End Sub

End Class

TUGAS KONSEP PEMROGRAMAN MUTIARA KAMILA ATHIYYA

Untuk Ujian Tengah Semester 2 Mata Kuliah Konsep Pemrograman, saya membuat aplikasi bagi Dosen untuk menginput nilai Mahasiswa dalam salah satu kelas yang diajarnya, dan mengetahui berapa jumlah data yang diinput, berapa rata-rata, apa predikat kelasnya, termasuk ke kategori berapakah, dan berapa orang dari kelas tersebut yang bisa diikuti dalam olimpiade.

1.       Dosen yang mengakses aplikasi ini, diharuskan untuk menginput username dan password. Setelah menginput username dan password, langkah selanjutnya adalah menekan button “LOG IN”

.       Setelah menekan button “LOG IN” maka akan langsung muncul Form kedua untuk menginput nilai Mahasiswa, Mata Kuliahnya apa,  Nilai Mahasiswa termasuk Nilai Tugas Individu, Nilai Tugas Kelompok, Nilai UTS, setelah menginput, maka kita harus menekan button “Simpan” dan nilai yang tadi kita input pun akan langsung terlihat pada List Box di sampingnya. Untuk mengisi nilai untuk mahasiswa lain, maka kita harus menekan button “Isi Data Lain”, maka Text Box untuk menginput Nilai Tugas Individu, Kelompok, dan UTS akan kembali kosong dan siap untuk diisi dengan data baru.

32.       Setelah List Box untuk 11 Mahasiswa sudah terpenuhi, maka harus menekan beberapa button, button yang dimaksud adalah, Jumlah Data, Total Nilai, Rata Rata, dan Rata Rata Kelas, setelah itu maka kita diharuskan menekan button “Proses”, setelah button tersebut ditekan, maka Kategori Kelas dan Predikat Kelas akan langsung terpampang.

a.       Untuk Rata-Rata Kelas antara 86 – 100, maka Predikat Kelasnya “Sangat Memuaskan” dan Kategori Kelasnya yang ke 1.

b.      Untuk Rata-Rata Kelas antara 76 – 85, maka Predikat Kelasnya “Memuaskan” dan Kategori Kelasnya yang ke 2.

c.       Untuk Rata-Rata Kelas antara 66 – 75, maka Predikat Kelasnya “Cukup Memuaskan” dan Kategori Kelasnya yang ke 3.

d.      Untuk Rata-Rata Kelas antara 56 –64, maka Predikat Kelasnya “Cukup Memprihatinkan” dan Kategori Kelasnya yang ke 4.

e.      Untuk Rata-Rata Kelas dibawah 55, maka Predikat Kelasnya “Memprihatinkan” dan Kategori Kelasnya yang ke 5.

43.       Setelah mengetahui Kategori Kelas setiap kelas, maka kita akan mengetahui berapa orang yang bisa diikutkan Olimpiade dari setiap kelas tersebut.

a.       Untuk kategori 1 dan 2, maka yang bisa diikutkan olimpiade adalah 5 orang.

b.      Untuk kategori 3 dan 4, maka yang bisa diikutkan olimpiade adalah 3 orang.

c.       Untuk kategori lainnya, maka yang bisa diikutkan olimpiade adalah 1 orang.

54.       Button “Reset” digunakan untuk menghapus semua data yang telah tersimpan.

56.       Jika menekan button “Selesai” maka akan muncul Message Box untuk mengkonfirmasi apakah yakin akan keluar dari aplikasi tersebut.

Source Code :

Public Class Form1

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

Public Class Form2

   
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        lstnpm.Items.Add(txtnpm.Text)
        lsttgsind.Items.Add(txttgsind.Text)
        lsttgsklm.Items.Add(txttgsklm.Text)
        lstuts.Items.Add(txtuts.Text)
    End Sub
    Dim bulan As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For a = 1 To 31
            cmbtgl.Items.Add(a)
        Next

        For b = 2015 To 2000 Step -1
            cmbthn.Items.Add(b)
        Next

        bulan = 1
        While bulan <= 12
            cmbbln.Items.Add(bulan)
            bulan = bulan + 1
        End While
    End Sub

    Private Sub radiokonsep_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokonsep.CheckedChanged
        If radiokonsep.Checked = True Then
            lblmatkul.Text = "Konsep Pemrograman"
            lblmatkul2.Text = "Konsep Pemrograman"
            lblkesimpulan1.Text = "Konsep Pemrograman"
        End If
    End Sub

    Private Sub radiobisnis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobisnis.CheckedChanged
        If radiobisnis.Checked = True Then
            lblmatkul.Text = "Lab Pemrograman Bisnis"
            lblmatkul2.Text = "Lab Pemrograman Bisnis"
            lblkesimpulan1.Text = "Lab Pemrograman Bisnis"
        End If
    End Sub

    Private Sub radiovisual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiovisual.CheckedChanged
        If radiovisual.Checked = True Then
            lblmatkul.Text = "Pemrograman Visual"
            lblmatkul2.Text = "Pemrograman Visual"
            lblkesimpulan1.Text = "Pemrograman Visual"
        End If
    End Sub

   
    Private Sub btnisilainnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisilainnya.Click
        txtnpm.Text = ""
        txttgsind.Text = ""
        txttgsklm.Text = ""
        txtuts.Text = ""
    End Sub

    Dim total1, total2, total3 As Integer
    Private Sub btntotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotal.Click
        For i As Integer = 0 To lsttgsind.Items.Count - 1
            total1 = total1 + lsttgsind.Items(i)
        Next
        txttotal1.Text = total1

        For j As Integer = 0 To lsttgsklm.Items.Count - 1
            total2 = total2 + lsttgsklm.Items(j)
        Next
        txttotal2.Text = total2


        For k As Integer = 0 To lstuts.Items.Count - 1
            total3 = total3 + lstuts.Items(k)
        Next
        txttotal3.Text = total3

    End Sub

    Private Sub btnjmldata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjmldata.Click
        txtdata1.Text = lsttgsind.Items.Count
        txtdata2.Text = lsttgsklm.Items.Count
        txtdata3.Text = lstuts.Items.Count
    End Sub

    Private Sub btnratarata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnratarata.Click
        txtrata1.Text = txttotal1.Text / txtdata1.Text
        txtrata2.Text = txttotal2.Text / txtdata2.Text
        txtrata3.Text = txttotal3.Text / txtdata3.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtratakelas.Text = (Val(0.25 * txtrata1.Text) + Val(0.25 * txtrata2.Text) + Val(0.5 * txtrata3.Text))
    End Sub

    Sub bersih()
        txtmahasiswa.Text = ""
        lblkategorikls.Text = ""
        cmbtgl.Text = ""
        cmbbln.Text = ""
        cmbthn.Text = ""
        txtnpm.Text = ""
        txttgsind.Text = ""
        txttgsklm.Text = ""
        txtuts.Text = ""
        lstnpm.Items.Clear()
        lsttgsind.Items.Clear()
        lsttgsklm.Items.Clear()
        lstuts.Items.Clear()
        radiobisnis.Checked = False
        radiokonsep.Checked = False
        radiovisual.Checked = False
        lblmatkul.Text = ""
        lblmatkul2.Text = ""
        txtdata1.Text = ""
        txtdata2.Text = ""
        txtdata3.Text = ""
        txtrata1.Text = ""
        txtrata2.Text = ""
        txtrata3.Text = ""
        txttotal1.Text = ""
        txttotal2.Text = ""
        txttotal3.Text = ""
        lblpredikatkls.Text = ""
        txtratakelas.Text = ""
    End Sub

    Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
     
        Call bersih()
    End Sub

    Dim vkategori, vmahasiswa As String
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If txtratakelas.Text <= 100 Then
            lblpredikatkls.Text = "Sangat Memuaskan"
            lblkategorikls.Text = "1"

        ElseIf txtratakelas.Text <= 85 Then
            lblpredikatkls.Text = "Memuaskan"
            lblkategorikls.Text = "2"

        ElseIf txtratakelas.Text <= 75 Then
            lblpredikatkls.Text = "Cukup Memuaskan"
            lblkategorikls.Text = "3"

        ElseIf txtratakelas.Text <= 65 Then
            lblpredikatkls.Text = "Cukup Memprihatinkan"
            lblkategorikls.Text = "4"

        ElseIf txtratakelas.Text <= 55 Then
            lblpredikatkls.Text = "Memprihatinkan"
            lblkategorikls.Text = "5"

        Else : lblpredikatkls.Text = "Sangat Memprihatinkan"
            lblkategorikls.Text = "6"
        End If

        vkategori = lblkategorikls.Text
        Select Case vkategori
            Case 1, 2
                vmahasiswa = "5"
                txtmahasiswa.Text = vmahasiswa

            Case 3, 4
                vmahasiswa = "3"
                txtmahasiswa.Text = vmahasiswa

            Case Else
                vmahasiswa = "1"
                txtmahasiswa.Text = vmahasiswa
        End Select
    End Sub

    Dim x As Integer
    Sub selesai()
        x = MsgBox("Yakin akan Selesai", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
        If x = vbYes Then
            End
        Else : Call bersih()
        End If
    End Sub

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