Tugas 3
Modifikasi program sebelumnya yaitu IF dan CASE
1. Modifikasi yang pertama adalah agar ketika menjalankan
program semua kontrol tidak aktif, kecuali tombol ISI DATA dan tombol TUTUP.
Kode program ini
saya tambahkan di dalam Private sub Form1_Load yang artinya pada saat program dijalankan kontrol di
dalam Groupbox1 dan tombol clear tidak aktif. Sebelumnya saya telah
menambahkan kontrol Groupbox dan memasukan semua kontrl yang ada di form1 ke
dalam Groupbox tersebut, kecuali untuk kontrol tombol (Isi Data, Clear, Tutup).
Berikut tampilan
progam ketika dijalankan :
2. Modifikasi
yang kedua yaitu tentang penambahan tombol isi data yang berfungsi untuk mengaktifkan kontrol
(Kode Barang, Jumlah Barang, Cara Beli, Tombol Clear), Sedangkan Tombol Isi
Data dan Tutup menjadi tidak aktif. Dibawah ini adalah kode program yang saya
tambahkan.
Berikut tampilan
ketika program dijalankan :
3. Modifikasi
yang ketiga yaitu tentang penambahan program untuk mengaktifkan kembali tombol
isi data dan tutup, sedangkan groupbox1 menjadi tidak aktif (
sama seperti saat program pertama kali
dijalankan). Berikut ini kode program yang saya tambahkan :
Permainan Puzzle
Program Puzzle
yang saya buat lebih sederhana dengan memanfaatkan perulangan dan pemahaman
logika. Ketika from1 load posisi angka
langsung acak karena di dalam from1 load terdapat kode program untuk mengacak
angka dengan menggunakan perulangan for next, dan array. Control timer digunakan
untuk melakukan perintah secara berulang – ulang ketika timer aktif / enable.
Berikut tampilan
program ketika dijalankan :
Cara menjalankan
puzzle ini sangat mudah yaitu Ketika mengklik tombol acak, angka otomatis langsung mengacak. Setelah angka tersebut
teracak baru kita klik tombol mandeg
supaya angka yang tadi teracak tersebut berhenti, dan barulah kita
menyelesaikan puzzle sampai keluar peringatan “ Selamat anda berhasil “.
Berikut tempilan
puzzle yang sudah diselesaikan :
Ini kode programnya
:
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
ListBox1.Visible = False
Timer1.Enabled = False
Dim arrangka(0 To 8) As Integer
Dim angka, i, x, y As
Integer
Dim bt As
Windows.Forms.Control
For x = 0 To 8
Ulang:
Randomize()
angka = Int((9 * Rnd()) + 1)
For y = 0 To 8
If angka = arrangka(y) Then
GoTo Ulang
End If
Next y
arrangka(x) = angka
Next x
For i = 0 To 8
ListBox1.Items.Add(arrangka(i))
Next
satu.Text = ListBox1.Items(0)
dua.Text = ListBox1.Items(1)
tiga.Text = ListBox1.Items(2)
empat.Text = ListBox1.Items(3)
lima.Text = ListBox1.Items(4)
enam.Text = ListBox1.Items(5)
tujuh.Text = ListBox1.Items(6)
delapan.Text = ListBox1.Items(7)
sembilan.Text = ListBox1.Items(8)
For Each bt In Me.GroupBox1.Controls
If bt.Text = 9 Then
bt.Text = ""
End If
Next
ListBox1.Items.Clear()
End Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick
Dim arrangka(0 To 8) As Integer
Dim angka, i, x, y As
Integer
Dim bt As
Windows.Forms.Control
For x = 0 To 8
Ulang:
Randomize()
angka = Int((9 * Rnd()) + 1)
For y = 0 To 8
If angka = arrangka(y) Then
GoTo Ulang
End If
Next y
arrangka(x) = angka
Next x
For i = 0 To 8
ListBox1.Items.Add(arrangka(i))
Next
satu.Text = ListBox1.Items(0)
dua.Text = ListBox1.Items(1)
tiga.Text = ListBox1.Items(2)
empat.Text = ListBox1.Items(3)
lima.Text = ListBox1.Items(4)
enam.Text
= ListBox1.Items(5)
tujuh.Text = ListBox1.Items(6)
delapan.Text = ListBox1.Items(7)
sembilan.Text = ListBox1.Items(8)
For Each bt In Me.GroupBox1.Controls
If bt.Text = 9 Then
bt.Text = ""
End If
Next
ListBox1.Items.Clear()
End Sub
Private Sub
btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btacak.Click
If Timer1.Enabled = True
Then
While Timer1.Enabled = True
btacak.Text = "Acak"
Timer1.Enabled = False
End While
Else
While Timer1.Enabled = False
btacak.Text = "Mandeg"
Timer1.Enabled = True
End While
End If
End Sub
Dim temp As String
Private Sub
siji_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
satu.Click
If dua.Text = ""
Then
temp = dua.Text
dua.Text = satu.Text
satu.Text = temp
ElseIf empat.Text = ""
Then
temp = empat.Text
empat.Text = satu.Text
satu.Text = temp
End If
End Sub
Private Sub
loro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
dua.Click
If satu.Text = ""
Then
temp = satu.Text
satu.Text = dua.Text
dua.Text = temp
ElseIf tiga.Text = ""
Then
temp = tiga.Text
tiga.Text = dua.Text
dua.Text = temp
ElseIf lima.Text = ""
Then
temp = lima.Text
lima.Text = dua.Text
dua.Text = temp
End If
End Sub
Private Sub
telu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tiga.Click
If dua.Text = ""
Then
temp = dua.Text
dua.Text = tiga.Text
tiga.Text = temp
ElseIf enam.Text = ""
Then
temp = enam.Text
enam.Text = tiga.Text
tiga.Text = temp
End If
End Sub
Private Sub
papat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
empat.Click
If satu.Text = ""
Then
temp = satu.Text
satu.Text = empat.Text
empat.Text = temp
ElseIf lima.Text = ""
Then
temp = lima.Text
lima.Text = empat.Text
empat.Text = temp
ElseIf tujuh.Text = ""
Then
temp = tujuh.Text
tujuh.Text = empat.Text
empat.Text = temp
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
temp = dua.Text
dua.Text = lima.Text
lima.Text = temp
ElseIf enam.Text = ""
Then
temp = enam.Text
enam.Text = lima.Text
lima.Text = temp
ElseIf empat.Text = ""
Then
temp = empat.Text
empat.Text = lima.Text
lima.Text = temp
ElseIf delapan.Text = ""
Then
temp = delapan.Text
delapan.Text = lima.Text
lima.Text = temp
End If
End Sub
Private Sub
enem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
enam.Click
If tiga.Text = ""
Then
temp = tiga.Text
tiga.Text = enam.Text
enam.Text = temp
ElseIf lima.Text = ""
Then
temp = lima.Text
lima.Text = enam.Text
enam.Text = temp
ElseIf sembilan.Text = ""
Then
temp = sembilan.Text
sembilan.Text = enam.Text
enam.Text = temp
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"
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
temp = empat.Text
empat.Text = tujuh.Text
tujuh.Text = temp
ElseIf delapan.Text = ""
Then
temp = delapan.Text
delapan.Text = tujuh.Text
tujuh.Text = temp
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
temp = tujuh.Text
tujuh.Text = delapan.Text
delapan.Text = temp
ElseIf lima.Text = ""
Then
temp = lima.Text
lima.Text = delapan.Text
delapan.Text = temp
ElseIf sembilan.Text = ""
Then
temp = sembilan.Text
sembilan.Text = delapan.Text
delapan.Text = temp
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"
Then
MsgBox("Selamat Anda Berhasil")
End If
End Sub
Private Sub
sembilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
sembilan.Click
If enam.Text = ""
Then
temp = enam.Text
enam.Text = sembilan.Text
sembilan.Text = temp
ElseIf delapan.Text = ""
Then
temp = delapan.Text
delapan.Text = sembilan.Text
sembilan.Text = temp
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"
Then
MsgBox("Selamat Anda Berhasil")
End If
End Sub
End Class
.jpg)
