Tugas Pemrograman Visual 3
SOAL 1
Jawab :
1. Masukkan satu buah button ke dalam form, rubah
properties nama menjadi BtIsidata dan teks menjadi &Isi Data, kemudian buat
groupbox dan masukan semua common controls yang ada dalam form1 kecuali button
Isi Data dan Tutup. Kemudian double click form1 dan tambahkan kode berikut “GroupBox1.Enabled
= False” dibawah kode yang sudah ada. Kode tadi
berfungsi untuk menonaktifkan common controls yang ada di groupbox pada saat
program dijalankan.
2.
Saat ditekan tombol isi data : kodebarang,
jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
Pada button Isi Data diisikan kode ini :
GroupBox1.Enabled = True --> Untuk mengaktifkan Groupbox pada saat ditekan
BtIsidata.Enabled = False --> Untuk menonaktifkan tombol
Isi Data saat ditekan
3.
Saat ditekan combol clear sama dengan saat
form dijalankan, isikan code ini di button clear di tambahkan dibawah kode
program yang sudah ada, makan pada saat ditekan combol clear sama dengan saat
form dijalankan.
GroupBox1.Enabled = False --> Untuk menonaktifkan tombol clear pada saat program
dijalankan
BtIsidata.Enabled = True --> Untuk mengaktifkan tombol Isi Data pada saat
tombol clear ditekan
SOAL 2
MEMBUAT PERMAINAN PAZEL
Masukkan 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 = kosong
Jawab :
1.
Saat form dijalankan posisi angka acak
Pada form1 tuliskan kode program seperti ini,
kode ini untuk mengacak tombol-tonbol yang ada dalam form pada saat program
dijalankan :
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
2. Saat
ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan
menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari
1 sampai 8. Maka isikan kode perogram berikut kedalam tiap-tiap button sesuai
dengan nomornya :
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
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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
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 tiga.Text = ""
Then
tiga.Text = dua.Text
dua.Text = ""
ElseIf lima.Text = ""
Then
lima.Text = dua.Text
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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
End If
End Sub
Private Sub enam_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
enam.Click
If kosong.Text = ""
Then
kosong.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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
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 kosong.Text = ""
Then
kosong.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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
End If
End Sub
Private Sub kosong_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
kosong.Click
If enam.Text = ""
Then
enam.Text = kosong.Text
kosong.Text = ""
ElseIf delapan.Text = ""
Then
delapan.Text = kosong.Text
kosong.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 kosong.Text = ""
Then
MsgBox("Selamat Anda Berhasil")
End If
End Sub
3.
Saat angka sudah tersusun tampilkan pesan
selamat anda berhasil. Untuk kode programnya sudah dituliskan di nomor 2.
Tidak ada komentar:
Posting Komentar