1. Penjelasan Program paramarray
Public Class Form2
Private Function fstat(ByVal ParamArray args() As Object) As Single()
- Membuat sub program dengan Function dengan variable fstat dengan parameter ByVal yang bererti melewatkan parameter secara nilai dengan tipe single yang berarti bilangannya bulat.
Dim hasil(3) As Single
- Membuat variable dengan nama hasil dengan jumlah teratas atau Ubound 3 yang bertipe data single.
Dim i As Integer
- Membuat variable dengan nama i yang bertipe data integer.
For i = 0 To UBound(args)
- Merupakan perulangan untuk i=0 sampai batas teratas dari array
hasil(0) = hasil(0) + args(i)
- hasil (0)=0 karena perulangan belum di mulai.
- args(i) nilai dari indeks array ke i
If i = 0 Then
- Jika i=0 maka lakukan sebagai berikut
hasil(1) = args(i)
- hasil 1=nilai dari indeks ke i
hasil(2) = args(i)
- hasil 2 =nilai dari indeks ke i
End If
- Selain i=0,atau jika i bukan sama dengan 0
If hasil(1) < args(i) Then hasil(1) = args(i)
- Jika hasil 1 lebih kecil dari nilai i maka hasil 1= nilai dai indeks ke i
If hasil(1) > args(i) Then hasil(1) = args(i)
- Jika hasil 2 lebih kecil dari nilai i maka hasil 2= nilai dai indeks ke i
Next i
Return hasil
- Akan kembali ke hasil
End Function
End Class
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)
- Membuat vaariable dengan nama ststistik yang bertipe data single dengan nilai array pada indeks ke 0=1, Indeks ke 1=6, Indeks ke 2=2
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
- Pada texbox1 akan bernilai sesuai dengan statistik dari indeks ke 0
Demikian juga pada texbox ke 2 dan 3
End Sub
Hasil :
2. Over Loading Function
Overloading function adalah beberapa fungsi yang memiliki perintah berbeda tetapi namanya sama. Sebagai contoh adalah program dibawah ini, terdapat 2 Fuction hitung pada program ini namun program hanya akan menjalankan salah satunya saja.
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 bil3 As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1, 2, 3)
End Sub
Penjelasannya :
Terdapat 2 buah fungsi dengan nama yang sama yaitu hitung, tapi berbeda jumlah parameternya. Hitung yang pertama berjumlah 2 parameter sedang hitung yang kedua ada 3 parameter.
Button memanggil fungsi hitung, dan dia memilih hitung yang kedua karna jumlah elemennya tiga.Bisa dianalogikan :
1 sama dengan bil1 yang mana bil1 sama dengan ByVal bil1 As Integer,
2 sama dengan bil2 yang mana bil2 sama dengan ByVal bil2 As Integer,
3 sama dengan bil3 yang mana bil3 sama dengan ByVal bil3 As Integer.
Jadi ia memilih yang hampir mendekati si pemanggil. Jadi hasil akhirnya yaitu 6, karena ia menjumlahkan 1 + 2 + 3
Hasil :
3. Macam-Macam Function Bawaan Pada Vb Net
Function itu sendiri adalah sekumpulan tatement yang menghasilkan nilai balik (return Value). Nilai Balik ini akan akan dikembalikan pada blok perintah yang memanggil prosedur function.
Adapun syntax penulisan function procedure :
[Private/Public] Function namafungsi(argumen-argumen) [As type]
Baris perintah
End Function
Dari sytax diatas, namafungsi bisa diisi sesuai kebutuhan , argument-argumen bisa diisi dengan parameter,optional dan argumen lain, As type adalah tipe data yang digunakan
Sebuah Function dapat dipanggil dengan menggabungkan pernyataan lain, seperti contoh berikut ini
Variabel = nama Function Procedure
Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau memanggil sub prosedur yaitu :
Call NamaFunctionProcedure [Parameter]
Atau
NamaFunctionProcedure (Parameter)
~ Fungsi String
Left→mengambil karakter dari sebelah kiri
Right → mengambil karakter dari sebelah kanan
Mid → mengambil karakter dari tengah
LTrim → membuang semua semua awal spasi yang ada disebelah kiri
RTrim → membuang semua semua awal spasi yang ada disebelah kanan
Trim → membuang semua spasi yang ada disebelah kiri dan kanan
Len → memberikan nilai balik integer sebagai panjang string
LCase → mengubah string menjadi huruf kecil semua
UCase → mengubah string menjadi huruf besar semua
Str (int) → mengubah bilangan menjadi string (konversi)
Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter
~ Fungsi Matematika
Val (Str) → konversi string menjadi integer
Asc(Char) → konversi karakter menghasilkan nilai ascii
Abs(Number) → memberikan nilai mutlak dari suatu nilai negatif
Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal
Sqr(Number) → memberikan hasil akar kuadrat dari suatu nilai
Tan() → mengembalikan nilai tangen dari argument dalam radian
Cos() → mengembalikan nilai cosinus dari argument dalam radian
Atn() → mengembalikan nilai arc tangen dari argument dalam bentuk radian
Long() → mengembalikan nilai logaritma dari argument
CInt() → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat
Fix() → pemotongan suatu nilai decimal menjadi integer
Int()→ pembulatan ke bawah suatu nilai decimal
~ Fungsi Tanggal dan Waktu
Date() → mengambil tanggal system komputer
IsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
DateValue → konversi string menjadi date
D(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
Time() → mengambil waktu dari system komputer
H(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deik
TimeValue(str) → konversi string ke variable date
Itulah, function-function bawaan yang bisa diapplikasikan dalam visual basic
lutfiayu50 