TUGAS MODIFIKASI IF CASE DAN PUZZLE
Nama : Anisya Anindityarani
Kelas : TI 11 E
NIM :11.11.2632
SOAL 1
1.Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
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
2.Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata
tidak aktif
doubleclick pada button isi data masukkan listing programnya :
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
3.Saat ditekan combol clear sama dengan saat form dijalankan
SOAL 2 “PUZLEE”
Buatlah design form seperti berikut
kemudian masukkan listing program berikut :
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 Button2.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button2.Text = number
Loop Until Button2.Text <> Button1.Text
End If
If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button3.Text = number
Loop Until Button3.Text <> Button2.Text AndButton3.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text AndButton4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button4.Text = number
Loop Until Button4.Text <> Button3.Text AndButton4.Text <> Button2.Text And Button4.Text <> Button1.Text
End If
If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button5.Text = number
Loop Until Button5.Text <> Button4.Text AndButton5.Text <> Button3.Text And Button5.Text <> Button2.Text AndButton5.Text <> Button1.Text
End If
If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button6.Text = number
Loop Until Button6.Text <> Button5.Text AndButton6.Text <> Button3.Text And Button6.Text <> Button2.Text AndButton6.Text <> Button1.Text
End If
If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button7.Text = number
Loop Until Button7.Text <> Button6.Text AndButton7.Text <> Button5.Text And Button7.Text <> Button4.Text AndButton7.Text <> Button3.Text And Button7.Text <> Button2.Text AndButton7.Text <> Button1.Text
End If
If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then
Do
number = rndnumber.Next(1, 9)
Button8.Text = number
Loop Until Button8.Text <> Button7.Text AndButton8.Text <> Button6.Text And Button8.Text <> Button5.Text AndButton8.Text <> Button4.Text And Button8.Text <> Button3.Text AndButton8.Text <> Button2.Text And Button8.Text <> Button1.Text
End If
End If
Button9.Text = ”"
Next
7. Kemudian kita akan memberi perintah untuk semuta button, button1 sampai button9, berikut perintahnya untuk setiap button
a. Button1
If Button2.Text = ”" Then
Button2.Text = Button1.Text
Button1.Text = ”"
ElseIf Button4.Text = ”" Then
Button4.Text = Button1.Text
Button1.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
b. Button2
If Button1.Text = ”" Then
Button1.Text = Button2.Text
Button2.Text = ”"
ElseIf Button3.Text = ”" Then
Button3.Text = Button2.Text
Button2.Text = ”"
ElseIf Button5.Text = ”" Then
Button5.Text = Button2.Text
Button2.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
c. Button3
If Button2.Text = ”" Then
Button2.Text = Button3.Text
Button3.Text = ”"
ElseIf Button6.Text = ”" Then
Button6.Text = Button3.Text
Button3.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
d. Button4
If Button1.Text = ”" Then
Button1.Text = Button4.Text
Button4.Text = ”"
ElseIf Button7.Text = ”" Then
Button7.Text = Button4.Text
Button4.Text = ”"
ElseIf Button5.Text = ”" Then
Button5.Text = Button4.Text
Button4.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
e. Button5
If Button2.Text = ”" Then
Button2.Text = Button5.Text
Button5.Text = ”"
ElseIf Button4.Text = ”" Then
Button4.Text = Button5.Text
Button5.Text = ”"
ElseIf Button6.Text = ”" Then
Button6.Text = Button5.Text
Button5.Text = ”"
ElseIf Button8.Text = ”" Then
Button8.Text = Button5.Text
Button5.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
f. Button6
If Button9.Text = ”" Then
Button9.Text = Button6.Text
Button6.Text = ”"
ElseIf Button3.Text = ”" Then
Button3.Text = Button6.Text
Button6.Text = ”"
ElseIf Button5.Text = ”" Then
Button5.Text = Button6.Text
Button6.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
g. Button7
If Button4.Text = ”" Then
Button4.Text = Button7.Text
Button7.Text = ”"
ElseIf Button8.Text = ”" Then
Button8.Text = Button7.Text
Button7.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
h. Button8
If Button7.Text = ”" Then
Button7.Text = Button8.Text
Button8.Text = ”"
ElseIf Button9.Text = ”" Then
Button9.Text = Button8.Text
Button8.Text = ”"
ElseIf Button5.Text = ”" Then
Button5.Text = Button8.Text
Button8.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
i. Butoon9
If Button6.Text = ”" Then
Button6.Text = Button9.Text
Button9.Text = ”"
ElseIf Button8.Text = ”" Then
Button8.Text = Button9.Text
Button9.Text = ”"
End If
If Button1.Text = ”1″ And Button2.Text = ”2″ AndButton3.Text = ”3″ And Button4.Text = ”4″ And Button5.Text = ”5″And Button6.Text = ”6″ And Button7.Text = ”7″ And Button8.Text =”8″ And Button9.Text = ”" Then
MsgBox(“Selamat Kamu Berhasil”)
End If
Selamat mencoba :)
Tidak ada komentar:
Posting Komentar