Tugas
Pemograman Visual 8
1.Tugas Pertama
PROGRAM PERTAMA
Private Function
fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single
Penjelasan
: memesan variabel hasil berjumlah 3 yaitu hasil(0),hasil(1),hasil(3)
Dim i As Integer
For i = 0 To UBound(args)
Penjelasan:‘mendeklarasikan
variabel i sebgai integer dan perualangan i sebanyak array yang di pesan (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
Penjelasan:
jika i= 0 maka maka hasil(1) = args jumlah index ny demikian juga hasil(2),,
Jika
hasil (1) kurang dari args(i) maka hasil (1) sama dengan hasil args(i) ny
demikian juga hasil dua lebih besar dari args (i) maka hasil(2) sama dengan args
(i).dan terus mengulang sampai jumlah indexs
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
1.bisa
muncul angka 55 dari jumlah array yang terdapat pada coding yaitu ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”
2.bisa
muncul angka (10) yaitu bilangan terbesar dari array tersebut adalah 10
3.
dan bisa muncul angka 1 yaitu dari bilangan terkecil dari array tersebut adalah
1
2.Tugas
Kedua
PROGRAM KEDUA
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
Penjelasan:
hampir sama dengan parramarray sebelum nya.hanya saja pada program ini di
deklarasikan lebih dari satu fungsi ,dan hitung untuk menampung penjumlahan
array dari beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu
fungsi terakhir tergantung kita memesan angkanya
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1, 2, 3,10)
Penjelasan
:angka 1 di deklarasikan untuk bil1, angka 2 untuk bil2, angka 3 untuk bil3,
dan masih bisa d tambahkan sesuai keinginan kita disini saya memodif program
dengan menambahkan bil4 untuk angka 10
End Sub
End Class
3.Tugas Ketiga
3.MACAM-MACAM
FUNGSI BAWAAN
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.
Fungsi-fungsi Bawaan Visual Basic
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.
Ada tiga macam fungsi yang melakukan
konversi ke tipe data integer yaitu
seperti terlihat pada tabel .
Tabel 10.1
Fungsi-fungsi Konversi ke Integer
Untuk
bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama.
Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama:
Namun fungsi Fix() dan Int() memberikan perlakuan berbeda
pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang
berbeda :
Sedangkan fungsi CInt() mengembalikan pembulatan angka
yang terdekat. Berikut
ni contoh penggunaan CInt() :
b.
Fungsi – fungsi konversi tipe data
Tabel 10.2
merupakan fungsi – fungsi yang melakukan konversi ke tipe data.
Tabel 10.2 Fungsi-fungsi Konversi ke Tipe Data
Sebagai
contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) .
c.
Fungsi-fungsi matematika
Fungsi-fungsi yang bekaitan dengan matematika seperti
terlihat pada table 10.3.
Tabel 10.3 Fungsi-fungsi Matematika
Fungsi-fungsi
String
Selain
fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi
String diantaranya seperti pada table 10.4.
Tabel 10.4 Fungsi-fungsi 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 .
Contoh
:
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(). Lihat table 10.5.
Tabel 10.5 Fungsi-fungsi Tanggal dan Waktu
Selain
fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan
dengan fungsi-fungsi Tanggal dan waktu.
|
|
Format(Ekpresi[,format[,firstdayofweek[, firstweekofyear]]])
|
|
Fungsi ini mengembalikan nilai variant
atau string sesuai dengan format yang ditentukan.
Contoh: Program Penghitung Usia
Pada pertemuan ini akan dibuat
sebuah aplikasi untuk menghitung usia. Aplikasi ini menerima input berupa
tanggal lahir dengan format (mm/dd/yyyy)
melalui sebuah InputBox.
Langkah –
langkah :
1.
Jalankan IDE Visual
Basic seperti yg telah dipelajari pada pertemuan 1.
2.
Pilihlah tipe Project
standar EXE, jika dialog untuk memilih project tidak muncul maka Pilih New
project dari menu File.Maka Visual Basic akan menampilkan sebuah form kosong
dengan caption Form1
3.
Simpanlah project yang
baru dibuat untuk keamanan dari kehilangan data. Untuk menyimpan pilih save As Project pada Menu File. Pada saat project tersebut disimpan
ada 2 macam file yaitu
File Project (*.vbp) beri nama Contoh9_1.vbp
File form1 (*.Frm) beri nama Contoh9_1.frm
4.
Selanjutnya letakkan kontrol – kontrol
seperti pada gambar.
5.
Gantilah properti dari masing–masing kontrol
sebagai berikut:
Control
|
Properti
|
Seeting
Value
|
Form
|
Name
|
frmUsia
|
Caption
|
Program
Penghitung Umur
|
Label
|
Name
|
lblJudul
|
Caption
|
Click
Tombol Usia Anda
|
Command
Button
|
Name
|
cmdUsia
|
Caption
|
Usia
Anda
|
Command
Button
|
Name
|
cmdKeluar
|
Caption
|
Keluar
|
6.
Ketiklah kode program
berikut ini :
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)
Isi Kode Interval:
Kode
|
Artinya
|
yyyy
|
Year
|
q
|
Quarter
|
m
|
Month
|
y
|
Day of year
|
d
|
Day
|
w
|
WeekDay
|
ww
|
Week
|
h
|
Hour
|
n
|
Minute
|
s
|
Second
|
Contoh pemakaiannya :
Dim FirstDate As_Date ‘Declare variables
Dim IntervalType As String
Dim Number As Integer
Dim Msg
FirstDate = InputBox(“Enter a date”)
Bynber = InputBox(“Enter number of months to add”)
Msg = “New date : “ & DateAdd(“m”, Number, FirstDate)
MsgBox Msg
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
Konstanta
|
Nilai
|
Penjelasan
|
vbUseSystem
|
0
|
Memakai setting NLS API
|
vbSunday
|
1
|
Minggu (default)
|
vbMonday
|
2
|
Senin
|
vbTuesday
|
3
|
Selasa
|
vbWednesday
|
4
|
Rabu
|
vbThursday
|
5
|
Kamis
|
vbFriday
|
6
|
Jumat
|
vbSaturday
|
7
|
Sabtu
|
WeekDayName(weekday, abbreviate, firstdayofweek)
Hari = #2/12/1969# ‘Assign a date
MyWeekDay = Weekday(Hari) ‘MyWeekDay isinya 4
MyTime = WeekdayName(MyWeekDay) ‘Isinya Wednesday
