TUGAS 7

Latihan Membuat MDI FORM

·         Buatlah desain form seperti berikut ini :

:

  

Setelah itu Ubah Properti IsMDIContainer pada form 1  menjadi true

Gunakan Dock pada properties untuk memindahkan tempat standar bar dikiri, kanan, atas, tengah ataupun tidak diberi (None)

Lalu beri coding seperti di bawah ini :

Public Class Form1

    Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

        Form2.Show()

        Form3.Show()

    End Sub

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

        Form2.Show()

        Form3.Show()

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

        Form2.Show()

        Form3.Show()

    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesTileHorizontalToolStripMenuItem.Click

        Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

        Form2.Show()

        Form3.Show()

    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

        Form2.Show()

        Form3.Show()

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles ToolStripMenuItem2.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles ToolStripButton1.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

        Form2.Show()

        Form3.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles ToolStripButton2.Click

        Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

        Form2.Show()

        Form3.Show()

    End Sub

End Class

Setelah itu

·         Buatlah desain Form seperti ini untuk Form 2

Lalu beri coding seperti di bawah ini :

Public Class Form2

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

        Me.MdiParent = Form1

    End Sub

End Class

·          Buatlah desain form seperti di bawah ini untuk Form 3

Lalu isikan coding di bawah ini pada form 3

Public Class Form3

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

        Me.MdiParent = Form1

    End Sub

End Class

Setelah semua selesai   coba RUN program tersebut, dan hasilnya akan seperti ini  .     Jika pilih Cascade akan keluar hasil RUN seperti ini

·      ·         Coba pilih Tile Horizontal dan hasil RUN akan seperti ini

             Coba pilih Tile Vertical dan hasil RUN akan seperti ini

TUGAS 4

PEMROGRAMAN VISUAL

• Membuat Program Fibonanci               

Buatlah desain Form seperti di bawah ini :

• Lalu setelah dibuat isikan coding di bawah ini ke dalam Listbox1 :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Dim fibo(19) As Integer

        Dim ulang As Integer

        fibo(0) = 1

        fibo(1) = 1

        For ulang = 2 To 19

            fibo(ulang) = fibo(ulang - 2) + fibo(ulang - 1)

        Next

        For ulang = 0 To 19

            ListBox1.Items.Add(fibo(ulang))

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVale As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

End Class

• Setelah itu isikan Button Proses dengan koding di bawah ini :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Dim fibo(19) As Integer

        Dim ulang As Integer

        fibo(0) = 1

        fibo(1) = 1

        For ulang = 2 To 19

            fibo(ulang) = fibo(ulang - 2) + fibo(ulang - 1)

        Next

        For ulang = 0 To 19

            ListBox1.Items.Add(fibo(ulang))

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVale As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

End Class

Setelah selesai, coba Run project tersebut

,dan akan keluar gambar seperti di bawah ini

Cobalah klik Proses, dan akan keluar hasil seperti di bawah ini

• Membuat Program Checkbox bahasa

Buatlah sebuah desain Form seperti dibawah ini :

lalu isikan Button proses dengan listing program di bawah ini.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim control As Windows.Forms.CheckBox

        TextBox1.Text = ""

        For Each control In Me.GroupBox1.Controls

            If control.Checked = True Then

                TextBox1.Text &= control.Text & ","

            End If

        Next

        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)

    End Sub

Setelah itu, coba RUN program tersebut, dan akan keluar program seperti di bawah

lalu coba pilih bahasa , ex: seperti gambar dibawah lalu klik Proses

• Membuat Program dengan menggunakan RadioButton

Buatlah desain form seperti di bawah ini

lalu isikan koding seperti dibawah ini

Public Class Form1

    Private Sub RbKawin_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles RbKawin.CheckedChanged

        TextBox1.Text = ""

        If RbPria.Checked = True Then

        Else

            TextBox1.Text &= "Istri"

        End If

        If RbWanita.Checked = True Then

        Else

            TextBox1.Text &= "Suami"

        End If

    End Sub

  

    Private Sub RbTdkwin_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles RbTdkwin.CheckedChanged

        TextBox1.Text = ""

        If RbPria.Checked = True Then

        Else

            TextBox1.Text &= ""

        End If

        If RbWanita.Checked = True Then

        Else

            TextBox1.Text &= ""

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

lalu coba RUN program ,akan keluar gambar seperti di bawah ini

coba pilih salah satu pilihan ,ex: seperti gambar di bawah ini

• Membuat Listbox

Buatlah desain form seperti di bawah ini

lalu masukkan coding di bawah pada button isi

Public Class Form1                        

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Dim control As Windows.Forms.ListBox

        TextBox1.Text = TextBox1.Text

        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)

    End Sub

setelah itu masukkan coding pada button 1-10 seperti di bawah ini

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

        For bil = 1 To 10

            ListBox1.Items.Add(bil)

        Next

    End Sub

masukkan koding ini pada button satu>

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Satu.Click

        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)

    End Sub

masukkan koding ini pada button beberapa>

  Private Sub Bt_Beberapa_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Beberapa.Click

        ListBox1.SelectionMode = SelectionMode.MultiExtended

        Dim i, j As Integer

        j = ListBox1.Items.Count

        For i = 0 To j - 1

            Try

                ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))

            Catch ex As Exception

                j -= 1

            End Try

        Next

    End Sub

masukkan koding ini pada button semua>

Private Sub Bt_Semua_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Semua.Click

        ListBox1.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox1.Items.Count

        For i = 0 To Jumlah - 1

            ListBox2.Items.Add(ListBox1.Items(i))

        Next

    End Sub

masukkan koding ini pada button hapus satu

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Hapus_Satu.Click

        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)

    End Sub

masukkan koding ini pada button hapus beberapa

  Private Sub Bt_Hapus_Beberapa_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Hapus_Beberapa.Click

        ListBox2.SelectionMode = SelectionMode.MultiExtended

        Dim i, j As Integer

        j = ListBox2.Items.Count

        For i = 0 To j - 1

            Try

                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)

            Catch ex As Exception

                j -= 1

            End Try

        Next

    End Sub

masukkan koding di bawah ini pada button hapus semua

Private Sub Bt_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bt_Hapus_Semua.Click

        ListBox2.Items.Clear()

    End Sub

masukkan koding ini pada button keluar

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button9.Click

        Me.Close()

    End Sub

setelah itu RUN program tersebut,dan akan keluar program seperti di bawah ini

lalu coba isikan ,ex: seperti gambar di bawah ini