Selasa, 06 November 2012

Tugas qu

Barid Baroroh
TI 11 c
11.11.2488


Permainan Puzzle


         

 




Public Class Form1


    Private Sub Btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btexit.Click
        If MsgBox(" Do you want to exit? ", vbQuestion + vbYesNo + vbDefaultButton2, "Exit") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Btrestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btrestart.Click
        If MsgBox(" Do you want to restart? ", vbInformation + vbYesNo, " Restart Game Puzzle ") = vbYes Then
            Application.Restart()
        End If

    End Sub

    Private Sub satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click
        If dua.Text = "" Then
            dua.Text = satu.Text
            satu.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = satu.Text
            satu.Text = ""
        End If
    End Sub

    Private Sub dua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dua.Click
        If satu.Text = "" Then
            satu.Text = dua.Text
            dua.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = dua.Text
            dua.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = dua.Text
            dua.Text = ""
        End If
    End Sub

    Private Sub tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiga.Click
        If dua.Text = "" Then
            dua.Text = tiga.Text
            tiga.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = tiga.Text
            tiga.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub

    Private Sub empat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empat.Click
        If satu.Text = "" Then
            satu.Text = empat.Text
            empat.Text = ""
        ElseIf tujuh.Text = "" Then
            tujuh.Text = empat.Text
            empat.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = empat.Text
            empat.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub

    Private Sub lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lima.Click
        If dua.Text = "" Then
            dua.Text = lima.Text
            lima.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = lima.Text
            lima.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = lima.Text
            lima.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = lima.Text
            lima.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub

    Private Sub enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enam.Click
        If sembilan.Text = "" Then
            sembilan.Text = enam.Text
            enam.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = enam.Text
            enam.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = enam.Text
            enam.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub

    Private Sub tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuh.Click
        If empat.Text = "" Then
            empat.Text = tujuh.Text
            tujuh.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = tujuh.Text
            tujuh.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub

    Private Sub delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delapan.Click
        If tujuh.Text = "" Then
            tujuh.Text = delapan.Text
            delapan.Text = ""
        ElseIf sembilan.Text = "" Then
            sembilan.Text = delapan.Text
            delapan.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = delapan.Text
            delapan.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub


    Private Sub sembilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sembilan.Click
        If enam.Text = "" Then
            enam.Text = sembilan.Text()
            sembilan.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = sembilan.Text
            sembilan.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        Dim number As Integer
        For Each control In Me.Controls
        Next
        If control.GetType.Name = "Button" Then
            control.Text = number
        End If
        If dua.Text = satu.Text Then
            Do
                number = Rnd() * 8
                dua.Text = number
            Loop Until dua.Text <> satu.Text And dua.Text <> "0"
        End If
        If tiga.Text = dua.Text Or tiga.Text = satu.Text Then
            Do
                number = Rnd() * 8
                tiga.Text = number
            Loop Until tiga.Text <> dua.Text And tiga.Text <> satu.Text And tiga.Text <> "0"
        End If
        If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
            Do
                number = Rnd() * 8
                empat.Text = number
            Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text And empat.Text <> "0"
        End If
        If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
            Do
                number = Rnd() * 8
                empat.Text = number
            Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text And lima.Text <> "0"
        End If
        If lima.Text = empat.Text Or lima.Text = tiga.Text Or lima.Text = dua.Text Or lima.Text = satu.Text Then
            Do
                number = Rnd() * 8
                lima.Text = number
            Loop Until lima.Text <> empat.Text And lima.Text <> tiga.Text And lima.Text <> dua.Text And lima.Text <> satu.Text And lima.Text <> "0"
        End If
        If enam.Text = lima.Text Or enam.Text = empat.Text Or enam.Text = tiga.Text Or enam.Text = dua.Text Or enam.Text = satu.Text Then
            Do
                number = Rnd() * 8
                enam.Text = number
            Loop Until enam.Text <> lima.Text And enam.Text <> tiga.Text And enam.Text <> dua.Text And enam.Text <> satu.Text And enam.Text <> "0"
        End If
        If tujuh.Text = enam.Text Or tujuh.Text = lima.Text Or tujuh.Text = empat.Text Or tujuh.Text = tiga.Text Or tujuh.Text = dua.Text Or tujuh.Text = satu.Text Then
            Do
                number = Rnd() * 8
                tujuh.Text = number
            Loop Until tujuh.Text <> enam.Text And tujuh.Text <> lima.Text And tujuh.Text <> empat.Text And tujuh.Text <> tiga.Text And tujuh.Text <> dua.Text And tujuh.Text <> satu.Text And tujuh.Text <> "0"
        End If
        If delapan.Text = tujuh.Text Or delapan.Text = enam.Text Or delapan.Text = lima.Text Or delapan.Text = empat.Text Or delapan.Text = tiga.Text Or delapan.Text = dua.Text Or delapan.Text = satu.Text Then
            Do
                number = Rnd() * 8
                delapan.Text = number

            Loop Until delapan.Text <> tujuh.Text And delapan.Text <> enam.Text And delapan.Text <> lima.Text And delapan.Text <> empat.Text And delapan.Text <> tiga.Text And delapan.Text <> dua.Text And delapan.Text <> satu.Text And delapan.Text <> "0"
        End If
        sembilan.Text = ""

    End Sub
End Class



MODIFIKASI PROGRAM 


 


 

Public Class Form1
    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 = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 50000
            Case "TAS"
                namabarang = "Tas"
                harga = 250000
            Case Else
                namabarang = "-"
                harga = 0
        End Select
        Txtnama.Text = namabarang
        Txtharga.Text = harga
        Me.Radiotunai.Checked = False
        Me.Radiokredit.Checked = False
        Txtbayar.Clear()
        Txtdiskon.Clear()
        Txtjumlah.Clear()
        Txttotal.Clear()
        Txtjumlah.Focus()
    End Sub

    Private Sub Txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtjumlah.TextChanged
        If (Txtjumlah.Text = "") Then
        Else
            Dim jumlah As Integer
            Try
                jumlah = Convert.ToInt32(Txtjumlah.Text)
            Catch ex As Exception
                jumlah = 0
                MsgBox("Jumlah barang harus berupa angka", MsgBoxStyle.Critical, "Peringatan")
            End Try
            Txttotal.Text = Val(Txtharga.Text) * jumlah
            Txtbayar.Text = Val(Txttotal.Text) - Val(Txtdiskon.Text)
        End If
    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
        Me.Radiotunai.Checked = False
        Me.Radiokredit.Checked = False
        Txtbayar.Clear()
        Txtdiskon.Clear()
        Txtharga.Clear()
        Txtjumlah.Clear()
        Txtnama.Clear()
        Txttotal.Clear()
        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
        If (MsgBox("Apa Anda yakin untuk menutup aplikasi ini?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisidata.Click
        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
        Txtjumlah.Enabled = True
        Btclear.Enabled = True
        Btisidata.Enabled = False
    End Sub

    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 = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
    End Sub
End Class



* Ketentuan Modifikasi Program .
1 . Saat form dijalankan : semua isian tidak aktif , tombol isidata dan tutup aktif tombol clear tidak aktif.
Jawab :  Dim Control As Windows.Forms.Control ' Digunakan untuk mengendalikan perintah.
        For Each Control In Me.Controls ' Sistem perulangan.
            If Control.GetType.Name = "ComboBox" Then '
                Control.Enabled = False ' Perintah mematikan (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

 
Terimakasih..........






Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)