Function

Nama : Tika Pradini
Nim    : 11.11.2452
Kelas  : TI11C

 Assmualaikum wr.wb

pada tugas Virtual Basic kali ini saya akan menjelaskan program paramarray dan macam-macam function,semoga bermanfaat....

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

 

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.

Hasil :

                    

Macam-Macam Function Bawaan Pada Vb Net

Dalam Visual Basic, fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung.

~ 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

Itulah, function-function bawaan yang bisa diapplikasikan dalam visual basic

Wassalamualaikum Wr. Wb