Buat Form seperti gambar di bawah ini :
dengan memasukkan 3 buah Label yang diberi nama Total, Terbesar dan terkecil kemudian masukkan TextBox 3 buah untuk isinya terakhir masukkan button 1 buah untuk prosesnya.
setelah form jadi masukkan kose programnya :
Public Class Form1
Private Function
bebas(ByVal ParamArray
args() As Object)
As Single()
Dim hasil(3) As Single
Dim a As Integer
For a = 0 To
UBound(args)
hasil(0) = hasil(0) + args(a)
If a = 0 Then
hasil(1) = args(a)
hasil(2) = args(a)
End If
If hasil(1) < args(a) Then
hasil(1) = args(a)
If hasil(2) > args(a) Then
hasil(2) = args(a)
Next a
Return hasil
End Function
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim statistik As Single() = bebas(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
Berdasarkan kode program diatas, saat Button 1 di klik maka
program akan menjalankan proses penjumlahan angak yang kita masukkan dalam kode programnya hasil(0) = hasil(0) + args(a) ( Dim statistik As Single() = bebas(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)), mencari nilai terbesar dan terkecil
If hasil(1) < args(a) Then
hasil(1) = args(a)
If hasil(2) > args(a) Then
hasil(2) = args(a)
dan
Textbox1.text = statistik(0) = textbox1 akan terisi dari nilai yang dihasilkan oleh proses hasil(0)
Textbox2.text = statistik(1) = textbox2 akan terisi dari nilai yang dihasilkan oleh proses hasil(1)
Textbox3.text = statistik(2) = textbox3 akan terisi dari nilai yang dihasilkan oleh proses hasil(2)
maka jika dijalankan maka hasilnya akan seperti gambar di bawah ini :
MACAM-MACAM FUNCTION BAWAAN VB 2010
1. 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
2. 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
3. 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
