Program disamping ternyata ada beberapa kekurangan yaitu hasil nilai terbesar dan kecil terbalik. maka perlu kita perbaiki sehingga hasilnya seperti ini :
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)
atau bisa juga seperti ini
Textbox1.text = statistik (0)
Textbox1.text = statistik (1)
Textbox1.text = statistik (2)
menjadi
Textbox1.text = statistik (0)
Textbox1.text = statistik (1)
MACAM MACAM FUNCTION BAWAAN
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 ’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 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-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.
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
