Selasa, 30 Oktober 2012

Daftar Tugas-tugas Pemrograman Visual

Nama : Miftah arifudin
NIM : 11.11.1980
Kelas : TI 11 Sore

1. Tugas Pemrograman Visual 1
2. Tugas Pemrograman Visual 2
3. Tugas Pemrograman Visual 3
4. Tugas Pemrograman Visual 4
Diposting oleh di Tidak ada komentar:

Tugas 3 Pemprograman Visual



Memodifikasi Program  dan Membuat Permainan Puzzle

A. Memodifikasi Program

Program ini merupakan  tugas 2 pemrograman visual Latihan if dan case. Pada kali ini akan menampilkan listing dari modifikasi program tersebut. 


Berikut listing programnya saat dijalankan:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            cmbkode.Enabled = False
            btnclear.Enabled = False
            btnisidata.Enabled = True
            btntutup.Enabled = True
            txtnama.Enabled = False
            txtharga.Enabled = False
            txtjumlah.Enabled = False
            txtdiskon.Enabled = False
            txttotal.Enabled = False
            txtbayar.Enabled = False
            radiotunai.Enabled = False
            radiokredit.Enabled = False
        Next
    End Sub

1. Pada saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isi data tidak aktif

 

1.     
Bertikut listing programnya saat menekan tombol isi data:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            cmbkode.Enabled = False
            btnclear.Enabled = False
            btnisidata.Enabled = True
            btntutup.Enabled = True
            txtnama.Enabled = False
            txtharga.Enabled = False
            txtjumlah.Enabled = False
            txtdiskon.Enabled = False
            txttotal.Enabled = False
            txtbayar.Enabled = False
            radiotunai.Enabled = False
            radiokredit.Enabled = False
        Next         

    End Sub

  2. isi data-data tersebut seperti dibawah ini:
 
3. Pada Saat ditekan combol clear sama dengan saat form dijalankan  

listing programnya adalah
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            cmbkode.Enabled = False
            btnclear.Enabled = False
            btnisidata.Enabled = True
            btntutup.Enabled = True
            txtnama.Enabled = False
            txtharga.Enabled = False
            txtjumlah.Enabled = False
            txtdiskon.Enabled = False
            txttotal.Enabled = False
            txtbayar.Enabled = False
            radiotunai.Enabled = False
            radiokredit.Enabled = False
        Next


        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        txtbayar.Clear()
        cmbkode.Text = " "

    End Sub
 
B. Permainan Puzzle
Langkah-langkah dalam membua Puzzle adalah sebagai berikut:

1. Buat 1 form dan 9 Button, dengan Name Button: btn1, btn2, btn3, btn4,  btn5, btn6, btn7, btn8, dan btn9.
2. Ubah Text Form1: Puzzle, dan ubah Text masing-masing button dari btn1: 1 seterusnya sampai btn8: 8. Untuk btn9 tidak diberi Text (kosong).
3. Pada saat form dijalankan posisi angka acak, seperti gambar dibawah ini:



Listing program adalah :

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
            If control.GetType.Name = "Button" Then
                btn1.Text = "6"
                btn2.Text = "1"
                btn3.Text = "8"
                btn4.Text = "7"
                btn5.Text = "5"
                btn6.Text = "2"
                btn7.Text = "4"
                btn8.Text = "3"
                btn9.Text = " "
            End If
        Next

    End Sub

4. Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8.

Berikut listing programnya:

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        Dim tuker As String
        If btn2.Text = " " Then
            tuker = btn1.Text
            btn1.Text = btn2.Text
            btn2.Text = tuker
        ElseIf btn4.Text = " " Then
            tuker = btn1.Text
            btn1.Text = btn4.Text
            btn4.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        Dim tuker As String
        If btn1.Text = " " Then
            tuker = btn2.Text
            btn2.Text = btn1.Text
            btn1.Text = tuker
        ElseIf btn3.Text = " " Then
            tuker = btn2.Text
            btn2.Text = btn3.Text
            btn3.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn2.Text
            btn2.Text = btn5.Text
            btn5.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        Dim tuker As String
        If btn2.Text = " " Then
            tuker = btn3.Text
            btn3.Text = btn2.Text
            btn2.Text = tuker
        ElseIf btn6.Text = " " Then
            tuker = btn3.Text
            btn3.Text = btn6.Text
            btn6.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        Dim tuker As String
        If btn1.Text = " " Then
            tuker = btn4.Text
            btn4.Text = btn1.Text
            btn1.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn4.Text
            btn4.Text = btn5.Text
            btn5.Text = tuker
        ElseIf btn7.Text = " " Then
            tuker = btn4.Text
            btn4.Text = btn7.Text
            btn7.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        Dim tuker As String
        If btn2.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn2.Text
            btn2.Text = tuker
        ElseIf btn4.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn4.Text
            btn4.Text = tuker
        ElseIf btn6.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn6.Text
            btn6.Text = tuker
        ElseIf btn8.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn8.Text
            btn8.Text = tuker
        End If
        benar()
    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        Dim tuker As String
        If btn9.Text = " " Then
            tuker = btn6.Text
            btn6.Text = btn9.Text
            btn9.Text = tuker
        ElseIf btn3.Text = " " Then
            tuker = btn6.Text
            btn6.Text = btn3.Text
            btn3.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn6.Text
            btn6.Text = btn5.Text
            btn5.Text = tuker
        End If
        benar()
    End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        Dim tuker As String
        If btn4.Text = " " Then
            tuker = btn7.Text
            btn7.Text = btn4.Text
            btn4.Text = tuker
        ElseIf btn8.Text = " " Then
            tuker = btn7.Text
            btn7.Text = btn8.Text
            btn8.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        Dim tuker As String
        If btn9.Text = " " Then
            tuker = btn8.Text
            btn8.Text = btn9.Text
            btn9.Text = tuker
        ElseIf btn7.Text = " " Then
            tuker = btn8.Text
            btn8.Text = btn7.Text
            btn7.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn8.Text
            btn8.Text = btn5.Text
            btn5.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        Dim tuker As String
        If btn6.Text = " " Then
            tuker = btn9.Text
            btn9.Text = btn6.Text
            btn6.Text = tuker
        ElseIf btn8.Text = " " Then
            tuker = btn9.Text
            btn9.Text = btn8.Text
            btn8.Text = tuker
        End If
        benar()
    End Sub

5. Dan pada  saat angka sudah tersusun maka akan ada  pesan selamat anda berhasil
Berikut listing programnya:

Private Sub benar()
        If btn1.Text = "1" And btn2.Text = "2" And btn3.Text = "3" And btn4.Text = "4" And btn5.Text = "5" And btn6.Text = "6" And btn7.Text = "7" And btn8.Text = "8" Then
            MessageBox.Show("SELAMAT ANDA BERHASIL")
        End If

    End Sub


sekian dan terima kasih
mohon maaf kalo banyak salah
 
 

 








Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)