Tugas 1
Function dengan Return Value Berupa Array
Pada program ini yaitu
untuk menampilkan nilai terkecil dan terbesar pada angka-angka yang sudah ada
pada program dengan hanya memasukkan jumlah dari seluruh angka-angka tersebut.
Yaiyu ketika kita telah memasukkan jumlah dari nilai-nilai yang ada dan kita
klik pada button1 maka akan muncul nilai terkecil dan terbesar dari deretan
nilai-nilai yang ada.
Program ini menjelaskan
tentang funtion dengan return value berupa array. Dimana ketika kita menuliskan
coding pada button1 kita harus menggunakan Array, bukan Single. Karena diatas
telah di deklarasikan menggunakan ParamArray walau pun pada pendeklarasian for
hasil di deklarasikan dengan menggunakan Single. Seperti di bawah ini :
Dim statistik As Array = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
Dan untuk menjalankan program
tersebut tidak lupa kita juga harus mendeklarasikan fstat terlebih dahulu agar
dalam pemanggilan data yang ada bisa menghasilkan output. Dengan deklarasi
seperti dibawah ini
.
.
.
fstat = hasil
End Function
Dan ini adalah gambar dari hasil
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
fstat
= hasil
End Function
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim statistik As Array = 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
untuk program lebih jelasnya klik Link di bawah ini :
http://www.ziddu.com/download/21182378/tugas1.rar.html
Tugas 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.
Program ini menghasilkan output seperti program 1 yaitu ketika kita
masukkan jumlah nilai pada TextBox1 (yang sudah di inputkan sebelumnya pada
coding) dan ketika klik buttom1 maka akan muncul nilai terkecil dan terbesar.
Dan dibawah ini coding
programnya:
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
Untuk lebih
jelasnya di bawah ini adalah gambar hasil programnya :
Untuk program lebih jelasnya klik Link di bawah ini:
Tugas 3
Macam-macam Function Bawaan
Function yaitu
Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada
pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah
variabel.
Adapun syntax penulisan function procedure :
[Private/Public] Function namafungsi(argumen-argumen) [As type]
---Baris perintah---
End Function
Dari sytax diatas, namafungsi bisa diisi
sesuai kebutuhan , argumen-argumen bisa diisi dengan parameter,optional dan
argumen lain, As type adalah tipe data yang digunakan Sebuah Function dapat dipanggil dengan menggabungkan pernyataan
lain, seperti contoh berikut ini
Variabel =
nama Function Procedure
Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau
memanggil sub prosedur yaitu :
Call
NamaFunctionProcedure [Parameter]
Atau
NamaFunctionProcedure (Parameter)
Macam-Macam Function Bawaan :
Ø 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