Postingan

Menampilkan postingan dari November, 2012

Membuat tombol keluar dengan message box di Visual Basic

Private Sub Command1_Click() keluar = MsgBox("Keluar Program?", vbYesNo + vbQuestion, "Keluar") If keluar = vbYes Then Unload Me End If End Sub Sesuaikan nama tombol (disini Command1) dengan nama tombolmu sendiri.

Combo Box Menggunakan Loop (perulangan) 2004-2012

Private Sub Form_Load() For i = 2004 To 2012 Combo1.AddItem i Next End Sub Sesuaikan sendiri Nama Combo box nya.

Menampilkan jam dan tanggal di Visual Basic

Private Sub Timer1_Timer() On Error Resume Next lblwaktu.Caption = Format(Date, "d/m/yyyy") lbljam.Caption = Format(Now, "hh:mm:ss") End Sub Sesuaikan sendiri Nama label dan timernya.

Terlampaui

Gambar
Setelah beberapa bulan akhirnya dapat melampaui 2 target yang tercetak sejak awal, bingung, takut, deg-degan, bahkan sampai bener-bener terasa amat bokek, namun semua telah terbayar lunas.. Adsense Sesuatu yang sangat baru dalam hidupku, sontak mengenalnya memberikan harapan yang tak pernah ku bayangkan sebelumnya.. dan setelah terombang ambing akhirnya sedikit demi sedikit aku faham.. aku mulai menulis dengan semangat membara, berusaha semaksimal mungkin agar target cepat tercapai, ketika terasa bosan aku berusaha mencari suntikan semangat yang beberapa orang menganggap itu suntik mati, inilah saat aku belajar menikmati PROSES. Horee.. (awal yang menyenangkan) Surat dari Google Axioo Picopad 5 Sebuah gadget yang sama sekali tak terbayang bahwa aku akan bisa memilikinya, sungguh pencapaian yang menyenangkan. Tentu pencapaian ini tak lepas dari Adsense, dan tentu semua ini tak akan terjadi lebih cepat tanpa bantuan sahabatku Galang dan Biyan Roni Setiawan seorang enterpreneur