Setelah kita bikin database di MY SQL dan mengconecan dengan
visual basic maka langkah selanjutnya kita bahas adalah bikin navigasi
next,last,first dan previous
1.Setelah
di add databasenya maka akan muncul seperti ini
2.Lalu
qita klik kanan dan menentukan dari tiap – tiap atribut table tersebut sesuai
dengan kebutuhan apakah textbox,combobox
dll
3.Kemudian
setelah muncul lalu qita drag table tersbut dari control sehingga muncul
seperti ini
5.habis itu kita bikin navigasi
next,previous,first dan last dengan
button (ada 4 button )
Bisa kita lihat seperti gambar sebelumnya
lalu qita tuliskan coding di dalamnya yaitu
Setelah kita tuliskan codingnya maka
program qita jalankan dan kita inputkan
data terlebih dahulu
Kemudian kita jalankan navigasi tersebut
contohnya tombol last maka hasilnya untuk tombol last akan menyorot value yang
paling akhir.perhatikan gambar di bawah ini :
MEMBUAT TOMBOL CARI (dengan criteria pencarian
menggunakan nama)
1.Seperti
biasa kita ambil texbox untuk mengetikan nama yang kita cari .
Lalu kita tuliskan codingnya
Membuat
tombol keluar
a.Qita
buat tombol keluar dari button kemudian dr properties kita rubah textnya
menjadi exit lalu kita tuliskan codingnya seperti ini
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
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
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
EndSub
EndClass
C. 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,fungsi date and time dll.
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
Penanganan String pada Visual Basic 6.0
Penanganan
string sering terjadi pada pemrograman visual
basic untuk berbagai keperluan.
Variable
string bisa berisi anda namun masih tetap dianggap string.
Contoh: K001,B002 dsb.
Berikut akan saya jelaskan beberapa fungsi bawaan visual basic yang sering
digunakan untuk menangani string ini.
1. Left Fungsi left digunakan untuk
mengambil satu atau beberapa karakter dihitung dari sisi kiri.
contoh:
k = left(“Visual Basic”,6)
2. Right
Fungsi
Right adalah lawan dari fungsi left. Jika left mengambil karakter dari kiri
maka right mengambil kata dari kanan.
contoh:
k = right(“Visual Basic”,5)
3. Mid Fungsi Mid digunakan untuk
mengambil karakter yang ada di tengah-tengah kata walaupun dengan trik
tertentu bisa saja digunakan untuk mengambil karakter yang ada di kiri maupun
di kan an kata.
contoh:
k = Mid(“Visual Basic”,6,3)
4. Len
Fungsi
ini adalah singkatan dari length yang berarti panjang. Fungsi ini digunakan
untuk mengetahui panjang karakter dari kata atau kalimat
contoh: p =Len(“Visual Basic”)
5. Instr Fungsi ini digunakan untuk
mengetahui posisi dari sebuat karakter dari kata atau kalimat. contoh:
posisi = Instr(“Visual Basic”,”B”)
6. Lcase Fungsi ini digunakan untuk
mengubah huruf besar (capital) menjadi huruf kecil.
contoh:
k = LCase(“Visual
Basic”)
7. Ucase Fungsi ini digunakan untuk
mengubah huruf kecil menjadi huruf besar (capital).
contoh:
k = UCase(“Visual Basic”) 8. Chr
Fungsi
ini digunakan untuk mendapatkan karakter ASCII (American Standard Code for
Information Interchange). Dari nomor ASCII yang diberikan
contoh:
k = Chr(65) 9. ASC
ASC
kebalikan dari fungsi Chr. Fungsi ini digunakan untuk mendapatkan nomor ASCII
(American Standard Code for Information Interchange). Dari huruf yang
diberikan
contoh:
k = Asc(“A”)
10. Penggabungan Karakter Anda dapat menggabungkan karekter
dengan operator + atau &. Untuk memudahkan pegertian terhadap kode
program yang anda buat sebaiknya anda menggunakan tanda & daripada tanda
+. Anda lebih baik menggunakan tanda + untuk penjumlahan angka. contoh: a = "Visual"
b =
"Basic"
c = a
& b
11. Space(n)
Fungsi ini digunakan untuk memberikan ruang kosong (space) sebanya n buah.
