Function dengan Return Value Berupa Array
Tampilan awal Program
Tampilan Pada Saat diklik Proses
Kode
Programnya
Public Class Form1
Private Function coba(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)
hasil(3) = args(i)
End If
If hasil(1) < args(i) Then
hasil(1) = args(i)
If hasil(2) > args(i) Then
hasil(2) = args(i)
hasil(3) = hasil(0) / 10
Next i
Return hasil
End Function
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim statistik As Single() = coba(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
12, 13, 14, 15)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
If MsgBox("anda yakin
ingin keluar", vbYesNo + vbQuestion + vbDefaultButton1, "atention") = vbYes Then
Me.Close()
End If
End Sub
End Class
Penjelasan
koding
Private
Function lat (ByVal ParamArray args() As Object) As Single()
Berfungsi mendeklarasikn fungsi yang diberikan nama lat
yang memiliki tipe Single(), yang memiliki parameter berupa Array yang bernama
args() dengan tipe Object.
Dim hasil(3) As Single
Dim i As Integer
Pendeklarasian variabel yang bernama
hasil() dan bertipe single yang memiliki kapasitas 3, dan variabel i yang
bertipe 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)
hasil(3) = args(i)
End
If
If
hasil(1) < args(i) Then hasil(1) = args(i)
If
hasil(2) > args(i) Then hasil(2) = args(i)
hasil(3) = hasil(0) / 10
Next i
Proses perulangan akan dilakukan sebanyak
jumlah perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah
dari semua angka.
- Hasil (1) akan menghasilkan nilai terbesar dalam array.
- Hasil (2) akan menghasilkan nilai terkecil dalam array.
- Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.
Return hasil
Perintah
yang akan mengembalikan nilai hasil ke dalam fungsi sehingga ketika fungsi
dipanggil harus menggunakan variabel yang bertipe array.
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, 10, 4, 7, 9, 8, 5, 3)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
End Class
Merupakan sebuah
proses pemanggilan fungsi pada event Button1 pada saat di-klik. Pada
pemanggilan fungsi terlebih dahulu dideklarasikan sebuah variabel yang bertipe
array, Kemudian nilai pada index satu ditampilkan pada textbox yang kita
inginkan.
Pengertian Function Bawaan
Function
bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat
digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB
diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu
TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi
perhitungan, fungsi yang berkaitan dengan matematika, dll.
Adapun cara
untuk
Private/Publik
function nmfu (byref/byval/optional/paramarray nmparam as type)type data
..........baris perintah.........
End Function
..........baris perintah.........
End Function
Cara
pemanggilan sebuah fungsi dapat dilakukan melalui beberapa cara, yaitu;
- Variabel = nama Function Procedure
- Call NamaFunctionProcedure (Parameter)
- NamaFunctionProcedure (Parameter)
Macam-macam
fungsi bawaan
Dalam VB
juga terdapat fungsi-fungsi bawaan yang bisa digunakan secara langsung. Ada
sejumlah fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu
tipe data String dari suatu Textbox menjadi tipe data Numeric agar dapat
digunakan untuk operasi perhitungan.
Fungsi yang
berkaitan dengan matematika diantaranya:
Fungsi untuk
mengkonversi ke integer
Ada tiga macam fungsi yang melakukan konversi ke tipe integer,antara lain
Ada tiga macam fungsi yang melakukan konversi ke tipe integer,antara lain
- Int() Yaitu pembulatan kebawah suatu nilai decimal
- Fix() Yaitu pemotongan suatu nilai desimal menjadi integer
- Cint() Yaitu pembulatan nilai desimal 0.5 atau lebih ke integer yang lebih dekat
contoh pendeklarasian
pada Int
Dim bil As
Double
bil = Int(Val(TextBox1.Text))
TextBox2.Text = bil
bil = Int(Val(TextBox1.Text))
TextBox2.Text = bil
contoh
diatas berlaku juga untuk Fix dan Cint
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-fungsi
matematika
- Abs() Mengembalikan nilai Absolut dari argumen
- Atn() Mengembalikan nilai arc tangen dari argumen dalam bentuk radian
- Cos() Mengembalikan nilai cosinus dari argumen dalam radian
- Exp() Mengembalikan nilai Eksponensial dari argumen
- Log() Mengembalikan nilai logaritma dari argumen
- Sin() Mengembalikan nilai sinus dari argumen dalam radian
- Sqr() Mengembalikan nilai akar dari argumen
- Tan() Mengembalikan nilai tangen dari argumen dalam radian
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
- Time() mengambil waktu dari system komputer
- TimeValue(str) konversi string ke variable date
- D(Date),M(Date),Y(Date) memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
- H(Date),M(Date),S(Date) memberikan nilai integher dari variable date untuk jm, menit dan deik
Demikian
penjelasan dari macam-macam fungtion bawaan yang ada pada VB
|
|
|
Tidak ada komentar:
Posting Komentar