Contoh Pembuatan Subroutine Sederhana dengan Visual Basic 6.0

Assalamu'alaikum wr.wb

Di Awal postingan saya ini, saya ingin berbagi sedikit tutorial tentang contoh penggunaan subroutine di Visual Basic 6.0.

Sedikit penjelasan tentang Subroutine. Subroutine atau procedure adalah suatu blok program terpisah yang digunakan untuk mengerjakan suatu pekerjaan tertentu. Kegunaan yang umum dari subroutine adalah menghemat kode program bila terjadi proses yang sama diulang beberapa kali. Penulisan subroutine di Visual Basic dibedakan menjadi 3 bagian, yaitu :

1. Subroutine yang bersifat event dari komponen tertentu.
2. Subroutine yang bersifat private dimana pemanggilan subroutinenya hanya ditulis dengan nama subroutine.
3. Subroutine yang bukan merupakan event atau metode, dimana pemanggilannya menggunakan callNamaSubroutine.

1. Berikut adalah contoh penggunaan Subroutine. Langkah pertama buka dulu Visual Basic-nya(Start - All Programs - Microsoft Visual Basic 6.0 - Microsoft Visual Basic 6.0)
2. Kemudian pilih StandardExe
3. Lalu tambahkan 1combobox, 1commandbutton, 1label, kemudian atur sesuai selera, tapi kalo selera saya seperti ini.

Properties buat combobox :
     List   : romeo
               juliet
    Text   : <Choose a Name>

Properties buat CommandButton
    Caption   : Love

Properties buat Label :
    Captionnya dikosongin aj.

Nah Sekarang waktunya masukin kodenya..Silahkan copas source di bawah ini di form tersebut.

-----------------------------------------------------------------------------------------------------------

Dim nama(2), pasangan(2) As String

Private Sub Command1_Click()
Tampilkan 1
End Sub

Private Sub Form_Load()
nama(1) = "romeo"
pasangan(1) = "juliet"
nama(2) = "juliet"
pasangan(2) = "romeo"
End Sub

Private Sub Tampilkan(kondisi As Integer)
indeks = Combo1.ListIndex + 1
If kondisi = 1 Then Label1 = pasangan(indeks)
End Sub

-----------------------------------------------------------------------------------------------------------



Setelah itu Silahkan di F5. Coba pilih nama romeo di combobox kemudian klik Love. Setelah itu silahkan agan-agan kembangkan sendiri sesuai dengan selera(kayak di resep makanan aja, tambhakan gula sesuai selera anda :) ). Kalau males copas or bikin, pengen yang langsung jadi silahkan klik di sini aja. Ya sekian karena saya masih newbie jadi yw gini-gini aj postingannya. Jangan lupa tinggalin komen ama kritik dan sarannya yw.... :)

...Semoga Bermanfaat...

Wassalamu'alaikum wr.wb

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Visual Basic