Tampilan Slide gambar VB 6.0

Silahkan download disini ane susah mau ceritakan
Download 

Read more »

Snow/Salju Splash Screen

Berikut saya mempunyai splash screen salju(sebelum form utama mucul akan ada form seperti gambar diatas

Bisa di kreasikan sendiri menurut keinginan anda

Download (Wait 5 Second then click SKIP ADD)

Read more »

Animasi Form Yang bisa dikembangkan

Berikut ini adalah animasi form yang bisa dikembangkan kodenya

Rinciannya:

1.muncul dari bawah
2.Jika di tutup akan kekanan
3.Jika di tutup akan kebawah
4.Muncul Melebar
5.Label Berkedip
6.Marque/teks berjalan di form

Download

Read more »

Membuat Form Transparan

Membuat form transparan itu mudah

Caranya:
Buka Vb. 6
Pilh Standar Exe
Klik View ->Code
Tulis Code Ini:

Option Explicit

Private Const GWL_EXSTYLE      As Long = (-20)
Private Const WS_EX_LAYERED    As Long = &H80000
Private Const LWA_ALPHA        As Long = &H2
Private Declare Function GetWindowLongA Lib "USER32" (ByVal hwnd As Long, _
                                                      ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "USER32" (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 crey As Byte, _
                                                                  ByVal bAlpha As Byte, _
                                                                  ByVal dwFlags As Long) As Long


Private Sub Form_Load()
Opacity 150, Me  ' angka 150 yaitu ketransparan form ini semakin kecil maka semakin transparan| Min 20 max 255
MsgBox "By Sahala/Ardan" & vbCrLf & _
       "Always Visit My Blog" & vbCrLf & _
       "http://sahalaww.blogspot.com/", vbInformation, "OK"
End Sub

Private Sub Opacity(Value As Byte, _
                    Frm As Form)
Dim MaxVal As Byte
Dim MinVal As Byte

    On Error GoTo ErrorHandler
    MinVal = 20
    MaxVal = 255
    If Value > MaxVal Then
        Value = MaxVal
    End If
    If Value < MinVal Then
        Value = MinVal
    End If
   SetWindowLongA Frm.hwnd, GWL_EXSTYLE, GetWindowLongA(Frm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Frm.hwnd, 0, Value, LWA_ALPHA
ErrorHandler:

Exit Sub

End Sub
'By Sahala/Ardan Copyright 2011

Setelah Code Dimasukan Lalu klik Run->Start(F5)
Bagi yang Ingin Projectnya 
Download

Read more »

Sebuah SURAT dari Pejuang Hamas (GAZA) Untuk negri INDONESIA [ASLI]

“Untuk saudaraku di Indonesia, mengapa saya harus memilih dan mengirim surat ini untuk kalian di Indonesia. Namun jika kalian tetap bertanya kepadaku, kenapa? Mungkin satu-satunya jawaban yang saya miliki adalah karena negri kalian berpenduduk muslim terbanyak di punggung bumi ini, bukan demikian saudaraku?

Di saat saya menunaika...n ibadah haji beberapa tahun silam, ketika pulang dari melempar jumrah, saya sempat berkenalan dengan salah seorang aktivis dakwah dari jama’ah haji asal Indonesia, dia mengatakan kepadaku, setiap tahun musim haji ada sekitar 205 ribu jama’ah haji berasal dari Indonesia datang ke Baitullah ini. Wah, sungguh jumlah angka yang sangat fantastis dan membuat saya berdecak kagum.

Lalu saya mengatakan kepadanya, saudaraku, jika jumlah jama’ah haji asal Gaza sejak tahun 1987 sampai sekarang digabung, itu belum bisa menyamai jumlah jama’ah haji dari negara kalian dalam satu musim haji saja. Padahal jarak tempat kami ke Baitullah lebih dekat dibanding kalian. Wah pasti uang kalian sangat banyak, apalagi menurut sahabatku itu ada 5% dari rombongan tersebut yang memnunaikan ibadah haji yang kedua kalinya, Subhanallah.

Wahai saudaraku di Indonesia,

Pernah saya berkhayal dalam hati, kenapa saya dan kami yang ada di Gaza ini, tidak dilahirkan di negri kalian saja. Pasti sangat indah dan mengagumkan. Negri kalian aman, kaya, dan subur, setidaknya itu yang saya ketahui tentang negri kalian.

Pasti ibu-ibu disana amat mudah menyusui bayi-bayinya, susu formula bayi pasti dengan mudah kalian dapoatkan di toko-toko dan para wanita hamil kalian mungkin dengan mudah bersalin di rumah sakit yang mereka inginkan.

Ini yang membuatku iri kepadamu saudaraku, tidak seperti di negri kami ini. Tidak jarang tentara Israel menahan mobil ambulance yang akan mengantarkan istri kami melahirkan di rumah sakit yang lebih lengkap alatnya di daerah Rafah. Sehingga istri kami terpaksa melahirkan di atas mobil, ya di atas mobil saudaraku.!

Susu formula bayi adalah barang langka di Gaza sejak kami diblokade 2 tahun yang lalu, namun istri kami tetap menyusui bayi-bayinya dan menyapihnya hingga 2 tahun lamanya, walau terkadang untuk memperlancar Asi mereka, istri kami rela minum air rendaman gandum.

Namun, mengapa di negri kalian, katanya tidak sedikit kasus pembuangan bayi yang tidak jelas siapa ayah dan ibunya. Terkadang ditemukan mati di parit-parit, selokan, dan tempat sampah. Itu yang kami dapat dai informasi di televisi.

Dan yang membuat saya terkejut dan merinding, ternyata negri kalian adalah negri yang tertinggi kasus aborsinya untuk wilayah Asia. Astaghfirullah. Ada apa dengan kalian? Apakah karena di negri kalian tidak ada konflik bersenjata seperti kami disini, sehingga orang bisa melakukan hal hina seperti itu? Sepertinya kalian belum menghargai arti sebuah nyawa bagi kami disini.

Memeang hampir setiap hari di Gaza sejak penyerangan Israel, kami menyaksikan bayi-bayi kami mati. Namun, bukanlah di selokan-selokan atau got-got apalagi di tempat sampah. Mereka mati syahid saudaraku! Mati syahid karena serangan roket tentara Israel!

Kami temukan mereka tak bernyawa lagi di pangkuan ibunya, di bawah puing-puing bangunan rumah kami yang hancur oleh serangan Zionis Israel. Saudaraku, bagi kami nilai seorang bayi adalah aset perjuangan kami terhadap penjajah Yahudi. Mereka adalah mata rantai yang akan menyambung perjuangan kami memerdekakan negri ini.

Perlu kalian ketahui, sejak serangan Israel tanggal 27 Desember 2009 kemarin, saudara-saudara kami yang syahid sampai 1400 orang, 600 di antaranya adalah anak-anak kami, namun sejak penyerangan itu pula sampai hari ini, kami menyambut lahirnya 3000 bayi baru di jalur Gaza, dan Subhanallah kebanyakan mereka adalah anak laki-laki dan banyak yang kembar, Allahu Akbar!

Wahai saudaraku di Indonesia,

Negri kalian subur dan makmur, tanaman apa saja yang kalian tanam akan tumbuh dan berbuah, namun kenapa di negri kalian masih ada bayi yang kekurangan gizi, menderita busung lapar. Apa karena sulit mencari rizki disana? Apa negri kalian diblokade juga?

Perlu kalian ketahui saudaraku, tidak ada satupun bayi di Gaza yang menderita kekurangan gizi, apalagi sampai mati kelaparan, walau sudah lama kami diblokade. Sungguh kalian terlalu manja! Saya adalah pegawai tata usaha di kantor pemerintahan HAMAS sudah 7 bulan ini belum menerima gaji bulanan saya. Tetapi Allah SWT yang akan mencukupkan rizki untuk kami.

Perlu kalian ketahui pula, bulan ini saja ada sekitar 300 pasang pemuda baru saja melangsungkan pernikahan. Ya, mereka menikah di sela-sela serangan agresi Israel. Mereka mengucapkan akad nikah diantara bunyi letupan bom dan peluru, saudaraku.

Dan Perdana Menteri kami, Ust Isma’il Haniya memberikan santunan awal pernikahan bagi semua keluarga baru tersebut.

Wahai saudaraku di Indonesia,

Terkadang saya pun iri, seandainya saya bisa merasakan pengajian atau halaqah pembinaan di negri antum (anda). Seperti yang diceritakan teman saya, program pengajian kalian pasti bagus, banyak kitab mungkin yang kalian yang telah baca. Dan banyak buku-buku pasti sudah kalian baca. Kalian pun bersemangat kan? Itu karena kalian punya waktu.

Kami tidak memiliki waktu yang banyak disini. Satu jam, ya satu jam itu adalah waktu yang dipatok untuk kami disini untuk halaqah. Setelah itu kami harus terjun ke lapangan jihad, sesuai dengan tugas yang diberikan kepada kami.

Kami disini sangan menanti-nantikan saat halaqah tersebut walau hanya satu jam. Tentu kalian lebih bersyukur. Kalian punya waktu untuk menegakkan rukun-rukun halaqah, seperti ta’aruf, tafahum, dan takaful disana.

Halafalan antum pasti lebih banyak daripada kami. Semua pegawai dan pejuang HAMAS disini wajib menghapal Surah Al-Anfal sebagai nyanyian perang kami, saya menghafal di sela-sela waktu istirahat perang, bagaimana dengan kalian?

Akhir Desember kemarin, saya menghadiri acar wisuda penamatan hafalan 30 Juz anakku yang pertama. Ia merupakan diantara 1000 anak yang tahun ini menghafal Al-Qur’an dan umurnya baru 10 tahun. Saya yakin anak-anak kalian jauh lebih cepat menghapal Al-Qur’an ketimbang anak-anak kimi disini. Di Gaza tidak ada SDIT (Sekolah Dasar Islam Terpadu) seperti di tempat kalian yang menyebar seperti jamur di musim hujan. Disini anak-anak belajar diantara puing-puing reruntuhan gedung yang hancur, yang tanahnya sudah diratakan, diatasnya diberi beberapa helai daun kurma. Ya, di tempat itu mereka belajar, saudaraku. Bunyi suara setoran hafalan Al-Qur’an mereka bergemuruh dianatara bunyi-bunyi senapan tentara Israel. Ayat-ayat jihad paling cepat mereka hafal, karena memang didepan mereka tafsirnya. Langsung mereka rasakan.

Oh iya, kami harus berterima kasih kepada kalian semua, melihat solidaritas yang kalian perlihatkan kepada masyarakat dunia. Kami menyaksikan aksi demo-demo kalian disini. Subhanallah, kami sangat terhibur. Karena kalian juga merasakan apa yang kami rasakan disini.

Memang banyak masyarakat dunia yang menangisi kami disini, termasuk kalian yang di Indonesia. Namun, bukan tangisan kalian yang kami butuhkan , saudaraku. Biarlah butiran air matamu adalah catatan bukti akhirat yang dicatat Allah sebagai bukti ukhwah kalian kepada kami. Doa-doa dan dana kalian telah kami rasakan manfaatnya.

Oh iya, hari semakin larut, sebentar lagi adalah giliran saya menjaga kantor, tugasku untuk menunggu jika ada telpon dan fax yang masuk. Insya Allah, nanti saya ingin sambung dengan surat yang lain lagi. Salam untuk semua pejuang-pejuang Islam dan ulama-ulama kalian.

Abdullah Al Ghaza

Read more »

Microsoft Visual Basic 6.0 Portable Version

Selamat Malam Bloggger
Semoga kabar anda baik-baik saja...
Lama ndak post karena domain .tk saya di BANNED OLEH .TK sendiri karena stats saya naik dengan drastis

Saya Akan membahas tentang Visual Basic 6.0 portable
merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. Namun ini yang versi portable


Mungkin dalam waktu dekat akan saya Upload VB 6.0 Enterprise Edition

DOWNLOAD Portable Version(5MB)

Happy Coding!!!!!!!!!!

Read more »

Bisnis Survey Ipanel Online Indonesia

Ipanel Online Indonesia adalah sebuah situs yang menyediakan layanan survey dan apabila mengikutinya akan mendapatkan poin dan poin tersebut bisa ditukar lewat Paypal maupun Bank


<->Pertama kita harus daftar Ipanel Online klik Disini
<->Isi data anda
<->Cex inbox, email konfirmasi akan dikirimkan kepada anda. 
<->Klik “Link” pada “Email Konfirmasi” untuk mengaktifkan account anda. 
<->Login ke account anda dan lengkapi informasi pribadi anda
   
Untuk mendapatkan poin anda bisa mengisi survey yang ada pada halaman akun anda. Perhatikan gambar berikut ini:

Lalu carilah survey yang statusnya ongoing lalu klik dan lanjutkan jika survey suspended mungkin masih diperbaiki oleh Ipanel

Hal-hal yang perlu anda perhatikan dalam survey bisnis;

1. Isi data diri saat registrasi dengan lengkap karena akan mempengaruhi banyaknya undangan survei yang akan anda terima.
   
2. Isilah survei dengan jujur dan jangan asal2an. Pengisian survey dengan asal2an bisa menyebabkan anda kena penalty dan akun anda ditutup.
   
3. Jangan mengulangi survey. Tiap survey hanya bisa diikuti sekali.
   
4. Untuk menambah poin, ikuti juga survei mutual / investigasi yang ada di halaman web ipanelonline.com. Isi survey lebih singkat dan poinnya relatif kecil dibandingkan dari survei undangan, tapi lumayan untuk menambah poin.

  Berikut menu pilihan survey Ipanel:

Anda dapat juga mengundang teman denagn cara Rekomendasi anggota > Rekomendasi teman. 

anda akan mendapat 20 poin sebagai imbalannya 
Perhatikan gambar berikut ini.

Cara menukar Point 

Poin yang didapat bisa dikumpulkan dan bila sudah mencukupi bisa kita tukarkan dengan uang :

350 poin = Rp. 20.000,-
650 poin = Rp. 50.000,-
1200 poin = Rp. 100.000,-

Catatan

Sebelum menukar poin, anda harus melengkapi data-data pribadi anda pada menu “profil saya“. Kemudian periksa jumlah poin anda. Jika sudah mencukupi, silakan pilih nominal uang yang akan ditukar. misal anda ingin menukar poin anda 1200 dengan uang Rp. 100.000,-, silakan klik gambar uangnya atau tulisan “penukaran sekarang“. anda akan didirect menuju halaman konfirmasi lalu klik PENUKARAN SEKARANG Tunggu 1 hari uang akan masuk paypal jika ke bank mungkin 10 hari


Minat Buruan daftar Disini

Read more »