Membuat Game Puzzle

MODIFIKASI PROGRAM PENJUALAN

a)      Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

b)      Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif

c)      Saat ditekan combol clear sama dengan saat form dijalankan

1.      Tambahkan 1 Button untuk program yang kemarin,

         Dan edit button tadi menjadi isi data

           Seperti dibawah ini;

 

2.    Selanjutnya kita isi listing programnya;

Coding pada form di tambah seperti dibawah ini;

Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Button3.Enabled = True

            Button2.Enabled = True

        Next

        CmbKodbar.Items.Add("SPT")

        CmbKodbar.Items.Add("SND")

        CmbKodbar.Items.Add("TST")

        CmbKodbar.Items.Add("CLN")

        CmbKodbar.Items.Add("TAS")

3.      Selanjutnya edit pada button clear sehinga menjadi seperti dibawah ini;

                Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Button3.Enabled = True

            Button2.Enabled = True

        Next

        TxtNambar.Clear()

        TxtHarbar.Clear()

        TxtJumbar.Clear()

        TxtTotHarg.Clear()

        TxtDiskon.Clear()

        TxtTotBayr.Clear()

        Me.RadioButton1.Checked = False

        Me.RadioButton2.Checked = False

        CmbKodbar.Text = ""

4.      Yang terakhir isi button ‘’isi data”;

                Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = True

            Button3.Enabled = False

        Next

5.      Lalu di Run

           Dan hasilnya seperti berikut ini;

semua tidak aktif kecuali Button isi data dan button tutup
 

6.      Klik button Isi data, dan hasilnya seperti dibawah ini;

Setelah di isi

Dan jika di clear seperti pada waktu di Run pertama kali

 Jika ingiin tahu lebih lanjut download programnya di bawah ini,

Listing Programnya ada di bawah ini;;; 

Listing Program Penjulan Setelah di modifikasi

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

            Button3.Enabled = True

            Button2.Enabled = True

        Next

        CmbKodbar.Items.Add("SPT")

        CmbKodbar.Items.Add("SND")

        CmbKodbar.Items.Add("TST")

        CmbKodbar.Items.Add("CLN")

        CmbKodbar.Items.Add("TAS")

    End Sub

    Private Sub CmbKodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbKodbar.SelectedIndexChanged

        Dim Kodebarang, Namabarang As String

        Dim Harga As Single

        Kodebarang = CmbKodbar.Text

        Select Case Kodebarang

            Case "SPT"

                Namabarang = "Sepatu"

                Harga = 100000

            Case "SND"

                Namabarang = "Sendal"

                Harga = 25000

            Case "TST"

                Namabarang = "T-Shirt"

                Harga = 30000

            Case "CLN"

                Namabarang = "Celana"

                Harga = 150000

            Case "TAS"

                Namabarang = "TAS"

                Harga = 90000

            Case Else

                Namabarang = "-"

                Harga = 0

        End Select

        TxtNambar.Text = Namabarang

        TxtHarbar.Text = Harga

    End Sub

    Private Sub TxtJumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumbar.TextChanged

        TxtTotHarg.Text = Val(TxtHarbar.Text) * Val(TxtJumbar.Text)

        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        TxtDiskon.Text = Val(TxtTotHarg.Text) * 10 / 100

        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        TxtDiskon.Text = 0

        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)

    End Sub

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Button3.Enabled = True

            Button2.Enabled = True

        Next

        TxtNambar.Clear()

        TxtHarbar.Clear()

        TxtJumbar.Clear()

        TxtTotHarg.Clear()

        TxtDiskon.Clear()

        TxtTotBayr.Clear()

        Me.RadioButton1.Checked = False

        Me.RadioButton2.Checked = False

        CmbKodbar.Text = ""

    End Sub

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

        If MsgBox("Apakah anda ingin keluar ?",

                  vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

        End If

        Me.Close()

    End Sub

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = True

            Button3.Enabled = False

        Next

    End Sub

End Class