1. Penjelasan
Program paramarray
Public Class Form1
Private Function
stats(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single => variable dengan nama hasil dengan jumlah teratas 3 dg
tipe data single
Dim i As Integer => variable dengan nama I dan tipe data 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) =>
jika hasil 1 lebih kecil dari nilai I maka
hasil 1= nilai indeks ke i
If hasil(2) <
args(i) Then hasil(2) = args(i) =>
jika hasil 2 lebih kecil dari nilai I maka
hasil = nilai indeks ke i
Next i
Return hasil
End Function
End Class
Lalu isikan Listing Program pada button 1 sebagai berikut,
dengan Double Klik pada Button1 untuk mengisi listing program nya.
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim statistik
As Single() = stats(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
Membuat variable dengan nama
ststistik dengan tipe 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)
End Sub
Agar hasilnya benar ada 4 cara
Cara satu :
Merubah simbol <(kurang dari) dan > (lebih dari)
If hasil(1) > args(i) Then hasil(1) = args(i) => If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(1) < args(i) Then hasil(1) = args(i) =>
If hasil(1) > args(i) Then hasil(1) = args(i)
Cara dua :
Merubah Label pada Form yang harusnya terkecil ganti dengan
terbesar begitu sebaliknya.
Cara tiga
Menukar penempatan TextBox.2
dan TextBox.3
TextBox2.Text = statistik(1) =>
TextBox3.Text = statistik(1)
TextBox3.Text = statistik(2) => TextBox2.Text = statistik(2)
Cara Empat
Menukar varibele statstik (1) dan statistik (2)
TextBox2.Text = statistik(1) => TextBox2.Text = statistik(2)
TextBox3.Text = statistik(2) => TextBox3.Text = statistik(1)
2. Over Loading
Function
Overloading function adalah beberapa fungsi yang memiliki
perintah berbeda tetapi memiliki nama yang 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
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
Tidak ada komentar:
Posting Komentar