TUGAS V- Return Value Function, Overloading function & Beberapa function bawaan VB.

TUGAS V- Return Value Function, Overloading function & Beberapa function bawaan VB.

oke, ketemu lagi dengan tugas Visual Basic (VB). tugas kali ini adalah return value function, overloading function dan juga beberapa function bawaan dari VB. berikut adalah penjelasan dari masing-masing  pertanyaan atau tugas di atas:

• Return Value Function (segera hadir... ^_^)

 

• Overloading Function

Overloading function merupakan beberapa fungsi yang memiliki perintah berbeda tetapi namanya sama. Sebagai contoh adalah program dibawah ini. Terdapat 2 Fuction hitung pada program ini namun program hanya akan menjalankan salah satunya saja.

  

Pada contoh diatas program menjalankan function hitung yang ke-2 yang memiliki perintah :
hitung = bil4 + bil7 + bil11

• Beberapa Function Bawaan Visual Basic

Msg Box() Function
Fungsi dari MsgBox adalah untuk menghasilkan kotak pesan/ pop-up dan meminta pengguna untuk mengklik pada tombol perintah yang disediakan, sebelum bisa melanjutkan ke perintah selanjutnya.
Contoh :
MsgBox(“Apa anda akan lanjut belajar VB?”, MsgBoxStyle.OkCancel, “MsgBox”)

InputBox() Function
Fungsi InputBox () akan menampilkan kotak pesan di mana pengguna dapat memasukkan nilai atau pesan kedalamnya.
Contoh :
InputBox(“Masukan nilai VB anda!”, “InputBox”)

dan masih banyak function yang tidak sempat ditulis di sini.

sekian penjelasan dari tugas ke lima. thanks for your understanding...  ^_^

 

TUGAS IV

TUGAS IV-RANCANGAN APLIKASI MENU & TOOLBAR DI VB.

kembali lagi saya bergelut dengan kuliah VB, sekitar satu bulan sudah tidak mengunjungi blog ini karena UTS. kini saatnya mencoba untuk memulainya lagi dengan adanya tugas yang diberikan. pembahasan kali adalah mengenai aplikasi menu & toolbar. berikut adalah tampilan awal yang saya coba buat :

dalam membuat tampilan seperti di atas, maka dibutuhkan komponen-komponen seperti contextMenuStrip, toolstrip dan juga button sehingga akan menampilkan seperti gambar di bawah ini

 

 

selanjutnya adalah menu-menu yang ada dalam aplikasi di atas. antara lain :

• menu latihan
• menu tugas
• menu exit
• dll.

apabila kita klik pada latihan1, maka akan muncul form seperti di bawah

dan selanjutnya kita klik pada latihan 3, maka form selanjutnya adalah seperti gambar di bawah ini

dan begitu juga dengan library yang di bawah nya. seperti menu pilihan dan kontrol. maka akan muncul seperti tampilan di atas.

apabila kita ingin keluar dari aplikasi, maka pilih menu exit, dan pilih keluar.
berikut adalah koding dari program di atas :

Public Class Form1

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me
        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Form3.Show()
        Form3.MdiParent = Me
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

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

    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click
        Form4.Show()
        Form4.MdiParent = Me
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

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

    End Sub

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

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.MdiParent = Me
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form3.Show()
        Form3.MdiParent = Me
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form4.Show()
        Form4.MdiParent = Me
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
End Class


terima kasih atas perhaatiannya. semoga bermanfaat...

^_^