VB6 : Contoh Fungsi yang mengembalikan nilai array

Posted: Juni 18, 2008 in VB 6

Di suatu milis dulu pernah ada yang tanya apakah bisa suatu fungsi mengembalikan nilai array, saat itu saya ikut jawab tidak bisa, karena saya mengacu pada cara penulisan fungsi yang sama dengan cara penulisan array.
Akan tetapi ternyata bisa jika suatu fungsi mengembalikan nilai bertipe array, contohnya sebagai berikut :

'fungsi getArray akan mengembalikan data array bertipe Long Integer
Function getArray() As Long()
    Dim myLocalArray() As Long
    Dim i As Integer
    ReDim myLocalArray(100) As Long
    For i = 0 To 100
        myLocalArray(i) = i * 10
    Next i
    getArray = myLocalArray
End Function

Sub main()
    Dim myArray() As Long
    myArray = getArray
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s