Modifikasi Latihan IF dan Case dari Aplikasi Kasir

Modifikasi Latihan IF dan Case dari Aplikasi Kasir

Nama : EKA YUNITA H S

Kelas   : TI 11 C

Nim     : 11.11.2498

           

            Assalamu’alaikum wr.wb

            Dalam Pembahasan Sebelumnya saya telah UpLoad tugas sebelumnya tentang “Aplikasi Penjualan untuk Kasir “

Untuk Modifikasi “Latihan IF dan Case” ini saya mendapatkan beberapa soal dari Pengampuh Materi Pemrograman Visual yakni bapak Nandang Hermanto. Dengan Soal sebagai berikut :

1. Saat program dijalankan : semua isian data tidak aktif(kode barang, nama barang, sampai total bayar.) dan tombol clear juga tidak aktif, saat program dijalankan hanya tombol Isi data dan tombol tutup yang aktif.
2. Saat ditekan tombol Isi data maka : kode barang, jumlah barang, cara beli,dan tombol clear aktif (bisa diisi/ditekan) akan tetapi tombol isi data tidak aktif.
3. Saat ditekan tombol Clear, maka ketentuanya sama seperti pada no.1

Langsung saja saya akan Menyelesaikan satu persatu dari soal diatas.

1. Saat program dijalankan : semua isian data tidak aktif(kode barang, nama barang, sampai total bayar.) dan tombol clear juga tidak aktif, saat program dijalankan hanya tombol Isi data dan tombol tutup yang aktif.

Hal yang harus dilakukan :

Ø  Buat Button “Isi Data” terlebih dahulu.

Ø  Kemudian Ketikan Listing dibawah ini pada Form1 “ Latihan if dan case”

            Public Class From1

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

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "TextBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "RadioButton" Then

                Control.Enabled = False

            End If

        Next

        btclear.Enabled = False

    End Sub

v  Setelah Listing diketik dan kemudian klik RUN maka akan muncul tampilan seperti soal yang diinginkan dimana ComboBox, TextBox, dan RadioButton tidak aktif. Sedangkan Button “Isi Data” dan “Tutup” aktif.

2.      Saat ditekan tombol Isi data maka : kode barang, jumlah barang, cara beli,dan tombol   clear aktif (bisa diisi / ditekan) akan tetapi tombol isi data tidak aktif.

v  Ketikan listing ini untuk menjawab soal nomor 2.

                Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = True

            End If

            If Control.GetType.Name = "RadioButton" Then

                Control.Enabled = True

            End If

        Next

        txtjmlbarang.Enabled = True

        btclear.Enabled = True

        btisidata.Enabled = False

    End Sub

v  Setelah Listing diketik dan diRUN, maka akan muncul Outputnya. Untuk textbox dan button isi data tidak aktif.

 

3.      Saat ditekan tombol Clear, maka ketentuanya sama seperti pada no.1

v   Untuk mengnonaktifkan tombol Clear, ketikan listing ini pada btClear.

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txttotbayar.Clear()

        txtdisc.Clear()

        txtjmlbarang.Clear()

        txtnamabarang.Clear()

        txttotharga.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbkode.Text = ""

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "TextBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "RadioButton" Then

                Control.Enabled = False

            End If

        Next

        btclear.Enabled = False

        btisidata.Enabled = True

    End Sub

v  Setelah di RUN button “isi data” dan button “Tutup” aktif  sedangkan Button Clear tidak aktif.

v  Untuk Membentuk Program Aplikasi yang utuh maka gunakan Listing dibawah ini menurut letak dan urutan isi dari form “Latihan if dan case” :

Public Class From1

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

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "TextBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "RadioButton" Then

                Control.Enabled = False

            End If

        Next

        btclear.Enabled = False

    End Sub

    Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 1500000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "TAS"

                harga = 250000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnamabarang.Text = namabarang

        txthargabarang.Text = harga

    End Sub

    Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged

        txttotharga.Text = Val(txthargabarang.Text) * Val(txtjmlbarang.Text)

        txttotbayar.Text = Val(txttotharga.Text) - Val(txtdisc.Text)

    End Sub

    Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged

        txtdisc.Text = 0

        txtdisc.Text = Val(txttotbayar.Text) * 10 / 100

        txttotbayar.Text = Val(txttotharga.Text) - Val(txtdisc.Text)

    End Sub

    Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged

        txtdisc.Text = 0

        txttotbayar.Text = Val(txttotharga.Text) - Val(txtdisc.Text)

    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txttotbayar.Clear()

        txtdisc.Clear()

        txtjmlbarang.Clear()

        txtnamabarang.Clear()

        txttotharga.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbkode.Text = ""

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "TextBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = False

            End If

            If Control.GetType.Name = "RadioButton" Then

                Control.Enabled = False

            End If

        Next

        btclear.Enabled = False

        btisidata.Enabled = True

    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            If Control.GetType.Name = "ComboBox" Then

                Control.Enabled = True

            End If

            If Control.GetType.Name = "RadioButton" Then

                Control.Enabled = True

            End If

        Next

        txtjmlbarang.Enabled = True

        btclear.Enabled = True

        btisidata.Enabled = False

    End Sub

End Class

            Sekian Modifikasi dari Aplikasi Kasir yang saya kerjakan untuk menjawab soal-soal diatas. Semoga dapat menjadi pertimbangan dalam pemberian nilai.

Terima Kasih.