Welcome To Mr A Blog: TUGAS PEMROGRAMAN VISUAL 3

Setelah program latihan If dan Case yang pertama selesai, kini saya memodifikasinya. Dan saya beri judul pemrograman if dan case 2.

Langsung saja, dalam modifikasi ini saya menambah beberapa button seperti isi data, clear dan tutup. Berikut adalah tampilan awal dari aplikasi tersebut.

Keterangan :

· Pada saat form dijalankan, akan muncul seperti tampilan di atas. Berikut adalah keterangannya : Semua isian tidak aktif, tombol isi data dan tutup aktif, namun tombol clear tidak aktif.

· Saat ditekan tombol Isi Data, maka combo box kode barang, text box jumlah barang, radio button cara beli dan tombol Clear aktif tetapi tombol Isi Data tidak aktif. Seperti gambar di bawah

· Saat tombol Clear ditekan maka akan kembali ke tampilan awal.

· Pada saat tombol tutup ditekan, maka akan ada tampilan “anda yakin?” seperti gambar di bawah ini

Di bawah ini adalah listing dari program diatas

Public Class Form1

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



        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Btisi.Enabled = True

            bttutup.Enabled = True

        Next

    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 String

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 150000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case Else

                namabarang = " Tas "

                harga = 30000

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

        txtjumlah.Text = ""

        txttotal.Text = ""

        txtdiskon.Text = ""

        txtbayar.Text = ""

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

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

        txtdiskon.Text = Val(txttotal.Text) * 10 / 100

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

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

        txtdiskon.Text = 0

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

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



        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Btisi.Enabled = True

            bttutup.Enabled = True

            txtbayar.Clear()

            txtdiskon.Clear()

            txtharga.Clear()

            txtjumlah.Clear()

            txtnama.Clear()

            txttotal.Clear()

            Me.radiotunai.Checked = False

            Me.radiokredit.Checked = False

            cmbkode.Text = ""

        Next

    End Sub

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

        If MsgBox(" anda yakin?", vbYesNo + vbQuestion + vbDefaultButton2, "EXIT") = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click



        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = True

            Btisi.Enabled = False

            bttutup.Enabled = False



        Next

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")



    End Sub

End Class

PUZZLE

Tugas yang selanjutnya adalah membuat aplikasi sederhana game puzzle,berikut adalah tampilan awal dari game tersebut.

a. ketika form dijalankan, maka akan tampil seperti di atas dan angkanya akan teracak dengan tersendirinya.
b. selanjutnya kita klik tombol stop, untuk menghentikan acakan dari angka tersebut. berikut adalah tampilannya

dalam program ini, yang bergerak adalah angka-angkanya. dan apabila kita berhasil, maka akan ada tampilan "anda sukses"

c. tombol exit, apabila aplikasi akan ditutup. berikut adalah tampilannya