Date and Time

 

Pada tutorial kali ini akan saya bahas mengenai date and time alias tanggal dan waktu. Mungkin tutorial ini banyak yang sudah mengerti, tetapi apa boleh buat berhubung ada yang request ya sejenak kita bahas oke. Date and Time saya rasa sudah tahu semua apa maksudnya, yup benar kali ini kita akan mengupas masalah format date and time dalam Visual Basic 6.0. Berikut ini sejumlah contoh penggunaan format date and time :
1. Date pasti semua orang sudah tahu, tanggal bahasa Indonesia nya. Sedangkan format tanggal itu sendiri ada bermacam-macam misal : 19 November 2010, 19 Nov 2010, 19-10-2010, November, 19 2010 dan sebagainya.
2. Time atau waktu pun juga mempunyai format untuk di masukkan dalam program Micr*soft Visual Basic 6.0, sebagai contoh yakni : 20:00, 08.00 PM, dan sebagainya.

Simulasi date and time pada visual basic :
1. Bukalah Micr*soft Visual Basic 6.0 anda dan pilihlah StandardEXE
2. Pilih satu label dan ubah ukuran sesuai dengan yang di inginkan (ingat jangan ubah Name)
3. Klik 2 kali pada form load nya dan isikan sebagai berikut :

Private Sub Form_Load()
Label1.caption= Format(Now, "Long Date")
End Sub

4. Klik run atau F5 maka akan menghasilkan Friday, November 19, 2010

Gantilah Format(Now, "Long Date") dengan berikut ini dan coba klik run atau F5:
Date

1. Format(Now, "Medium Date") >>  19-Nov-10
2. Format(Now, "Short Date") >> 11-19-2010
3. Format(Now, "dd-mm-yyyy") >> 19-11-2010 (dd day, mm month, yyyy year)
etc

Time

1. Format(Now, "Long Time") >> 10:33:00 PM
2. Format(Now, "Medium Time") >> 10:33 PM
3. Format(Now, "Short Time") >> 22:33 (hh hour, mm minutes, ss secon)
4. Format(Now, "hh:mm:ss") >> 22:33:00
5. Format(Now, "hh:mm AM/PM") >> 10:33 PM (sama dengan medium time)

Format di atas hanya sebagian yang ditulis, masih ada kemungkinan-kemungkinan format yang lain. Untuk itu saya sediakan freeware yang berisi format format date and time

Sekian dan terima kasih

Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 

 Ditulis oleh paijo_jr

Membuat Jam

Pernah dengar pepatah “waktu adalah uang”, yup pasti pernah dengar semua kan, sedangkan waktu itu sendiri bisa tahun, bulan, hari sampai jam. Nah disini kita akan membuat aplikasi sederhana yakni membuat jam (hehehe… sangat sederhana banget kan). Dalam aplikasi ini, kita akan membuat 2 jam, dimana yang pertama akan aktif di form sedangkan yang kedua yaitu jam tersebut kita tempatkan pada title bar (disamping judul).

Pertama-tama yang dibutuhkan yakni 1 buah label dan 1 buah timer (hagh..masak cuman 2 buah komponen itu saja??yup emang bener cuman 2 komponen sob).

Buka Microsoft Visual Basic 6.0 anda lalu pilih Standard EXE
Pilih Timer 1 biji dan Label 1 biji dan atur seperti berikut ini:




Ubah properties seperti berikut ini :

Form
Name	frmJam
Caption	Dikosongi
Label1
Name	lblJam
AutoSize	True
Caption	Dikosongi
Font	Silakan dipilih sendiri
ForeColor	Warna merah
Timer1
Name	tmrJam
Interval	1000

Sudah diubah propertiesnya^^, selanjutnya klik 2x komponen timer yang ada pada form designer lalu kita isikan source code berikut ini :

Private Sub tmrJam_Timer()
lblJam.Caption = Format(Date, "Short Date") & " " & Time
frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time
End Sub

Jalankan program dengan menekan tombol F5 pada keyboard, bisa kan^^

Langkah terakhir yakni meng compile project ini menjadi file *.exe, yakni tekan alt+f dan pilih make project1.exe

Penjelasan :

Untuk properties form dan label penjelasannya hampir sama seperti project Halo Indonesia. Sedangkan untuk komponen timer, name berarti nama timer ini diganti menjadi tmrJam, interval maksudnya interval waktu timer itu sendiri yakni 1000 yang artinya source code yang dijalankan oleh timer ini akan diulang setiap 1 detik (note : 1 detik berarti 1000 harap diingat). Komponen timer ini pada saat aplikasi dijalankan bersifat tidak terlihat sehingga jangan heran kalo timernya koq nggak kelihatan (mana timernya mana timernya???capek deh^^)

Source code pada aplikasi ini hanya dijalankan oleh timer, kalo kemaren Halo Indonesia menggunakan commandbutton sehingga membutuhkan klik dari mouse untuk menjalankan perintah.
lblJam.Caption = Format(Date, "Short Date") & " " & Time
Maksud dari source code ini bahwa label jam tadi kan kosong (gak ada isinya), lha oleh timer ini secara periodik (tergantung interval timer) caption yang kosong tadi di isi dengan perintah Format(Date, "Short Date") & " " & Time. Date artinya tanggal, bulan serta tahun hari ini dan short date maksudnya tanggal, bulan serta tahun tersebut dipendekkan/disingkat penulisannya (sekarang dicoba short date diganti dengan long date dan lihat perbedaannya). Sedangkan Time ya jelaslah waktu hari ini hehehe…^^

frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time
Maksud dari perintah ini hampir sama dengan perintah pada label diatas, hanya tempatnya saja di title bar nya form dengan tambahan judul form yaitu Membuat Jam. Untuk penulisan judul jam ini harus menggunakan tanda (“), kalo diawali tanda (‘) tidak akan terbaca sebagai perintah melainkan sebagai keterangan saja. Antara judul dengan jam tersebut kan tersambung sedangkan yang satu berisi masukan huruf (judul) dan yang satunya berisi perintah sehingga untuk menyambung keduanya digunakan tanda (&)

Sekian dulu yah tutorial aplikasi kali ini dan semoga bermanfaat^^

Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 

Note : kalo sob lupa yang mana main tool bar, yang mana form designer baca ini

Ditulis oleh paijo_jr