Postingan

Menampilkan postingan dari Juli, 2013

Efek Star Screen From Visual Basic 6.0

Gambar
  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

Tips Puasa Supaya Tidak Terasa Lapar

Gambar
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

Membuat Loading Di Visual Basic 6.0

Gambar
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

Membuat form transparan pada VB 6.0

Gambar
  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 ‘----

Cerita lucu Di bulan Ramadlan

Gambar
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

Cinta Antara Aku Kau dan Dia

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

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