Saya akan menjelaskan fungsi
“Function” dari pembuatan program berbentuk Array. Simak lebih jelas, langsung
saja kita buat dulu sebuah project
Visual Basic 2010.
Buatlah Form seperti berikut :
Lalu isikan listing Program sebagai berikut :
Private Function abc(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
Lalu isikan Listing Program pada button 1 :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim abcd As Single() = abc(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = abcd(0)
TextBox2.Text = abcd(1)
TextBox3.Text = abcd(2)
End Sub
Lalu jalankan, (RUN) hasil seperti berikut :
Penjelasan seperti brikut :
Sub
Program “Function” ini memberikan umpan balik berbentuk nilai, sehingga bisa
mendapatkan hasil sesuai dengan isi programnya yang ingin dibuat.
Keterangan :
1.
Pada kata “args()” adalah sebuah nama parameter
array. Dan pada kata “single()” adalah sebuah type data ( semua itu adalah lambang
dari array, dan harus di tambahkan jika menggunakan array)
2.
Pada kata “ hasil(3)” merupakan sebuah
parameter, terdapat 3 parameter, yaitu 0,1, dan 2
3.
Menentukan Terbesar dan Terkecil
4.
Memanggil hasil
5.
Kata “single()” menunjukan bahwa tipe data digunakan
lebih lebih dari 1 / untuk penggunaan array. Kata “abc(1, 6, 2, ... , 5)”
merupakan isi dari array tersebut dari nama array ABC, isi data / nama array
dapat di ubah semaunya.
6.
Deklarasi program untuk menampilkan di textbox. Kata
“abcd(0-2)” merupakan pemanggilan function dengan parameter masing- masing
(0,1,dan 2) dan nama tersebur dapat di ubah semaunya.
Sekian penjelasan mengenai kerja dari Sub Program “Function”.
Tidak ada komentar:
Posting Komentar