Sub Program Procedure(Sub) Dan Function
Function adalah sekumpulan statement yang menghasilkan nilai balik(Return Value). Nilai balik ini akan dikembalikan pada blok perintah yang memanggil prosedur function.
1. Function dengan return value berupa array
Pada program ini yaitu
untuk menampilkan nilai terkecil, terbesar dan total pada angka-angka yang sudah ada
pada program dengan hanya memasukkan jumlah dari seluruh angka-angka tersebut.
Yaitu ketika kita telah memasukkan jumlah dari nilai-nilai yang ada dan kita
klik pada button Proses maka akan muncul nilai terkecil terbesar dan total dari deretan
nilai-nilai yang ada.Berikut langkahnya:
A. Buatlah form dengan desain berikut ini:
Menggunakan
-Pemberian nama total,terbesar dan terkecil
menggunakan Label
-Pemberian text kosong menggunakan TextBox
-Pemberian tombol proses menggunakan Button
B. Isikan listing programnya untuk desain di atas sbb:
Untuk memudahkan kaka-kaka supaya gampang
Copas aja code berikut:
Copas aja code berikut:
'Cade programnya
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
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
End Class
C. Setelah di Run, klik tombol proses maka muncul sbb:
2. Overloading Function
Program menjelaskan tentang beberapa function yang mempunyai nama sama tetapi mempunyai parameter berbeda, dimana pada program 1 hanya menggunakan 1 parameter untuk menghasilkan hasil yang sama seperti pada program 2, sedangkan pada program 2 menggunakan lebih dari satu parameter dan dapt menghasilkan hasil yang sama seperti program 1.
Berikut Langkahnya:
A. Buatlah form dengan desain berikut ini:
Menggunakan
-Pemberian text kosong menggunakan TextBox
-Pemberian tombol proses menggunakan Button
B. Isikan listing programnya untuk desain di atas sbb:
Untuk memudahkan kaka-kaka supaya gampang
Copas aja code berikut:
Copas aja code berikut:
Public Class Form1
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
Function hitung(ByRef bil1 As Integer, ByRef bil2 As Integer, ByRef 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)
TextBox2.Text = hitung(1, 2)
TextBox3.Text = hitung(0, 1)
End Sub
End Class
C. Setelah di Run, klik tombol proses maka muncul sbb:
3. Macam-Macam Function Bawaan
Sekarang saya akan membahas tentang Macam-Macam Fuction Bawaan pada visual basic, Mungkin banyak dari kalian yang sudah mengetahui tentang atau Macam-Macam Fuction Bawaan pada visual basic,berikut adalah Macam-Macam Fuction Bawaan pada visual basic:
Cara penulisan:
- Adapun syntak penulisan function prosedur, Sbb:
[Private/Public] Function namafungsi(argumen-argumen) [As type]
---Baris perintah---End Function
- Daru syntak diatas, nama fungsi dapat kita isikan sesuai kebutuhan, argumen-argumen dapat kita isikan parameter, optional dan argumen lain, As type adalah tipe data yang digunakan. Sebuah function dapat dipanggil dengan menggabungkan pernyataan lain, seperti contoh berikut:
Variabel = nama Function Procedure
- Cara lain untuk memanggil fungsi seperti kita memanggil sub prosedur,yaitu:
Call NamaFunctionProcedure [Parameter]
Atau
NamaFunctionProcedure (Parameter)
Nah sekarang kita langsung menuju ke pokok pembicaraan kita yaitu mengenai Macam-Macam Fuction Bawaan pada visual basic,Berikut untuk Macam-Macam Fuction Bawaan pada visual basic dan kita bahas satu per satu:
- Fungsi String
Left → mengambil karakter dari sebelah kiriRight → mengambil karakter dari sebelah kananMid → mengambil karakter dari tengahLTrim → membuang semua semua awal spasi yang ada disebelah kiriRTrim → membuang semua semua awal spasi yang ada disebelah kananTrim → membuang semua spasi yang ada disebelah kiri dan kananLen → memberikan nilai balik integer sebagai panjang stringLCase → mengubah string menjadi huruf kecil semuaUCase → mengubah string menjadi huruf besar semuaStr (int) → mengubah bilangan menjadi string (konversi)Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter
- Fungsi Matematika
Val (Str) → konversi string menjadi integerAsc(Char) → konversi karakter menghasilkan nilai asciiAbs(Number) → memberikan nilai mutlak dari suatu nilai negatifRound(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimalSqr(Number) → memberikan hasil akar kuadrat dari suatu nilaiTan() → mengembalikan nilai tangen dari argument dalam radianCos() → mengembalikan nilai cosinus dari argument dalam radianAtn() → mengembalikan nilai arc tangen dari argument dalam bentuk radianLong() → mengembalikan nilai logaritma dari argumentCInt() → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekatFix() → pemotongan suatu nilai decimal menjadi integerInt() → pembulatan ke bawah suatu nilai decimal
- Fungsi Tanggal Dan Waktu
Date() → mengambil tanggal system komputerIsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggalDateValue → konversi string menjadi dateD(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahunTime() → mengambil waktu dari system komputerH(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deikTimeValue(str) → konversi string ke variable date
Semoga bermanfaat buat kaka-kaka
