Transcript Pertemuan6
PERTEMUAN 6 Pemrograman Visual
1
Presented by : Sity Aisyah, M.Kom
Email : [email protected]
Blog : yeshasalsabila.blogspot.com
Pokok Bahasan :
Fungsi Format Operasi String Operasi Date/Time Validasi Input
2
Fungsi Format
Fungsi format digunakan untuk mengubah struktur atau tampilan suatu data. Fungsi format memiliki berbagai varian, diataranya adalah : 1. Format(x,n) , fungsi ini merupakan fungsi format yang umum dan bisa digunakan untuk berbagai macam tipe data, tapi kebanyakan digunakan untuk tipe data angka dan tanggal&waktu. Fungsi ini akan merubah data x berdasarkan nilai n. Berikut contoh penggunaannya : ANGKA • Nilai masukan / input dalam Visual Basic harus menggunakan karakter Inggris, yang berbeda dengan karakter Indonesia.
3
• • Dimana karakter Inggris menggunakan tanda titik (".") sebagai tanda desimalnya, dan tanda koma (",") sebagai tanda pemisah ribuannya.
Sedangkan untuk nilai hasilnya / output akan menggunakan karakter yang sama dengan settingan karakter komputer (untuk contoh dibawah ini, komputer menggunakan settingan karakter Indonesia).
Format(127500.67, "#,#") hasilnya 127.501
Format(127500.67, "#,#.000") hasilnya 127.500,670 Format(127500.67, "Currency") hasilnya Format(127500.67, "Rp #,#.00") Rp 127.500,67 hasilnya Rp127.501
Format(127500.67, "#,#.00 rupiah") 127.500,67 rupiah hasilnya Format(127500.67, "0,00E+00") Format(0.5, "0%") hasilnya 50% hasilnya 128E+03
4
TANGGAL & WAKTU • Dalam contoh ini digunakan fungsi Now sebagai pengganti nilai input-nya Format(Now, "dddd") hasilnya Format(Now, "long date") Sabtu hasilnya 16 Juni 2012 Format(Now, "short date") hasilnya Format(Now, "dd-MM-yyyy") 16/6/2012 hasilnya 16-6-2012 Format(Now, "dd-MMM-yyyy") hasilnya 16-Jun-2012 Format(Now, "dddd, dd MMMM yyyy") Sabtu, 16 Juni 2012 Format(Now, "h:mm:ss") hasilnya hasilnya Format(Now, "long time") Format(Now, "short time") hasilnya hasilnya 3:12:57 3:12 3:12:57 Format(Now, "hh:mm:ss") hasilnya 03:12:57
5
2. FormatNumber dan FormatCurrency
, fungsi ini merupakan fungsi format yang dikhususkan untuk data angka.
Perbedaan FormatNumber dengan Format Currency terletak pada penambahan simbol mata uang dan karakter default bentuk negatifnya.
Contoh : FormatNumber(1250000, 2) FormatCurrency(1250000, 2) hasilnya hasilnya 1.250.000,00 Rp1.250.000,00 FormatNumber(-1250000, 2) FormatCurrency(-1250000, 2) hasilnya hasilnya -1.250.000,00 (Rp1.250.000,00)
6
Operasi String
Dalam membuat suatu program Visual Basic, operasi string dan tanggal memang tidak terlalu memegang peranan penting, tetapi hal ini tidak membuat pengenalan atau bahkan penguasaan operasi string dan tanggal menjadi tidak penting. Untuk beberapa kasus, pengerjaan akan lebih mudah dengan menggunakan operasi string dan tanggal.
Pada pertemuan kali ini akan dibahas tentang operasi string yang diantaranya adalah left, right, mid, len, ucase, lcase , serta operasi tanggal yang diantaranya datediff, dateadd, format, date, now, day, month, year . Pembahasan akan meliputi penjelasan singkat mengenai fungsi operasi string dan aplikasinya.
tanggal, struktur penulisan serta contoh
7
Berikut adalah struktur penulisan untuk beberapa operasi string :
Left
Fungsi : Mengambil sejumlah karakter dari sisi kiri sebuah string Penulisan : Left(string_characters,jumlah_char)
Right
Fungsi : Mengambil sejumlah karakter dari sisi kanan sebuah string Penulisan : Right(string_characters,jumlah_char)
Mid
Fungsi : Mengambil karakter sebuah string dari posisi tertentu dan jumlah tertentu pula Penulisan : Mid(string_characters, start_char, jumlah_char)
8
Len
Fungsi : Menghitung jumlah karakter dari sebuah string Penulisan : Len(characters)
UCase
Fungsi : Merubah string alfabet menjadi huruf kapital Penulisan : UCase(characters)
LCase
Fungsi : Merubah string alfabet menjadi huruf kecil Penulisan : LCase(characters)
9
Operasi Date/Time
Berikut ini merupakan Fungsi-fungsi dasar untuk mengolah data jenis Date/Time atau Tanggal/Waktu di Visual Basic
Now
Fungsi : untuk mendapatkan Tanggal dan Waktu sekarang.
d = Now , hasilnya 16/06/2012 14:22:42
Date
Fungsi : untuk mendapatkan Tanggal sekarang.
[ VB 6.0 ]
d = Date
[ VB .NET ]
, hasilnya d = Now.Date
16/06/2012 , hasilnya 16/06/2012
Time
Fungsi : untuk mendapatkan Waktu sekarang.
[ VB 6.0 ]
d = Time
[ VB .NET ]
, hasilnya 14:22:42 d = Now.ToLongTimeString
, hasilnya 14:22:42
10
Day(x)
Fungsi : untuk mengambil nilai Tanggal saja dari x.
[ VB 6.0 ]
d = Day(#6/15/2012#)
[ VB .NET ]
d = #6/15/2012#.Day
, hasilnya , hasilnya 15 15
Month(x)
Fungsi : untuk mengambil nilai Bulan saja dari x.
[ VB 6.0 ]
d = Month(#6/15/2012#)
[ VB .NET ]
d = #6/15/2012#.Month
, hasilnya , hasilnya 6 6
Year(x)
Fungsi : untuk mengambil nilai Bulan saja dari x.
[ VB 6.0 ]
d = Year(#6/15/2012#)
[ VB .NET ]
d = #6/15/2012#.Year
, hasilnya , hasilnya 2012 2012
Hour(x)
Fungsi : untuk mengambil nilai Jam saja dari x.
[ VB 6.0 ]
d = Hour(#2:22:42 PM#)
[ VB .NET ]
d = #2:22:42 PM#.Hour
, hasilnya , hasilnya 2 2
11
Minute(x)
Fungsi : untuk mengambil Menit saja dari x.
[ VB 6.0 ]
d = Minute(#2:22:42 PM#)
[ VB .NET ]
d = #2:22:42 PM#.Minute
, hasilnya , hasilnya 22 22
Second(x)
Fungsi : untuk mengambil nilai Detik saja dari x.
[ VB 6.0 ]
d = Second(#2:22:42 PM#)
[ VB .NET ]
d = #2:22:42 PM#.Second
, hasilnya , hasilnya 42 42
DateSerial(x, y, z)
Fungsi : untuk menghasilkan Tanggal dari kombinasi x, y, z.
d = DateSerial(2012, 6, 15) , hasilnya 15/06/2012
TimeSerial(x, y, z)
Fungsi : untuk menghasilkan Waktu dari kombinasi x, y, z.
d = TimeSerial(2, 22, 42) , hasilnya 2:22:42
12
MonthName(x)
Fungsi : untuk mendapatkan nama Bulan dari x.
d = MonthName(2) , hasilnya Februari
WeekdayName(x)
Fungsi : untuk mendapatkan nama Hari dari x.
d = WeekdayName(2, , vbSunday) , hasilnya Senin
13
MENGHITUNG SELISIH TANGGAL Fungsi :
DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )
Misalnya Anda ingin menghitung selisih hari antara tanggal 15 Jan 2012 (ditulis #1/15/2012#) dan 20 Jan 2012, yang berarti akan menggunakan jenis interval "d".
t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5 Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya : t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)
14
MENAMBAH & MENGURANGI TANGGAL • • • Untuk menambah dan mengurangi data bertipe Date/Tanggal tidak semudah dengan data bertipe Angka yang hanya menggunakan
operator + dan -
.
Karena itu ada fungsi khusus untuk melakukannya, berikut contoh penggunaannya : Fungsi :
DateAdd( Jenis interval, Besar perubahan, Tanggal yang dihitung ) 15
Misalnya Anda ingin menghitung 2 hari setelah tanggal 15 Jan 2012 (ditulis #1/15/2012#), yang berarti akan menggunakan jenis interval "d" dan besar perubahannya adalah 2 t = DateAdd("d", 2, #1/15/2012#) , hasilnya 17 Jan 2012 Sekarang jika Anda ingin menghitung 3 bulan sebelumnya, yang berarti akan menggunakan jenis interval "m" dan besar perubahaanya adalah -3.
t = DateAdd("m", -3, #1/15/2012#) , hasilnya 15 Jan 2012 Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya : DateTimePicker2.Value = DateAdd("m", -3, DateTimePicker1.Value)
16
Validasi Input
Mengetahui input dari pengguna benar atau tidak caranya cukup banyak dan tergantung apa yang ingin divalidasi dari input pengguna, yang paling sederhana misal ingin memastikan bahwa input pengguna adalah hanya bisa angka saja. Biasanya kita akan membuat validasi sendiri – sendiri dan berbeda – beda tergantung input apa yang dimasukkan pengguna dan akan diproses seperti apa nantinya.
1. Validasi input hanya angka :
17
2. Validasi input hanya huruf : 3. Validasi input hanya angka & huruf : Public Sub AlphaNumericValid(KeyAscii As Integer) Const Character = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz " If KeyAscii <> 8 And KeyAscii <> 13 Then If InStr(Character, Chr(KeyAscii)) = 0 Then KeyAscii = 0 Exit Sub End If End If End Sub
18
Bila anda ingin menyesuaikan misal diperbolehkan spasi maka
Const Character
dapat anda isi dengan spasi seperti berikut ini: Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz “ Perhatikan karakter yang paling terakhir, itu adalah spasi. Anda juga bisa menambahkan “-”,”,” dan sebagainya.
Untuk menggunakan prosedur diatas, panggil nama prosedur di event KeyPress : Diharapkan seluruh validasi ini dimasukkan ke Module, sehingga dapat digunakan di seluruh aplikasi anda.
19
Praktek : Modul Praktikum 6
20