Puzzel
Buat 9 button kedalam form1, dan ganti
propertiesnya :
Button1 text = 1; name = satu
Button2 text = 2; name = dua
Button3 text = 3; name = tiga
Button4 text = 4; name = empat
Button5 text = 5; name = lima
Button6 text = 6; name = enam
Button7 text = 7; name = tujuh
Button8 text = 8; name = delapan
Button9 text = spasi ; name = sembilan
Pergerakan angka pada button yang di_klik akan selalu
bertukar dengan button yang kosong sampai tersusun urut dari 1-8 dari sebelah
kiri. Pada button angka double klik kemudian tiap-tiap button diisi koding
sebagai berikut :
Private Sub satu_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click
Dim nom As String
nom = satu.Text
If dua.Text = "" Then
dua.Text = nom
satu.Text = ""
End If
If empat.Text = "" Then
empat.Text = nom
satu.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 dua_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles dua.Click
Dim nom As String
nom = dua.Text
If tiga.Text = "" Then
tiga.Text = nom
dua.Text = ""
End If
If satu.Text = "" Then
satu.Text = nom
dua.Text = ""
End If
If lima.Text = "" Then
lima.Text = nom
dua.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
Dim nom As String
nom = lima.Text
If dua.Text = "" Then
dua.Text = nom
lima.Text = ""
End If
If delapan.Text = "" Then
delapan.Text = nom
lima.Text = ""
End If
If empat.Text = "" Then
empat.Text = nom
lima.Text = ""
End If
If enam.Text = "" Then
enam.Text = nom
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 tiga_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles tiga.Click
Dim nom As String
nom = tiga.Text
If enam.Text = "" Then
enam.Text = nom
tiga.Text = ""
End If
If dua.Text = "" Then
dua.Text = nom
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
Dim nom As String
nom = empat.Text
If satu.Text = "" Then
satu.Text = nom
empat.Text = ""
End If
If tujuh.Text = "" Then
tujuh.Text = nom
empat.Text = ""
End If
If lima.Text = "" Then
lima.Text = nom
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 enam_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles enam.Click
Dim nom As String
nom = enam.Text
If tiga.Text = "" Then
tiga.Text = nom
enam.Text = ""
End If
If lima.Text = "" Then
lima.Text = nom
enam.Text = ""
End If
If sembilan.Text = "" Then
sembilan.Text = nom
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
Untuk mengacak angka dengan mengunakan Random
Pada form1 ditulis koding dan hasil setelah dRun
program sebagai berikut :
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
If control.GetType.Name =
"Button" Then
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 9)
control.Text = number
If dua.Text = satu.Text Then
Do
number =
rndnumber.Next(1, 9)
dua.Text = number
Loop Until dua.Text
<> satu.Text
End If
If tiga.Text = dua.Text Or
tiga.Text = satu.Text Then
Do
number =
rndnumber.Next(1, 9)
tiga.Text = number
Loop Until tiga.Text <> dua.Text And
tiga.Text <> satu.Text
End If
If
empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
Do
number =
rndnumber.Next(1, 9)
empat.Text = number
Loop Until empat.Text
<> tiga.Text And empat.Text <> dua.Text And empat.Text <>
satu.Text
End If
If
empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
Do
number =
rndnumber.Next(1, 9)
empat.Text = number
Loop Until empat.Text
<> tiga.Text And empat.Text <> dua.Text And empat.Text <>
satu.Text
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 =
rndnumber.Next(1, 9)
lima.Text = number
Loop Until lima.Text
<> empat.Text And lima.Text <> tiga.Text And lima.Text <>
dua.Text And lima.Text <> satu.Text
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 =
rndnumber.Next(1, 9)
enam.Text = number
Loop Until enam.Text
<> lima.Text And enam.Text <> tiga.Text And enam.Text <>
dua.Text And enam.Text <> satu.Text
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 = rndnumber.Next(1,
9)
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
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 = rndnumber.Next(1, 9)
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
End If
End If
kosong.Text = ""
Next
End Sub
Setelah angka tersusun akan muncul tulisan dari msgbox
:
Tugas Editan dari Tugas Dua :
Untuk menonaktifkan kode_barang; nama_barang; jumlah_barang; harga_barang; total_harga; cara_beli; total_bayar; diskon; clear maka pada form1 diberi koding :
Cmbkode.Items.Add("spt")
Cmbkode.Items.Add("snd")
Cmbkode.Items.Add("tst")
Cmbkode.Items.Add("top")
Cmbkode.Items.Add("tas")
Dim cek As Windows.Forms.Control
For Each cek In Me.Controls
If cek.Name = "isidata" Then
ElseIf cek.Name = "bttutup" Then
cek.Enabled = True
Else
cek.Enabled = False
End If
Next cek
End Sub
Cmbkode.Items.Add("snd")
Cmbkode.Items.Add("tst")
Cmbkode.Items.Add("top")
Cmbkode.Items.Add("tas")
Dim cek As Windows.Forms.Control
For Each cek In Me.Controls
If cek.Name = "isidata" Then
ElseIf cek.Name = "bttutup" Then
cek.Enabled = True
Else
cek.Enabled = False
End If
Next cek
End Sub
Pada button isi data di beri koding :
Dim cek2 As Windows.Forms.Control
For Each cek2 In Me.Controls
If cek2.Name = "isidata" Then
cek2.Enabled = False
Else
cek2.Enabled = True
End If
Next
End Sub
For Each cek2 In Me.Controls
If cek2.Name = "isidata" Then
cek2.Enabled = False
Else
cek2.Enabled = True
End If
Next
End Sub
Pada saat ditekan isi data maka semua yang ada pada form akan aktif dan bisa di entri data :
Setelah entri data selesai dan tekan clear maka semua isian akan kosong dan ketika tombol tutup di tekan maka akan menutup Run programhttp://frenkisetia7.blogspot.com/2012/10/tugas-vb-3.html.
Tidak ada komentar:
Posting Komentar