FUNCTION
DENGAN RETURN VALUE BERUPA ARRAY
1. Pertama desain form seperti dibawah ini
2. Kemudian kita masukan fuction di form yg kita
buat
Public Class
Form1
Private Function
fstat(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
Keterangan :
Fstat à nama fuction
ByVal à melewatkan
parameter secara nilai
ParamArray à
parameter berupa array
As Object à tipe data parameter
As Single à tipe
data
3. Selanjutnya kita mengsikan koding untuk tombol
hitung
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim
statistik As Single()
= fstat(21, 12, 4, 8, 7, 20, 5)
TextBox1.Text = statistik(0)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox3.Text = statistik(2)
End Sub
End Class
4. Setelah di run dan menekan tombol htung maka
hasilnya sebaga berikut :
OVERLOADING FUNCTION
1. Pertama desain form seperti dibawah ini :
2. Kemudian kita masukan Function pada form tadi
Public Class
Form2
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
Keterangan :
Hitung à nama
fuction
ByVal à melewatkan
parameter secara nilai
bil1,bil2 à nama
parameter
As integer
à Tipe Data parameter
3. Selanjutnya kita mengisikan koding untuk
tombol Hitung
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
TextBox1.Text = hitung(23, 10, 30)
End Sub
End Class
4. Terakhir kita run dan tekan tombol hitung maka
hasilnya seperti berikut
Fungsi-fungsi
Bawaan VB
Dalam Visual Basic, fungsi 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.
Fungsi-fungsi Numerik
Dengan
menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah
program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang
berkaitan dengan tipe data numerik.
Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :
a. Fungsi-fungsi konversi ke integer.
Ada tiga macam
fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada tabel .
Untuk bilangan positif, fungsi Fix()
dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan
berikut ini mengembalikan nilai yang sama
Namun
fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif.
Kedua pernyataan berikut memberikan pengembalian yang berbeda.
Sedangkan fungsi CInt() mengembalikan
pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() :
b. Fungsi – fungsi konversi tipe data
Tabel 10.2 merupakan fungsi – fungsi yang melakukan konversi ke tipe data.
c. Fungsi-fungsi matematika
Fungsi-fungsi yang bekaitan dengan matematika seperti
terlihat pada table 10.3.
Fungsi - fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah
fungsi-fungsi String diantaranya seperti pada table 10.4.
Substring merupakan
bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat
digunakan 3 fungsi berikut :
a. Left$(StringVal, length)
Fungsi ini mengembalikan nilai string
dari sebelah kiri sebanyak length
karakter .
b. Right$(StringVal, length)
Fungsi ini mengembalikan nilai string
dari sebelah kanan sebanyak length
karakter .
c. Mid$(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string
dari startVal sebanyak length karakter .
Fungsi Date and
Time pada VB
Time : mencari tahu waktu saat ini atau menetapkan
waktu, tergantung format
pemakaiannya ( lihat contoh di bawah ini)
A$ = Time ‘hasil 18:16:35 AM
A$ = Time ‘hasil 18:16:35 AM
MyTime = #4:35:17 PM# ‘assign a time
Time = MyTime ‘set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ‘hasil 10/8/02 18:16:35 AM
Timer : menghitung jumlah detik sejak tengah malam
Start = Timer ‘hasilnya 29991
Date : menetapkan hari pada sistem komputer
Dim MyDate
MyDate = #February 12, 1985 # ‘Assign a date
Date = MyDate ‘Change system date
DateAdd : menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval waktu yang ditetapkan dari tanggal lama.
DateAdd(kode_interval,jumlah_interval,tanggal_lama)
Time = MyTime ‘set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ‘hasil 10/8/02 18:16:35 AM
Timer : menghitung jumlah detik sejak tengah malam
Start = Timer ‘hasilnya 29991
Date : menetapkan hari pada sistem komputer
Dim MyDate
MyDate = #February 12, 1985 # ‘Assign a date
Date = MyDate ‘Change system date
DateAdd : menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval waktu yang ditetapkan dari tanggal lama.
DateAdd(kode_interval,jumlah_interval,tanggal_lama)
Contoh pemakaiannya :
Dim FirstDate As_Date ‘Declare variables
Dim IntervalType As String
Dim Number As Integer
Dim Msg
FirstDate = InputBox(“Enter a date”)
Bynber = InputBox(“Enter number of months to add”)
Msg = “New date : “ & DateAdd(“m”, Number, FirstDate)
MsgBox Msg
Dim FirstDate As_Date ‘Declare variables
Dim IntervalType As String
Dim Number As Integer
Dim Msg
FirstDate = InputBox(“Enter a date”)
Bynber = InputBox(“Enter number of months to add”)
Msg = “New date : “ & DateAdd(“m”, Number, FirstDate)
MsgBox Msg
