Sesuai dengan judul judul diatas , yaitu return value array, saya akan mencoba mejelaskan cara kerjanya,
pertama-tama perhatikan nilai "fstat" yang di input setelah kita menekan tombol Button1, disitu kita akan menjumpai nilai yang dimasukkan secara acak mulai dari min1 dan max10 ini adalah angka statik yang menjadi kunci utama dari program ini,baiklah mari kita lanjutkan
ada sedikit masalah pada program diatas jika kita menulisnya tanpa memodifikasi, hasilnya disini maka nilai terbesar dan terkecil yang akan ditampilkan pada textbox2 dan textbox3, dengan kondisi statistik(1) dan statistik(2) akan terbalik dimana terbesar adalah1 dan terkecil adalah 10(aneh bukan?).
angka apa si yang terbalik?? nah pertama ..... yang tadi saya tunjuk diatas itu terdapat nilai terkecil =1 dan terbesar adalah 10 pada nilai "fstat" (fstat adalah = nilai static yang di input dari button1) nilai itu pertama- tama akan urutkan, dijumlahkan dan ditampilkan pada kolom textbox1.text dengan keadaan yang ditampilkan adalah array dengan statistik(0),dengan menggunakan kode program
"hasil(0) = hasil(0)+args(i)
dimana "i" adalah nilai dari 0 sampai Ubound.
UBound sendiri adalah fungsi yang dapat digunakan pada data array Fungsi UBound berguna untuk mengambil index tertinggi dari suatu array.
setelah itu program itu akan mengambil dan menampilkan array yang berada pada index (1) dan (2) dan akan ditampilkan pada textbox(1) dan (2), dengan ketentuan pada program :
"if hasil(1)>args(i) Then hasil(1) = args(i)"
"if hasil(2)<args(i) Then hasil(2) = args(i)"
nah disini kita akan menjumpai nilai dari terbesar dan terkecil yang kita bahas tadi diatas itu terbalik dikarenakan penulisan kode lebih besar atau kurang dari args itu terbalik, maka kita bisa merubahnya dengan cara merubah itu menjadi :
"if hasil(1)<args(i) Then hasil(1) = args(i)"
"if hasil(2)>args(i) Then hasil(2) = args(i)"
bisa juga dengan merubah kode statistik yang diambil dari :
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)
Nah programpun beres dan berjalan dengan benar.
-MACAM MACAM FUNGSI BAWAAN
Fungsi-fungsi
konversi ke integer.
Tiga macam fungsi
- CInt () = membuat nilai desimal 0.5 dan lebih ke integer terdekat
- Int () = Pembuatan suatu nilai desimal kebawah
- Fik () = memotong suatu nilai desimal menjadi integer
Memberikan perlakuan yang sama untuk fungsi Fix() dan Int() bilangan positif.
Contoh:
ans1 = Int
(10.5) mengembalikan 10
ans2 = Fix
(10.5) mengembalikan 10
Memberikan perlakuan yang Berbeda untuk fungsi Fix() dan Int() bilangan Negatif.
ans1 = Int
(-10.5) mengembalikan -11
ans2 = Fix
(-10.5) mengembalikan 10
Untuk CInt : Mengembalikan pembulatan angka yang terdekat.
ans1 = CInt
(10.1) mengembalikan 10
ans2 = CInt
(10.5) mengembalikan 10
ans3 = CInt
(10.6) mengembalikan 10
ans2 = CInt
(-10.5) mengembalikan -10
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
Contoh sebuah data yang merupakan hasil bagi (1 / 7)
lblNilai =
(1 / 7) ditampilkan .1428571
lblNilai =
CDbl (1 / 7) ditampilkan .142857142857143
Fungsi-fungsi
matematika
Fungsi-fungsi ini bekaitan dengan matematika :
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
fungsi-fungsi string yang digunakan oleh VisualStudio
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
Adalah 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
Digunakan jika sebuah program ingin menggunakan tanggal dan waktu yang ada pada Komputer :
Now ()
mengembalikan tanggal dan waktu sistem
Date ()
mengembalikan tanggal dari sistem
Time ()
mengembalikan waktu dari sistem
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
A$ = Now
’lquote hasil 10/8/02 18:16:35 AM
Tidak ada komentar:
Posting Komentar