Praktikum Modul Praktikum ke Judul Materi Tujuan / Sasaran Waktu (lama) Aplikasi yang digunakan
I.
: : : :
Pemrograman II 10 Fungsi String, Tanggal, dan Waktu Mahasiswa dapat menggunakan fungsi String, Tanggal, dan Waktu : 3 Jam : Visual Basic
Fungsi String
Format(Angka, “Format”) Untuk menformat sebuah bilangan Print Format(5000, “#,#”) Tampil 5.000 Print Format(500000, “Currency”) Tampil Rp500.000
Asc(string): Untuk merubah string menjadi nilai ascii huruf = asc(“A”) a berisi nilai 65
Chr(int): Untuk merubah nilai ascii menjadi string ascii = chr(65) ascii berisi huruf “A”
Lcase(string): Untuk merubah semua karakter menjadi huruf kecil kata = lcase(“HALO”) kata berisi “halo”
Left(str,int): Untuk mengambil n karakter dari kiri pada string str left(“halo”, 2) hasil: “ha”
Ltrim(str): Untuk menghilangkan spasi disebelah kiri string ltrim(“ halo”) hasil : “halo”
Mid(str, start,len): Untuk mengambil sejumlah len karakter mulai dari start indeks pada string str
mid(“halo”, 2, 2) hasil: “al”
Right(str,len): Untuk mengambil sebanyak len karakter dari kanan pada string str right(“halo”, 2) hasil: “lo”
Rtrim(str): Untuk menghilangkan spasi di kanan string rtrim(“halo “) hasil: “halo”
Str(int): Untuk merubah numerik menjadi string str(123) hasil: “123”
Strreverse(string): Untuk membalik string strreverse(“halo”) hasil: “olah”
Len(str): Untuk mengetahui panjang suatu string len(“halo”) hasil: 4
Ucase(str): Untuk merubah semua karakter dalam string menjadi huruf besar ucase(“halo”) hasil: “HALO”
Instr(string, substring): Untuk mencari posisi suatu substring dalam string instr(“halo apa kabar”, “apa”) hasil: 6
II.
Fungsi Tanggal dan Waktu
Macam fungsi string:
Fungsi day(), month(), year()
Untuk mencari tanggal, bulan, dan tahun dari suatu tanggal tanggal = day(“4/15/2011”) tanggal = 15 bulan = month(“4/15/2011”) bulan = 4 tahun = year(“4/15/2011”) tahun = 2011
Fungsi weekday(date) ◦
Untuk mengetahui tanggal tersebut merupakan hari keberapa dalam 1 minggu
◦
0 = minggu
4 = kamis
1 = senin
5 = jum’at
2 = selasa
6 = sabtu
3 = rabu ◦
x = weekday(“4/15/2011”) x = 5 karena hari itu adalah hari Jum’at
Fungsi DateAdd(interval, number, date) ◦
Untuk menambahkan suatau tanggal berdasasrkan interval tertentu
◦
H = jam
Y = hari dalam tahun
D = tanggal
W = hari dalam minggu
M = bulan
Ww = minggu
N = menit
Yyyy = tahun
S = detik ◦
Dim x as date x = dateadd(“M”, “4/15/2011”, 1) x = “5/15/2011” karena bulan ditambah 1
Fungsi DateDiff(interval, datestar, dateend)
◦
Untuk menghitung interval antara dua tanggal
◦
Dim selisih as integer selisih = datediff(“D”, “4/15/2011”, “11/27/2011”) - selisih akan berisi selisih hari antara tanggal 4/15/2011 dan 8/27/2011 - Kode sama dengan DateAdd
Format tanggal ◦
Format(now, “hh:mm:ss”)
◦
Format(now, “mm:dd:yy” atau “mm/dd/yy” atau “mm-dd-yy”)
◦
◦
Format(now,”dddd-mmmm”)
◦
Format(now,”hh:mm:ss ampm”)
Time, Now, Date ◦
Time digunakan untuk menampilkan waktu saat ini
◦
Date digunakan untuk menampilkan tanggal saat ini
◦
Now digunakan untuk menampilkan tanggal dan jam saat ini
◦
Dim x, t, a As Date x = Date t = Time a = Now
III. Soal praktikum / latihan Buat Aplikasinya dengan nama project Praktikum10.vbp 1. Buatlah program untuk merubah sebuah kalimat dengan huruf besar semua menjadi huruf kecil semua (Nama form: Prak10-01.frm).
2. Buatlah program untuk merubah sebuah kalimat dengan huruf kecil semua menjadi huruf besar semua (Nama form: Prak10-02.frm).
3. Jika dimasukkan sebuah kalimat yang berisi campuran antara besar dan kecil. Buatlah program untuk merubah huruf-huruf kalimat tersebut, yang semula huruf kecil menjadi huruf besar. Sedang yang semula huruf besar menjadi huruf kecil. Contoh: HaLoaPAkAbaR jadi hAlOApaKaBAr. (Nama form: Prak10-03.frm). 4. Buatlah program untuk merubah sebuah huruf menjadi huruf lain atau simbol lain. Misal “halo” jadi “kdor” (Nama form: Prak10-04.frm).
5. Buatlah program untuk mencari panjang string tapi tidak memakai fungsi len. (Nama form: Prak10-05.frm).
6. Buatlah program untuk membalik string tapi tidak memakai fungsi strreverse. (Nama form: Prak10-06.frm). 7. Rubahlah bilangan biner menjadi bilangan desimal. (Nama form: Prak10-07.frm) Bilangan biner adalah: 0, 1 Contoh: 10011011 = 1 x 27 + 0 x 26 +0 x 25 +1 x 24 +1 x 23 +0 x 22 +1 x 21 +1 x 20 = 155
8. Rubahlah bilangan oktal menjadi bilangan desimal. (Nama form: Prak10-08.frm) Bilangan oktal adalah: 0, 1, 2, 3, 4, 5, 6, 7 Contoh: 4701 = 4 x 83 + 7 x 82 + 0 x 81 + 1 x 80 = 2048 + 468 + 0 + 1 = 2517 9. Rubahlah bilangan heksadesimal menjadi bilangan desimal. (Nama form: Prak10-09.frm) Bilangan heksadesima: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F Contoh: 00D3 = 0 x 163 + 0 x 162 + 13 x 161 + 3 x 160 = 0 + 0 + 208 + 3 = 211
10. Carilah jumlah hari Senin antara tanggal 2-1-1966 sampai 10-11-2011.
11. Hari apakah tanggal 24 Agustus 1720? (Nama form: Prak10-11.frm)
12. Lebaran tahun 2010 jatuh pada tanggal 10 September 2010. Kalau setiap tahun lebaran lebih cepat 11 hari, maka jatuh pada tanggal dan hari apakah lebaran tahun 2079? (Nama form: Prak10-12.frm) 13. Tanggal berapa dan hari apakah 1000 hari setelah hari ini (hari saat anda praktikum)? (Nama form: Prak10-13.frm)