Tugas 3 Memodifikasi Program if case Dan Membuat Game Fuzzle

Untuk  tugas kali ketiga ini saya d suruh memodifikasi program if case yg sebelumnya sudah saya postkan. Berikut ini pertanyaan untuk memodifikasi programnya,

Pertanyaan :

1. Saat form dijalankan semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif.

2 .Saat ditekan tombol isi data kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif.

3 .Saat ditekan tombol clear sama dengan saat form dijalankan.

Jawab :

1. pada form_load kita tambahkan ”Dim a As Windows.Forms.Control For Each a In Me.Controls a.Enabled = False btnkeluar.Enabled =True btnisi.Enabled = True Next ” untuk mengaktifkan tombol isi data dan keluar, serta mematikan tombol hapus agar tidak berfungsi, berikut tampilan programnya

2. tombol hapus aktiv dan form isian juga aktiv (nama barang, harga, jumlah barang, total bayar “read only”)

 

3. Setelah di klik hapus makan form akan kembali ke form load, yaitu tombol isi data dan keluar aktiv, sedang tombol hapus tidak berfungsi, dengan menambahkan code pda tombol hapus “ Dim b As Windows.Forms.Control For Each b In Me.Controls b.Enabled = False btnkeluar.Enabled = True  btnisi.Enabled = True Next “.

Demikian Pembahasan Modifikasi Program “If Case” .Mohon maaf jika ada kesalahan atau kekurangan dari analisis saya karena saya juga masih dalam tahap belajar. ^_^

##Membuat Game Fuzzle

Dalam Program ini saya menggunakan : 1 form, 1 label, serta 11 button. 

Berikut tampilan program game jika sudah berhasil memainkan/mengurutkan nomor,

Untuk membuat program game diatas anda harus membuat desain formnya seperti di atas menggunakan 1 form, 1 label, serta 11 button. jika sudah klik 2x pada form1 (game fuzzle) dan tuliskan source kode nya, sebagai berikut :

Public Class Form1

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
If MsgBox(“Do you wont to close?”, 4 + 32 + 256, “Close”) = 6 Then
Me.Close()
End If
End Sub

Dim q As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For Each Control In Me.Controls
Control.enabled = True
btnreset.Enabled = True
btnclose.Enabled = True
q = bt1.Text
bt1.Text = bt5.Text
bt5.Text = bt2.Text
bt2.Text = bt7.Text
bt7.Text = bt3.Text
bt3.Text = bt8.Text
bt8.Text = bt6.Text
bt6.Text = bt4.Text
bt4.Text = bt3.Text
bt3.Text = q
Next
End Sub
Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
Application.Reset()

End Sub

Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
If bt2.Text = “” Then
bt2.Text = bt1.Text
bt1.Text = “”
ElseIf bt4.Text = “” Then
bt4.Text = bt1.Text
bt1.Text = “”
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″ Then
MsgBox(“You're the winner!!!”)
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
bt1.Text = bt2.Text
bt2.Text = “”
ElseIf bt3.Text = “” Then
bt3.Text = bt2.Text
bt2.Text = “”
ElseIf bt5.Text = “” Then
bt5.Text = bt2.Text
bt2.Text = “”
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″ Then
MsgBox(“You're the winner!!!”)
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
bt2.Text = bt3.Text
bt3.Text = “”
ElseIf bt6.Text = “” Then
bt6.Text = bt3.Text
bt3.Text = “”
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″ Then
MsgBox(“You're the winner!!!”)

End If
End Sub

Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
If bt1.Text = “” Then
bt1.Text = bt4.Text
bt4.Text = “”
ElseIf bt7.Text = “” Then
bt7.Text = bt4.Text
bt4.Text = “”
ElseIf bt5.Text = “” Then
bt5.Text = bt4.Text
bt4.Text = “”
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″ Then
MsgBox(“You're the winner!!!”)

End If
End Sub

ini sebagian source codenya.

Demikian tugas ini saya buat, semoga bermanfaat.Mohon maaf jika ada kesalahan atau kekurangan dari analisis saya karena saya juga masih dalam tahap belajar. ^_^