tugas pertemuan 8

      1.      Penjelasan program paramarray

Private Function fstat(ByVal ParamArray args() As Object) As Single()

Penjelasan: membuat function dengan nama fstat dengan parameter ByVal yang bererti melewatkan parameter secara nilai dengan tipe data single.

Dim hasil(3) As Single

Penjelasan: mendeklarasikan variable dengan nama hasil dengan jumlah teratas atau Ubound 3 yang bertipe data single.

Dim i As Integer

For i = 0 To UBound(args)

Penjelasan: mendeklarasikan variabel i sebgai integer dan i merupakan perulangan untuk i=0 sampai batas teratas dari array.

hasil(0) = hasil(0) + args(i)

Penjelasan: hasil (0) = 0 karena perulangan belum di mulai.

args(i) = nilai dari indeks array ke i

If i = 0 Then

hasil(1) = args(i)

hasil(2) = args(i)

End If

Penjelasan: jika i=0 maka hasil(1) =  nilai dari indek ke i dan hasil(2) = nilai dari indeks ke i.

If hasil(1) < args(i) Then hasil(1) = args(i)

Penjelasan: 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)

Penjelasan: Jika hasil 2 lebih kecil dari nilai i maka hasil 2= nilai dai indeks ke

Next i

Return hasil

Penjelasan: 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)

Penjelasan: membuat vaariable dengan nama ststistik yang bertipe data single dengan nilai array pada indeks ke 0=1, Indeks ke 1=6 dan Indeks ke 2=2

TextBox1.Text = statistik(0)

TextBox2.Text = statistik(1)

TextBox3.Text = statistik(2)

Penjelasan: pada texbox1 akan bernilai sesuai dengan statistik dari indeks ke 0 demikian juga pada texbox ke 2 dan 3

End Sub

Untuk mengahiri program.

     

      2.      Overloading function.

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

Penjelasan: ada dua function diatas, yg pertama mempunyai dua buah deklarasi variabel dan yang kedua mempunyai tiga buah deklarasi variable.

Prinsip kerjanya kerjanya?

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.

      3.      Macam-macam function bawaan

      1.      Fungsi String

      Left : untuk mengambil karakter dari sebelah kiri

      Right : untuk mengambil karakter dari sebelah kanan

      Mid : untuk mengambil karakter dari tengah

      LTrim : untuk membuang semua semua awal spasi yang ada disebelah kiri

      RTrim : untuk membuang semua semua awal spasi yang ada disebelah kanan

      Trim : untuk membuang semua spasi yang ada disebelah kiri dan kanan

      Len : untuk memberikan nilai balik integer sebagai panjang string

      LCase : untuk mengubah string menjadi huruf kecil semua

      UCase : untuk mengubah string menjadi huruf besar semua

      Str (int) : untuk mengubah bilangan menjadi string (konversi)

      Chr (Asscii) : untuk konversi dari nilai ascii menghasilkan karakter

     2.       Fungsi Matematika

      Val (Str) : untuk konversi string menjadi integer

      Asc(Char) : untuk konversi karakter menghasilkan nilai ascii

      Abs(Number) : untuk memberikan nilai mutlak dari suatu nilai negatif

      Round(Number,Decimal) : untuk membulatkan suatu angka sampai beberapa digit decimal

      Sqr(Number) : untuk memberikan hasil akar kuadrat dari suatu nilai

      Tan(): untuk mengembalikan nilai tangen dari argument dalam radian

      Cos(): untuk mengembalikan nilai cosinus dari argument dalam radian

      Atn(): untuk mengembalikan nilai arc tangen dari argument dalam bentuk radian

      Long(): untuk mengembalikan nilai logaritma dari argument

      CInt(): untuk pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

      Fix(): untuk pemotongan suatu nilai decimal menjadi integer

      Int(): untuk pembulatan ke bawah suatu nilai decimal

      3.      Fungsi Tanggal dan Waktu

      Date() : untuk mengambil tanggal system komputer

      IsDate : untuk memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal

      DateValue : untuk konversi string menjadi date

      D(Date),M(Date),Y(Date) : untuk memberikan nilai integer dari Variabel Date untuk hari , bulan dan        tahun

     Time(): untuk mengambil waktu dari system komputer

     H(Date),M(Date),S(Date) : untuk memberikan nilai integher dari variable date untuk jm, menit dan deik

     TimeValue(str) : untuk konversi string ke variable date