Overloading Function
Adalah sebuah function dengan nama yang sama tetapi memiliki Parameter yang berbeda.
Berikut Listing Programnya :
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 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(3, 1, 2)
End Sub
End Class
Hasil Dari Listing Program Tersebut Adalah :
Penjelasanya :
Program ini berjalan sesuai dengan function yang menggunakan penjumlahan 3 parameter (hitung = bil1 + bil2 + bil3) karena bilangan yang dimasukan di button 1 adalah 3 bilangan (TextBox1.Text = hitung(3, 1, 2)sehingga yang bekerja adalah function yang memiliki jumlah parameter yang sama dengan bilangan yang dimasukan dan function perkalian tidak bekerja atau diabaikan.
Kesimpulanya :
Program dapat bekerja dengan catatan parameter function memiliki jumlah yang sama dengan bilangan yang akan diicari.
Function dengan Return Value Berupa Array
Listing Programnya :
Public Class Form1
Private Function stats(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
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)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
Hasil dari listing program diatas :
Penjelasanya :
If hasil(1) > args(i) Then hasil(1) = args(i)
If hasil(2) < args(i) Then hasil(2) = args(i)
Listing diatas berfunsi untuk menentukan tebesar dan terkecil
Return hasil
Berfungsi untuk Pemanggilan hasil
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
Listing tersebut digunakan untuk pendeklarasian program untuk ditampilkan di textbox,sedangkan statistic digunakan untuk pemanggilan function
Macam –Macam Function Bawaan
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
- Cint() “Pembulatan nilai decimal 0,5 dan lebih ke integer yang lebih dekat”
- Fix() “Pemotongan Suatu nilai decimal menjadi integer”
- Int() “Pembulatan suatu nilai kebawah desimal ”
b. Fungsi – fungsi konversi tipe data
c. Fungsi-fungsi matematika
Fungsi – fungsi String
Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
- Left$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .
- Right$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
- Mid$(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter.
Fungsi-fungsi Tanggal dan Waktu
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
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)
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
DateDiff : mencari interval waktu antara dua tanggal
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Dim TheDate As Date ‘declare variables
TheDate = InputBox(“Enter a date”) Msg = “Day from today : “ & DateDiff(“d”, Now, TheDate)
MsgBox Msg
DateSerial : menghasilkan tanggal dengan bulan/hari/tahun
MyDate = DateSerial(1969, 2, 12) ‘Hasil 2/12/69
DateValue : menghasilkan tanggal
MyDate = DateValue(“February 12, 1969”) ‘Hasil 2/12/69
Year : menghasilkan tahun sekarang
MyYear = Year(#2/12/1969#) ‘Hasil 1969
Month : menghasilkan bilangan integer yang menunjukkan bulan
MyDate = #February 12, 1969# ‘Assign a date
MyMonth = Month(MyDate) ‘MyMonth = 2
MonthName : menghasilkan teks yang menunjukkan nama bulan
a$ = MonthName(1, True) ‘a$ = Jan
b$ = MonthName(1, False) ‘b$ = January
c$ = MonthName(1) ‘c$ = January
Day : menghasilkan integer yang menunjukkan tanggal dari data date
MyDate = #February 12, 1969# ‘Assign a date
MyDay = Day(MyDate) ‘MyDay berisi 12
Hour : menghasilkan integer yang menunjukkan jam dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyHour = Hour(MyTime) ‘MyHour berisi 16
Minute : menghasilkan integer yang menunjukkan menit dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyMinute = Minute(MyTime) ‘MyMinute berisi 35
Second : menghasilkan integer yang menunjukkan detik dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MySecond = Second(MyTime) ‘MySecond berisi 17
TimeSerial : menghasilkan waktu dengan jam/menit/detik
MyTime = TimeSerial(16, 35, 17) ‘Isinya 4:35:17 PM
TimeValue : mengubah string waktu dari pukul 0:00:00 (12:00:00 AM) sampai 23:59:59 (11:59:59 PM) menjadi data waktu
MyTime = TimeValue(“4:35:17 PM”) ‘Isinya 4:35:17 PM
MyTime = TimeValue(“0:00:00”) ‘Isinya 12:00:00 AM
WeekDay : menghasilkan bilangan petunjuk hari dari suatu tanggal
Hari = #February 12, 1969# ‘Hari Rabu
MyweekDay = Weekday(Hari) ‘MyweekDay isinya 4
WeekDayName : menghasilkan teks nama hari dalam satu minggu
[…] https://updtkpj2.wordpress.com/2012/12/23/tugas-6-function/ […]