TUGAS PEMPROGRAMAN VISUAL 8
MENJELASKAN SUB DAN FUNGSI
1.
Penjelasan
fungsi return value pada form dibawah ini
Tampilan
form diatas kita buat dulu, lalu pada code nya kita tulis seperti ini
Public Class
Form6
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
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
Ketentuannya,
jika kita mengklik tombol button1 akan muncul total, terbesar dan terkecil.
Nilai-nilai tersebut mengambil dari array fstat.
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Disitu
ada fungsi fstat dengan menggunakan paramater ByVal ParramArray, yang artinya
dia melewatkan secara nilai dan berupa array yang bisa menampung banyak
elemen. Nama parameternya yaitu args()
dan bertipe data object sedang fstat nya single.
Dim hasil(3) As
Single
Dim i As
Integer
Diatas adalah pendeklarasian variabel
secara lokal, variabel hasil(3) artinya dia menampung 3 elemen yaitu hasil(0),
hasil(1) dan hasil(2).
For i = 0 To
UBound(args)
hasil(0) = hasil(0) + args(i)
Fungsi for
diatas yaitu untuk melakukan perulangan sebanyak Ubonds(args), artinya sebanyak
batas atas array args yang tidak lain array args sama dengan array fstat dan
melakukan perintah seperti diatas
If
i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
End
If
dia akan
melakukan perintah tersebut jika i = 0, dan perintah tersebut hanya dilakukan
satu kali saja yaitu pada saat pertama.
If
hasil(1) < args(i) Then hasil(1) = args(i)
If
hasil(2) > args(i) Then hasil(2) = args(i)
Next
Return
hasil
Jika
hasil(1) > args(i), args(i) elemen dari array fstat maka nilai hasil(1)
diganti args(i), dan jika hasil(2) < args(i) maka nilai hasil(2) diganti
dengan args(i) yang tadi. Sebagai contoh, hasil (1) sebelumnya nilainya 1,
berarti dia memnuhi syarat yang pertama yaitu 1
< dari 6 (args(i)) lalu nilai 1 diganti 6, begitupun seterusnya, jadi
melihat kondisinya. Dan hasil(2) yang nilainya 1 tidak memenuhi syarat yang
kedua jadi hasil(2) nilainya tetap 1. Disitu ada fungsi return, yang artinya
dia kan mengembalikan nilai. Jadi si pemanggil meminta ke fungsi tersebut dan
langsung mengembalikan ke pemanggil yaitu hasil.
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
Perintah diatas
yaitu memanggil fungsi fstat, dimana ia disamakan dengan variabel statistika.
Dan sekaligus, elemen array pada fstat diisi.
Textbox1 yang
tidak lain adalah total, dia akan menampilkan jumlah keseluruhan elemen array
fstat, textbox1 akan menampilkan nilai terbesar dari elemen array fstat dan
textbox2 akan menampilkan nilai terkecil dari elemen array fstat.
2.
Penjelasan
overloading
Public Class Form7
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(1, 2, 3)
End Sub
End Class
Jadi ada 2 buah fungsi dengan nama
yang sama yaitu hitung, tapi berbeda jumlah parameternya. Hitung yang pertama
berjumlah 2 parameter sedang hitung ke2 ada 3 parameter
Contoh
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung =
bil1 + bil2
End Function
ByVal bil1 As Integer itu sama saja dengan
bil1. Begitupun dengan bil2.
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
End Class
Button1 memanggil fungsi hitung, dan
dia memilih hitung yang ke2 karna jumlah elemennya tiga, dan bisa diibaratkan 1
sama dengan bil1 yang mana bil1 sama dengan ByVal bil1 As Integer, 2 sama
dengan bil2 yang mana bil2 sama dengan ByVal bil2 As Integer, 3 sama dengan
bil3 yang mana bil3 sama dengan ByVal bil2 As Integer. Jadi ia memmilih sub
yang hampir mendekati si pemanggil.
Jadi hasil akhirnya yaitu 6, karna ia
menjumlahkan 1+2+3.
3.
Macam-macam
function bawaan visual basic 2010
a.
MsgBox() Function
Untuk
menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu
perintah dari suatu ekspresi.
b.
The InputBox() Function
Untuk
menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam
form.
c.
The Mid Function
Untuk
mengambil teks dari suatu kata yang berada di tengah.
d.
The Right Function
Untuk
mengambil teks dari suatu kata dari kanan.
e.
The Left Function
Untuk
mengambil teks dari suatu kata dari kiri.
f.
The Trim Function
Untuk
mengatur space kosong pada kedua sisi dari suatu kata.
g.
The Ltrim Function
Untuk
menghapus space kosong pada bagian kiri suatu teks.
h.
The Rtrim Function
Untuk
menghapus space kosong pada bagian kanan suatu teks.
i.
The lnStr Function
Untuk
mengetahui panjang suatu string.
j.
The Ucase and The Lcase Function
The
Ucase function berfungsi mengubah semua karakter menjadi huruf kapital semua,
dan sebaliknya dengan Lcase, yaitu mengubah semua karakter menjadi huruf kecil
semua.
k.
The Chr and The Asc Functions
The
Chr berfungsi mengubah ASCII Code ke string dan sebaliknya dengan The Asc,
yaitu mengubah Karakter atau string atau
simbol ke ASCII Code.
l.
The Abs Function
Mengembalikan
nilai absolut dari suatu angka yang diberikan.
m.
The Exp Function
Eksponensi
(pangkat) nilai.
n.
The Fix Function
Untuk
membulatkan suatu bilangan desimal.
o.
The Int Function
Mengubah
suatu angka ke integer atau sama saja dengan the fix function.
p.
The Log Function
Untuk
mendapatkan nilai algoritma dari suatu angka.
q.
The Rnd() Function
Untuk
mengacak suatu perintah.
r.
The Round Function
Untuk
mengatur tempat nilai desimal yang kita inginkan.
s.
The Format Function
Untuk
memformat fungsi dimana ia menampilkan nilai angka. Style argumentnya
bermacam-macam yaitu general number, fixed, standard, currency, percent)
t.
Predefined Formats of date and time
Untuk
mengatur tanggal dan waktu.
Tidak ada komentar:
Posting Komentar