Tugas ke-8 mata kuliah visual basic :
1. Menjelaskan Function dengan return value berupa array dan menambahkan nilai rata-rata
2. Menjelaskan overloading function
3. Macam-macam function
Function dengan return value berupa array
tugas no.1
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
dengan tampilan form :
Aplikasi ini menampilkan nilai total, nilai terbesar, dan nilai terkecil. Namun ada kesalahan pada koding yaitu :
Dan untuk menampilkan nilai rata-rata perlu ditambah rumus :
Next i
hasil(3) = hasil(0) / args.Length
Return hasil
Lalu penambahan pada Dim hasil(4) As Single
Pada Button1 juga ditambahkan lagi satu Textbox yaitu TextBox4.Text = statistik(3)
Sehingga hasil running seperti di bawah ini :
Overloading Function
sintaks untuk tugas no.2 :
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)
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 overloading function ada beberapa function dengan nama sama namun tipe data berbeda. Pada contoh koding di atas ada 2 function hitung dengan jumlah parameter yang berbeda, yaitu dua dan tiga. tipe data yang digunakan sama. jika di run perintah terlebih dahulu mengecek jumlah parameternya yang sama, lalu mengecek tipe datanya sama atau mendekati.
Jika kita tekan tombol Button1 muncul angka 6 yang didapat dari 1 + 2 + 3 = 6. Terjadi karena pemanggilannya adalah hitung(1,2,3). Di bawah adalah hasil running :
Macam-macam Function Bawaan
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
Demikian tugas yang telah saya kerjakan, terimakasih.
