Contoh Program Mencari Rata - Rata Visual Basic NET
A.Tampilan awal Program
B. Tampilan Pada Saat diklik Proses
C. Kode Programnya
Public Class Form1
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Dim
hasil(3) As Single
Dim i As Integer
For i =
0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If
i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
hasil(3) = args(i)
End
If
If
hasil(1) < args(i) Then hasil(1) = args(i)
If
hasil(2) > args(i) Then hasil(2) = args(i)
hasil(3) = hasil(0) / 10
Next i
Return
hasil
End Function
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Dim
statistik As Single()
= fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
End Class
D. Penjelasan Kode Programnya
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Berfungsi untuk deklarasi fungsi yang diberikan nama
fstat yang memiliki tipe Singe(), yang memiliki parameter berupa Array yang
bernama args() dengan tipe Object.
Dim
hasil(3) As Single
Dim i As Integer
Pendeklarasian variabel yang bernama hasil() dan bertipe
single yang memiliki kapasitas 3, dan variabel i yang bertipe integer.
For i =
0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If
i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
hasil(3) = args(i)
End
If
If
hasil(1) < args(i) Then hasil(1) = args(i)
If
hasil(2) > args(i) Then hasil(2) = args(i)
hasil(3) = hasil(0) / 10
Next i
Proses perulangan akan dilakukan sebanyak jumlah
perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah dari
semua angka.
- Hasil (1) akan menghasilkan nilai terbesar dalam array.
- Hasil (2) akan menghasilkan nilai terkecil dalam array.
- Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.
Return
hasil
Perintah yang akan mengembalikan nilai hasil ke dalam
fungsi sehingga ketika fungsi dipanggil harus menggunakan variabel yang bertipe
array.
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Dim
statistik As Single()
= fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
TextBox4.Text = statistik(3)
End Sub
End Class
Merupakan sebuah proses pemanggilan fungsi
pada event Button1 pada saat di-klik. Pada pemanggilan fungsi terlebih dahulu
dideklarasikan sebuah variabel yang bertipe array, Kemudian nilai pada index
satu ditampilkan pada textbox yang kita inginkan.