Senin, 12 November 2012

TUGAS 3 VISUAL BASIC



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