- Buat program ini.
- Isikan kode ini .
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)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
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, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
-Tampilan program
Penjelasan :
Penjelasan dari aplikasi Array di atas :
A.kenapa dapat keluar angka 55, karena hasil dari jumlah array yang terdapat pada kooding method nya yaitu ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”.
B.kenapa dapat keluar angka 10, karena bilangan terbesar dari array tersebut adalah 10.
C. kenapa dapat keluar angka 1, karena bilangan terkecil dari array tersebut adalah 1.
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil3 As Single
"memesan variabel hasil berjumlah 3 yaitu hasil , hasil1 , hasil3 "
Dim i As Integer
For i = 0 To UBound(args)
"mendeklarasi kan variabel 'i' sebagai integer dan perualangan 'i' sebanyak array yang di pesan (To UBound(args))"
hasil = hasil + args(i)
If i = 0 Then
hasil1 = args(i)
hasil2 = args(i)
End If
If hasil1 < args(i) Then hasil1 = args(i)
If hasil2 > args(i) Then hasil2 = args(i)
Next i
Return hasil
End Function
"jika i= 0 maka maka hasil 1 = args jumlah index nya demikian juga hasil2
Jika hasil1 kurang dari args(i) maka hasil1 sama dengan hasil args (i) nya demikian juga hasil dua lebih besar dari args (i) maka hasil2 sama dengan args (i) dan terus mengulang sampai jumlah index"
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, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
"Penjelasan pada button 1 memesan variable statistik
Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan d atas
Textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut
Textbox3 untuk menampilkan nilai atau angka terkecil dari array tersebut"
2. Tugas Kedua
-Buat form seperti ini.
- Isikan kode ini.
Public Class Form1
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1, 2, 3)
End Sub
End Class
-Hasil Program.
- Penjelasan :
sama dengan array sebelumnya, namun dalam aray ini dideklarasikan lebih dari satu fungsi dan hitung untuk menampung penjumlahan array dari beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu fungsi terakhir tergantung dari kita memesan angkanya
dan angka 1 di deklarasikan untuk bil1, angka 2 untuk bil2, dan angka 3 untuk bil3, masih bisa d tambahkan sesuai dengan yang di inginkan dan ada bil4 untuk angka 10.
3. Tugas 3
Ada beberapa jenis procedure yang digunakan dalam Visual Basic
1. Sub Procedure yang tidak mengembalikan nilai
2. Function Procedure yang mengembalikan nilai
3. Property Procedure yang dapat mengembalikan nilai dan diisi nilai yang mengacu pada suatu objek.
Function Procedure
Pada Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, dan Chr, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan kadang-kadang tidak memenuhi kebutuhan programmer, untuk keperluan tersebut anda dapat menciptakan fungsi-fungsi sendiri yang dikenal dengan Function Procedure.
Syntax penulisan Function Procedure
[Private|Public][Static] Function nama_procedure(argumen) [As type]
Pernyataan-pernyataan
End Function
Ada tiga perbedaan antara function dan procedure
1. Umumnya anda dapat memanggil suatu function dengan mengikut nama function sisi kanan dari statement atau ekspresi.
2. Function memiliki type data seperti suatu variabel. Ini menentukan type yang dari nilai yang di kembalikan
3. Nilai kembali dimasukkan ke nama function itu sendirinya, dan suatu function dapat menjadi bagian dari suatu ekspresi yang panjang.
untuk function nya :
a. MsgBox() Function
Untuk menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu perintah dari suatu ekspresi.
b. The InputBox() Function
Untuk menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam form.
c. The Mid Function
Untuk mengambil teks dari suatu kata yang berada di tengah.
d. The Right Function
Untuk mengambil teks dari suatu kata dari kanan.
e. The Left Function
Untuk mengambil teks dari suatu kata dari kiri.
f. The Trim Function
Untuk mengatur space kosong pada kedua sisi dari suatu kata.
g. The Ltrim Function
Untuk menghapus space kosong pada bagian kiri suatu teks.
h. The Rtrim Function
Untuk menghapus space kosong pada bagian kanan suatu teks.
i. The lnStr Function
Untuk mengetahui panjang suatu string.
j. The Ucase and The Lcase Function
The Ucase function berfungsi mengubah semua karakter menjadi huruf kapital semua, dan sebaliknya dengan Lcase, yaitu mengubah semua karakter menjadi huruf kecil semua.
k. The Chr and The Asc Functions
The Chr berfungsi mengubah ASCII Code ke string dan sebaliknya dengan The Asc, yaitu mengubah Karakter atau string atau simbol ke ASCII Code.
l. The Abs Function
Mengembalikan nilai absolut dari suatu angka yang diberikan.
m. The Exp Function
Eksponensi (pangkat) nilai.
n. The Fix Function
Untuk membulatkan suatu bilangan desimal.
o. The Int Function
Mengubah suatu angka ke integer atau sama saja dengan the fix function.
p. The Log Function
Untuk mendapatkan nilai algoritma dari suatu angka.
q. The Rnd() Function
Untuk mengacak suatu perintah.
r. The Round Function
Untuk mengatur tempat nilai desimal yang kita inginkan.
s. The Format Function
Untuk memformat fungsi dimana ia menampilkan nilai angka. Style argumentnya bermacam-macam yaitu general number, fixed, standard, currency, percent) Predefined Formats of date and time
Untuk mengatur tanggal dan waktu.
Tidak ada komentar:
Posting Komentar