Selasa, 11 Desember 2012

TUGAS 7 PEMROGRAMAN VISUAL

  • Membuat MDI form minimal mempunyai form anak sebanyak 4
  • Membuat menu vertikal, horizontal dan cascade
  • Aturlah posisi menu dan toolbar sesuai keinginan
  • Membuat menu library tambahan

Jawaban


1.  Buatlah project baru, dengan mengklik file - new - project
2.  Langkah berikutnya, pada toolbox windows form menu dan toolbar, Kemudian pilih Menu strip(menu utama pada aplikasi yang akan dibuat).
3.  Pada Menu file ditambahkan empat menu misal : '' Tabel1, Tabel2, Tabel3, Tabel4 ''. Pada Menu tampilan tambahkan juga Menu '' Vertikal, Horizontal, Cascade ''.

 
                                Gambar. Tampilan Cascade



                               Gambar. Tampilan Vertikal

                               Gambar. Tampilan Horizontal

4. Untuk mengaktifkan MDI form pilih IsMdiContainer pada proprties, lalu pilih True

Gambar. Tampilan Mengaktifkan IsMdiContainer

5. Berikut ini adalah cording program di atas :

Untuk menapilkan Form supaya berada didalam menu strip :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.MdiParent = Me
        Form3.MdiParent = Me
        Form4.MdiParent = Me
        Form5.MdiParent = Me
    End Sub

Dibawah ini adalah cording untuk menampilkan tabel1 sampai tabel4 :
    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form2.Show()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Form3.Show()
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Form4.Show()
    End Sub


Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        Form5.Show()
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

    End Sub

    Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click

    End Sub

Untuk menampilkan Cascade :
    Private Sub CascedeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascedeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

Untuk menampilkan Vertikal :
    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

Untuk menampilkan Horizontal :
    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
 End Class





Diposting oleh di Tidak ada komentar:

Senin, 29 Oktober 2012

Tugas 3



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




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