Tugas Pemrograman Visual 5
Procedure (SUB) dan Function
Nama : ANTON NUGROHO
NIM : 11.11.2352
KELAS : TI11A
APLIKASI 1
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"
APLIKASI 2
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 bil3As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3As Integer, ByVal bil4 As Integer) As Integer
hitung = bil1 + bil2 + bil3
+ bil4
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1,
2, 3,10)
End Sub
End Class
"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"
MACAM-MACAM FUNGSI BAWAAN DALAM PROCEDURE DAN FUNCTION
Procedure
digunakan untuk memadatkan tugas-tugas berulang ataupun proses yang digunakan bersama, seperti perhitungan yang sering dilakukan, text dan
manipulasi kontrol, serta operasi database.
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.
