Rabu, 14 Desember 2016

Membuat Fungsi di Visual Basic

function dan subroutine adalah sama-sama sebuah prosedur dalam visual basic. Perbedaannya, function dapat mengembalikan nilai ke bagian pemanggilnya, sedangkan subroutine tidak dapat. 

Secara umum bentuk fungsi pada visual basic adalah

function namafungsi(parameter) as tipedata

end function

namafungsi dapat berupa apa saja. Terserah programer. sedangkan parameter adalah variabel penerima beserta tipe data variabel tersebut.

Contoh:

Function Tambah(a as integer, b as integer) as Integer
  Tambah = a + b
End if

pada program diatas, fungsi Tambah akan menambahkan isi dari variabel a dan b lantas mengembalikannya sebagai keluaran dari fungsi dengan memberikannya pada nama fungsi itu

  Tambah = a + b 

Fungsi dapat dipanggil dengan menyebut namanya dari program pemanggil, contoh

Function Tambah(a As Integer, b As Integer) As Integer
  Tambah = a + b
End Function


Private Sub Command1_Click()
    Dim a As Integer, b As Integer, hasil As Integer
 
   a = CInt(Text1.Text)
   b = CInt(Text2.Text)
 
   hasil = Tambah(a, b)
 
  Text3.Text = CStr(hasil)
End Sub


Fungsi Tipe Data Array
Array juga dapat menjadi tipe data pengembalian pada function, contohnya:

Function BeriNilai() As Integer()
    Dim Hasil() As Integer, i As Integer
 
    For i = 1 To 5
       ReDim Preserve Hasil(1 To i)
       Hasil(i) = i
    Next
 
    BeriNilai = Hasil


    '==  menghapus array dari memori
    Erase hasil
End Function

Private Sub Command1_Click()
    Dim Hasil() As Integer, i As Integer
 
    Hasil = BeriNilai
 
    For i = LBound(Hasil) To UBound(Hasil)
      Print Hasil(i)
    Next


    '==  menghapus array dari memori
    Erase hasil
End Sub


BeriNilai adalah sebuah fungsi yang akan mengembalikan nilai array integer pada Command1_Click(), kemudian mencetaknya pada form.

Membuat Fungsi di Visual Basic Rating: 4.5 Diposkan Oleh: Good Dreamer

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.