TUGAS 3 PEMROGRAMAN VISUAL
TENTANG :
A. MODIFIKASI TUGAS 2 ( IF DAN CASE )
B. MEMBUAT APLIKASI PUZZLE ANGKA
=========================================================
A. MODIFIKASI TUGAS 2 ( IF DAN CASE )
1. Tambahkan Tampilan sebelumnya yang ada di tugas2 dengan menambahkan button = text : isi data , name : Btisidata
2. CODING TAMBAHAN
FORM1_LOAD :
Btclear :
Btisidata :
3. TAMPILAN PROGRAM
Saat program di jalankan :
Saat menekan tombol isi data :
Gambar saat tombol Clear di tekan maka tampilan akan kembali semula, yaitu tampilan awal saat program di jalankan :
4. SELESAI :)
=========================================================
B. PUZZLE ANGKA
1. PROGRAM UTAMA SEBELUM DI JALANKAN :
2. INISIALISASI :
3. CODING :
btsatu :
bttiga :
bttujuh :
btkosong :
btdua :
btdelapan :
btenam :
btempat :
btlima :
CODING FORM1_LOAD :
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
Next
If control.GetType.Name = "Button"
Then
End If
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 9)
control.Text = number
If btdua.Text = btsatu.Text Then
End If
Do
number = rndnumber.Next(1, 9)
btdua.Text = number
Loop Until
(btdua.Text <> btsatu.Text)
If bttiga.Text = btdua.Text Or
bttiga.Text = btsatu.Text Then
Do
number = rndnumber.Next(1, 9)
bttiga.Text = number
Loop Until
(bttiga.Text <> btdua.Text And
bttiga.Text <> btsatu.Text)
End If
If btempat.Text = bttiga.Text Or btempat.Text = btdua.Text Or
btempat.Text = btsatu.Text Then
Do
number = rndnumber.Next(1, 9)
btempat.Text = number
Loop Until
(btempat.Text <> bttiga.Text And
btempat.Text <> btdua.Text And
btempat.Text <> btsatu.Text)
End If
If btlima.Text = btempat.Text Or btlima.Text = bttiga.Text Or
btlima.Text = btdua.Text _
Or btlima.Text = btsatu.Text Then
Do
number = rndnumber.Next(1, 9)
btlima.Text = number
Loop Until (btlima.Text
<> btempat.Text And btlima.Text <>
bttiga.Text _
And btlima.Text <> btdua.Text And
btlima.Text <> btsatu.Text)
End If
If btenam.Text = btlima.Text Or
btenam.Text = btempat.Text Or btenam.Text =
bttiga.Text _
Or btenam.Text = btdua.Text Or
btenam.Text = btsatu.Text Then
Do
number = rndnumber.Next(1, 9)
btenam.Text = number
Loop Until
(btenam.Text <> btlima.Text And btenam.Text
<> btempat.Text _
And btenam.Text <> bttiga.Text And
btenam.Text <> btdua.Text And btenam.Text
<> btsatu.Text)
End If
If bttujuh.Text = btenam.Text Or bttujuh.Text = btlima.Text Or
bttujuh.Text = btempat.Text _
Or bttujuh.Text = bttiga.Text Or bttujuh.Text = btdua.Text Or
bttujuh.Text = btsatu.Text Then
Do
number = rndnumber.Next(1, 9)
bttujuh.Text = number
Loop Until
(bttujuh.Text <> btenam.Text And
bttujuh.Text <> btlima.Text _
And bttujuh.Text <> btempat.Text And
bttujuh.Text <> bttiga.Text _
And bttujuh.Text <> btdua.Text And
bttujuh.Text <> btsatu.Text)
End If
If btdelapan.Text = bttujuh.Text Or btdelapan.Text = btenam.Text Or btdelapan.Text = btlima.Text _
Or btdelapan.Text = btempat.Text Or btdelapan.Text = bttiga.Text Or btdelapan.Text = btdua.Text _
Or btdelapan.Text = btsatu.Text Then
Do
number = rndnumber.Next(1, 9)
btdelapan.Text = number
Loop Until
(btdelapan.Text <> bttujuh.Text And
btdelapan.Text <> btenam.Text _
And btdelapan.Text <> btlima.Text And
btdelapan.Text <> btempat.Text _
And btdelapan.Text <> bttiga.Text And
btdelapan.Text <> btdua.Text _
And btdelapan.Text <> btsatu.Text)
End If
btkosong.Text = ""
End Sub
End Class
4. TAMPILAN PROGRAM
Sebelum PUZZLE di jalankan :
Sesudah PUZZLE di jalankan, maka otomatis mengacak angka :
Saat berhasil menyusun :
5. SELESAI :)
=========================================================
