Tugas 8 Function with Return Value dan array

Pada tugas kali ini kita mempunya sourch code seperti di bawah ini,,,
sourch code tersebut  tidak salah namun terdapat kesalahan dalam out putnya, jika dijalankan maka hasilnya terbesar itu *1 dan terkecil adalah *10, dan itu salah, seharusnya adalah *10 terbesar dan *1 adalah terkecil...

Maka ada sedikti pembenahan dari souce code tersebut. Ada 2 alternatif yaitu :

Merubah sauce kode

Textbox1.text = statistik (0)

Textbox1.text = statistik (1)

Textbox1.text = statistik (2)

menjadi

Textbox1.text = statistik (0)

Textbox1.text = statistik (1)

Textbox1.text = statistik (3)

Atau

Merubah souce code

if hasil(1)>args(i) Then hasil(1) = args(i)

if hasil(1)<args(i) Then hasil(2) = args(i) 

menjadi

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

if hasil(1)>args(i) Then hasil(2) = args(i) 

MACAM MACAM FUNCTION BAWAAN

Fungsi ’f1’endash Fungsi konversi tipe data

CCur () mengkonversi argumen menjadi tipe data currency 

CDbl () mengkonversi argumen menjadi tipe data double (presisi ganda) 

CLng () mengkonversi argumen menjadi tipe data long integer 

CSng () mengkonversi argumen menjadi tipe data single 

CStr () mengkonversi argumen menjadi tipe data string 

Ivar () mengkonversi argumen menjadi tipe data variant 

Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) 

lblNilai = (1 / 7) ditampilkan .1428571 

lblNilai = CDbl (1 / 7) ditampilkan .142857142857143 

Fungsi-fungsi matematika 

Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada 

Abs () mengembalikan nilai absolut dari argumen 

Atn () mengembalikan nilai arc tangen dari argumen dalam bentuk radian 

Cos () mengembalikan nilai cosinus dari argumen radian 

Exp () mengembalikan nilai exponensial dari argumen 

Log () mengembalikan nilai logaritma dari argumen 

Sin () mengembalikan nilai sinus dari argumen dalam radian 

Sqr () mengembalikan nilai akar dari argumen 

Tan () mengembalikan nilai tangen dari argumen dalam radian 

Fungsi-fungsi konversi ke integer. 

        Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada     tabel .

CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat

Fix () ===> Pemotongan suatu nilai desimal menjadi integer

Int () ===> Pembuatan ke bawah suatu nilai desimal

Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. 

Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama

ans1 = Int (14.5) mengembalikan 14 

ans2 = Fix (14.5) mengembalikan 14 

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda. 

ans1 = Int (-14.5) mengembalikan -15 

ans2 = Fix (-14.5) mengembalikan 14 

Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() : 

ans1 = CInt (14.1) mengembalikan 14

ans2 = CInt (14.5) mengembalikan 14

ans3 = CInt (14.6) mengembalikan 14

ans2 = CInt (-14.5) mengembalikan -14

Fungsi-fungsi String

Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut 

LCase$ () mengembalikan argumen string sebagai tipe data string huruf 

Ucase () mengembalikan argumen string sebagai tipe data variant huruf besar 

Ucase$ () mengembalikan argumen string sebagai tipe data string huruf besar 

Val () mengembalikan nilai number dari argumen string 

Len () mengembalikan nilai sumber yang menunjukan panjang string

Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :

- Left$(StringVal, length)

  Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .

- Right$(StringVal, length)

  Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .

- Mid$(StringVal, startVal, length)

   Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .

Contoh : 

HurufKecil = LCase (“Rickie”) ’HurufKecil = “rickie” 

HurufBesar = Ucase (“Faizin”) ’HurufBesar = “FAIZIN” 

Title = “Apa Kabar”

lTitle = Left$ (Title, 4) ’lTitle = “Halo” 

RTitle = Right$ (Title, 5) ’RTitle = “Dunia” 

MTitle = Left$ (Title, 2, 6) ’MTitle = “alo Du” 

Panjang = Len (“Biru dan hijau”) ’length = 14 

Fungsi Date and Time pada VB 

Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format

pemakaiannya ( lihat contoh di bawah ini)

A$ = Time ’lquote hasil 18:16:35 AM

MyTime = #4:35:17 PM# ’lquote assign a time

Time = MyTime ’lquote set system time to MyTime

Now : merekam tanggal dan waktu sekarang

A$ = Now ’lquote hasil 10/8/02 18:16:35 AM

Fungsi-fungsi Tanggal dan Waktu

Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi ’endash fungsi Now(), Date(), dan Time(). 

Fungsi-fungsi Tanggal dan Waktu 

Now () mengembalikan tanggal dan waktu sistem 

Date () mengembalikan tanggal dari sistem 

Time () mengembalikan waktu dari sistem 

Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu 

Format (Expresi [, format[, firstdayofweek[, firstweekofyear]]]) 

Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.