TUGAS 8 Sub
Program Function
Function
Dengan Return Value Berupa Array
Buatlah Program Tampilan Form seperti Gambar diatas,
Tuliskan Coding dibawah ini :
Public Class Form1
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)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
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
End Class
Coba Jalankan Program (F5),
Setelah itu klik Tombol "Proses" pada program.
maka Hasil yg akan Keluar adalah :
Total = 55
Terbesar = 10
Terkecil = 1
Seperti Gambar dibawah ini :
Pada Button1 diatas dituliskan sebuah program Array yang jumlahnya
ada 10 digit angka, dan terdapat Function Looping, yang menghailkan sebuah
informasi Total, Terbesar, dan Terkecil dari Array yang ada pada Button1
Overloading
Function
Beberapa Function mempunyai nama sama tetapi mempunyai
Parameter berbeda,
Buatlah
Program dengan Tampilan Form seperti gambar dibawah ini :
Setelah itu masukan Coding dibawah ini :
Public Class Overloading_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
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
End Class
Jalankan Program (F5), klik Tombol Proses hasil "Textbox1"
akan muncul angka Enam (6), Kenapa hasilnya Enam (6)
Dalam Program ini ada dua Sub Function, yang pertama Function
hitung dengan jumlah parameter dua (2) yaitu bil1 dan bil2, dan yang Kedua
adalah Function hitung ddengan jumlah parameter tiga (3), dan pada Button1,
dituliskan sebuah perintah "hitung(1,2,3)" yang artinya jumlah
parameter ada tiga, dan nilai dari parameternya adalah 1, 2 dan 3.. Karena pada
Button1 dituliskan perintah dengan 3 parameter maka Function yang dijalankan
adalah Function yang mempunyai Jumlah parameter 3, yaitu :
hitung = bil1 + bil2 +bil3
Maka ketentuanya : bil1 = 1 , bil2 =2, bil3=3 maka Hasilnya
adalah 1 + 2 + 3 = 6
Untuk Lebih jelasnya Kita Coba mengubah jumlah parameter pada
Button1 dari 3 parameter menjadi 2
parameter, Seperti dibawah ini
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
Ganti menjadi seperti ini
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
TextBox1.Text = hitung(1, 2)
End Sub
Jika
Coding pada Button1 telah dirubah menjadi Parameter 2, maka jika program
dijalankan dan b=tombol proses ditekan maka hasil pada textbox1 adalah 3,
seperti gambar dibawah ini :
Mengapa demikian?ya, Karena kita telah mengubah parameter
pada Button1 dari tiga menjadi 2, maka Function yang dijalankan adalah sebuah
function yang jumlah parameternya Dua(2) yaitu hitung = bil1+bil2
dengan ketentuan bil1=1, bil2=2 maka hitung sama dengan 1+2 =
3...
Dan Apabila Jumlah Parameter pada button1 diubah menjadi 4
parameter, maka yang akan terjadi adalah Overloading Function, karena Maksimal
Parameter yang ada adalah 3, dan sebaliknya jika parameternya hanya satu, juga
akan terjadi sebuah Error program, karena jumlah minimal Function adalah Dua(2)
Macam -
macam Fungsi Bawaan di Visual Basic
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
Sekian yang
saya bisa kerjakan,semoga bias bermaanfaat bagi semua…amin
SEMANGAT!!!selalu..
Go..go..SEMANGAT!!!
