1 / 20

PERTEMUAN 6 Pemrograman Visual

PERTEMUAN 6 Pemrograman Visual. Presented by : Sity Aisyah, M.Kom Email : dryesha@gmail.com Blog : yeshasalsabila.blogspot.com. 1. Pokok Bahasan :. Fungsi Format Operasi String Operasi Date/Time Validasi Input. 2. Fungsi Format.

talli
Download Presentation

PERTEMUAN 6 Pemrograman Visual

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. PERTEMUAN 6Pemrograman Visual Presented by : Sity Aisyah, M.Kom Email : dryesha@gmail.com Blog : yeshasalsabila.blogspot.com 1

  2. Pokok Bahasan : • Fungsi Format • Operasi String • Operasi Date/Time • Validasi Input 2

  3. 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

  4. 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 Rp127.501 • Format(127500.67, "Rp #,#.00")hasilnya • Rp 127.500,67 • Format(127500.67, "#,#.00 rupiah")hasilnya • 127.500,67 rupiah • Format(127500.67, "0,00E+00")hasilnya 128E+03 • Format(0.5, "0%") hasilnya 50% 4

  5. TANGGAL & WAKTU • Dalam contoh ini digunakan fungsi Now sebagai pengganti nilai input-nya • Format(Now, "dddd")hasilnya Sabtu • Format(Now, "long date")hasilnya 16 Juni 2012 • Format(Now, "short date")hasilnya 16/6/2012 • Format(Now, "dd-MM-yyyy")hasilnya 16-6-2012 • Format(Now, "dd-MMM-yyyy")hasilnya 16-Jun-2012 • Format(Now, "dddd, dd MMMM yyyy")hasilnya • Sabtu, 16 Juni 2012 • Format(Now, "long time") hasilnya 3:12:57 • Format(Now, "short time")hasilnya 3:12 • Format(Now, "h:mm:ss")hasilnya 3:12:57 • Format(Now, "hh:mm:ss") hasilnya 03:12:57 5

  6. 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)hasilnya 1.250.000,00 FormatCurrency(1250000, 2)hasilnya Rp1.250.000,00 FormatNumber(-1250000, 2) hasilnya -1.250.000,00 FormatCurrency(-1250000, 2) hasilnya (Rp1.250.000,00) 6

  7. Operasi String Dalammembuatsuatu program Visual Basic, operasi string dantanggalmemangtidakterlalumemegangperananpenting, tetapihalinitidakmembuatpengenalanataubahkan penguasaanoperasi string dantanggalmenjaditidakpenting. Untukbeberapakasus, pengerjaanakanlebihmudahdenganmenggunakanoperasi string dantanggal. 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 tanggal, struktur penulisan serta contoh aplikasinya. 7

  8. 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

  9. 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

  10. 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 , hasilnya 16/06/2012 • [ VB .NET ]d = Now.Date , hasilnya 16/06/2012 • Time • Fungsi : untuk mendapatkan Waktu sekarang. • [ VB 6.0 ]d = Time , hasilnya 14:22:42 • [ VB .NET ]d = Now.ToLongTimeString, hasilnya 14:22:42 10

  11. Day(x) • Fungsi : untuk mengambil nilai Tanggal saja dari x. • [ VB 6.0 ]d = Day(#6/15/2012#) , hasilnya 15 • [ VB .NET ]d = #6/15/2012#.Day, hasilnya 15 • Month(x) • Fungsi : untuk mengambil nilai Bulan saja dari x. • [ VB 6.0 ]d = Month(#6/15/2012#) , hasilnya 6 • [ VB .NET ]d = #6/15/2012#.Month , hasilnya 6 • Year(x) • Fungsi : untuk mengambil nilai Bulan saja dari x. • [ VB 6.0 ]d = Year(#6/15/2012#) , hasilnya 2012 • [ VB .NET ]d = #6/15/2012#.Year, hasilnya 2012 • Hour(x) • Fungsi : untuk mengambil  nilai Jam saja dari x. • [ VB 6.0 ]d = Hour(#2:22:42 PM#) , hasilnya 2 • [ VB .NET ]d = #2:22:42 PM#.Hour , hasilnya 2 11

  12. Minute(x) • Fungsi : untuk mengambil Menit saja dari x. • [ VB 6.0 ]d = Minute(#2:22:42 PM#) , hasilnya 22 • [ VB .NET ]d = #2:22:42 PM#.Minute , hasilnya 22 • Second(x) • Fungsi : untuk mengambil nilai Detiksaja dari x. • [ VB 6.0 ]d = Second(#2:22:42 PM#) , hasilnya 42 • [ VB .NET ]d = #2:22:42 PM#.Second , hasilnya 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

  13. 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

  14. 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

  15. 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

  16. 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

  17. 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

  18. 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

  19. Bila anda ingin menyesuaikan misal diperbolehkan spasi maka Const Character dapat anda isi dengan spasi seperti berikut ini: ConstCharacter = "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

  20. Praktek : Modul Praktikum 6 20

More Related