TUGAS

A.     FUNCTION DENGAN RETURN VALUE BERUPA ARRAY

Langkah-langkah

a.  Desain form seperti dibawah ini:

b.  Lalu masukan listing programnya seperti dibawah ini;

PublicClassForm4

PrivateFunction fstat(ByValParamArray args() AsObject) AsSingle()

Dim hasil(3) AsSingle

Dim i AsInteger

For i = 0 To UBound(args)

                hasil(0) = hasil(0) + args(i)

If i = 0 Then

                        hasil(1) = args(i)

                hasil(2) = args(i)

EndIf

If hasil(1) > args(i) Then hasil(1) = args(i)

If hasil(2) < args(i) Then hasil(2) = args(i)

Next i

Return hasil

EndFunction

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

Dim statistik AsSingle() = fstat(21, 12, 4, 8, 7, 20, 5)

        TextBox1.Text = statistik(0)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

        TextBox3.Text = statistik(2)

EndSub

EndClass

c.       Kemudian di run,Setelah di Run klik tombol hitung hasilnya seperti berikut:

B.     OVERLOADING FUNCTION

Langkah-langkah

a.      Desain form seperti dibawah ini

PublicClassForm5

Function hitung(ByVal bil1 AsInteger, ByVal bil2 AsInteger) AsInteger

        hitung = bil1 + bil2

EndFunction

Function hitung(ByVal bil1 AsInteger, ByVal bil2 AsInteger, ByVal bil3 AsInteger) AsInteger

        hitung = bil1 + bil2 + bil3

EndFunction

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

        TextBox1.Text = hitung(23, 10, 30)

EndSub

EndClass

b.      Setelah di run dan di klik hitung hasilnya seperti dibawah ini:

TUGAS 7

1. Listing program untuk tugas ke 7

Public Class Form1

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

Form3.MdiParent = Me

Form2.MdiParent = Me

Form2.Show()

Form3.Show()

End Sub

Private Sub Tugas2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2ToolStripMenuItem.Click

Form2.MdiParent = Me

Form4.MdiParent = Me

Form2.Show()

Form4.Show()

End Sub

Private Sub Tugas3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3ToolStripMenuItem.Click

Form4.MdiParent = Me

Form3.MdiParent = Me

Form4.Show()

Form3.Show()

End Sub

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

Form3.MdiParent = Me

Form3.Show()

End Sub

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

Form4.MdiParent = Me

Form4.Show()

End Sub

Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

Me.Close()

End Sub

Private Sub CasadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CasadeToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

End Sub

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

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

End Sub

Private Sub TileVerticalToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem1.Click

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

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

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

End Sub

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

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

End Class

Pengaturan untuk MDI Child agar di buat

1. Cascade
2. Horizontal
3. Vertical

Langkah-langkah

1. Pertama kita buat MDI form agar dapat menampilkan beberapa form
2. Kedua Pada masing-masing form pada properties pilih IsMdiContair yang awalnya false kita rubah menjadi true
3. Ketiga kita debug
   
   
   

Tampilan utama setelah di run

4. Kemudian pilih tugas> tugas1
   
   
   

Tampilan setelah kita pilih tugas1

5. Agar tampilan berubah menjadi cascade kita pilih windows kemudian pilih cascade / kita pilih button sebelah kanan 
   
    

Tampilan setelah kita pilih cascade

6. tampilan berubah menjadi horizontal kita pilih windows kemudian pilih horizontal / kita pilih button sebelah kanan 
   
    

Tampilan setelah kita pilih horizontal

7. tampilan berubah menjadi vertical kita pilih windows kemudian pilih vertical/ kita pilih button sebelah kanan 
   
   
   
    

Tampilan setelah kita pilih vertical

Terima kasihhhhhhhhh