MDI FORM

Desain Form 1 seperti dibawah ini

Buatlah 3 form( form 1, form2, form3)

UbahPropertiIsMDIContainerpada form 1menjaditrue

Gunakan Dock pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah.

Untuk Form 2

Codingnya

PublicClassForm2

PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Me.MdiParent = Form1

EndSub

EndClass

Dan form 3

PublicClassForm3

PrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Me.MdiParent = Form1

EndSub

EndClass

Setelah di Run pada windows kita pilih cascade hasilnya seperti ini:

Dan horisontal seperti ini:

Dan yang terakhir vertikal:

NB:         1. Untuk Ribbon Sementara belum sempurna, karena kendala beberapa hal.

Isi Coding pada form 1::

PublicClassForm1

PrivateSub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

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

Form2.MdiParent = Me

Form2.Show()

EndSub

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

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

EndSub

PrivateSub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

EndSub

PrivateSub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click

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

Form2.Show()

Form3.Show()

EndSub

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

Me.LayoutMdi(MdiLayout.TileVertical)

Form2.Show()

Form3.Show()

EndSub

PrivateSub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

Form2.MdiParent = Me

Form2.Show()

EndSub

PrivateSub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Me.LayoutMdi(MdiLayout.TileVertical)

Form2.Show()

Form3.Show()

EndSub

PrivateSub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

Me.Close()

EndSub

PrivateSub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

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

Form2.Show()

Form3.Show()

EndSub

EndClass

Tugas 4

1.List Box

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox1.Items.Add(bil)
        Next

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.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

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim a, b As Integer
        b = ListBox2.Items.Count
        For a = 0 To b - 1
            Try
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            Catch ex As Exception
                b -= 1
            End Try
        Next

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox2.Items.Clear()
    End Sub
End Class
2.Radio Button

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True And RadioButton3.Checked = True Then
            TextBox1.Text = "ISTRI"
        ElseIf RadioButton2.Checked = True And RadioButton3.Checked = True Then
            TextBox1.Text = "SUAMI"
        ElseIf RadioButton1.Checked = True Or RadioButton2.Checked = True And RadioButton4.Checked = True Then
            TextBox1.Text = "JOMBLO"
        End If
    End Sub
3.Fibonacci

Private Sub Bttampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttampilkan.Click
        Dim bil As Integer
        Dim fibonaci(10) As Integer

        fibonaci(0) = 1
        fibonaci(1) = 1
        For bil = 2 To 9
            fibonaci(bil) = fibonaci(bil - 1) + fibonaci(bil - 2)
        Next
        For bil = 0 To 9
            ListBox1.Items.Add(fibonaci(bil))
        Next
    End Sub
4.Prima

 Dim bilangan(100) As String
        Dim x, y As Integer
        For x = 2 To 100
            If bilangan(x) <> " * " Then
                ListBox1.Items.Add(x)
                For y = 2 * x To 100 Step x
                    bilangan(y) = " * "
                Next
            End If
        Next
    End Sub
5.Check Box

  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

tugas 2 pemrograman visual

Program 1 variabel konstanta type data

1) Yang membuat program error yaitu alamat tidak menemukan tujuan yang jelas, tujuan yang terdekat              adalah pada const alamat = “Kuningan”, sedangkan di module adalah  Purwokerto”. Seharusnya pada program btalmtt1_Click baris alamat = “Kuningan” di beri tanda (‘) untuk non aktifkannya, dikarenakan sebelumnya tidak ada pendeklarasian alamat ( seharusnya Dim di ubah menjadi String )

2) Karena Pada tombol nama1 pendeklarasian nama sudah di masukan Dim nama As String. Nama = “Joni” sedangkan pada tombol nama2, nama belum di deklarasikan sehingga mengambil dari module. Pada Btalamat 1 dan tombol alamat2 sudah di deklarasikan di form1 dengan Conts alamat = “kuningan”

3)   Pada program bttambahumur1_Click baris Dim umur As Integer, seharusnya Dim diganti dengan Static agar saat ditekan tombol tambah umur 1, umur bertambah 1 dari sebelumnya.

4)  Pada form2 button – button seperti btnama, btalamat, dan btumur sudah menemukan target yang jelas pada module, pada btnama baris txtnama.Text = nama ada target di module yaitu Public const nama As String = “Joni Munandar” Pada btalamat juga ada target di module yaitu Public const alamat As String = “Purwokerto” Pada btumur juga ada target di module yaitu Public const umur As Integer = 17

PROGRAM 2 IF dan Case

Menurut pendapat saya, kekurangan pada program ini adalah combobox yang terdapat kode "TAS" yang belum ada listing programnya, maka jika program ini dijalankan akan keluar gambar seperti contoh yang saya buat di bawah ini :

gambar diatas menunjukkan kode "TAS" itu tidak perlu ada pada combobox tetapi bisa juga ditambaih listing program agar kode "TAS" bisa dijalankan 

dan inilah listing yang saya gunakan untuk memperbaiki prograam diatas.

case "TAS"

namabarang = "TAS"

harga = 150000

dan hasilnya adalah seperti di bawah ini

Demikianlah analisis program. terima Kasiiiihhh...

tugas 1

Public Class Form1

    Private Property pesan As MsgBoxResult

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

    End Sub

    Private Sub Ckode_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ckode.Click

       

    End Sub

    Private Sub Ckode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ckode.SelectedIndexChanged

        If Ckode.Text = "F001" Then

            Tnmbrg.Text = "kue tar"

            Thrg.Text = "10000"

        ElseIf Ckode.Text = "F002" Then

            Tnmbrg.Text = "Donat"

            Thrg.Text = "15000"

        ElseIf Ckode.Text = "F003" Then

            Tnmbrg.Text = "Roti bolu"

            Thrg.Text = "10000"

        Else

            Tnmbrg.Text = ""

            Thrg.Text = ""

        End If

    End Sub

    Private Sub Tjumbel_KeyPress(KeyAscii As Integer)

        If KeyAscii = 13 Then

            Ttotal.Text = (Thrg.Text) * Val(Tjumbel.Text)

        End If

    End Sub

    Private Sub Tjumbel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tjumbel.TextChanged

       

    End Sub

    Private Sub Ckeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ckeluar.Click

        pesan = MsgBox("Keluar Aplikasi?", vbQuestion + vbOKCancel, "Fajar Novi P")

        If pesan = vbOK Then

        End If

    End Sub

    Private Sub Ttotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ttotal.TextChanged

        Ttotal.Text = (Thrg.Text) * Val(Tjumbel.Text)

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

End Class