Nim : 11.11.2488
Tugas ke delapan visual basic.........
Penjelasan
Program paramarray
Public Class
Form2
Private Function
fstat(ByVal ParamArray args() As Object) As Single()
- Membuat sub program dengan Function dengan variable fstat dengan parameter ByVal yang bererti melewatkan parameter secara nilai dengan tipe single yang berarti bilangannya bulat.
Dim hasil(3)
As Single
- Membuat variable dengan nama hasil dengan jumlah teratas atau Ubound 3 yang bertipe data single.
Dim i
As Integer
- Membuat variable dengan nama i yang bertipe data integer.
For i =
0 To UBound(args)
- Merupakan perulangan untuk i=0 sampai batas teratas dari array
hasil(0) =
hasil(0) + args(i)
- hasil (0)=0 karena perulangan belum di mulai.
- args(i) nilai dari indeks array ke i
If i =
0 Then
- Jika i=0 maka lakukan sebagai berikut
hasil(1) = args(i)
- hasil 1=nilai dari indeks ke i
hasil(2) =
args(i)
- hasil 2 =nilai dari indeks ke i
End If
- Selain i=0,atau jika i bukan sama dengan 0
If hasil(1)
< args(i) Then hasil(1) = args(i)
- Jika hasil 1 lebih kecil dari nilai i maka hasil 1= nilai dai indeks ke i
If hasil(1)
> args(i) Then hasil(1) = args(i)
- Jika hasil 2 lebih kecil dari nilai i maka hasil 2= nilai dai indeks ke i
Next i
Return hasil
- Akan kembali ke hasil
End Function
End Class
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)
- Membuat vaariable dengan nama ststistik yang bertipe data single dengan nilai array pada indeks ke 0=1, Indeks ke 1=6, Indeks ke 2=2
TextBox1.Text
= statistik(0)
TextBox2.Text
= statistik(1)
TextBox3.Text
= statistik(2)
- Pada texbox1 akan bernilai sesuai dengan statistik dari indeks ke 0
Demikian
juga pada texbox ke 2 dan 3
End Sub
Hasil :
Over Loading
Function
Overloading function adalah beberapa fungsi yang
memiliki perintah berbeda tetapi namanya sama. Sebagai contoh adalah program
dibawah ini, terdapat 2 Fuction hitung pada program ini namun program hanya
akan menjalankan salah satunya saja.
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
Pada dua procedure diatas, yg pertama mempunyai dua buah deklarasi variabel dan yang kedua mempunyai tiga deklarasi variabel, lalu cara kerja hal ini bergantung dari variabel yg anda suplay pada saat procedure tersebut anda panggil, jika anda hanya menyuplai tiga variabel, pada saat pemanggilan procedure maka yg di eksekusi adalah procedure yang kedua, akan tetapi jika anda memberikan dua nilai variabel pada saat pemanggilan procedure maka yg dieksekusi adalah procedure yg pertama.
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
Pada dua procedure diatas, yg pertama mempunyai dua buah deklarasi variabel dan yang kedua mempunyai tiga deklarasi variabel, lalu cara kerja hal ini bergantung dari variabel yg anda suplay pada saat procedure tersebut anda panggil, jika anda hanya menyuplai tiga variabel, pada saat pemanggilan procedure maka yg di eksekusi adalah procedure yang kedua, akan tetapi jika anda memberikan dua nilai variabel pada saat pemanggilan procedure maka yg dieksekusi adalah procedure yg pertama.
Hasil :
Macam-macam Function
Bawaan
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 spesifik
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
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
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 spesifik
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
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