TUGAS 3 PEMROGRAMAN VISUAL BASIC
Soal 1 memodifikasi
IF dan Case
1.
Membuka program
yg IF dan Case yg telah dibuat
2.
Tambahkan satu
button yaitu button isi data. Saat
form dijalankan, semua isian tidak aktif, tombol Isi data dan tutup aktif,
tombol clear tidak aktif.
3.
Pertama-tama tambahkan dua buah panel yang digunakan untuk menampung tombol Isi data
dan tombol Tutup. Langkah ini saya lakukan agar saat menonaktifkan enable dari
Button, kedua tombol tersebut tidak ikut tetap enable. Kemudian tambahkan kode
program berikut pada sub form1_load agar semua isian dan tombol clear tidak
aktif.
Dim control As
Windows.Forms.Control
For Each control In Me.Controls
If control.GetType.Name = "TextBox"
Or control.GetType.Name = "Button" Or
control.GetType.Name = "ComboBox"
Or control.GetType.Name = "RadioButton" Then
control.Enabled = False
End If
Next
End Sub
4.
Pada saat tombol isi data
ditekan, kode barang, jumlah barang, cara
beli dan tombol clear aktif, tombol Isi data tidak aktif. Agar dapat
berjalan sesuai dengan ketentuan tersebut. tambahkan kode program berikut pada
tombol Isi data :
5.
Saat ditekan tombol clear, sama
seperti saat pertama dijalankan. Pada langkah ini, tambahkan kode program
berikut di sub btnclear :
SOAL 2 PUZZLE
1.
Langkah pertama setelah project
Windows Form Aplication telah siap adalah memasukkan dan menyusun tombol-tombol
di dalam form seperti berikut :
2.
Button1-button9 merupakan puzzle
yang akan dimainkan, teks-nya diganti dengan angka 1-8, dan button9 diisi
dengan "" (kosong). Dua buah button yang ada di bawah puzzle
digunakan untuk mengacak angka pada puzzle, kemudian menghentikan pengacakan
dan tombol keluar untuk keluar dari program.
3.
Tombol acak berada di bawah tombol
stop yang setingan visible-nya dibuat false sehingga tidak terlihat saat
pertama program dijalankan. Saat tombol acak di-klik, saya rubah visible tombol
stop menjadi true sehingga yang terlihat adalah tombol stop. Kemudian saat
tombol stop di-klik, visibelnya saya kembalikan menjadi false sehingga tombol
acak yang akan terlihat lagi. Berikut kode program untuk tombol acak, stop dan
keluar :
Dim temp As String
ivate Sub Button12_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles btstop.Click
btstop.Visible = False
Timer1.Stop()
End Sub
Private Sub
btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btacak.Click
btstop.Visible = True
Timer1.Start()
End Sub
Private Sub
Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btkeluar.Click
Me.Close()
End Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick
If btacak.Visible = True
Then
temp = bt1.Text
bt1.Text = bt3.Text
bt3.Text = bt5.Text
bt5.Text = temp
temp = bt7.Text
bt7.Text = bt2.Text
bt2.Text = bt4.Text
bt4.Text = bt8.Text
bt8.Text = bt6.Text
bt6.Text = temp
End If
End Sub
4.
Timer digunakan untuk mengacak angka
pada puzzle. Saat tombol acak di-klik, timer saya aktifkan dengan perintah Timer1.Start(),
dan perintah yang ada pada Timer1 akan dijalankan, yaitu menukar teks pada
button1-button9 secara acak.
5.
Setelah angka pada puzzle teracak,
untuk dapat dimainkan saya berikan perintah pada button1-button9 untuk menukar
nilai text yang ada pada tombol yang di-klik dengan nilai text pada tombol di
sebelahnya apabila tombol di sebelahnya tersebut nilai text-nya kosong. Maka
saya menggunakan perintah if dan didalam perintah if tersebut saya masukkan
perintah untuk menukar nilai text dari kedua tombol yang bersebelahan tersebut.
Berikut ini kode programnya :
Private Sub bt1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt1.Click
If bt2.Text = ""
Then
temp = bt1.Text
bt1.Text = bt2.Text
bt2.Text = temp
End If
If bt4.Text = ""
Then
temp = bt1.Text
bt1.Text = bt4.Text
bt4.Text = temp
End If
End Sub
Private Sub
bt2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt2.Click
If bt1.Text = ""
Then
temp = bt2.Text
bt2.Text = bt1.Text
bt1.Text = temp
End If
If bt3.Text = ""
Then
temp = bt2.Text
bt2.Text = bt3.Text
bt3.Text = temp
End If
If bt5.Text = ""
Then
temp = bt2.Text
bt2.Text = bt5.Text
bt5.Text = temp
End If
End Sub
Private Sub
bt3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt3.Click
If bt2.Text = ""
Then
temp = bt3.Text
bt3.Text = bt2.Text
bt2.Text = temp
End If
If bt6.Text = ""
Then
temp
= bt3.Text
bt3.Text = bt6.Text
bt6.Text = temp
End If
End Sub
Private Sub
bt4_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt4.Click
If bt5.Text = ""
Then
temp = bt4.Text
bt4.Text = bt5.Text
bt5.Text = temp
End If
If bt1.Text = ""
Then
temp = bt4.Text
bt4.Text = bt1.Text
bt1.Text = temp
End If
If bt7.Text = ""
Then
temp = bt4.Text
bt4.Text = bt7.Text
bt7.Text = temp
End If
End Sub
Private Sub
bt5_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt5.Click
If bt8.Text = ""
Then
temp = bt5.Text
bt5.Text = bt8.Text
bt8.Text = temp
End If
If bt6.Text = ""
Then
temp = bt5.Text
bt5.Text = bt6.Text
bt6.Text = temp
End If
If bt2.Text = ""
Then
temp = bt5.Text
bt5.Text = bt2.Text
bt2.Text = temp
End If
If bt4.Text = ""
Then
temp = bt5.Text
bt5.Text = bt4.Text
bt4.Text = temp
End If
End Sub
Private Sub
bt6_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt6.Click
If bt9.Text = ""
Then
temp = bt6.Text
bt6.Text = bt9.Text
bt9.Text = temp
End If
If bt3.Text = ""
Then
temp = bt6.Text
bt6.Text = bt3.Text
bt3.Text = temp
End If
If bt5.Text = ""
Then
temp = bt6.Text
bt6.Text = bt5.Text
bt5.Text = temp
End If
End Sub
Private Sub
bt7_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt7.Click
If bt8.Text = ""
Then
temp = bt7.Text
bt7.Text = bt8.Text
bt8.Text = temp
End If
If bt4.Text = ""
Then
temp = bt7.Text
bt7.Text = bt4.Text
bt4.Text = temp
End If
End Sub
Private Sub
bt8_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt8.Click
If bt9.Text = ""
Then
temp = bt8.Text
bt8.Text = bt9.Text
bt9.Text = temp
End If
If bt5.Text = ""
Then
temp = bt8.Text
bt8.Text = bt5.Text
bt5.Text = temp
End If
If bt7.Text = ""
Then
temp = bt8.Text
bt8.Text = bt7.Text
bt7.Text = temp
End If
End Sub
Private Sub
bt9_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles bt9.Click
If bt8.Text = ""
Then
temp = bt9.Text
bt9.Text = bt8.Text
bt8.Text = temp
End If
If bt6.Text = ""
Then
temp = bt9.Text
bt9.Text = bt6.Text
bt6.Text = temp
End If
If (Bt1.Text = "1"
And Bt2.Text = "2"
And Bt3.Text = "3"
And Bt4.Text = "4"
And Bt5.Text = "5"
And Bt6.Text = "6"
And Bt7.Text = "7"
And Bt8.Text = "8"
And Bt9.Text = "")
Then
MsgBox(" SELAMAT ANDA BERHASIL!")
End If
End Sub
End Class
6.
maka ini hasilnya,
Selamat mencoba yaahh
(^_^)
Tidak ada komentar:
Posting Komentar