unction dengan return value
berupa array
I.Program parramarray
Private Function
fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single
Penjelasan
: memesan variabel hasil berjumlah 3 yaitu hasil(0),hasil(1),hasil(3)
Dim i As Integer
For i = 0 To UBound(args)
Penjelasan:‘mendeklarasikan
variabel i sebgai integer dan perualangan i sebanyak array yang di pesan (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
Penjelasan:
jika i= 0 maka maka hasil(1) = args jumlah index ny demikian juga hasil(2),,
Jika
hasil (1) kurang dari args(i) maka hasil (1) sama dengan hasil args(i) ny
demikian juga hasil dua lebih besar dari args (i) maka hasil(2) sama dengan
args (i).dan terus mengulang sampai jumlah indexs
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim statistik As Single()=
fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
Penjelasan
pada button 1 memesan variable statistik
Pada
textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan d
atas
Textbox2
untuk menampilkan nilai atau angka terbesar dari array tersebut
Textbox3
untuk menampilkan nilai atau angka terkecil dari array tersebut
1.bisa
muncul angka 55 dari jumlah array yang terdapat pada coding yaitu ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”
2.bisa
muncul angka (10) yaitu bilangan terbesar dari array tersebut adalah 10
3.
dan bisa muncul angka 1 yaitu dari bilangan terkecil dari array tersebut adalah
1
PROGRAM KE DUA
Public Class Form1
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3As Integer, ByVal bil4 As Integer) As Integer
hitung = bil1 + bil2 + bil3 + bil4
End Function
Penjelasan:
hampir sama dengan parramarray sebelum nya.hanya saja pada program ini di deklarasikan
lebih dari satu fungsi ,dan hitung untuk menampung penjumlahan array dari
beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu fungsi terakhir
tergantung kita memesan angkanya
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1, 2, 3,10)
Penjelasan
:angka 1 di deklarasikan untuk bil1, angka 2 untuk bil2, angka 3 untuk bil3,
dan masih bisa d tambahkan sesuai keinginan kita disini saya memodif program
dengan menambahkan bil4 untuk angka 10
End Sub
End Class
3.MACAM-MACAM FUNGSI BAWAAN
Procedure
digunakan
untuk memadatkan tugas-tugas berulang ataupun proses
yang digunakan bersama, seperti perhitungan yang sering dilakukan, text dan
manipulasi
kontrol, serta operasi database.
Ada
beberapa jenis procedure yang digunakan dalam Visual Basic
1. Sub
Procedure yang tidak mengembalikan nilai
2. Function
Procedure yang mengembalikan nilai
3. Property
Procedure yang dapat mengembalikan nilai dan
diisi nilai yang mengacu pada suatu objek.
Function
Procedure
Pada
Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, dan Chr,
tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan
kadang-kadang tidak memenuhi kebutuhan programmer, untuk keperluan tersebut anda dapat
menciptakan fungsi-fungsi sendiri yang dikenal dengan Function Procedure.
Syntax
penulisan Function Procedure
[Private|Public][Static]
Function nama_procedure(argumen) [As type]
Pernyataan-pernyataan
End
Function
Ada
tiga perbedaan antara function dan procedure
1. Umumnya anda dapat memanggil
suatu function dengan mengikut nama function sisi kanan
dari statement atau ekspresi.
2. Function
memiliki type data seperti suatu variabel. Ini menentukan type
yang dari nilai yang di kembalikan
3. Nilai kembali dimasukkan ke nama function itu sendirinya, dan suatu
function dapat menjadi bagian dari suatu ekspresi yang panjang.