Return Value Function, Overloading Functon & Beberapa Function Bawaan Visual Basic


Return Value Function
Berikut ini adalah contoh function dengan menggunakan return value berupa array :

Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
        Dim i As Integer
        For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
        Next i
        Return hasil
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(1, 6, 2)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
End Sub

Hasil dari contoh diatas kita bisa melihatnya pada form berikut ini :

Tampilan Form

Tampilan Form

Dari contoh diatas kita bisa lihat terdapat sebuah function bernama fstat yang berfungsi untuk menghasikan hasil berupa jumlah, nilai terbesar dan nilai terkecil yang semuanya ditampung di dalam variabel array hasil(3). Ketiga isi dari variabel yang dihasilkan dari function diatas yaitu :

  • hasil(0)/ jumlah
  • hasil(1)/ nilai terbesar
  • hasil(2)/ nilai terkecil

kemudian di kirimkan melaui perintah : Return hasil
ke variabel statistik yang ada pada Private Sub Button1_Click dan menampilkannya  pada :

  • TextBox1 sebagai jumlah/ statistik(0)
  • TextBox2 sebagai nilai terbesar/ statistik(1)
  • TextBox3 sebagai nilai terkecil/ statistik(2)

Overloading Function
Overloading function dalah 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.

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
End Function

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
End Sub

Program memilih sendiri function yang tepat, tergantung pada perintah di tombol.

Program memilih sendiri function yang tepat, tergantung pada perintah di tombol “Tampilkan”.

Pada contoh diatas program menjalankan function hitung yang ke-2 yang memiliki perintah :
hitung = bil1 + bil2 + bil3

Beberapa Function Bawaan Visual Basic

  • Msg Box()
    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”)
Tampila MsgBox

Tampilan MsgBox

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

Tampilan InputBox

Sekian post saya kali ini, Teguh Pramono.

Iklan

Perancangan Menu & Toolbar pada Visual Basic 2010


Oke, jumpa lagi dengan saya. Kali ini saya akan sedikit berbagi dengan anda mengenai pembuatan menu pada Microsoft Visual Basic 2010. Langung saja, rancangan program saya kali ini adalah “Database Toko Sumber Makmur“. Di dalam program ini terdapat berbagai macam sub menu, seperti Input, Edit, Laporan, Jendela dan juga menu Bantuan. Berikut ini tampilan saat program dijalankan :

Tampilan Awal

Tampilan Awal

Dari tampilan ini bisa kita lihat menu-menu yang tersedia, sebagai contoh menu Input yang yang didalamnya terdapat 4 sub menu seperti gambar dibawah.

Menu Input

Menu Input

Saat kita klik kanan di area kosong pada program akan muncul dua menu yaitu : Cara Penggunaan dan Tentang Program

Saat klik kanan muncul 2 buah menu.

Saat Klik Kanan pada area kosong muncul 2 buah menu

Ketika kita meng-klik menu Input Data Barang dan Input Data Pegawai program akan menampilkannya secara Cascade/ Bertumpukan dan terkesan kurang rapi.

Sub Program ditampilkan secara Cascade

Sub Program ditampilkan secara Cascade

Kita bisa membuat tampilan sub form yang terbuka menjadi susuai keinginan yaitu dengan membuat menu utuk mengatur tampilan tersebut seperti dibawah ini :

Tampilan Sub Form secara Horizontal

Tampilan Sub Form secara Horizontal

Koding dari tombol-tombol tersebut adalah :

  1. Tombol Cascade: Me.LayoutMdi(MdiLayout.Cascade)
  2. Tombol Vertical : Me.LayoutMdi(MdiLayout.TileVertical)
  3. Tombol Horizotal : Me.LayoutMdi(MdiLayout.TileHorizontal)

Oke sekian dulu, Teguh Pramono.

Mengakifkan dan Menonaktifkan Control-Control pada Program dengan Perulangan + Puzle Sederhana


Program dibawah ini adalah modifikasi dari tugas sebelumnya. Saat program dijalakan, semua isian tidak aktif, tombol isi data dan tutup aktif sedangkan tombol clear tidak aktif.

Saat Program Dijalankan

Berikut ini coding dari Form1_Load :

Coding Dari Form1_Load

Saat tombol isi data ditekan, kodebarang, jumlah barang, cara beli dan tombol clear aktif, sedangkan tombol isidata tidak aktif.

Setelah Tombol “Isi Data” Ditekan

Berikut ini coding dari btisi :

Coding Dari btisi

Saat tombol clear ditekan, tampilannya sama dengan ketika program dijalankan.

Setelah Tombol Clear Ditekan

Berikut ini coding dari btclear :

Coding dari btclear

Game Puzle Sederhana
Buat sebuah form dengan 9 tombol yaitu Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, dan Button9.
Ubah semua textnya menjadi sesuai dengan urutannya, cotoh 1 untuk Button1, 2 untuk Button2 dan seterusnya.
Ubah Visible dari Button9 menjadi False.

Saat form dijalankan posisi angka acak.

Saat Form Dijalankan Posisi Angka Acak

Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombok kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8.

Saat Salah Satu Tombol Dekat Area Kosong Ditekan

Saat angka sudah tersusun game akan menampilkan pesan “Selamat Anda Berhasil.

Muncul Pesan “Selamat Anda Berhasil”

Listing Program :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button4.Visible = False Then
Button1.Visible = False
Button4.Visible = True
Button4.Text = Button1.Text
ElseIf Button2.Visible = False Then
Button1.Visible = False
Button2.Visible = True
Button2.Text = Button1.Text
End If
pesan()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button2.Visible = False
Button1.Visible = True
Button1.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button2.Visible = False
Button5.Visible = True
Button5.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button2.Visible = False
Button3.Visible = True
Button3.Text = Button2.Text
End If
pesan()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button6.Visible = False Then
Button3.Visible = False
Button6.Visible = True
Button6.Text = Button3.Text
ElseIf Button2.Visible = False Then
Button3.Visible = False
Button2.Visible = True
Button2.Text = Button3.Text
End If
pesan()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button4.Visible = False
Button1.Visible = True
Button1.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button4.Visible = False
Button7.Visible = True
Button7.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button4.Visible = False
Button5.Visible = True
Button5.Text = Button4.Text
End If
pesan()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button5.Visible = False
Button2.Visible = True
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button5.Visible = False
Button4.Visible = True
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button5.Visible = False
Button6.Visible = True
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button5.Visible = False
Button8.Visible = True
Button8.Text = Button5.Text
End If
pesan()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button6.Visible = False
Button3.Visible = True
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button6.Visible = False
Button9.Visible = True
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button6.Visible = False
Button5.Visible = True
Button5.Text = Button6.Text
End If
pesan()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button4.Visible = False Then
Button7.Visible = False
Button4.Visible = True
Button4.Text = Button7.Text
ElseIf Button8.Visible = False Then
Button7.Visible = False
Button8.Visible = True
Button8.Text = Button7.Text
End If
pesan()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button9.Visible = False Then
Button8.Visible = False
Button9.Visible = True
Button9.Text = Button8.Text
ElseIf Button7.Visible = False Then
Button8.Visible = False
Button7.Visible = True
Button7.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button8.Visible = False
Button5.Visible = True
Button5.Text = Button8.Text
End If
pesan()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button9.Visible = False
Button6.Visible = True
Button6.Text = Button9.Text
ElseIf Button8.Visible = False Then
Button9.Visible = False
Button8.Visible = True
Button8.Text = Button9.Text
End If
pesan()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim acak As Integer
acak = Rnd() * 10
Button1.Text = acak
Button2.Text = acak – 2
Button3.Text = acak – 5
Button4.Text = acak – 3
Button5.Text = acak + 1
Button6.Text = acak – 1
Button7.Text = acak – 6
Button8.Text = acak – 4
End Sub

Private Sub pesan()
If Button1.Text = “1” And Button2.Text = “2” And Button3.Text = “3” And Button4.Text = “4” And Button5.Text = “5” And Button6.Text = “6” And Button7.Text = “7” And Button8.Text = “8” Then
MsgBox(“Selamat Anda Berhasil”)
End If
End Sub
End Class