Home » Array » Jenis Subroutine dan Fungsinya di VB6

Jenis Subroutine dan Fungsinya di VB6

Kategori

Pada artikel kali ini saya akan membahas tantang Subroutine di vb6.

Pengertian Subroutine

Subroutine atau Prosedur merupakan suatu blok program terpisah yang digunakan untuk melaksanakan suatu printah tertentu.


Kegunaan Subroutine

Salah satu kegunaan subroutine adalah untuk memperpendek suatu penulisan script sehingga dapat menghemat khususnya script yang sering ditulis berulang-ulang.

Jenis Subroutin di Visual Basic

Berikut ini adalah macam-macam Subroutine dan Cara membuatnya di  di Form VB6.

Berdasarkan penulisannya Subroutine didalam Visual Basic dibedakan menjadi 3 macam, yaitu :

1. Subroutine event sebuah komponen

Subroutine jenis ini penulisannya sudah ditentukan dan ada di Visual Basic tersedia didalam library.

Syntax dasar penulisan kodenya adalah sebagai berikut :

Private Sub Komponen_Event(Input)

<script>

End Sub


Cara Pembuatan Subroutine event sebuah komponen di Form VB

Buka Form VB6 Anda dengan standar EXE

Pada Form tambahkan 1 Optionbuton, lalu di copy menjadi 3

Letakan 1 Label

Desainlah Form seperti gambar dibawah ini:

Keterangan :

No Toll Box Properties Keterangan
1 Label1 Caption :  form1
2 Option1(0) Caption :Tip form1
3Option1(1) Caption :Trikform1
4 Option1(2) Caption :Visualform1
5 Option1(3) Caption:Basic form1

Kemudian ketik kode dibawah ini :

Private Sub Option1_Click(Index As Integer)
Label1.Caption = Option1(Index).Caption
End Sub

Hasilnya ketika anda mengklik salah satu Optionbuton, maka Label1 akan berubah menjadi teks yang sama dengan tulisan pada Optionbuton.


2. Subroutine metode sebuah komponen

Sobroutine ini bisa kita panggil dengan menulis sobroutinenya saja dan kita bisa buat sendiri.

Sntax dasar penulisannya adalah :

Private Sub Nama_Fungsi(Input)

<script>

End Sub


Cara Pembuatan Subroutine metode sebuah komponen di Form VB

Buka form VB6 Anda pilih Standar EXE

Pada Form tanamkan 2 Label, 2 Commandbuton dan 1 Combobox

Desainlah form seperti gambar dibawah ini :

Desain Form Subroutine2


Lalu ketik kodenya seperti dibawah ini :


Dim nama(4), alamat(4), hp(4) As String

Private Sub tampil(kondisi As Integer)

Index = Combo1.ListIndex + 1

If kondisi = 1 Then

Label2.Caption = alamat(Index)

End If

If kondisi = 2 Then

Label2.Caption = hp(Index)

End If

End Sub


Private Sub Command1_Click()

tampil 1

End Sub


Private Sub Command2_Click()

tampil 2

End Sub


Private Sub Form_Load()

Combo1.AddItem "Riswan"

Combo1.AddItem "Mc.Gyver"

Combo1.AddItem "David Haselhop"

Combo1.AddItem "Arnold"


nama(1) = "Riswan"

alamat(1) = "JL. Mawar 5 No. 20"

hp(1) = "0877567567"


nama(2) = "Mc.Gyver"

alamat(2) = "JL. Blok Amerika No. 20"

hp(2) = "0877567886"


nama(3) = "David Haselhop"

alamat(3) = "JL. Dukuh No. 8"

hp(3) = "0877566789"


nama(4) = "Arnold"

alamat(4) = "JL. LA Amerika No. 1"

hp(4) = "0877566666"

End Sub

Coba Anda Jalan program Anda maka hasilnya akan tampak seperti Gambar dibawah ini :

Output Subroutine 2

Ketika Anda mengklik Tombol Alamat maka yang muncul alamat,apabila Anda mengklik tombol No.hp maka yang keluar nomor HP.

3. Subroutine yang bukan event atau metode

Subroutine jenis ini juga bisa kita buat sendiri dan dapat memanggilnya engan script Call Nama_Subroutine.

Syntax dasar penulisannya adalah sebagai berikut :

Sub subroutine(Input)

<script>

End Sub

Cara membuat Subroutine yang bukan Event atau Metode :

Buka Form VB^ Anda Pilih Standar EXE

Tanamkan di Form 1 Label kemudian Copy menjadi 4 Label

Tanamkan 1 Textbox lalu copy menjadi 4 Textbox

Dan tambahkan 3 Commandbutton pada form

Desainlah Form seperti gambar dibawah ini :


DesainForm Subroutine 3



No Toll Box Properties Keterangan
1 Label1(0) Caption :Nama form1
2 Label1(1) Caption :Pendidikan form1
3Label1(2) Caption :Usiaform1
4 Label1(3) Caption :Alamatform1
5 Label1(4) Caption:No. Tlp form1
6 Command1 Caption:Tambah form1
7 Command2 Caption:Coba Lagi form1
8 Command3 Caption:Keluar form1
9 Text1(0) Caption :- form1
10 Text1(1) Caption :- form1
11 Text1(2) Caption :- form1
12 Text1(3) Caption :- form1
13 Text1(4) Caption :- form1
14 List1 Caption :- form1


Kemudian ketik kode dibawah in :

Sub key()
For b = 0 To 4
Text1(b).Enabled = False
Next b
Command1.Enabled = False
Command2.Enabled = True

End Sub

Sub default()
For a = 0 To 4
Text1(a).Text = ""
Text1(a).Enabled = True
Next a
List1.Clear
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command1_Click()
If Text1(0).Text = "" Or Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Then
MsgBox "Silahkan lengkapi data", vbInformation, "tipandtricunikvb"
Else

List1.AddItem "Identify"
For i = 0 To 4
List1.AddItem Label1(i) & "=" & Text1(i)
Call key
Next i
End If
End Sub

Private Sub Command2_Click()
Call default
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Call default
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Text1(4).Text = ""
End Sub

Kemudian jalankan program Anda dan hasilnya akan tampak pada Gambar dibawah ini :

Output Subroutine 3


Demikianlah artikel kali ini tentang Jenis Subroutine dan Fungsinya di VB6, semoga bermanfaat buat kita semua.Amin.

No comments:

Post a Comment