TUGAS PEMROGRAMAN VISUAL 8
1.Menjelaskan Program:
Private
Function fstat( ByVal ParamArray args() As Object ) As Single ()
Disitu ada
fungsi fstat dengan menggunakan paramater ByVal ParramArray, yang artinya
dia melewatkan secara nilai dan berupa array yang bisa menampung banyak elemen.
Nama
parameternya yaitu args() dan bertipe data object sedang fstat nya single.
Dim
hasil(3) As Single
Dim i As
Integer
Diatas
adalah pendeklarasian variabel secara lokal, variabel hasil(3)artinya dia
menampung 3 elemen yaitu hasil(0), hasil(1) dan hasil(2).
For i = 0
To UBound(args)
hasil(0)
= hasil(0) + args(i)
Fungsi for
diatas yaitu untuk melakukan perulangan sebanyak Ubonds(args), artinya sebanyak
batas atas array args yang tidak lain array args sama dengan array fstat dan
melakukan perintah seperti diatas
If i = 0
Then
hasil(1)
= args(i)
hasil(2)
= args(i)
End If
dia akan
melakukan perintah tersebut jika i = 0, dan perintah tersebut hanya dilakukan
satu kali saja yaitu pada saat pertama.
If
hasil(1) < args(i) Then hasil(1) = args(i)
If
hasil(2) > args(i) Then hasil(2) = args(i)
Next
Return
hasil
Jika
hasil(1) > args(i), args(i)elemen dari array fstat maka nilai hasil(1)
diganti args(i), dan jika hasil(2) < args(i) maka nilai hasil(2) diganti
dengan args(i) yang tadi. Sebagai contoh, hasil (1) sebelumnya nilainya 1,
berarti dia memnuhi syarat yang pertama yaitu 1 < dari 6 (args(i)) lalu
nilai 1 diganti 6, begitupun seterusnya, jadi melihat kondisinya. Dan hasil(2)
yang nilainya 1 tidakmemenuhi syarat yang kedua jadi hasil(2) nilainya tetap 1.
Disitu ada fungsi return, yang artinya dia kan mengembalikan nilai. Jadi si
pemanggil meminta ke fungsi tersebut dan langsung mengembalikan ke pemanggil
yaitu hasil.
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
Perintah
diatas digunakan untuk memanggil fungsi fstat, dimana ia disamakan dengan
variabel statistika. Dan sekaligus, elemen array pada fstat diisi.
Textbox1
yang tidak lain adalah total, dia akan menampilkan jumlah keseluruhan elemen
array fstat, textbox1 akan menampilkan nilai terbesar dari elemen array fstat
dan textbox2 akan menampilkan nilai terkecil dari elemen array fstat.
2. Penjelasan overloading
Public Class
Form7
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
Penjelasan:
Maka ada 2
buah fungsi dengan nama yang sama yaitu hitung, tapi berbeda jumlah
parameternya. Hitung yang pertama berjumlah 2 parameter sedang hitung ke 2 ada
3 parameter
Contoh :
Function
hitung( ByVal bil1 As Integer , ByVal bil2 As Integer ) As Integer
hitung =
bil1 + bil2
End Function
ByVal bil1
As Integer itu sama saja dengan bil1. Begitupun dengan bil2.
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
Button1
memanggil fungsi hitung, dan dia memilih hitung yang ke2 karena jumlah elemennya
tiga, dan bisa diibaratkan 1 sama dengan bil1 yang mana bil1 sama dengan ByVal
bil1 As Integer, 2 sama dengan bil2 yang mana bil2 sama dengan ByVal bil2 As
Integer, 3 sama dengan bil3 yang mana bil3 sama dengan ByVal bil2 As Integer.
Jadi ia memmilih sub yang hampir mendekati si pemanggil.
Jadi hasil
akhirnya yaitu 6, karna ia menjumlahkan 1+2+3.
3. Fungsi-fungsi Bawaan VB
Dalam Visual Basic, fungsi bawaan adalah suatu fungsi yang sudah ada
dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah
fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu
tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat
digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan
matematika, dll.
Fungsi-fungsi
Numerik
Dengan
menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah
program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang
berkaitan dengan tipe data numerik.
Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :
a.
Fungsi-fungsi
konversi ke integer
CInt() Pembulatan nilai
desimal 0.5 dan lebih ke integer yang lebih dekat
Fix() pemotongan suatu
nilai desimal menjadi integer
Int() Pembulatan ke
bawah sualu nilai desimal.
b.
Fungsi – fungsi konversi
tipe data
CCur() Mengkonversi
argumen menjadi tipe data currency
CDbl() Mengkonversi
argumen menjadi tipe data double (presisi ganda)
CLng() Mengkonversi
argumen menjadi tipe data long interger
CSng() Mengkonversi
argumen menjadi tipe data single
CStr() Mengkonversi
argumen menjadi tipe data string
IVar() Mengkonversi
argumen menjadi tipe data variant
c.
Fungsi-fungsi matematika
Fungsi-fungsi
yang bekaitan dengan matematika seperti:
Abs() Mengembalikan
nilai absolut dari argumen
Atn() Mengembalikan
nilai arc tangen dari argumen dalam bentuk radian
Cos() Mengembalikan
nilai cosinus dari arumen dalam radian
Exp() Mengembalikan
nilai exponensial dari argumen
Log() Mengembalikan
nilai logaritma dari argumen
Sin() Mengembalikan
nilai sinus dari argumen dalam radian
Sqr() Mengembalikan
nilai akar dari argumen
Tan() Mengambalikan
nilai tangen dari argumen dalam radian
Fungsi-fungsi String
LCase$() Mengembalikan argumen
string sebagai tipe data string huruf kecil
UCase() Mengembalikan argumen
string sebagai tipe data variant huruf
besar
UCase$() Mengembalikan argumen
string sebagai tipe data string huruf besar
Val() Mengembalikan
nilai number dari argumen string
Len() Mengembalikan
nilai number yang menunjukkan panjang string
Substring merupakan bagian dari suatu
string. Untuk memperoleh substring dari suatu
string dapat digunakan 3 fungsi berikut :
a.
Left$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah
kiri sebanyak length karakter .
b.
Right$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
c.
Mid$(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string dari startVal sebanyak length
karakter .
Fungsi-fungsi Tanggal
dan Waktu
Jika dalam suatu aplikasi diperlukan
pengambilan tanggal atau waktu dari sistem,Visual Basic menyediakan fungsi –
fungsi Now(), Date(), dan Time()
Now() Mengembalikan
tanggal dan waktu sistem
Date() Mengembalikan
tanggal dari sistem
Time() Mengembaikan waktu
dari sistem
Fungsi
Date and Time pada VB
-Time
mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
pemakaiannya ( lihat contoh di bawah ini)
A$ = Time ‘hasil 18:16:35 AM
MyTime = #4:35:17 PM# ‘assign a time
Time = MyTime ‘set system time to MyTime
-Now
merekam tanggal dan waktu sekarang
A$ = Now ‘hasil 10/8/02 18:16:35 AM
-Timer
menghitung jumlah detik sejak
tengah malam
Start = Timer ‘hasilnya 29991
-Date
menetapkan hari pada sistem komputer
Dim MyDate
MyDate = #February 12, 1985 # ‘Assign a date
Date = MyDate ‘Change system date
-DateAdd
menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval
waktu yang ditetapkan dari tanggal lama.
DateAdd(kode_interval,jumlah_interval,tanggal_lama)
-DateDiff
mencari interval waktu antara dua tanggal
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Dim
TheDate As Date ‘declare variables
TheDate = InputBox(“Enter a date”) Msg = “Day from today : “ &
DateDiff(“d”, Now, TheDate)
MsgBox Msg
-DateSerial
menghasilkan tanggal dengan bulan/hari/tahun
MyDate = DateSerial(1969, 2, 12) ‘Hasil 2/12/69
-DateValue
menghasilkan tanggal
MyDate = DateValue(“February 12, 1969”) ‘Hasil 2/12/69
-Year
menghasilkan tahun sekarang
MyYear = Year(#2/12/1969#) ‘Hasil 1969
-Month
menghasilkan bilangan integer yang menunjukkan bulan
MyDate = #February 12, 1969# ‘Assign a date
MyMonth = Month(MyDate) ‘MyMonth = 2
-MonthName
menghasilkan teks yang menunjukkan nama bulan
a$ = MonthName(1, True) ‘a$ = Jan
b$ = MonthName(1, False) ‘b$ = January
c$ = MonthName(1) ‘c$ = January
-Day
menghasilkan integer yang menunjukkan tanggal dari data date
MyDate = #February 12, 1969# ‘Assign a date
MyDay = Day(MyDate) ‘MyDay berisi 12
-Hour
menghasilkan integer yang menunjukkan jam dari data
timer
MyTime = #4:35:17 PM# ‘Assign a time
MyHour = Hour(MyTime) ‘MyHour berisi 16
-Minute
menghasilkan integer yang menunjukkan menit dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyMinute = Minute(MyTime) ‘MyMinute berisi 35
-Second
menghasilkan integer yang menunjukkan detik dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MySecond = Second(MyTime) ‘MySecond berisi 17
-TimeSerial
menghasilkan waktu dengan jam/menit/detik
MyTime = TimeSerial(16, 35, 17) ‘Isinya 4:35:17 PM
-TimeValue
mengubah string waktu dari pukul 0:00:00 (12:00:00 AM) sampai 23:59:59
(11:59:59 PM) menjadi data waktu
MyTime = TimeValue(“4:35:17 PM”) ‘Isinya 4:35:17 PM
MyTime = TimeValue(“0:00:00”) ‘Isinya 12:00:00 AM
-WeekDay
menghasilkan bilangan petunjuk hari dari suatu tanggal
Hari = #February 12, 1969# ‘Hari Rabu
MyweekDay = Weekday(Hari) ‘MyweekDay isinya 4
-WeekDayName
menghasilkan teks nama hari dalam satu minggu
