Micro Book

  Kali ini saya akan membagi pengetahuan kepada anda tentang bagaimana membuat Efek Star Screen From VB, Caranya seperti berikut: Pertama-tama, Buat project baru Tambahkan satu buah Komponen Timer.  Ubah Properties Form pada pilihan  BackColor  Menjadi warna Hitam. Klik 2 kali pada Form 1 lalu Hapus koding didalamnya dan Masukkan koding berikut : Dim X(100), Y(100), Z(100) As Integer Dim tmpX(100), tmpY(100), tmpZ(100) As Integer Dim K As Integer Dim Zoom As Integer Dim Speed As Integer     Private Sub Form_Activate()    Speed = -1    K = 2038   Zoom = 256   Timer1.Interval = 1         For i = 0 To 100       X(i) = Int(Rnd * 1024) - 512       Y(i) = Int(Rnd * 1024) - 512       Z(i) = Int(Rnd * 512) - 256   Next i End Sub Private Sub Timer1_Timer() for i = 0 To 100       Circle (tmpX(i), tmpY(i)), 5, BackColor       Z(i) = Z(i) + Speed       If Z(i) > 255 Then Z(i) = -255       If Z(i) < -255 Then Z(i) = 255       tmpZ(i) = Z(i) + Zoom       t

Mau tau caranya supaya puasa lancar tanpa rasa lapar ,...?? akan aku beri tahu cara supaya puasa tidak terasa lapar,,....!!! SIIAAAP,, Perhatikan dengan baik Makan sahur dengan nasi yang secukupnya jangan terlalu banyak, INGAT ada pepatah (Berhenti makan sebelum kenyang) Setelah sahur jangan langsung tidur,..(- -") sempatin untuk melakukan yang bermanfaat contohnya NGAJI,BELAJAR, DLL pokoknya yang bermanfaat Setelah itu SHOLAT SUBUH , baru setelah subuh anda bisa tidur "tapi ingat jangan lama-lama tidurnya. Setelah tidur anda MANDI dan melakukan hal-hal yang lain yang bermanfaat, untuk menunggu SHOLAT DLUHUR Setelah SHOLA DLUHUR, anda bisa tidur lagi atau bermain-main untuk menghilangkan kejenuhan , dan untuk menunggu SHOLAT ASHAR Setelah SHOLAT ASYAR anda bisa jalan- jalan sore sambil ngabuburit menunggu buka PUASA  Gampangkan caranya saya jamin anda tidak akan merasa lapar   "SELAMAT MENCOBA" dan *SELAMAT MENUNAIKAN IBADAH PUASA* R

Kali ini saya akan membahas tentang bagaimana cara membuat From loading pada VB: Siapkan komponen tambahan seprti gambar tersebut, caranya > tekan ctrl + T >ceklist/centang Microsoft Windows Common Controls 6.0 Sisipkan Loading dan 1 buat timer kedalam form, hingga seperti gambar tersebut Setelah itu masukan perintahnya dibawah Private Sub Timer1_Timer() If ProgressBar1.Value >= 100 Then Unload Me Form2.Show Else ProgressBar1.Value = ProgressBar1.Value + 10 End If End Sub Nah itu dia langkahnya simpel kan ? Kemudian silahkan di coba di run, semoga bisa di mengerti dengan bahasa yang sederhana ini dan bisa bermanfaat buat semuanya

  Di kesempatan kali ini saya akan memberitahu anda tutorial membuat form transparan pada vb 6.0, langsung saja caranya sebagai berikut: buka vb standar exe tambahkan 2 command, masing-masing beri caption “Transparan” dan yang satu lagi “Normal Tambahkan koding berikut di Option Explicit: ‘============ Option Explicit Private Const WS_EX_LAYERED = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long ‘----

Sore biru langit  tenggelamkan sang surya berganti abu tua Dua Remaja SMP Gadis belia Ngabuburit bersepeda lintasi kompleks perumahan Turangga Sebagian kendaraan laju cepat seakan mules kebelet ada di rasa kendaraan roda dua gangguin namun mereka tetap buang muka Dipinggiran trotoar pedagang es buah sajian tajil kolak seakan kamu mau aku ada Sekelompok Remaja laki laki berkerumun nyanyi iringi lagu Barat merdu kata mereka Lagu dihentikan saat dua Gadis lewati mereka malu merah muka Tiba dari arah lawan sana Becak roda tiga hampiri tak terkendali serang sepeda Gubraakkkk Sepeda satu membanting jatuh tepat depan Pemuda yang paling ireng diantara mereka Pemuda ingin kenalan namun Sang Gadis cuek habis bangkit segera Gengsi cepat si Gadis bangkit menggoseh Pemuda malah Terpingkal tawa Pulanglah sang Gadis berjanji jumpa bila Taraweh tiba Duduk depan meja berkumpul menunggu Bedug perut sudah nyanyikan keroncong Puasa Akhirnya kumandang Adzan langsung minum melahap semua di mej

Aku Lisa , sekarang aku kuliah di sebuah perguruan tinggi. Dan aku mempunyai seorang pacar , namanya Ardi , Ardi sangat mencintaiku , akupun mencintainya tapi itu dulu , semenjak aku belum mengenal ihsan teman baik Ardi . Kebetulan aku, Ardi dan Ihsan memang satu kampus . Pagi itu Ardi seperti biasa menjemputku . "Say, lama ya nunggunya . " Ardi turun dari mobil'y dan membukakan pintu mobil untuk ku . "Ya, sudah biasa ." Jawab ku cuek, sambil segera duduk . Setibanya di kampus Ihsan sudah ada di parkiran , dia duduk di motor Ninja nya. "Wah Ihsan sungguh keren." Pikirku, akupun terkagum-kagum melihatnya. Aku dan Ardi pun turun dari mobil, dan mengampiri Ihsan . "Hey, sob lagi ngapain pagi-pagi bengong aja sendiri lo,, pasti lagi nyari mangsa Lo yaa, ." Tegur pacarku Ardi. "Gila aja lo, gue kan lagi nunggu lo. Kan gue blum ngerjain tugas dari Pak johar, jadi gue nunggu lo, buat nyontek, lama bener sih Lo." Jela

Enaknya jadi Jomblo Yang jomblo jangan bersedih hati karena jomblo itu enak banget, seperti yang saya katakan tadi saya akan bercerita tentang pengalamanku saat jomblo. kalau aku dengar kata pacaran saya itu jadi sangat malas , kenapa.......?, karena menurut saya pacaran itu buang - buang waktu, buang - buang duit , dan buang- buang segalanya, pada saat kamu jomblo kamu akan mendapat anyak keuntung slah satunya kamu bisa bergaul bebas kepada cewek - cewek yang lain tanpa ada yang melarang mu, kamu tidak akan di bingungkan dengan kemauan cewek kamu , dan kamu tidak akan bingung bingung memberi hadiah kepada cewek pada saat ulangtahunnya, pokoknya enak deh jadi jomblo itu , g' akan ada waktu yang tersia siakan untuk seorang cewek. seperti kata kiyai saya , "JOMBLO ITU PENAKUT" - takut dosa - takut maksiat - takut masuk neraka - takut gk dapat pahala

Apa anda pernah bertanya APA ITU CINTA ? anda tepat pergi ke situs ini karena saya akan membaha sbeberapa hal mengenai cinta. menurut saya cinta itu sebuah coba'an yang diberikan (maksudnya coba'an kesenangan). cinta terus membuat kita merasa bingung , "aqw aja biasanya bingung hehehe.... :D biasa anak muda" . semakin kita encintai seseorang semakin kita di coba oleh tuhan, contonya kamu punya teman, teman mu itu sangat kamu cintai , maka tuhan akan mencoba mu lewat teman yang kamu cintai tadi, seperti dia selalu ceritain orang lain (yang pasti lawan jenisnya) dan pastinya kamu merasa sangat cemburu ataupun merasa sakit hati, atau bahkan dia pacaran sama orang lain "kalau gtu sih bete banget hehehehe......." , dan aku akan memberi saran kepada kalian , jika teman mu yang  tadi itu kamu rasa baik untuk kamu maka kejarlah jangan biarkan dia di miliki orang lain, tapi ingat meskipun kamu merasa dia baik umtuk mu dan tuhan berkata dia tidak baik untu

           Abang ni, pakai tu elok-elok la sikit,” kata Julia lembut sambil membetulkan pakaian Ahmad. Ahmad tersenyum memandang isterinya. “Cantik isteri abang hari ni,” Ahmad mencubit pipi Julia lembut. “Ayah, ayah, cepat la yah,” Liz dan Lin meluru masuk ke bilik kerana dah tak sabar-sabar nak bertolak pulang ke kampung. “Yelah, yelah, ayah dah siap ni.” Julia hanya tersenyum melihat suaminya itu melayan karenah anak-anak mereka yang comel dan manja. “Abang, dah lama kita tak balik kampung macam ni, ye?” “Iyelah, maklumlah abang ni sibuk dengan urusan perniagaan. Baru kali ni abang ada peluang untuk cuti panjang.” Ahmad berkata kepada isterinya tercinta. Perjalanan daripada KL ke Teluk Intan mengambil masa lebih kurang empat jam. Liz dan Lin dah pun terlelap kat kerusi belakang. Begitu juga dengan isterinya, Julia. “Tak sabar rasanya nak tiba kat kampung,” Ahmad berkata dalam hati. Sedikit demi sedikit Ahmad menekan minyak keretanya. Semakin lama keretanya semak

SILAHKAN MENIKMATI   ------------------------------------------------------------------------ AKU   Aku Pria Jalang Dari Kumpulannya Yang Terbuang Aku Kecantol Wanita Jalang Demi Tubuhnya Kuhambur Uang Gejolak Hasrat Nafsu Berpetualang Membuat Masakan Di Rumah Terasa Kurang Aku Anak Manusia, Aku Anak Malang Affairku Akhirnya Tercium Orang Karir Suksesku di DPR Akhirnya Hilang Karena Ada Kelemahanku Yang Bisa diserang Semuanya Hancur Gara-gara Selembar kutang Kepada Siapa Aku Pantas Berang? Semua Kesalahan Kulimpahkan Kepada Si Jalang Tetapi Sebenarnya Godaan Si Wanita Jalang Takkan Mempan Kalau Akunya Sendiri Tidak Jalang! Kesadaran Selalu Datang Menjelang Petang Kini Yang Ku-punya Tinggal Tulang Tapi Sebelum Aku Berpulang Aku Ingin Berpesan Kepada Sesama Hidung Belang ! Kiamat segera datang...... .!!!! Tobatlah mulai sekarang......r ang..rang. rang.. ------------------------------------------------------------------------ AKU   Akulah karyawan pali