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(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 kiriRight → mengambil karakter dari sebelah kananMid → mengambil karakter dari tengahLTrim → membuang semua semua awal spasi yang ada disebelah kiriRTrim → membuang semua semua awal spasi yang ada disebelah kananTrim → membuang semua spasi yang ada disebelah kiri dan kananLen → memberikan nilai balik integer sebagai panjang stringLCase → mengubah string menjadi huruf kecil semuaUCase → mengubah string menjadi huruf besar semuaStr (int) → mengubah bilangan menjadi string (konversi)Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter
2. Fungsi Matematika
Val (Str) → konversi string menjadi integerAsc(Char) → konversi karakter menghasilkan nilai asciiAbs(Number) → memberikan nilai mutlak dari suatu nilai negatifRound(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimalSqr(Number) → memberikan hasil akar kuadrat dari suatu nilaiTan() → mengembalikan nilai tangen dari argument dalam radianCos() → mengembalikan nilai cosinus dari argument dalam radianAtn() → mengembalikan nilai arc tangen dari argument dalam bentuk radianLong() → mengembalikan nilai logaritma dari argumentCInt() → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekatFix() → pemotongan suatu nilai decimal menjadi integerInt() → pembulatan ke bawah suatu nilai decimal
3. Fungsi Tanggal dan Waktu
Date() → mengambil tanggal system komputerIsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggalDateValue → konversi string menjadi dateD(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahunTime() → mengambil waktu dari system komputerH(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deikTimeValue(str) → konversi string ke variable date
