2. Game Punzle:
listing program :
Public Class Form1
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")
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-Sirt"
harga = 1500000
Case "TOP"
namaBarang = "Topi"
harga = 500000
Case "TAS"
namaBarang = "Tas"
harga = 700000
Case Else
namaBarang = "-"
harga = 0
End Select
txtNama.Text = namaBarang
txtHarga.Text = harga
txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
If radioTunai.Checked = True
Then
txtDiskon.Text = Val(txtTotal.Text) * 10 / 100
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
ElseIf radioKredit.Checked = True
Then
txtDiskon.Text = 0
txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
End If
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
txtDiskon.Clear()
txtHarga.Clear()
txtJumlah.Clear()
txtTotal.Clear()
txtNama.Clear()
cmbKode.Text = ""
Me.radioTunai.Checked = False
Me.radioKredit.Checked = False
cmbKode.Enabled = False
radioKredit.Enabled = False
radioTunai.Enabled = False
txtJumlah.Enabled = False
btClear.Enabled = False
End Sub
Private Sub
btTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btTutup.Click
Me.Close()
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
cmbKode.Enabled = True
txtJumlah.Enabled = True
radioKredit.Enabled = True
radioTunai.Enabled = True
btClear.Enabled = True
End Sub
End Class
2. Game Punzle
listing :
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Kode_randomisasi()
End Sub
Private Sub
Kode_randomisasi()
Dim control As
Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "Button"
Then
Dim rndnumber As
Random
rndnumber = New Random
Dim number As
Integer
control.Text = number
number = rndnumber.Next(1, 10)
Bt1.Text = number
If Bt2.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt2.Text = number
Loop Until
Bt2.Text <> Bt1.Text
End If
If Bt3.Text = Bt2.Text Or Bt3.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt3.Text = number
Loop Until
Bt3.Text <> Bt2.Text And Bt3.Text
<> Bt1.Text
End If
If Bt4.Text = Bt3.Text Or Bt4.Text = Bt2.Text Or
Bt4.Text = Bt1.Text Then
Do
number = rndnumber.Next(1,
10)
Bt4.Text = number
Loop Until
Bt4.Text <> Bt3.Text And Bt4.Text
<> Bt2.Text And Bt4.Text <>
Bt1.Text
End If
If Bt5.Text = Bt4.Text Or Bt5.Text = Bt3.Text Or
Bt5.Text = Bt2.Text Or Bt5.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt5.Text = number
Loop Until
Bt5.Text <> Bt4.Text And Bt5.Text
<> Bt3.Text And Bt5.Text <> Bt2.Text
And Bt5.Text <> Bt1.Text
End If
If Bt6.Text = Bt5.Text Or Bt6.Text = Bt4.Text Or
Bt6.Text = Bt3.Text Or Bt6.Text = Bt2.Text Or Bt6.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt6.Text = number
Loop Until
Bt6.Text <> Bt5.Text And Bt6.Text
<> Bt4.Text And Bt6.Text <>
Bt3.Text And Bt6.Text <> Bt2.Text And Bt6.Text <> Bt1.Text
End If
If Bt7.Text = Bt6.Text Or Bt7.Text = Bt5.Text Or
Bt7.Text = Bt4.Text Or Bt7.Text = Bt3.Text Or Bt7.Text = Bt2.Text Or
Bt7.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt7.Text = number
Loop Until
Bt7.Text <> Bt6.Text And Bt7.Text
<> Bt5.Text And Bt7.Text <>
Bt4.Text And Bt7.Text <> Bt3.Text And Bt7.Text <> Bt2.Text And Bt7.Text <> Bt1.Text
End If
If Bt8.Text
= Bt7.Text Or Bt8.Text = Bt6.Text Or Bt8.Text = Bt5.Text Or
Bt8.Text = Bt4.Text Or Bt8.Text = Bt3.Text Or Bt8.Text = Bt2.Text Or
Bt8.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt8.Text = number
Loop Until
Bt8.Text <> Bt7.Text And Bt8.Text
<> Bt6.Text And Bt8.Text <>
Bt5.Text And Bt8.Text <> Bt4.Text And Bt8.Text <> Bt3.Text And Bt8.Text <> Bt2.Text And Bt8.Text <> Bt1.Text
End If
If Bt9.Text = Bt8.Text Or Bt9.Text = Bt7.Text Or
Bt9.Text = Bt6.Text Or Bt9.Text = Bt5.Text Or Bt9.Text = Bt4.Text Or
Bt9.Text = Bt3.Text Or Bt9.Text = Bt2.Text Or Bt9.Text = Bt1.Text Then
Do
number =
rndnumber.Next(1, 10)
Bt9.Text = number
Loop Until
Bt9.Text <> Bt8.Text And Bt9.Text
<> Bt7.Text And Bt9.Text <>
Bt6.Text And Bt9.Text <> Bt5.Text And Bt9.Text <> Bt4.Text And Bt9.Text <> Bt3.Text And Bt9.Text <> Bt2.Text And Bt9.Text <> Bt1.Text
End If
End If
Next
Btacak.Text = "Acak Angka"
If Bt1.Text = "9"
Then
Bt1.Text = ""
End If
If Bt2.Text = "9"
Then
Bt2.Text = ""
End If
If Bt3.Text = "9"
Then
Bt3.Text = ""
End If
If Bt4.Text = "9"
Then
Bt4.Text = ""
End If
If Bt5.Text = "9"
Then
Bt5.Text = ""
End If
If Bt6.Text = "9"
Then
Bt6.Text = ""
End If
If Bt7.Text = "9"
Then
Bt7.Text = ""
End If
If Bt8.Text = "9"
Then
Bt8.Text = ""
End If
If Bt9.Text = "9"
Then
Bt9.Text = ""
End If
End Sub
Private Sub
Bt1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt1.Click
If Bt2.Text = ""
Then
Bt2.Text = Bt1.Text
Bt1.Text = ""
ElseIf Bt4.Text = ""
Then
Bt4.Text = Bt1.Text
Bt1.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt2.Click
If Bt1.Text = ""
Then
Bt1.Text = Bt2.Text
Bt2.Text = ""
ElseIf Bt3.Text = ""
Then
Bt3.Text = Bt2.Text
Bt2.Text = ""
ElseIf Bt5.Text = ""
Then
Bt5.Text = Bt2.Text
Bt2.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt3.Click
If Bt2.Text = ""
Then
Bt2.Text = Bt3.Text
Bt3.Text = ""
ElseIf Bt6.Text = ""
Then
Bt6.Text = Bt3.Text
Bt3.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt4_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt4.Click
If Bt1.Text = ""
Then
Bt1.Text = Bt4.Text
Bt4.Text = ""
ElseIf Bt5.Text = ""
Then
Bt5.Text = Bt4.Text
Bt4.Text = ""
ElseIf Bt7.Text = ""
Then
Bt7.Text = Bt4.Text
Bt4.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt5_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt5.Click
If Bt2.Text = ""
Then
Bt2.Text = Bt5.Text
Bt5.Text = ""
ElseIf Bt4.Text = ""
Then
Bt4.Text = Bt5.Text
Bt5.Text = ""
ElseIf Bt6.Text = ""
Then
Bt6.Text = Bt5.Text
Bt5.Text = ""
ElseIf Bt8.Text = ""
Then
Bt8.Text = Bt5.Text
Bt5.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt6_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt6.Click
If Bt3.Text = ""
Then
Bt3.Text = Bt6.Text
Bt6.Text = ""
ElseIf Bt5.Text = ""
Then
Bt5.Text = Bt6.Text
Bt6.Text = ""
ElseIf Bt9.Text = ""
Then
Bt9.Text = Bt6.Text
Bt6.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt7_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt7.Click
If Bt4.Text = ""
Then
Bt4.Text = Bt7.Text
Bt7.Text = ""
ElseIf Bt8.Text = ""
Then
Bt8.Text = Bt7.Text
Bt7.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt8_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt8.Click
If Bt5.Text = ""
Then
Bt5.Text = Bt8.Text
Bt8.Text = ""
ElseIf Bt7.Text = ""
Then
Bt7.Text = Bt8.Text
Bt8.Text = ""
ElseIf Bt9.Text = ""
Then
Bt9.Text = Bt8.Text
Bt8.Text = ""
End If
Berhasil()
End Sub
Private Sub
Bt9_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Bt9.Click
If Bt6.Text = ""
Then
Bt6.Text = Bt9.Text
Bt9.Text = ""
ElseIf Bt8.Text = ""
Then
Bt8.Text = Bt9.Text
Bt9.Text = ""
End If
Berhasil()
End Sub
Private Sub
Berhasil()
If Bt1.Text = "1"
And Bt2.Text = "2"
And Bt3.Text = "3"
And Bt4.Text = "4"
And Bt5.Text = "5"
And Bt6.Text = "6"
And Bt7.Text = "7"
And Bt8.Text = "8"
And Bt9.Text = ""
Then
MessageBox.Show("Selamat
Anda Menang")
End If
End Sub
Private Sub
Btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Btacak.Click
Kode_randomisasi()
End Sub
End Class
Tidak ada komentar:
Posting Komentar