RETURN VALUE FUNCTION
Buatlah
Program dengan Tampilan Form seperti Gambar diatas, dan setelah itu
Tuliskan Coding dibawah ini :
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
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
Private
Sub
Form1_Load(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
MyBase.Load
End
Sub
End
Class
Dari
pengkodean diatas kita akan memperoleh hasil gambar yang menunjukan
hasil pengeksekusian dari yang terbesar 1 dan terkecil 10 yang
seharusnya terbesar 10 dan terkecil 1. Untuk mendapatkan hasil yang
tepat dan benar, ketikan sintak dibawah ini dengan tampilan form yang
sama.
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
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
Private
Sub
Form1_Load(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
MyBase.Load
End
Sub
End
Class
Mengapa Dengan Coding diatas menghasilkan Hasil seperti itu?
Penjelasanya adalah pada Button1 ( Hasil ) 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( Hasil ).
Penjelasanya adalah pada Button1 ( Hasil ) 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( Hasil ).
OVERLOADING FUNCTION
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(1, 2, 3)
End
Sub
End
Class
Langkah
1
Overloading
akan mengecek terlebih dahulu jumlah parameter ketika memanggil
fungsi yang dioverload dalam kasus ini fungsi hitung, terutama saya
akan membahas yang Dua Parameter.
TextBox1.Text
= hitung(1, 2)
Ternyata
banyaknya parameter yang digunakan adalah sebanyak 2 parameter yaitu
1 dan 2, maka program akan mencari fungsi "hitung" yang
mana yang memiliki jumlah parameter 2 ternyata fungsi "hitung"
yang di bawah.
Langkah
2
Setelah
melakukan pengecekan banyaknya parameter maka program akan
mencocokkan tipe data dari parameter yang dilewatkan, apakah sesuai
dengan parameter yang ditentukan atau tidak, jika tidak sesuai maka
program akan berusaha untuk mengkonversinya menjadi tipe data yang
sudah disyaratkan dalam hal ini parameter sudah ditentukan harus
bertipe Integer.
Function
hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
Langkah
3
Setelah
dirasa semua syarat terpenuhi maka program akan menjalankan fungsi
yang paling mendekati dengan fungsi yang dipanggil dalam kasus ini
Function
hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung
= bil1 + bil2
End
Function
Maka
sudah pasti textbox akan menampilkan angka 3. Tetapi jika fungsi
yang dipanggil anda rubah menjadi 3 parameter maka hasilnya akan 6.
FUNCTION
BAWAAN VISUAL BASIC 2010
Di dalam visual basic 2010 sebenarnya banyak sekali function-function
yang sudah terpadu dalam bahasa pemrograman ini, dan contohnya adalah
sebagai berikut :
- Asc()
Mengembalikan
nilai integer dari parameter yang berupa karakter, bisa dibilang
akan menghasilkan kode ASCII dari karakter yang dijadikan parameter
- AscW()
Sama
seperti Asc() hanya saja parameter yang dgunakan adalah bertipe
string
- BeginInvoke()
Mengeksekusi
sebuah thread secara pesifik
- CallByName()
Mengeksekusi
sebuah method dalam sebauah objek, atau mengeset atau mengembalikan
sebuah property dari sebuah objek
- CBool()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe boolean
- CByte()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data byte
- CChar()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data character
- CDate()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data date
- CDbl()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data double
- CDec()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data decimal
- Choose()
Memilih
dan mengembalikan sebuah nilai dari sekumpulan argument
- Chr()
Mengembalikan
sebuah karakter dari kode/parameter yang digunakan.
- ChrW()
sama
seperti Chr ( Mengembalikan sebuah karakter dari kode/parameter yang
digunakan )
- CInt()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data integer
- cLng()
Mengkonversi
sebuah ekspresi / parameternya menjadi tipe data long
- CObj()
Mengkonversi
sebuah ekspresi / parameternya menjadi tipe objek
- Contains()
Mengembalikan
sebuah nilai apakah control yang dimaksud adalah anak/turunan dari
sebuah control
- CreateGraphics()
Membuat
System,Drawing.Graphics pada sebuah control
- CSByte()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data SByte
- CShort()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data short
- CSng()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data Single
- CStr()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data String
- CUInt()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data UInteger
- CULng()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data ULong
- CurDir()
Mnegembalikan
sebuah string yang menggambarkan sebuah path
- CUShort()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data UShort
- DoDragDrop()
Memulai
aksi drag and drop
- Environ()
Mengembalikan
string yang menunjukan operasi sitem yang bekerja
- EOF()
Mengembalikan
niai true jika akhir dari file sudah tercapai
- Err()
Memuat
informasi tentang Run Time Error
- ErrorToString()
Mengembalikan
pesan error yang terkoresponden dengan nomer error
- FreeFile()
Mengembalikan
sebuah nilai integer yang menggambarkan nomer urut dari file
berikutnya yang tersedia untukdigunakan untuk fungsi FileOpen
- GetChar()
Mengembalikan
nilai char dari suatu index sebuah string
- GetTopLevel()
Mengembalikan
nilai true jika sebuah control berada pada level tertinggi
- GetType()
Mendapatkan
System.Type dari instance yang aktif
- Hex()
Mengembalikan
sebuah string yang menampilkan nilai heksadesimal dari parameter
yang digunkan
- Hour()
Mengembalika
sebuah angka dari 0 hingga 23 yang menandakan jam dalam 1 hari
- Int()
Mengembalikan
senuah porsi integer dari sebuah angka
- IsArray()
Mengembalikan
sebuah pernyataan apakah parameter merupakan array atau bukan
- IsDate()
Mengembalikan
sebuah pernyataan apakah parameter merupakan date atau bukan
- LBound()
Mengembalikan
indeks dari batas terbawah sebuah array
- LCase()
Mengembalikan
string ataupun character yang sudah diubah ke lowercase
- Len()
Mengembalikan
sebuah angka yang menunjukkan panjangnya sebuah string
- Mid()
Mengembalikan
string yang berada di tengah kata
- Minute()
Mengembalikan
angka dari 1 sampai 59 dalam satu jam
- Month()
Mengembalikan
angka dari 1 sampai 12 dalam satu tahun
- MsgBox()
Mengembalikan
sebuah objek berupa message box
- Oct()
Mengembalikan
sebuah string yang menampilkan nilai octal dari parameter yang
digunkan
- QBColor()
Mengembalikan
kode warna RGB dari angka pada parameter yang digunakan
- Rnd()
Mengembalikan
sebuah angka bertipe single yang telah diacak
Dari
contoh diatas dapat dikelompokan menjadi berikut ini :
~
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
Tidak ada komentar:
Posting Komentar