tag:blogger.com,1999:blog-78729012977912074312024-02-19T17:26:09.600+07:00VB ThokBelajar Visual Basic OnlineUnknownnoreply@blogger.comBlogger73125tag:blogger.com,1999:blog-7872901297791207431.post-16461348678186611102013-08-06T08:31:00.002+07:002013-08-06T08:31:53.523+07:00Jasa teknisi service PC/Komputer/Laptop/Notebook panggilan terpercaya se-malang raya<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDhIC5dKVstK7FRf-fkt21oACcsyCMhth3aswfD-1_O9MT_jQBuNRgVCrYleR38HZjlIIhw8bSyCP9pJh026oa6CXrIuTaTwICFfAujmufYRhfOwsQGJD4wrXfjefQOvdnX4YLoflF8aw/s1600/12140264_771679_50641aab972b2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDhIC5dKVstK7FRf-fkt21oACcsyCMhth3aswfD-1_O9MT_jQBuNRgVCrYleR38HZjlIIhw8bSyCP9pJh026oa6CXrIuTaTwICFfAujmufYRhfOwsQGJD4wrXfjefQOvdnX4YLoflF8aw/s320/12140264_771679_50641aab972b2.jpg" width="310" /></a></div>
<br />
Kami salah satu penyedia jasa service komputer panggilan yang langsung
dikerjakan di tempat, keuntungannya adalah Anda bisa sambil melihat
komponen apa saja yang rusak, dikerjakan dengan cepat, apabila terdapat
komponen yang harus digantu dapat langsung meminta persetujuan dari
Anda. Kami meliputi wilayah Malang dan sekitarnya<br />
<br />
Kami melayani
service/maintenance komputer panggilan ke<br />
<ul>
<li>Rumah</li>
<li>Kantor</li>
<li>Sekolah</li>
<li>Instansi / Perusahaan</li>
<li>Warnet</li>
</ul>
di area Malang dan sekitarnya, Kami juga melayani perbaikan dan perakitan komputer baru dan second, basmi virus,
install software dan aplikasi<br />
Adapun kerusakan meliputi:<br />
Komputer CPU/ Laptop/ Notebook {Mati total}<br />
Komputer tiba-tiba Restart sendiri<br />
Komputer Muncul Blue Screen<br />
Komputer Tidak mau menyala<br />
Komputer hanya menampilkan Logo Windows<br />
Komputer Hang<br />
Komputer Lemot Lebay<br />
Komputer kena virus<br />
Hardisk Bad Sector / Backup Data<br />
Upgrade Hardisk, Windows XP, Win7, Office 2007<br />
Install Aplikasi tambahan, Games<br />
Bios bermasalah/ penggantian Battery<br />
Printer Anda Macet<br />
Power Supply Down / Mati<br />
Kipas Anda tidak menyala<br />
Upgrade CD ke DVD<br />
Upgrade Processor, Casing, Monitor, LCD<br />
<br />
Service Meliputi:<br />
Troubleshooting Hardware (bukan penggantian spare part)<br />
Troubleshooting
Software (Windows xp, Windows 7 , Windows 8, Office 2007, Acrobat Reader, Winamp, Winrar,
K-lite Codec, Mozilla Firefox, Tune up Windows, Anti Virus+Update, dll)<br />
<br />
sms / bbm /chat :<br />
0857-8582-5331 ( Fast Respon )<br />
089-6244-84859 ( Fast Respon )<br />
<br />
pin. 30F085C9<br />
<br />
" Kalau ada yang mudah, kenapa harus repot??? , Anda tinggal duduk manis biar kami yang bekerja" Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-39206318573933495722013-06-08T11:17:00.003+07:002013-06-08T11:17:45.367+07:00DVD GAMES FULL HD UNTUK SEMUA VERSI PSP TER-BARU TER-UPDATE TER-MURAH GRATIS DI MALANG BLITAR SURABAYA JOGJA BANDUNG BEKASI TANGERANG JAKARTA BALI MEDAN LAMPUNG KALIMANTAN BANJARMASI BALIKPAPAN MAKASSAR MANADO MALUKU PAPUA Bagi anda yang ingin memainkan game full HD di PSP kesayangan anda dan tidak ingin ribet harus download berlama-lama dikomputer.<br /><br />KAMI MENYEDIAKAN GAME-GAME Full HD PSP TERUPDATE & TERPERCAYA<br /><br />Daripada
PSP anda dibawa ke toko untuk isi game harus mengeluarkan duit hingga
RATUSAN RIBU dan game didapat cuma abal-abal dan ecek-ecek, lebih baik
anda membeli koleksi terupdate saya dengan harga yang sangat murah..<br /><br />Berikut beberapa list gamenya :<br />Assasin's Creed Bloodlines<br />AFL Challange<br />Air Conflic<br />Asphalt Urban GT2<br />Angry Bird<br />Age of Zombie<br />Battle Zone<br />Crash of The Titans<br />Dead or Live Paradise<br />Dirt 2<br />Football manager Handled 2013<br />FIFA 13 New !!!<br />Final Fantasy 7 Crisis Core<br />GTA Vice City Stories<br />Gundam Vs Gundam Next Plus English<br />Ghostbuster<br />GTA ChinaTown<br />GI - Joe<br />Harry Potter and The Order of The Phoenix<br />Iron Man 2<br />Kamen Rider - Rider Generation 2<br />Legend of Heroes III<br />Lego Pirates of The Caribbean<br />Metal Slug XX<br />Moto GP<br />Medal Of Honor Heroes 2<br />NFS Most Wanted<br />NFS Shift<br />NFS Pro Street<br />NBA2k13<br />PES 2013<br />Prince of Persia Forgotten Sands<br />Spiderman 3<br />Street Fighter Alpha 3 Max<br />The Lord Of The Ring Tactic<br />Tony Hawks Project 8<br />Tekken 6<br />Toy Story 3<br />Tranformer Revenge Of The Fallen<br />Warrior of The Lost Empire<br />Winning Eleven 2012<br />WWE All Stars<br /><br />Dan masih banyak lagi game menarik lainya..<br /><br />Di kemas dalam 11 Keping DVD yang berisikan Game Full HD + Panduan Installasi+Tutorial Hack PSP<br />Kami berikan Harga termurah Hanya Rp. 140.000,- saja. (sudah termasuk ongkos kirim)<br />*untuk perkeping harga 15ribu<br /><br />Jika anda berminat serius silahkan hub.<br />089-6244-84859 (fast respon)<br />0857-8582-5331 (fast respon)<br />ym. tomeemine<br />pin. 30F085C9<br /><br />"reputasi bisa dibeli tapi kejujuran tidak bisa dibeli"<br />"garansi uang kembali jika barang tidak sampai ke tangan anda"<br />
<br />
Ragu?? Berikut keterangan resi & testi<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinFdtKFzxa7X3BLZM05K9zWfMEN9urAEpSUoiTBDJELUll27FjXQgmg3ovV8E16WTOvD3hNSUhz3QXfW1sZHXr4TVn89XTrnPZjM7S0C5kjVkCfvRmi5t_Ja-tG8X1Tbua852cCm2L1kU/s1600/psp7ss.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="446" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinFdtKFzxa7X3BLZM05K9zWfMEN9urAEpSUoiTBDJELUll27FjXQgmg3ovV8E16WTOvD3hNSUhz3QXfW1sZHXr4TVn89XTrnPZjM7S0C5kjVkCfvRmi5t_Ja-tG8X1Tbua852cCm2L1kU/s640/psp7ss.jpg" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNC5zbXvyzGcNkUqEr9SgvEPiKfgZd5_gsDzHZqcV9wNR-AXbXEA22Gggd_1vfE3Iieu5gjweSuRJOCmokFJYBtOhq0t8b_x4Ur8W3oWKrBFB88_NP3he3KkIKuHysHWIgiv2gB4hmbQw/s1600/jne-pos-resi.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNC5zbXvyzGcNkUqEr9SgvEPiKfgZd5_gsDzHZqcV9wNR-AXbXEA22Gggd_1vfE3Iieu5gjweSuRJOCmokFJYBtOhq0t8b_x4Ur8W3oWKrBFB88_NP3he3KkIKuHysHWIgiv2gB4hmbQw/s640/jne-pos-resi.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5agpV3tDMD9Ilo81goBDnvr7_ObJ8nnQHpSaldRfnYH4yRY1uw_ZgKUsbGUAojN8Rt_XChWGqmF3dUY12_lPv0n1v8LYPPcpTFfM9G8rSiz_IPAubqB6aYiU0qTzNC4mMPSpngyg-pjY/s1600/Capture13_11_8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5agpV3tDMD9Ilo81goBDnvr7_ObJ8nnQHpSaldRfnYH4yRY1uw_ZgKUsbGUAojN8Rt_XChWGqmF3dUY12_lPv0n1v8LYPPcpTFfM9G8rSiz_IPAubqB6aYiU0qTzNC4mMPSpngyg-pjY/s640/Capture13_11_8.jpg" width="564" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxEv0dp0yCay7GTCHi22lofqWR2yZWehPzfoDow9YtgOaZmk2IPa55edQOGeu65IiytQF470bnthTQkH9BcmjW1nUdkYpmxo6HwwZHwQfmpmq8glgaa4V41kQsJ9gFJlriMb-D2ULErG0/s1600/Capture17_9_44.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxEv0dp0yCay7GTCHi22lofqWR2yZWehPzfoDow9YtgOaZmk2IPa55edQOGeu65IiytQF470bnthTQkH9BcmjW1nUdkYpmxo6HwwZHwQfmpmq8glgaa4V41kQsJ9gFJlriMb-D2ULErG0/s640/Capture17_9_44.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6_H073MjFGg2b0Vq6VB29F9Uk5j0to-xIoxP5MGqM8LDXgl2BLeusC2iNjfAL5gGh0Fzr6KYNl-RUop_FmLrP8rLcfoSIBQNj8MHtBHUUVOp0GPPHyT6EZjJhdg-f2xecogIsJ9NE-8U/s1600/Capture7_46_23.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6_H073MjFGg2b0Vq6VB29F9Uk5j0to-xIoxP5MGqM8LDXgl2BLeusC2iNjfAL5gGh0Fzr6KYNl-RUop_FmLrP8rLcfoSIBQNj8MHtBHUUVOp0GPPHyT6EZjJhdg-f2xecogIsJ9NE-8U/s640/Capture7_46_23.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjC7QhLHUe1pvMtr0C0uKBw9c_HW-Y3rVUHkYfSRtIq6CNzxDohn9JgYBA0Y_Y2-_e3g5WDyhANzyWT5sUti2LmKlbTQngc1wPRZfElM69h5fD1VtQzLVT1j7k9fVFFlfOAZ3Sp3AE1z8o/s1600/cats.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjC7QhLHUe1pvMtr0C0uKBw9c_HW-Y3rVUHkYfSRtIq6CNzxDohn9JgYBA0Y_Y2-_e3g5WDyhANzyWT5sUti2LmKlbTQngc1wPRZfElM69h5fD1VtQzLVT1j7k9fVFFlfOAZ3Sp3AE1z8o/s640/cats.jpg" width="624" /></a></div>
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-34151865784190943942013-06-05T11:52:00.002+07:002013-06-05T11:52:35.112+07:00DVD GAMES ANDROID HD TERBARU-TERUPDATE TERMURAH FOR SAMSUNG TAB NOTE AINOL ADVAN SMARTFREN TABULET PIXCOM AXIOO MITO CROSS BEYOND ICONIA TREQ ONDA IMO MOVIMAX HYUNDAI SONY XPERIA SPC NEXIAN MAXTRONKENAPA HARUS BELI di DISTRO GAMES ??<br />TER-UPDATE, TER-LARIS, TER-MURAH & TERPERCAYA SE-TOKO BAGUS<br /><br />1 PAKET LENGKAP + GRATIS ONGKIR<br /> BANDINGKAN DENGAN LAPAK YANG LAEN!!!<br /><br />GAME FULL HD TERBARU BULAN INI!!<br /><br /> Real Boxing HD [B]New<br /> Re-Volt Classic HD New<br /> Roll Boulder Smash! HD New<br /> Royal Revolt HD New<br /> Iron Man 3 HD New<br /> Dungeon Hunter 4 HDNew<br /> Contract Killer 2 Zombies HD<br /> Epoch HD New<br /> Metal Gear Out Heaven HD New<br /> Reign Of Amira HD New<br /> Spy Mouse HD New<br /> Dungeon Of Legends HD New<br /> Emergency HD New<br /> Front Line Commando D-Day HD New<br /> Spider HD New<br /> Into The Dead HD New<br /> Brotherhood Of Violence HD New<br /> Trainz Trouble HD New<br /> Dungeon of Legends HD (Action RPG) New<br /> Era's Adventures 3D New<br /> Figaro Pho Creatures Critters HD New<br /> Punch Hero 3D New<br /> [CENTER]Chaos Rings II HD [B]New<br /> My Little Hero HD New<br /> Raven Swords HD New<br /> Tiny Tropers HD New<br /> Conduit HD New<br /> Astro Shark HD New<br /> Bladeslinger HD (Offline+Full) New<br /> Dueling Blades HD New<br /> Figaro Pho Creatures Critters HD New<br /> God Of Blades HD New<br /> Gun Bros 2 HD(Unlimited Coins) New<br /> METAL SLUG X New<br /> Rage of the Gladiator HD New<br /> Sky Gamblers Rise Of Glory (Full) New<br /> SPIRITED SOUL HD New<br /> Temple Run Oz HD New<br /> Alien Versus Predator Evolution HD New<br /> Apple Avengers HD New<br /> Bad Piggies HD New<br /> Defense Zone HD New<br /> FLASHOUT 3D New<br /> Motorbike HD New<br /> Oscura HD New<br /> Protoxide Death Race HD New<br /> SAMURAI vs ZOMBIES DEFENSE HD New<br /> Sling It!(Pollushot 2) New<br /> Slingshot Racing HD New<br /> Subway Surfers1.8.0 Modification New<br /> The Croods New<br /> Toy Story Smash ItNew<br /><br /><br /> PES 2012Best Seller<br /> FIFA 2012Best Seller<br /> ASPLHALT 7Best Seller<br /> NFS MOST WANTEDBest Seller<br /> NFS SHIFTBest Seller<br /> MODERN COMBAT 3Best Seller<br /> MODERN COMBAT 4Best Seller<br /> NOVA 3Best Seller<br /> REAL RACING 3 (UNLIMITED MONEY)Best Seller<br /> THE SIMSBest Seller<br /> CHAOS RINGBest Seller<br /> SPYDERMANBest Seller<br /> BATMANBest Seller<br /> GTA 3Best Seller<br /> GANGSTARBest Seller<br /> DUNGEON HUNTERBest Seller<br /><br />Dan masih banyak yang seru lainya..<br /><br />PAKET HEMAT Android HP/TABLET<br />(8DVD) #36GB++ HANYA Rp 100.000 (Free Ongkir)<br />Game Full HD (APK+DATA) + Panduan Installasi<br /><br />PAKET FULL HP/TABLET<br />(20DVD) #90GB++ HANYA Rp 220.000 (Free Ongkir)<br />Game Full HD (APK+DATA) + Panduan Installasi<br />Perkeping = 15Rb<br /><br />Berminat ? serius ?<br />089-6244-84859 (fast respon)<br />0857-8582-5331 (fast respon)<br />PIN BB. 30F085C9<br /><br />NO TIPU2, KALAU NIPU MENDING JADI KORUPTOR AJA!!<br />GARANSI UANG KEMBALI JIKA BARANG TIDAK SAMPAI KE TANGAN ANDA!!!<br />
<br />
Bukti resi dan testi serta game tested:<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5agpV3tDMD9Ilo81goBDnvr7_ObJ8nnQHpSaldRfnYH4yRY1uw_ZgKUsbGUAojN8Rt_XChWGqmF3dUY12_lPv0n1v8LYPPcpTFfM9G8rSiz_IPAubqB6aYiU0qTzNC4mMPSpngyg-pjY/s1600/Capture13_11_8.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5agpV3tDMD9Ilo81goBDnvr7_ObJ8nnQHpSaldRfnYH4yRY1uw_ZgKUsbGUAojN8Rt_XChWGqmF3dUY12_lPv0n1v8LYPPcpTFfM9G8rSiz_IPAubqB6aYiU0qTzNC4mMPSpngyg-pjY/s640/Capture13_11_8.jpg" width="564" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxEv0dp0yCay7GTCHi22lofqWR2yZWehPzfoDow9YtgOaZmk2IPa55edQOGeu65IiytQF470bnthTQkH9BcmjW1nUdkYpmxo6HwwZHwQfmpmq8glgaa4V41kQsJ9gFJlriMb-D2ULErG0/s1600/Capture17_9_44.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxEv0dp0yCay7GTCHi22lofqWR2yZWehPzfoDow9YtgOaZmk2IPa55edQOGeu65IiytQF470bnthTQkH9BcmjW1nUdkYpmxo6HwwZHwQfmpmq8glgaa4V41kQsJ9gFJlriMb-D2ULErG0/s640/Capture17_9_44.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6_H073MjFGg2b0Vq6VB29F9Uk5j0to-xIoxP5MGqM8LDXgl2BLeusC2iNjfAL5gGh0Fzr6KYNl-RUop_FmLrP8rLcfoSIBQNj8MHtBHUUVOp0GPPHyT6EZjJhdg-f2xecogIsJ9NE-8U/s1600/Capture7_46_23.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6_H073MjFGg2b0Vq6VB29F9Uk5j0to-xIoxP5MGqM8LDXgl2BLeusC2iNjfAL5gGh0Fzr6KYNl-RUop_FmLrP8rLcfoSIBQNj8MHtBHUUVOp0GPPHyT6EZjJhdg-f2xecogIsJ9NE-8U/s640/Capture7_46_23.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjC7QhLHUe1pvMtr0C0uKBw9c_HW-Y3rVUHkYfSRtIq6CNzxDohn9JgYBA0Y_Y2-_e3g5WDyhANzyWT5sUti2LmKlbTQngc1wPRZfElM69h5fD1VtQzLVT1j7k9fVFFlfOAZ3Sp3AE1z8o/s1600/cats.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjC7QhLHUe1pvMtr0C0uKBw9c_HW-Y3rVUHkYfSRtIq6CNzxDohn9JgYBA0Y_Y2-_e3g5WDyhANzyWT5sUti2LmKlbTQngc1wPRZfElM69h5fD1VtQzLVT1j7k9fVFFlfOAZ3Sp3AE1z8o/s640/cats.jpg" width="624" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwb7aHSi7YPVvzyg-7BkUdOlJsG_zzU9FK8AIG2u0ZOAiTXs6GtsyB70nSolHsCt8TKsJEOdWE4j5lCkAXhI8FliOJETue_IGauH_gPOQgnijSBWdnIwpOYPjd4LSkrZa9QO2M-X-zaJk/s1600/20121206_094118_resize.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="482" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwb7aHSi7YPVvzyg-7BkUdOlJsG_zzU9FK8AIG2u0ZOAiTXs6GtsyB70nSolHsCt8TKsJEOdWE4j5lCkAXhI8FliOJETue_IGauH_gPOQgnijSBWdnIwpOYPjd4LSkrZa9QO2M-X-zaJk/s640/20121206_094118_resize.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibK3yh1M1i48ViNxXjYakTnqVmlyptjQCkCZsEHRl44exwG8zqt0UuqTC37jADhFf0hyrYPCeoLmjWkTxDNvm-aMReVYDbraP_i14bTfu_VZdXiqdHtcNXJAfo4h7CBVIGx95mAr9h3as/s1600/kumpulan.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="502" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibK3yh1M1i48ViNxXjYakTnqVmlyptjQCkCZsEHRl44exwG8zqt0UuqTC37jADhFf0hyrYPCeoLmjWkTxDNvm-aMReVYDbraP_i14bTfu_VZdXiqdHtcNXJAfo4h7CBVIGx95mAr9h3as/s640/kumpulan.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjl-fZtnzVn5GITbjd_5nBkaMogxinjN0nbDedxZ5JIwTJZ0zLGGKfr6f_e8FgSjVsmWS30IV2k0EUw3CzEkh_Y9Y_TgmnfNsNfLB3APB2s9E-NHqBJoIDLA8Bj1cp7v0lDwpPgzcZdSkk/s1600/samsungtab1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="362" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjl-fZtnzVn5GITbjd_5nBkaMogxinjN0nbDedxZ5JIwTJZ0zLGGKfr6f_e8FgSjVsmWS30IV2k0EUw3CzEkh_Y9Y_TgmnfNsNfLB3APB2s9E-NHqBJoIDLA8Bj1cp7v0lDwpPgzcZdSkk/s640/samsungtab1.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMg_aKLaNYjzkR7_nAPqlKxYj3UvPYUYFnEfwAc88HTj8zc2UUZR2zdxtvUFuJv18wXl86ZH2YwgLumZC3bDJTFn7GZlZMHwmu0RK8LwIQJYpoAx58XKfNB7c9-nOfhyphenhyphenUi2P7K-vPC8GY/s1600/samsungtab2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="308" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMg_aKLaNYjzkR7_nAPqlKxYj3UvPYUYFnEfwAc88HTj8zc2UUZR2zdxtvUFuJv18wXl86ZH2YwgLumZC3bDJTFn7GZlZMHwmu0RK8LwIQJYpoAx58XKfNB7c9-nOfhyphenhyphenUi2P7K-vPC8GY/s640/samsungtab2.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNC5zbXvyzGcNkUqEr9SgvEPiKfgZd5_gsDzHZqcV9wNR-AXbXEA22Gggd_1vfE3Iieu5gjweSuRJOCmokFJYBtOhq0t8b_x4Ur8W3oWKrBFB88_NP3he3KkIKuHysHWIgiv2gB4hmbQw/s1600/jne-pos-resi.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNC5zbXvyzGcNkUqEr9SgvEPiKfgZd5_gsDzHZqcV9wNR-AXbXEA22Gggd_1vfE3Iieu5gjweSuRJOCmokFJYBtOhq0t8b_x4Ur8W3oWKrBFB88_NP3he3KkIKuHysHWIgiv2gB4hmbQw/s640/jne-pos-resi.jpg" width="640" /></a></div>
<br />
<br />
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-25510724485747145272013-04-26T15:00:00.001+07:002013-04-26T15:00:04.758+07:00APP GAMES ANDROID - IPOD - IPHONE - IPAD - PSP - TUTORIAL SERVIS LAPTOP - BLACKBERRY MALANG SURABAYA BANDUNG JOGJA JAKARTA MEDAN KALIMANTAN TARAKAN BANJARMASIN MANADO MAKASSAR SULAWESI MALUKU PAPUA NTTBagi mas bero dan mbak bero..<br />Distro game mau menawarkan :<br /><br />DVD App-Games ANDROID Tablet<br />(Glaxy Tab,Advan,Smartfren,Ainol,Imo)<br />(Gpu Mali, PowerVR,Andreno,Qualcomm)<br />1paket isi 8 Dvd (game HD+app)<br /><br />DVD App-Games ANDROID HP<br />(galaxy mini,gio, young, fit, experia, htc, smartfren,cross,)<br />1paket isi 5 dvd (game HD+app)<br /><br />Dvd iPhone / IPod<br />All version iPhone & iPod<br />1paket isi 7dvd (game HD+app)<br /><br />Dvd iPad<br />All version iPad<br />1paket isi 7dvd (game HD+app)<br /><br />DVD Games HD for PSP All Version<br />1paket isi 12 dvd (game HD)<br /><br />Dvd Tutorial servis BlackBerry<br />1paket isi 3dvd (app+tools+ebook+os smua tipe+schematic+video)<br /><br />Dvd tutorial sevis notebook<br />1paket isi 8dvd (video servis+hirens+driverpack2012+tools+program portable+ebook+dll)<br /><br />Berminat?<br />Ping me..or sms<br />085785825331(fast respon)<br />Pin 30F085C9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbRusgwy2MlADCr4fEHks26skZqUSB8XaPHveSx5I_xybzH4MqmSIr_VG_fFjH7NUNsBaCzDjB-1qr0UXl2kUpA1RCxl2RNWH9avOox2hvtdN_JmGKfVCWhqe2358fPLgXvuZYmGXtHF8/s1600/kumpulan.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="249" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbRusgwy2MlADCr4fEHks26skZqUSB8XaPHveSx5I_xybzH4MqmSIr_VG_fFjH7NUNsBaCzDjB-1qr0UXl2kUpA1RCxl2RNWH9avOox2hvtdN_JmGKfVCWhqe2358fPLgXvuZYmGXtHF8/s320/kumpulan.jpg" width="320" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitYp2id8_PUi-EgnFAh-jUbbnGU7D39xt2DfKE4_wrg9mWnLy5eiwY0qa9OXMFtSV2LhoPkFtCEXzZUATM9BdKjr-JNXB7qlSuf_TjWU1XHP5acW729aFCXE0CvsBAi8-irxE_9jAm-T4/s1600/samsungtab1.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="181" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitYp2id8_PUi-EgnFAh-jUbbnGU7D39xt2DfKE4_wrg9mWnLy5eiwY0qa9OXMFtSV2LhoPkFtCEXzZUATM9BdKjr-JNXB7qlSuf_TjWU1XHP5acW729aFCXE0CvsBAi8-irxE_9jAm-T4/s320/samsungtab1.jpg" width="320" /></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-87364131368902906032013-01-21T01:47:00.002+07:002013-03-10T10:41:47.440+07:00Aplikasi & Game Android HD Untuk GPU MALI POWERVR ANDRENO SNAPDRAGON QUALCOMM<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9874VBbSlJr66lYgYFphhgk045Yy601OPgbCcYUzrP2bM4qq-t-L4qeKa4lVsbX3o4e_Dc1OUrexXSJH87TgAe5O7YJ3fy2416UmZtC8XwGN8MFko-AOn9N9aOJnstYnGLGz7wbPYaYw/s1600/HD1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9874VBbSlJr66lYgYFphhgk045Yy601OPgbCcYUzrP2bM4qq-t-L4qeKa4lVsbX3o4e_Dc1OUrexXSJH87TgAe5O7YJ3fy2416UmZtC8XwGN8MFko-AOn9N9aOJnstYnGLGz7wbPYaYw/s640/HD1.jpg" width="489" /></a></div>
<br />
<br />
Bagi
anda yang ingin memainkan game full HD di HP atau tablet android
kesayangan anda dan tidak ingin ribet harus download berlama-lama
dikomputer.<br />
<br />
Kami hadir untuk memenuhi kebutuhanan anda,
kami menjual game full HD untuk Tablet android anda..game bisa
dimainkan di semua versi android..<br />
<br />
Kami juga menyertakan cara installasi yang mudah dipahami sehingga anda tidak kebingungan jika ingin melakukan install game.<br />
<br />
Iklan lebih jelas lengkap bisa di klik <a href="http://www.kaskus.co.id/post/50c8c0682775b44b12000036#post50c8c0682775b44b12000036" target="_blank">disini </a><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg19HN13qbV3Dh1wkoHXrwVikpMCssf6LlIqtlXxY92Ebr2azCZVoNHRWyu2zLBsPCbFULWJqHR_yOM-6jl7grUDFMuJpJTaQ3bPs_rNOcu3xMlp7usMWPhQzG1ORTEiznRc66Bj-VcBdE/s1600/samsung+galaxy+tab.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg19HN13qbV3Dh1wkoHXrwVikpMCssf6LlIqtlXxY92Ebr2azCZVoNHRWyu2zLBsPCbFULWJqHR_yOM-6jl7grUDFMuJpJTaQ3bPs_rNOcu3xMlp7usMWPhQzG1ORTEiznRc66Bj-VcBdE/s320/samsung+galaxy+tab.jpg" width="320" /></a></div>
<b>UNTUK GAME TAB :</b><br />
Di kemas dalam 8 Keping DVD yang berisikan Aplikasi dan Game Apk+Data serta bonus2 aplikasi yang menarik.<br />
Kami berikan Harga termurah Hanya <b>Rp. 100.000,- </b>saja. (sudah termasuk ongkos kirim)<br />
<br />
<b>UNTUK GAME HP :</b><br />
Di kemas dalam 5 Keping DVD yang berisikan Aplikasi dan Game Apk+Data serta bonus2 aplikasi yang menarik.<br />
Kami berikan Harga termurah Hanya Rp. <b>70.000,- </b>saja. (sudah termasuk ongkos kirim)<br />
<br />
<br />
Minat? serius?<br />
Hub :<br />
089-6244-84859 (fast respon)<br />
0857-8582-5331 (fast respon)<br />
ym. tomeemine<br />
pin. 30F085C9<br />
<br />
Berikut contoh test game pada tablet :<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibLzFj0YEw3a6LWjS7fJaJB2g_WylXy-kZtTxoLmMDWVipKWU8TKMLxzK1xIc-vlm_U-nz6GCIrU_tK3bPJPxL5sGUD7G4_DYNOVLujPNqa4m9SSoYeM8IzMMnyYDR8LGqvxH9fmG8jAU/s1600/a10c.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggw8pKPwWtTsihXoaxd0MGuz-wsak0elU34dMwHk62rbIRl7BvllSFfVL8CjaPKZs-bf474dcNAhvYbs1-lXM-ZFTqd5h0gNNDja5AVhlDbNAi66Pp0kehI6Mve-cDgfd-kfqJB0zOEUs/s1600/kumpulan.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="312" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggw8pKPwWtTsihXoaxd0MGuz-wsak0elU34dMwHk62rbIRl7BvllSFfVL8CjaPKZs-bf474dcNAhvYbs1-lXM-ZFTqd5h0gNNDja5AVhlDbNAi66Pp0kehI6Mve-cDgfd-kfqJB0zOEUs/s400/kumpulan.jpg" width="400" /></a></div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRATFoikyh5QVKmkTtsSTF5JMis1AnmqCb5f2N8WFvOsGpOA_AjTdhw0qvZsRn1oarxnuMPzUdqCq5J9Wv23bUqMsaTmAfd0GaE_xXAbthvpqMxra-lkUgpr-1EW-huoWJ0F_LEi3WPTQ/s1600/crystal.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"></a><br />
<br />
<br />
<br />
"reputasi bisa dibeli tapi kejujuran tidak bisa dibeli"<br />
"garansi uang kembali jika barang tidak sampai ke tangan anda"Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-39747205643011083322012-12-16T22:45:00.004+07:002013-03-10T10:55:47.916+07:00Aplikasi & Game Android HD tuk Samsung Smartfren Ainol Advan Imo Tabulet Axioo ZTE Huawei HTC Efioo Cross MITO<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9874VBbSlJr66lYgYFphhgk045Yy601OPgbCcYUzrP2bM4qq-t-L4qeKa4lVsbX3o4e_Dc1OUrexXSJH87TgAe5O7YJ3fy2416UmZtC8XwGN8MFko-AOn9N9aOJnstYnGLGz7wbPYaYw/s1600/HD1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9874VBbSlJr66lYgYFphhgk045Yy601OPgbCcYUzrP2bM4qq-t-L4qeKa4lVsbX3o4e_Dc1OUrexXSJH87TgAe5O7YJ3fy2416UmZtC8XwGN8MFko-AOn9N9aOJnstYnGLGz7wbPYaYw/s640/HD1.jpg" width="489" /></a></div>
<br />
<br />
Bagi
anda yang ingin memainkan game full HD di HP atau tablet android
kesayangan anda dan tidak ingin ribet harus download berlama-lama
dikomputer.<br />
<br />
Kami hadir untuk memenuhi kebutuhanan anda,
kami menjual game full HD untuk Tablet android anda..game bisa
dimainkan di semua versi android..<br />
<br />
Kami juga menyertakan cara installasi yang mudah dipahami sehingga anda tidak kebingungan jika ingin melakukan install game.<br />
<br />
<span id="goog_932710829"></span><span id="goog_932710830"></span><br /><div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmJxb5a7dtDGU3_W-jx0iVuuRdX_Yaa6lcs7cdX-CFUxjCQXUPUx1O4iGQahw06wNwmmeGYY5FOfh6X00xU0EOzP6uJolG75J3C8b84AIBrk9yzfsrsW5ST_0LJ6qnH6Er6ErLEw8jlc4/s1600/samsung+galaxy+tab.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmJxb5a7dtDGU3_W-jx0iVuuRdX_Yaa6lcs7cdX-CFUxjCQXUPUx1O4iGQahw06wNwmmeGYY5FOfh6X00xU0EOzP6uJolG75J3C8b84AIBrk9yzfsrsW5ST_0LJ6qnH6Er6ErLEw8jlc4/s320/samsung+galaxy+tab.jpg" width="320" /></a></div>
<b>UNTUK GAME TAB :</b><br />
Di kemas dalam 8 Keping DVD yang berisikan Aplikasi dan Game Apk+Data serta bonus2 aplikasi yang menarik.<br />
Kami berikan Harga termurah Hanya <b>Rp. 100.000,- </b>saja. (sudah termasuk ongkos kirim)<br />
<br />
<b>UNTUK GAME HP :</b><br />
Di kemas dalam 5 Keping DVD yang berisikan Aplikasi dan Game Apk+Data serta bonus2 aplikasi yang menarik.<br />
Kami berikan Harga termurah Hanya Rp. <b>70.000,- </b>saja. (sudah termasuk ongkos kirim)<br />
<br />
<br />
Minat? serius?<br />
Hub :<br />
089-6244-84859 (fast respon)<br />
0857-8582-5331 (fast respon)<br />
ym. tomeemine<br />
pin. 30F085C9<br />
<br />
Berikut hasil contoh test game pada beberapa tablet :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKnE9IKL6tME_267WOvda1yiFpCj4fa_r0YlAZ-VcS2A1J8NKOkh2W_ghcUagjEaW6_0FHvi6coLU4LVuJ8oK6QImWAe_pya5knKswb3pSfemxcqSdTO7SxspJxuzWL-oWqa5OBsqc4as/s1600/kumpulan.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="313" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKnE9IKL6tME_267WOvda1yiFpCj4fa_r0YlAZ-VcS2A1J8NKOkh2W_ghcUagjEaW6_0FHvi6coLU4LVuJ8oK6QImWAe_pya5knKswb3pSfemxcqSdTO7SxspJxuzWL-oWqa5OBsqc4as/s400/kumpulan.jpg" width="400" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
"reputasi bisa dibeli tapi kejujuran tidak bisa dibeli"<br />
"garansi uang kembali jika barang tidak sampai ke tangan anda"Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-2021795429123031742012-10-29T13:33:00.001+07:002012-12-15T12:47:51.020+07:00Game HD dan Aplikasi iPad malang surabaya semarang bekasi jakarta jawa bali kalimantan medan manado batam<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZOJjduGt7Dq4vCLHM0fWCqdgtMKgXleyfqq1kDv2DT_d-7B0Q2W-AXoCsujj9VVZA5RiZQFKIEi_7VtaicK9eIdknTA0Zff0RdNy_2Hy4eJ4voJFmLQa5Nwbv2RGAe3kWph9Sj6a0HpA/s1600/iPad-2-games.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZOJjduGt7Dq4vCLHM0fWCqdgtMKgXleyfqq1kDv2DT_d-7B0Q2W-AXoCsujj9VVZA5RiZQFKIEi_7VtaicK9eIdknTA0Zff0RdNy_2Hy4eJ4voJFmLQa5Nwbv2RGAe3kWph9Sj6a0HpA/s400/iPad-2-games.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmL7InELSRRPFbjVKqs34_uCBniur9nzxTRcROFPpc-lK13Jm41pF4DA2bNAz6yLWPqxTONCqUfe-9HikDoHVGLKnzXGUQhiUwhrXJ1OHcVOUt1vW3XZ-v7Ldei5wDn4TK2G7YI7KMtm8/s1600/iPad-2-games.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
Apakah anda sedang mencari game & aplikasi ipad 1 atau ipad 2??<br />
<br />
Atau bagi anda yang ingin memainkan game full HD di ipad kesayangan anda dan tidak ingin ribet harus download berlama-lama dikomputer.<br />
<br />
Daripada ipad 1 & ipad 2 dibawa ke toko untuk isi aplikasi maupun game harus mengeluarkan duit hingga RATUSAN RIBU dan game maupun aplikasinya yang didapat cuma abal-abal dan ecek-ecek, lebih baik anda membeli koleksi terupdate saya dengan harga yang sangat murah..<br />
<br />
<br />
<br />
<b>Berikut beberapa list gamenya :</b><br />
<br />
Asphalt 7 HD<br />
amazing alex HD<br />
angrybird season HD<br />
FIFA 2013 HD<br />
Street Fighter VS Tekken<br />
VLC Media Player<br />
Adobe Photoshop<br />
FAcebook<br />
Office HD<br />
3D Pool master<br />
Battelfield 3<br />
Bejeweled HD<br />
Dead Tringger<br />
Infinity blade<br />
Real racing 2 HD<br />
WE 2012<br />
Maxpayne<br />
Men in black<br />
Plants vs zombie<br />
Batman The dart knight rises<br />
NFS Unleashed<br />
The amazing spiderman<br />
Walking dead<br />
<br />
Dan masih banyak lagi..<br />
<br />
Di kemas dalam 6 Keping DVD yang berisikan Aplikasi dan Game<br />
Kami berikan Harga termurah Hanya Rp. 90.000,- saja. (sudah termasuk ongkos kirim)<br />
<b><i>Bisa dikirim ke seluruh indonesia</i></b><br />
<br />
Jika anda berminat serius silahkan hub.<br />
089-6244-84859 (fast respon)<br />
0857-8582-5331 (fast respon)<br />
ym. tomeemine<br />
pin. 207c4a47<br />
<br />
"reputasi bisa dibeli tapi kejujuran tidak bisa dibeli"<br />
"garansi uang kembali jika barang tidak sampai ke tangan anda"<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZYarwGhWBgQJjzFSgGaMVv2jy_M_BXg7f37Nol7SFvnkVgl8TvbfCTukzr59nIg7zd2ycyKxdaxSrG65zk0-qdWWRPsEpepkxmJBczN8C8uIRFh11ouDs3Dp7wuctiRD7qa27LVP_1Ng/s1600/best-must-have-ipad-2-apps_clip_image002.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="180" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZYarwGhWBgQJjzFSgGaMVv2jy_M_BXg7f37Nol7SFvnkVgl8TvbfCTukzr59nIg7zd2ycyKxdaxSrG65zk0-qdWWRPsEpepkxmJBczN8C8uIRFh11ouDs3Dp7wuctiRD7qa27LVP_1Ng/s400/best-must-have-ipad-2-apps_clip_image002.jpg" width="400" /></a></div>
<br />
<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-39864722271779725032012-10-29T13:26:00.003+07:002012-12-15T12:47:32.792+07:00Game iphone ipod HD malang surabaya semarang bekasi jakarta jawa bali medan manado kalimantan medan batam<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtcPUx9yWBpvEt8PgqpEyAlJTQfOUw5DvrwNw2_Y3TznCtaH59GWncfjAQx-dfCxjpGh4-zsPsLAu8GaRIV5kkFoqxozv-nsw-3BtyMruGaTgh4-B5EsF8m8PlhtWaArkGk86DvaUaucw/s1600/gabung.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtcPUx9yWBpvEt8PgqpEyAlJTQfOUw5DvrwNw2_Y3TznCtaH59GWncfjAQx-dfCxjpGh4-zsPsLAu8GaRIV5kkFoqxozv-nsw-3BtyMruGaTgh4-B5EsF8m8PlhtWaArkGk86DvaUaucw/s640/gabung.jpg" width="428" /></a></div>
Apakah anda sedang mencari game & aplikasi iphone 3Gs, iphone 4, iphone 4S atau ipod touch gen 3 maupun gen 4??<br />
<br />
Atau
bagi anda yang ingin memainkan game full HD di Iphone kesayangan anda
dan tidak ingin ribet harus download berlama-lama dikomputer.<br />
<br />
Daripada
iPhone, iPod touch dibawa ke toko untuk isi aplikasi maupun game harus
mengeluarkan duit hingga RATUSAN RIBU dan game maupun aplikasinya yang
didapat cuma abal-abal dan ecek-ecek, lebih baik anda membeli koleksi
terupdate saya dengan harga yang sangat murah..<br />
<br />
Berikut beberapa list gamenya :<br />
FIFA 2013<br />
PES 2012<br />
NEED FOR SPEED<br />
NBA 2013<br />
COUNTER STRIKE<br />
ASPHALT 7<br />
ANGRYBIRD NEW SEASON<br />
REAL SOCCER 2013<br />
INFINITI BLADE<br />
STREET FIGHTER<br />
THE AMAZING SPIDERMAN<br />
BATMAN THE DARK KNIGHT RISES<br />
TOTAL RECAALL<br />
ZOMBIE RUNNER<br />
METAL SLUG 3<br />
DANCE DUO<br />
LADU GAGA TAP TAP RAVENGE<br />
DANCE REVOLUTION<br />
GRAND PIANO<br />
DRUMS<br />
GARAGE BAND<br />
STUPID ZOMBIE<br />
THE SIMS 3<br />
FISHING KINGS<br />
MOTO GP<br />
MODERN COMBAT<br />
SUPERCROSS<br />
FINAL STRIKE<br />
<br />
Dan masih banyak lagi game dan aplikasi menarik lainya..<br />
<br />
Di kemas dalam 7 Keping DVD yang berisikan Aplikasi dan Game<br />
Kami berikan Harga termurah Hanya Rp. 100.000,- saja. (sudah termasuk ongkos kirim)<br />
<b><i>Bisa dikirim ke seluruh indonesia</i></b><br />
<br />
Jika anda berminat serius silahkan hub.<br />
089-6244-84859 (fast respon)<br />
0857-8582-5331 (fast respon)<br />
ym. tomeemine<br />
pin. 207c4a47<br />
<br />
"reputasi bisa dibeli tapi kejujuran tidak bisa dibeli"<br />
"garansi uang kembali jika barang tidak sampai ke tangan anda"<br />
<br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-83988556160993215892012-09-11T22:44:00.001+07:002012-10-29T13:40:37.216+07:00Tutorial servis blakcberry malang surabaya jakarta jawa bali kalimantan manado papua<span style="font-size: medium;">Tahukah Anda, blackberry kini sudah terkenal. Hampir semua orang memilih blackberry. Karena dengan blackberry semua urusan komunikasi bisa jadi lebih mudah, tidak hanya untuk ponsel bisnis tapi untuk style dan gaya hidup anakmuda. selain itu harga blackberry yang sekarang tidak lagi semahal yang dulu, membuat semua orang semakin mudah untuk memiliki blackberry.<br />Masalahnya adalah, teknisi blackberry saat ini masih susah dicari.<br />Inilah peluang untuk Anda !<br />Dengan menguasai ilmu perbaikan blackberry, peluang bisnis di depan mata. Bayangkan..!<br />Dengan menguasai teknisi service blackberry anda akan bisa memperbaiki blackberry sendiri tanpa harus repot ke service center. Anda juga berpeluang untuk membuka service blackberry sendiri di tempat anda, karena usaha service blackberry masih memiliki peluang yang tebuka lebar yang nantinya bisa menghasilkan uang penghasilan anda secara mandiri.<br /><br />PAKET DVD VIDEO TUTORIAL BLACKBERRY SANGAT LENGKAP DAN DIKEMAS DALAM 3 DVD</span><br />
<div style="background-color: white; color: red; font-family: Arial,Helvetica,sans-serif; text-align: center;">
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUZ5CQZgWFBGuOvW9VtxIc7CEDfa7uo5VVmetAFdQ_dvvHsho_UCLAso3mu-Vhzi3oFSAnm7bEliRJxNxEEZgdQO6UyFaRDpTYhegSxEmXnuVP6ojRxmageBD1es9dXyUYsE3ir-NjUno/s1600/bb.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="235" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUZ5CQZgWFBGuOvW9VtxIc7CEDfa7uo5VVmetAFdQ_dvvHsho_UCLAso3mu-Vhzi3oFSAnm7bEliRJxNxEEZgdQO6UyFaRDpTYhegSxEmXnuVP6ojRxmageBD1es9dXyUYsE3ir-NjUno/s320/bb.png" width="320" /></a></div>
</div>
<br />
<a href="http://www.blogger.com/blogger.g?blogID=7872901297791207431" name="more"></a><br />
Tinggalkan cara konvensional belajar teknisi blackberry melalui membaca buku atau bahkan dengan mengikuti kursus yang memakan banyak waktu dan juga biaya! <br />
Telah hadir media audio video tutorial yang akan membantu anda dalam menguasai menjadi teknisi service blackberry<br />
Anda akan dibimbing step by step untuk memperbaiki kerusakan-kerusakan yang sering terjadi pada blackberry. Tutorial sangat mudah untuk di ikuti karena seluruh proses perbaikan didemokan langsung.<br />
Materi didalam 3 DVD Tutorial Servis blackberry yang berisi 24 video dan Bonus 2 DVD pendukung service blackberry yang berisi ebook dan berbagai macam aplikasi, game dan tentunya file master OS blackberry yang lengkap dari versi blackberry yang sangat jadul sampai dengan versi yang terbaru.<br />
Tutorial video yang sangat mudah di pahami, bahkan untuk yang masih awam sekalipun.<br />
<br />
• Bagaimana membongkar blackberry?<br />
• Bagaimana mengganti LCD Screen?<br />
• Apa yang harus dilakukan jika blackberry lemot dan hang?<br />
• Bagaimana memperbaiki blackberry nuked ?<br />
• Bagaimana mengganti casing blackberry?<br />
• Cara terbaik untuk melepaskan semua komponen blackberry?<br />
• Bagaimana memperbaiki Error software blackberry?<br />
• Bagaimana cara melakukan installasi OS pada blackberry?<br />
• Bagaimana cara membersihkan dan mengganti trackball yang rusak?<br />
• Apa yang harus dilakukan jika terjadi Fatal software pada blackberry?<br />
• Bagaimana cara membongkar dan mengganti trackpad?<br />
• Dan masih banyak materi lainnya<br />
Dibahas pula Kerusakan-kerusakan Yang Sering Terjadi Pada berbagai merk blackberry terkenal seperti blackberry gemini 8520/8530/9300, bold 9000, javelin 8900, curve 8320, storm, onyx, torch<br />
Dan masih banyak lagi<br />
<br />
Total paket di kemas dalam 3 keping DVD <br />
Harga Rp 60.000 (sudah termasuk ongkir)<br />
<br />
Bisa dikirim ke seluruh indonesia <br />
<br />
Berminat? serius<br />
Hub. Tlp/sms <br />
0857-8582-5331 ( fast respon )<br />
089-6244-84859 ( fast respon )<br />
ym : tomeemine<br />
pin : 207c4a47<br />
<br />
<b>Review isi DVD </b><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIKNXMdHiwrScmFF9r7EgVTseOaXLmydE2iC5beSVggfFA0FdXO13Nzt6a3II2l_d0la0h2x7VwIU200vP1H50Dwvq4XNSzQ4MQVBg9sU-xEl9lw3q-2mDVoXsEa68McIDCpkal2ep1yM/s1600/black1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="192" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIKNXMdHiwrScmFF9r7EgVTseOaXLmydE2iC5beSVggfFA0FdXO13Nzt6a3II2l_d0la0h2x7VwIU200vP1H50Dwvq4XNSzQ4MQVBg9sU-xEl9lw3q-2mDVoXsEa68McIDCpkal2ep1yM/s640/black1.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiFV6FnRSJpFHahAH2KKNdoU_LZ40zslgPZFmNJxSq35Fibynf54RlGtaquDwOYZN4QLsle-mMDUTK1Oyv72r3ApuNkQsHdXCVjDzKv38UMatz9dglCzMNzoOCjLa0An-nW-kBo0tfF2Do/s1600/black2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="280" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiFV6FnRSJpFHahAH2KKNdoU_LZ40zslgPZFmNJxSq35Fibynf54RlGtaquDwOYZN4QLsle-mMDUTK1Oyv72r3ApuNkQsHdXCVjDzKv38UMatz9dglCzMNzoOCjLa0An-nW-kBo0tfF2Do/s640/black2.jpg" width="640" /></a></div>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcx60VxcmMwC1sLBvANrUWpMSM3ppYDD_hD7_fc-667enrZtwrTzDdZ7Q9_CNU-Csrtfv9USvcRa4iVaofuhxfXirZ-QQhzJ3M-Doe00d1A9UST2IMxuyAlXegIrdIzuhejjdfXitctrY/s1600/Tutorial+Blackberry.jpg" style="margin-left: 1em; margin-right: 1em;"><br /></a>
<div style="color: blue; text-align: center;">
</div>
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-16747438905179510322012-09-09T16:04:00.002+07:002012-10-07T22:08:13.602+07:00DVD Game HD Android QVGA 240x320 Galaxy mini, Young,fit, X8 dan sejenisnya<h3 class="post-title entry-title">
</h3>
<div dir="ltr" style="text-align: left;">
<a href="http://4.bp.blogspot.com/-GzcK1DM0SE8/TvrKJqhw53I/AAAAAAAAAfM/Nfn8Q75aftk/s1600/Samsung-Galaxy-Mini.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="265" src="http://4.bp.blogspot.com/-GzcK1DM0SE8/TvrKJqhw53I/AAAAAAAAAfM/Nfn8Q75aftk/s320/Samsung-Galaxy-Mini.jpg" width="320" /></a><br />
Aplikasi dan Game HD apk+data untuk Android QVGA, yang dikemas langsung
kedalam 3 keping DVD dan di khususkan untuk HP android seperti contoh Galaxy mini, Young, fit, xperia X8 dan sejenisnya<br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=7872901297791207431" name="more"></a><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-rtlH4m4Y4zo/TvrKKvS9maI/AAAAAAAAAfU/8yJ_wO-WFJA/s1600/Samsung-Galaxy-Y.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="316" src="http://2.bp.blogspot.com/-rtlH4m4Y4zo/TvrKKvS9maI/AAAAAAAAAfU/8yJ_wO-WFJA/s320/Samsung-Galaxy-Y.jpg" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-1viH1d7VRNE/TvrKMcexFnI/AAAAAAAAAfc/hCiDfD-rk3o/s1600/sony-ericsson-xperia-x8.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="207" src="http://2.bp.blogspot.com/-1viH1d7VRNE/TvrKMcexFnI/AAAAAAAAAfc/hCiDfD-rk3o/s320/sony-ericsson-xperia-x8.jpg" width="320" /></a></div>
<br />
<br />
<br />
<div style="text-align: center;">
<b>Angry bird season</b></div>
<div style="text-align: center;">
<b>Sky force/reloaded</b></div>
<div style="text-align: center;">
<b>Hero Of Sparta</b></div>
<div style="text-align: center;">
<b>Gangstar: West Coast Hustle</b></div>
<div style="text-align: center;">
<b>james cameron(Avatar) HD</b></div>
<div style="text-align: center;">
<b>THE SIMS 3</b></div>
<div style="text-align: center;">
<b>Aftermath X HD </b></div>
<div style="text-align: center;">
<b>Fruit_Ninja_HD </b></div>
<div style="text-align: center;">
<b>Rhythm_Racer_2 </b></div>
<div style="text-align: center;">
<b>Soccer Superstars® </b></div>
<div style="text-align: center;">
<b>CrusadeOfDestiny </b></div>
<div style="text-align: center;">
<b>Extreme_Formula</b></div>
<div style="text-align: center;">
<b>Madden NFL 2012</b></div>
<div style="text-align: center;">
<b>Burning Tires</b></div>
<div style="text-align: center;">
<b>nfs shift</b></div>
<div style="text-align: center;">
<b>Nfs Shift 1.0.6(gingerbead)</b></div>
<div style="text-align: center;">
<b>GT Racing</b></div>
<div style="text-align: center;">
<b>Asphalt 5 HD</b></div>
<div style="text-align: center;">
<b>zenonia 3</b></div>
<div style="text-align: center;">
<b>inotia 3 children of carnia</b></div>
<div style="text-align: center;">
<b>Brothers In Arms 2: Global Front HD</b></div>
<div style="text-align: center;">
<b>Modern Combat: Sandstorm HD</b></div>
<div style="text-align: center;">
<b>Near Orbit Vanguard Alliance - N.O.V.A. HD</b></div>
<div style="text-align: center;">
<b>H.A.W.X</b></div>
<div style="text-align: center;">
<b>Air Attack HD</b></div>
<div style="text-align: center;">
<b>PES 2011</b><br />
<b>PES 2012 </b></div>
<div style="text-align: center;">
<b>Real Football 2011 HD</b></div>
<div style="text-align: center;">
<b>Baseball Superstar 2010</b></div>
<div style="text-align: center;">
<b>Hockey Nation</b></div>
<div style="text-align: center;">
<b>Rugby Nations 2010</b></div>
<div style="text-align: center;">
<b>backbreaker vengeance 2</b></div>
<div style="text-align: center;">
<b>Crazy Snowboard</b></div>
<div style="text-align: center;">
<b>WORMS</b></div>
<div style="text-align: center;">
<b>Plant vs Zombie HD(Official)</b></div>
<div style="text-align: center;">
<b>angry birds rio</b></div>
<div style="text-align: center;">
<b>Baseball superstar 2011</b></div>
<div style="text-align: center;">
<b>battle heart 1.2</b></div>
<div style="text-align: center;">
<b>caligo chaser</b></div>
<div style="text-align: center;">
<b>contract killer</b></div>
<div style="text-align: center;">
<b>death worm</b></div>
<div style="text-align: center;">
<b>Hockey fight pro</b></div>
<div style="text-align: center;">
<b>home run battle 3d 1.6.0</b></div>
<div style="text-align: center;">
<b>illusia 1.0 The Settler</b></div>
<div style="text-align: center;">
<b>gangstar miami vindication</b></div>
<div style="text-align: center;">
<b>Dungeon Hunter</b></div>
<div style="text-align: center;">
<b>Assassin's Creed - Altaïr's Chronicles HD</b></div>
<div style="text-align: center;">
<b>Eternal Legacy</b></div>
<div style="text-align: center;">
<b>Toyshop Adventure</b></div>
<div style="text-align: center;">
<b>final strike 3D</b></div>
<div style="text-align: center;">
<b>guerilla bob</b></div>
<div style="text-align: center;">
<b>fieldrunners HD </b></div>
<div style="text-align: center;">
<b>baseball superstars 2 </b></div>
<div style="text-align: center;">
<b>dead space </b></div>
<div style="text-align: center;">
<b>Third Blade</b></div>
<div style="text-align: center;">
<b>Dan masih banyak lagi lainnya</b><br />
<b>Untuk Game HD sudah termasuk apk+data </b></div>
<br />
<div style="text-align: center;">
<b><span style="font-size: medium;">Dikemas dalam 3 DVD Harga 60.000</span></b></div>
<div style="text-align: center;">
<b><span style="font-size: medium;">sudah termasuk ongkos kirim</span></b></div>
<div style="text-align: center;">
<span style="font-size: medium;"><b>Minat? serius?<br />Hub :<br />089-6244-84859 (fast respon)<br />0857-8582-5331 (fast respon)<br />ym. tony_edp<br />pin. 207c4a47</b></span></div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPfa4YbfdBWLRZ_nFPuVhuxPS53fJUqoyNTu_BrncndBGwmnHs3M_aApaSFYrr_yn_gLIpJ0ASyurnRaUNKvj1BUO2kNwntABqNmAuvdAqGZB6eUggTYImnBbR1npDT2cj2kHpJOtgfYw/s1600/Bukti+kirim+JNE1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPfa4YbfdBWLRZ_nFPuVhuxPS53fJUqoyNTu_BrncndBGwmnHs3M_aApaSFYrr_yn_gLIpJ0ASyurnRaUNKvj1BUO2kNwntABqNmAuvdAqGZB6eUggTYImnBbR1npDT2cj2kHpJOtgfYw/s320/Bukti+kirim+JNE1.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6Nv2IPw3GfMqwF8ZSt9KXex1s5Ei2lNFrB51pG4FhI4PPwM30el-11v_MT8kMkynk5yGiJdoJNlRYh3gBCiuUrIKlSOa7C6ewmHDrNH64-l7j0staaDAee2b_RpXdSoqG7aqDJ0mYsSQ/s1600/pos.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6Nv2IPw3GfMqwF8ZSt9KXex1s5Ei2lNFrB51pG4FhI4PPwM30el-11v_MT8kMkynk5yGiJdoJNlRYh3gBCiuUrIKlSOa7C6ewmHDrNH64-l7j0staaDAee2b_RpXdSoqG7aqDJ0mYsSQ/s1600/pos.jpg" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCJdmBN-UclUKfkdnmcnL56CmHC8AJfGjBMaM_VgVbtXmnkQV1kcnRAcdOevD5ztpqEL_QwrADqAHUnnWKAUHAYb8Kiwqz0GYLlR8s9P5cFINAtIkVv-EIqFv-rR4kjD_LFm68fnhqwQE/s1600/bukti+pengiriman2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCJdmBN-UclUKfkdnmcnL56CmHC8AJfGjBMaM_VgVbtXmnkQV1kcnRAcdOevD5ztpqEL_QwrADqAHUnnWKAUHAYb8Kiwqz0GYLlR8s9P5cFINAtIkVv-EIqFv-rR4kjD_LFm68fnhqwQE/s320/bukti+pengiriman2.jpg" width="320" /></a></div>
<br /></div>
</div>
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-76837661090740024412012-09-09T16:02:00.002+07:002012-10-29T13:09:33.053+07:00Tutorial servis notebook laptop lengkap malang surabaya jakarta jawa bali manado medan kalimantan ambon papuaBisa<h3 class="post-title entry-title">
</h3>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1228.photobucket.com/albums/ee453/kiosjamian/1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="http://i1228.photobucket.com/albums/ee453/kiosjamian/1.jpg" width="400" /></a></div>
<div align="justify">
<div style="text-align: center;">
</div>
<div style="text-align: center;">
<div style="text-align: center;">
<span style="font-size: small;"><b><span style="color: red; font-family: "Helvetica Neue",Arial,Helvetica,sans-serif; font-size: medium;">7 DVD VIDEO TUTORIAL REPAIR/SERVICE LAPTOP/NOTEBOOK YG SANGAT LENGKAP
UNTUK SEMUA MEREK + BONUS 1 DVD SOFTWARE PENDUKUNG UNTUK TEKNISI LAPTOP
DAN PC</span></b></span></div>
<br />
<span style="font-size: medium;">Tahukah Anda, laptop kini sudah
menggeser keberadaan PC. Hampir semua orang memilih laptop dibandingkan
PC. Karena laptop lebih mudah dibawa, bisa dipakai dimana saja. selain
itu harga laptop yang semakin terjangkau, membuat semua orang semakin
mudah untuk memiliki laptop.</span></div>
<div style="text-align: center;">
<span style="font-size: medium;">Masalahnya adalah, teknisi Laptop saat ini masih susah dicari. </span></div>
<h1 style="text-align: center;">
Inilah peluang untuk Anda ! </h1>
<div>
</div>
</div>
<div style="text-align: center;">
</div>
<div style="text-align: center;">
<div style="font-family: Arial,Helvetica,sans-serif;">
<span style="font-size: medium;">Dengan menguasai ilmu perbaikan Laptop, peluang bisnis di depan mata. Bayangkan..!</span></div>
<span style="font-family: Arial,Helvetica,sans-serif; font-size: medium;">Dengan
menguasai teknisi service laptop anda akan bisa memperbaiki lapto
sendiri tanpa harus repot ke bengkel service laptop. Anda juga
berpeluang untuk membuka service laptop sendiri di tempat anda, karena
usaha service laptop masih memiliki peluang yang tebuka lebar yang
nantinya bisa menghasilkan uang penghasilan anda secara mandiri.</span><br />
<h1 align="center" style="font-weight: normal;">
<span style="font-size: medium;">PAKET DVD VIDEO TUTORIAL SERVICE LAPTOP/NOTEBOOK LENGKAP AKAN DIKIRIM LANGSUNG KE RUMAH ANDA</span></h1>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYpoj7vPV9iOKxtMNF7KcgFxGrEubvgd7-uxcjqsCA7F6HZ-EXhU7ljrYvAq26eZJuBgUNFn_9c4tj2czUqdRLNs6kNZ5n8siohyphenhyphenGvAI_9DnHKwcdCh60aWy5JDRbblGbw4K0nperl28o/s1600/DriverPack+Solution+2012.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYpoj7vPV9iOKxtMNF7KcgFxGrEubvgd7-uxcjqsCA7F6HZ-EXhU7ljrYvAq26eZJuBgUNFn_9c4tj2czUqdRLNs6kNZ5n8siohyphenhyphenGvAI_9DnHKwcdCh60aWy5JDRbblGbw4K0nperl28o/s400/DriverPack+Solution+2012.jpg" width="337" /></a></div>
<h1 align="center" style="font-weight: normal;">
<span style="font-size: medium;">Bonus lagi kami berikan 1 DVD Driver
pack solution 12, software driver yang akan menginstall driver secara
otomatis untuk laptop dan pc tanpa download lagi, langsung install
dengan beberapa klik mouse saja! </span></h1>
<h1 align="center" style="font-weight: normal;">
<span style="font-size: small;"><b><span style="color: red; font-family: "Helvetica Neue",Arial,Helvetica,sans-serif; font-size: medium;">Total paket dikemas dalam 8 DVD</span></b></span></h1>
</div>
<div style="text-align: center;">
<a href="http://www.blogger.com/blogger.g?blogID=7872901297791207431" name="more"></a></div>
<div style="text-align: center;">
<span style="font-size: medium;"><b>Tinggalkan cara konvensional belajar
teknisi laptop melalui membaca buku atau bahkan dengan mengikuti
kursus komputer yang memakan banyak waktu dan juga biaya! </b></span></div>
<div style="color: blue; text-align: center;">
<span style="font-size: medium;"><b>Telah hadir media audio video
tutorial yang akan membantu anda dalam menguasai menjadi teknisi
service laptop, notebook dan komputer</b></span></div>
<div style="color: black; font-family: Georgia,"Times New Roman",serif; text-align: center;">
<span style="font-size: medium;">Anda akan dibimbing step by step untuk
memperbaiki kerusakan-kerusakan yang sering terjadi pada laptop.
Tutorial sangat mudah untuk di ikuti karena seluruh proses perbaikan
didemokan langsung.</span></div>
<div style="color: purple; text-align: center;">
<span style="font-size: medium;"><b>Materi didalam 6 DVD Tutorial Servis
Laptop yang berisi 28 video dan Bonus 1 DVD pendukung service
laptop/komputer. Dan bonus 1 DVD Driver pack solution 12</b></span><br />
<span style="font-size: medium;"><b>Kualitas gambar bening dan resolusi tinggi</b></span><br />
<span style="font-size: medium;"><b>dengan kualitas HD (High Definition)
di jamin gambar bagus dan terang, sangat mudah di pahami, bahkan untuk
yang masih awam sekalipun.</b></span></div>
<div style="color: purple; text-align: center;">
</div>
<b><br />
</b><span style="font-family: Georgia,"Times New Roman",serif;">• Bagaimana mengganti motherboard?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana mengganti LCD Screen?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Apa yang harus dilakukan jika laptop terus menerus shut down?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana memperbaiki DC power jacks ?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana membedakan layar screen yg jelek dan inverter board yg jelek?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana mengganti engsel- engsel laptop?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Dimana bisa dipesan dan didapatkan spare parts laptop?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Cara terbaik untuk melepaskan komponen laptop?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana memperbaiki Touchpad Laptop?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana mensolder komponen dengan baik?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana memperbaiki adaptor AC?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana menangani laptop yang tersiram cairan air/teh/kopi?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Apa yang harus dilakukan ketika laptop overheat (terlalu panas)?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Bagaimana mengganti CD/DVD drive, RAM, mikroprocesor, Hard Disk dan wireless/wifi card?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> • Dan masih banyak materi lainnya</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;">
Dibahas pula Kerusakan-kerusakan Yang Sering Terjadi Pada berbagai merk
Laptop terkenal seperti Toshiba, Acer, Dell, Vaio, HP, Compaq dll.</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1228.photobucket.com/albums/ee453/kiosjamian/2.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="346" src="http://i1228.photobucket.com/albums/ee453/kiosjamian/2.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1228.photobucket.com/albums/ee453/kiosjamian/3.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="345" src="http://i1228.photobucket.com/albums/ee453/kiosjamian/3.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1228.photobucket.com/albums/ee453/kiosjamian/4.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="342" src="http://i1228.photobucket.com/albums/ee453/kiosjamian/4.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1228.photobucket.com/albums/ee453/kiosjamian/5.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="325" src="http://i1228.photobucket.com/albums/ee453/kiosjamian/5.jpg" width="400" /></a></div>
<br />
<div style="text-align: center;">
<div style="color: red;">
<span style="font-size: large;"><b>BONUS lagi...!!</b></span> </div>
<div style="color: black;">
<span style="font-size: medium;"><span class="style11">Software recovery data</span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjXA_fl89y0_6N0N8Ji2u3Eoua0HXGDHwJG5MlxRume5S2ZUtGi5XHa0w7qx4BuuOx5ZPr2s0ZbOaRvGIm2FB8MUL4tSzzZsFEpFpR_VEq0UDnSIJMCzd8cCMHaWGzycYBMKeIk-yKAn5Q/s1600/bonus_recovery.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjXA_fl89y0_6N0N8Ji2u3Eoua0HXGDHwJG5MlxRume5S2ZUtGi5XHa0w7qx4BuuOx5ZPr2s0ZbOaRvGIm2FB8MUL4tSzzZsFEpFpR_VEq0UDnSIJMCzd8cCMHaWGzycYBMKeIk-yKAn5Q/s1600/bonus_recovery.jpg" /></a></div>
<span style="font-size: medium;"> Hiren`s boot cd</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhikYQe10kMtYz8ECwKfBhlGrWwzsc2dEvqsf6caMrSytSzVDJ2Gg8Bwx5XwlFrdoFCEy_mwm7Y02B21QDVXYrBAdhFwXU5esWmPXF2Nu-lcuPnYtZlurE8ZdmRAHLCSKkYbPbvTH1dzX8/s1600/bootcd.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhikYQe10kMtYz8ECwKfBhlGrWwzsc2dEvqsf6caMrSytSzVDJ2Gg8Bwx5XwlFrdoFCEy_mwm7Y02B21QDVXYrBAdhFwXU5esWmPXF2Nu-lcuPnYtZlurE8ZdmRAHLCSKkYbPbvTH1dzX8/s1600/bootcd.jpg" /></a></div>
<span style="font-size: medium;"> Kumpulan Ebook tentang komputer</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzyyOmOs2xgIEEUrzk0JFk1L_wWpDLyqbs7YMyQhZOEAdwZwrkNHGEycRISLcxZD9vC8fkkvHZVVvskpti56almucYyRRTNTFUoUQa8fcFP77eD0JLvhfeSBQzcqntx38yFHUeSg9n59c/s1600/ebook_komputer.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzyyOmOs2xgIEEUrzk0JFk1L_wWpDLyqbs7YMyQhZOEAdwZwrkNHGEycRISLcxZD9vC8fkkvHZVVvskpti56almucYyRRTNTFUoUQa8fcFP77eD0JLvhfeSBQzcqntx38yFHUeSg9n59c/s1600/ebook_komputer.jpg" /></a></div>
<span style="font-size: medium;"> Skema laptop</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEij5rn8FsVfFAzYXfTXgm7eHbczIecjRhePjMRPJZGJYsajTrPe-D6yX6dS2686YaSa16QUhqqH_mIlICkdj234TOkpyAr8Voy7KmZZSt1Ka5Wo58vd34TI4XzQghkqNoF-h8t3EDglk_A/s1600/index_schematic2.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEij5rn8FsVfFAzYXfTXgm7eHbczIecjRhePjMRPJZGJYsajTrPe-D6yX6dS2686YaSa16QUhqqH_mIlICkdj234TOkpyAr8Voy7KmZZSt1Ka5Wo58vd34TI4XzQghkqNoF-h8t3EDglk_A/s1600/index_schematic2.jpg" /></a></div>
<span style="font-size: medium;"> Jaringan komputer (wajib bisa)</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7VX8w0F80sg7IUSI3XXBMZbRwWrwGWbGtbDg9TjMVXhvYuEEaa5Qg_TSgumrQT0iKdCzWIlYLMBEgpRpHrSd0wscj7Klp_sIyhU9OGXUcIX1VXiV8SWAwO9Tf0jSJ-Gfs3tlTq9dGwZM/s1600/jaringan.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7VX8w0F80sg7IUSI3XXBMZbRwWrwGWbGtbDg9TjMVXhvYuEEaa5Qg_TSgumrQT0iKdCzWIlYLMBEgpRpHrSd0wscj7Klp_sIyhU9OGXUcIX1VXiV8SWAwO9Tf0jSJ-Gfs3tlTq9dGwZM/s1600/jaringan.jpg" /></a></div>
<span style="font-size: medium;">Ebook panduan service laptop</span><br />
<span style="font-size: medium;">Bahasa Indonesia </span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhi3WVN2YhQ5-9CZmb001TETC-3WxeC1BIqvevmanjAeQyHEVqhzgbOr_CCRU8RpduCoiM9hujrlZkbRRfzEF2haOYyjL9zRLeDtkaYSmozppcZHQ9emK2LzFcRTX9hSJIqrdnx1LY9P-E/s1600/panduan_laptop.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhi3WVN2YhQ5-9CZmb001TETC-3WxeC1BIqvevmanjAeQyHEVqhzgbOr_CCRU8RpduCoiM9hujrlZkbRRfzEF2haOYyjL9zRLeDtkaYSmozppcZHQ9emK2LzFcRTX9hSJIqrdnx1LY9P-E/s1600/panduan_laptop.jpg" /></a></div>
<span style="font-size: medium;">Ebook panduan teknisi komputer </span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPZnpwjky40xJx6Amzoh9ZBzqjk52lHQ2g_gqbvkH-MmB1BWmXbq2e0K7QVf5Yg9HXxf7JzD7_xbi3mYs5G8TmTza_S4NLbtWGeZimW5_A90uGJZN_Qk1IvJdFHCP5Rk18qqbwg-ftGoY/s1600/teknisi_komputer.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPZnpwjky40xJx6Amzoh9ZBzqjk52lHQ2g_gqbvkH-MmB1BWmXbq2e0K7QVf5Yg9HXxf7JzD7_xbi3mYs5G8TmTza_S4NLbtWGeZimW5_A90uGJZN_Qk1IvJdFHCP5Rk18qqbwg-ftGoY/s1600/teknisi_komputer.jpg" /></a></div>
<br />
<span style="font-size: medium;">Perbaikan Monitor</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2j_EyohgIqBx0tkfnlcgHNt8HScEAJTvBYvXjkRbz1o14liDAOyIIO6EmNdjiznaY4w9SArhZd5uOHjcUx3T05n_N7cK5x_d72DsU8pS4Pfb7VE6nkfkbYFRgx0PMEXetsoJYlIGfZ1M/s1600/service+monitor.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2j_EyohgIqBx0tkfnlcgHNt8HScEAJTvBYvXjkRbz1o14liDAOyIIO6EmNdjiznaY4w9SArhZd5uOHjcUx3T05n_N7cK5x_d72DsU8pS4Pfb7VE6nkfkbYFRgx0PMEXetsoJYlIGfZ1M/s1600/service+monitor.jpg" /></a></div>
</div>
<h3 style="font-weight: normal;">
<span style="font-size: medium;"><span class="style10">Software portable</span></span></h3>
<h3 style="font-weight: normal;">
<span style="font-size: medium;"><span class="style10">Software "Data recovery"</span></span></h3>
<span style="font-size: medium;"><span style="font-family: Georgia,"Times New Roman",serif;">Cara Memperbaiki hardisk Bad Sector</span></span></div>
<div style="font-family: Georgia,"Times New Roman",serif; text-align: center;">
<span style="font-size: medium;">Panduan Jitu Membeli laptop</span></div>
<div style="font-family: Georgia,"Times New Roman",serif; text-align: center;">
<span style="font-size: medium;">Tips n Trick Service Printer</span></div>
<div style="text-align: center;">
<span style="font-size: medium;"><span style="font-family: Georgia,"Times New Roman",serif;">Memeriksa Voltase Power Supply </span></span><br />
<div align="justify">
</div>
<span style="font-size: medium;"><span class="style10"> </span></span><br />
<h3>
<span style="font-size: medium;"><span class="style10" style="font-weight: normal;">Dan masih banyak lagi</span></span></h3>
<h3>
<b style="background-color: yellow; font-family: Times,"Times New Roman",serif;"><span style="font-size: medium;"><span class="style10" style="font-weight: normal;">Total paket di kemas dalam 8 keping DVD </span></span></b><span class="style11"><span style="font-size: medium;"> </span></span></h3>
<div style="color: red;">
<span style="font-size: large;"><b> </b></span></div>
<div style="color: red;">
<span style="font-size: large;"><b>Harga Rp 100.000</b></span></div>
<span style="font-size: medium;"><b>sudah termasuk biaya ongkir </b></span><br />
</div>
<br />
<div style="text-align: center;">
<span style="font-size: small;"><b>Minat? serius?</b></span><br />
<span style="font-size: small;"><b>Hub :</b></span><br />
<span style="font-size: small;"><b>089-6244-84859 (fast respon)</b></span><br />
<span style="font-size: small;"><b>0857-8582-5331 (fast respon)</b></span><br />
<span style="font-size: small;"><b>ym. tony_edp</b></span><br />
<span style="font-size: small;"><b>pin. 207c4a47</b></span></div>
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-50719228679505710252012-09-09T15:48:00.000+07:002013-03-10T11:01:53.197+07:00App Game Android HD Support QVGA HQVGA HVGA WVGA ARMv6 ARMv7 CORTEX 8 9 10<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9874VBbSlJr66lYgYFphhgk045Yy601OPgbCcYUzrP2bM4qq-t-L4qeKa4lVsbX3o4e_Dc1OUrexXSJH87TgAe5O7YJ3fy2416UmZtC8XwGN8MFko-AOn9N9aOJnstYnGLGz7wbPYaYw/s1600/HD1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9874VBbSlJr66lYgYFphhgk045Yy601OPgbCcYUzrP2bM4qq-t-L4qeKa4lVsbX3o4e_Dc1OUrexXSJH87TgAe5O7YJ3fy2416UmZtC8XwGN8MFko-AOn9N9aOJnstYnGLGz7wbPYaYw/s640/HD1.jpg" width="489" /></a></div>
<br />
<br />
Bagi anda yang ingin memainkan game full HD di HP atau tablet android kesayangan anda dan tidak ingin ribet harus download berlama-lama dikomputer.<br />
<br />
Kami hadir untuk memenuhi kebutuhanan anda, kami menjual game full HD untuk Tablet android anda..game bisa dimainkan di semua versi android..<br />
<br />
Kami juga menyertakan cara installasi yang mudah dipahami sehingga anda tidak kebingungan jika ingin melakukan install game.<br />
<br />
Berikut contoh list game full HD yang kami tawarkan :<br />
<br />
9mm<br />
Asphalt 7 Heat<br />
King of fighter<br />
Street Fighter IV<br />
Nova 3<br />
Batman - the dark knight rises<br />
Lara croft<br />
Tom clancy Rainbow six<br />
Sport car Challenge<br />
Spiderman amaizing<br />
Dead Trigger Zombie<br />
Air attack HD<br />
anomaly Warzone earth HD<br />
Backstab HD<br />
Battefield Bad Company 2<br />
Big Time Gangstar<br />
Blood and Glory<br />
Brother in Arms 2 Global Front<br />
Captain America<br />
Crazy Snowboard Pro<br />
Dragon`s Lair<br />
Drift Mania Championship<br />
Dungeon Hunter<br />
Epic Truck Rally<br />
Eternal Legacy HD<br />
Eternity Warriors<br />
Farm Frenzy 3<br />
FIFA 12<br />
Final Strike 3D<br />
Fishing King HD<br />
Flip Riders<br />
Free style Motorcross<br />
Gangstar 2 HD<br />
Game Edukasi Anak-anak<br />
Glider<br />
GTA III<br />
Guerilla Bob<br />
Gun Bross Multiplayer<br />
Hero of Sparta<br />
Homerun Battle 3D<br />
Hungry Shark 2<br />
Mini Motor Racing<br />
Modern Combat<br />
Modern Combat 2<br />
Monopoly Classic HD<br />
NFS Hot Pursuit<br />
NFS Shift<br />
PES 2012<br />
Race Of Champion<br />
Real Football 2012 HD<br />
Real Steel<br />
Scared Odyssey<br />
Shadowgun<br />
Shaun The Sheep<br />
Spectral Soul<br />
Stand of Food<br />
Star Front Collision HD<br />
Super KO Boxing 2<br />
Talking Tom Cat 2<br />
The Sims 3<br />
TNA Wrestling Impact<br />
Tom clancy`s HAWX<br />
UNO<br />
Virtual Tennis<br />
Warcraft 2<br />
Word Series Holdem Poker<br />
Zynga Poker<br />
<br />
Dan masih banyak sekali game yang pastinya seru untuk di mainkan...<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmJxb5a7dtDGU3_W-jx0iVuuRdX_Yaa6lcs7cdX-CFUxjCQXUPUx1O4iGQahw06wNwmmeGYY5FOfh6X00xU0EOzP6uJolG75J3C8b84AIBrk9yzfsrsW5ST_0LJ6qnH6Er6ErLEw8jlc4/s1600/samsung+galaxy+tab.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmJxb5a7dtDGU3_W-jx0iVuuRdX_Yaa6lcs7cdX-CFUxjCQXUPUx1O4iGQahw06wNwmmeGYY5FOfh6X00xU0EOzP6uJolG75J3C8b84AIBrk9yzfsrsW5ST_0LJ6qnH6Er6ErLEw8jlc4/s320/samsung+galaxy+tab.jpg" width="320" /></a></div>
<b>UNTUK GAME TAB :</b><br />
Di kemas dalam 8 Keping DVD yang berisikan Aplikasi dan Game Apk+Data serta bonus2 aplikasi yang menarik.<br />
Kami berikan Harga termurah Hanya <b>Rp. 100.000,- </b>saja. (sudah termasuk ongkos kirim)<br />
<br />
<b>UNTUK GAME HP :</b><br />
Di kemas dalam 5 Keping DVD yang berisikan Aplikasi dan Game Apk+Data serta bonus2 aplikasi yang menarik.<br />
Kami berikan Harga termurah Hanya Rp. <b>70.000,- </b>saja. (sudah termasuk ongkos kirim)<br />
<br />
<br />
Minat? serius?<br />
Hub :<br />
089-6244-84859 (fast respon)<br />
0857-8582-5331 (fast respon)<br />
ym. tony_edp<br />
pin. 30F085C9<br />
<br />
Berikut contoh test game pada beberapa tablet :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKnE9IKL6tME_267WOvda1yiFpCj4fa_r0YlAZ-VcS2A1J8NKOkh2W_ghcUagjEaW6_0FHvi6coLU4LVuJ8oK6QImWAe_pya5knKswb3pSfemxcqSdTO7SxspJxuzWL-oWqa5OBsqc4as/s1600/kumpulan.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="313" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKnE9IKL6tME_267WOvda1yiFpCj4fa_r0YlAZ-VcS2A1J8NKOkh2W_ghcUagjEaW6_0FHvi6coLU4LVuJ8oK6QImWAe_pya5knKswb3pSfemxcqSdTO7SxspJxuzWL-oWqa5OBsqc4as/s400/kumpulan.jpg" width="400" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
"reputasi bisa dibeli tapi kejujuran tidak bisa dibeli"<br />
"garansi uang kembali jika barang tidak sampai ke tangan anda"Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-48497742295190365202012-03-27T20:09:00.003+07:002013-08-06T08:29:30.772+07:00teknisi servis laptop komputer terpercaya di malang<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
Kami salah satu penyedia jasa service komputer panggilan yang langsung
dikerjakan di tempat, keuntungannya adalah Anda bisa sambil melihat
komponen apa saja yang rusak, dikerjakan dengan cepat, apabila terdapat
komponen yang harus digantu dapat langsung meminta persetujuan dari
Anda. Kami meliputi wilayah Malang dan sekitarnya<br />
<br />
Kami melayani
service/maintenance komputer panggilan ke<br />
<ul>
<li>Rumah</li>
<li>Kantor</li>
<li>Sekolah</li>
<li>Instansi / Perusahaan</li>
<li>Warnet</li>
</ul>
di area Malang dan sekitarnya, Kami juga melayani perbaikan dan perakitan komputer baru dan second, basmi virus,
install software dan aplikasi<br />
Adapun kerusakan meliputi:<br />
Komputer CPU/ Laptop/ Notebook {Mati total}<br />
Komputer tiba-tiba Restart sendiri<br />
Komputer Muncul Blue Screen<br />
Komputer Tidak mau menyala<br />
Komputer hanya menampilkan Logo Windows<br />
Komputer Hang<br />
Komputer Lemot Lebay<br />
Komputer kena virus<br />
Hardisk Bad Sector / Backup Data<br />
Upgrade Hardisk, Windows XP, Win7, Office 2007<br />
Install Aplikasi tambahan, Games<br />
Bios bermasalah/ penggantian Battery<br />
Printer Anda Macet<br />
Power Supply Down / Mati<br />
Kipas Anda tidak menyala<br />
Upgrade CD ke DVD<br />
Upgrade Processor, Casing, Monitor, LCD<br />
<br />
Service Meliputi:<br />
Troubleshooting Hardware (bukan penggantian spare part)<br />
Troubleshooting
Software (Windows xp, 7 , Office 2007, Acrobat Reader, Winamp, Winrar,
K-lite Codec, Mozilla Firefox, Tune up Windows, Anti Virus+Update, dll)<br />
<br />
sms / bbm /chat :<br />
0857-8582-5331 ( Fast Respon )<br />
089-6244-84859 ( Fast Respon )<br />
<br />
pin. 30F085C9<br />
<br />
" Kalau ada yang mudah, kenapa harus repot??? , Anda tinggal duduk manis biar kami yang bekerja" Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-21590132114113578102011-09-30T21:27:00.003+07:002012-09-29T12:33:02.613+07:00servis laptop di malang<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDhIC5dKVstK7FRf-fkt21oACcsyCMhth3aswfD-1_O9MT_jQBuNRgVCrYleR38HZjlIIhw8bSyCP9pJh026oa6CXrIuTaTwICFfAujmufYRhfOwsQGJD4wrXfjefQOvdnX4YLoflF8aw/s1600/12140264_771679_50641aab972b2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDhIC5dKVstK7FRf-fkt21oACcsyCMhth3aswfD-1_O9MT_jQBuNRgVCrYleR38HZjlIIhw8bSyCP9pJh026oa6CXrIuTaTwICFfAujmufYRhfOwsQGJD4wrXfjefQOvdnX4YLoflF8aw/s320/12140264_771679_50641aab972b2.jpg" width="310" /></a></div>
<br />
kami salah satu penyedia jasa service komputer panggilan yang langsung
dikerjakan di tempat, keuntungannya adalah Anda bisa sambil melihat
komponen apa saja yang rusak, dikerjakan dengan cepat, apabila terdapat
komponen yang harus digantu dapat langsung meminta persetujuan dari
Anda. Kami meliputi wilayah Malang dan sekitarnya<br /><br />Kami melayani
service komputer panggilan ke rumah / kantor / sekolah anda di area
Melayani perbaikan dan perakitan komputer baru dan second, basmi virus,
install software dan aplikasi <br /><br />Biaya service Rp 50.000,- /Per PC (Notebook) /unit belum termasuk penggantian Spare part (jika ada) <br />Adapun kerusakan meliputi:<br />• Komputer CPU/ Laptop/ Notebook {Mati total}<br />• Komputer tiba-tiba Restart sendiri<br />• Komputer Muncul Blue Screen<br />• Komputer Tidak mau menyala<br />• Komputer hanya menampilkan Logo Windows<br />• Komputer Hang<br />• Komputer Lemot “Lebay”<br />• Komputer kena virus<br />• Hardisk Bad Sector / Backup Data<br />• Upgrade Hardisk, Windows XP, Win7, Office 2007<br />• Install Aplikasi tambahan, Games<br />• Bios bermasalah/ penggantian Battery<br />• Printer Anda Macet<br />• Power Supply Down / Mati<br />• Kipas Anda tidak menyala<br />• Upgrade CD ke DVD<br />• Upgrade Processor, Casing, Monitor, LCD<br /><br />Service Meliputi:<br />Troubleshooting Hardware (bukan penggantian spare part)<br />Troubleshooting
Software (Windows xp, 7 , Office 2007, Acrobat Reader, Winamp, Winrar,
K-lite Codec, Mozilla Firefox, Tune up Windows, Anti Virus+Update, dll)<br /><br />Telp/sms <br /><b>0857-8582-5331</b> ( Fast Respon )<br /><b>089-6244-84859</b> ( Fast Respon )<br />ym. tomeemine<br />pin. 207c4a47 Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-44502290043001491132011-02-04T15:37:00.003+07:002011-02-04T16:04:25.240+07:00Buku VB Keren Abiss...Bebas ijin Sedot untuk vb mania semua :)<br /><br /><a href="http://www.ziddu.com/download/13672225/101TipTrikVisualBasic6.0.rar.html">101 Tips & trik Visual Basic</a><br /><a href="http://www.ziddu.com/download/13672278/VISUALBASIC6.rar.html">Teknik Pemrograman Visual Basic</a><br /><a href="http://www.ziddu.com/download/13672288/serbaserbi1.pdf.html">Serba Serbi Aplikasi Visual basic I</a><br /><a href="http://www.ziddu.com/download/13672294/serbaserbi2.pdf.html">Serba Serbi Aplikasi Visual basic II</a><br /><br />Semoga bermanfaat bagi para vb mania di seluruh negeri ini,., :)Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-86606162543138315992011-02-04T14:26:00.003+07:002011-02-04T14:39:53.784+07:00Membuat No Faktur otomatis<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrQw1_1FzT7Qj4N17zFE6S0laDhszNUT3xgVQ-xYhszfn1mtSqmA60puTGUgBP3FFNT5nA_8vPhMG5NErmDLYytv2CPVwo4MKgGz2QRtYWxxYEWF1MWVjx0-Z-C_USJCgABERGPE6bIbY/s1600/untitled.JPG"><img style="display: block; margin: 0px auto 10px; text-align: center; cursor: pointer; width: 400px; height: 312px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrQw1_1FzT7Qj4N17zFE6S0laDhszNUT3xgVQ-xYhszfn1mtSqmA60puTGUgBP3FFNT5nA_8vPhMG5NErmDLYytv2CPVwo4MKgGz2QRtYWxxYEWF1MWVjx0-Z-C_USJCgABERGPE6bIbY/s400/untitled.JPG" alt="" id="BLOGGER_PHOTO_ID_5569735585891476530" border="0" /></a><br />Teman2 newbie berikut ini cara simpel membuat auto number faktur secara otomatis beserta metode pencarian...untuk source code silakan donlot <a href="http://www.ziddu.com/download/13671373/AutomaticNumbering.rar.html">disini</a>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-75524417270681531602011-02-03T21:00:00.004+07:002011-02-04T14:11:44.359+07:00Membuat aplikasi input data karyawanWah ternyata masih banyak ya pecinta pemrograman vb yg masih setia,,terutama teman2 newbie semua. Meskipun skrg dah mulai beranjak ke vb.net tp cinta saya kpd vb msh tetep (upss kok jd cinta cinta'an ya) wkwkwk,,,oke disni saya akan berbagi bagaimana membuat program yg bs terhubung dengan lebih dari satu database dalam 1 form, mksudnya??<br />mungkin teman2 newbie banyak yg bingung bagaimana misalnya akan menyimpan suatu data kedalam database yg berbeda2 dalam 1 tombol simpan,nah disini saya akan memberikan contohnya..plus ada skinXPnya jg,,,<br />program yg akan saya bahas disini mengenai input data karyawan yg terbagi dalam 2 database<br />berikut preview gambar dan database nya serta coding lengkapnya...<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKLWuAYMa-Y68JpnOG8fiGtCZQU-uXdNsAkyL___rQCklht1V4lLFScfoYjE-G9VXy6GQmtJ4IzTQHKRA2aJ3q4zOfYPQYFNsgtvL16Ksm2JlkIdxD9jLNoNWkyc6Y0wZ2eEZ5OBSNFEI/s1600/interface.JPG"><img style="display: block; margin: 0px auto 10px; text-align: center; cursor: pointer; width: 400px; height: 354px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKLWuAYMa-Y68JpnOG8fiGtCZQU-uXdNsAkyL___rQCklht1V4lLFScfoYjE-G9VXy6GQmtJ4IzTQHKRA2aJ3q4zOfYPQYFNsgtvL16Ksm2JlkIdxD9jLNoNWkyc6Y0wZ2eEZ5OBSNFEI/s400/interface.JPG" alt="" id="BLOGGER_PHOTO_ID_5569463781248324658" border="0" /></a>keterangan :<br />1. Finger Id : ID otomatis yg diambil dr database yg sudah dibuat jd tidak usah repot buat id manual<br />2. Database ada 2 yaitu kasir.mdb dan employee.mdb<br />3. Agar program bs berjalan & tdk error,,app path database kasir pd module hrus diedit & disesuaikan dg letak drive dmana database berada.<br />4. Untuk source code lengkapnya + exe-nya silakan dicopy <a href="http://www.ziddu.com/download/13671047/karyawan.rar.html">disini</a>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-45289620264745657352010-11-30T16:52:00.009+07:002010-12-03T08:59:49.290+07:00Yuukk Migrasi VB6 ke VB.NET..Selamat Bertemu lagi,,Sobat2 newbie developer semuanya..<br />Kali ini saya akan memulai petualangan saya lagi dengan sobat2 semua dalam ajang bergengsi,,upss kayak lomba aja,,,maksud saya dalam pemrograman yang lebih terorientasi atau dalam bahasa kerennya OOP (Object Oriented Programming) sebuah konsep yang berorientasi pada object..<br />Mungkin para sobat2 smua sbagian dah tau dan sudah paham pada konsep tersebut.<br />Nah untuk pembahasan artikel2 kedepannya saya akan mencoba untuk membahas VB.net mulai dari 0 biar sobat2 developer yg masih newbie bs mengikuti dg baik,,,untuk yg dah berpengalaman bs kasih masukan...karena disini kita akan berbagi ilmu..OK<br /><br />Salam Vb.net,,<br /><br /><br />The Author<br />Tony LeeUnknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-34118639459674587632009-04-28T06:46:00.007+07:002009-04-30T20:29:14.944+07:00Membuat aplikasi administrasi pembayaran spp sekolahUntuk kali ini penulis akan mengajak vbthok mania untuk mencoba membuat program jadi "aplikasi pembayaran spp" yang berfungsi untuk menangani dan mencatat transaksi pembayaran spp pada sekolah, program ini juga menyediakan report yang berfungsi untuk membuat laporan transaksi yang sudah terjadi.Semoga dengan program ini para vbthok mania bisa mengaplikasikannya dan mengembangkan tentunya menjadi yang lebih bagus dan lengkap.<br />Berikut tampilan menu yang sudah jadi.<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgt1sec8_Yava8TRzoHko8YnWUefha_RluGTNDGhSikEvqT9iYxZaTDET9bFi5W3cwjA-Nd2hmReIYVdrKIx9fv8DVpHBan9ogDp3LEYW1w-K90R2pl9PyjG6RPAyjaBA_V3weTS7ZiMUA/s1600-h/skul.bmp"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 352px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgt1sec8_Yava8TRzoHko8YnWUefha_RluGTNDGhSikEvqT9iYxZaTDET9bFi5W3cwjA-Nd2hmReIYVdrKIx9fv8DVpHBan9ogDp3LEYW1w-K90R2pl9PyjG6RPAyjaBA_V3weTS7ZiMUA/s400/skul.bmp" alt="" id="BLOGGER_PHOTO_ID_5330470003635125954" border="0" /></a><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvY4rxEXN2Qf7rPuyReHRY1J-VLjj5zVs6ExX_NdrASWT4m5XEvSeGk3ZR_Xf91TbQw9x26kZ07Ccr3wxm5WOGrI-mi6_VI6lsYyhXWZuGINL0reamjyJIXWoIJEDapXFo7zeHqd4bZMw/s1600-h/trans_jual.JPG"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 255px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvY4rxEXN2Qf7rPuyReHRY1J-VLjj5zVs6ExX_NdrASWT4m5XEvSeGk3ZR_Xf91TbQw9x26kZ07Ccr3wxm5WOGrI-mi6_VI6lsYyhXWZuGINL0reamjyJIXWoIJEDapXFo7zeHqd4bZMw/s400/trans_jual.JPG" alt="" id="BLOGGER_PHOTO_ID_5330470516410971666" border="0" /></a><br />untuk component yang dibutuhkan adalah :<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgJ4g9f7IsPO52UYnAnelcFELMVcUqZ4FLJrjesi0wFD_H00ULc0hYLiHpmoZzoi8acJgN2rLGcpylAIB9LhV9haPt2KJQn-TT3Y7YoG-MmuqxL_5ZcEki-DTkKaRV2Gj5DgPQ3uMS4q8/s1600-h/preferen.JPG"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 326px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgJ4g9f7IsPO52UYnAnelcFELMVcUqZ4FLJrjesi0wFD_H00ULc0hYLiHpmoZzoi8acJgN2rLGcpylAIB9LhV9haPt2KJQn-TT3Y7YoG-MmuqxL_5ZcEki-DTkKaRV2Gj5DgPQ3uMS4q8/s400/preferen.JPG" alt="" id="BLOGGER_PHOTO_ID_5330471126717861746" border="0" /></a>untuk yang missing activeskin 4.3 coba untuk melakukan install programnya activeskin kalau sudah cb jalankan lagi, tambahkan juga componen crystal report.<br /><br />Untuk script codenya bisa dicontoh seperti dibawah ini<br />'code form1<br /><br />Private Sub Command1_Click()<br />formSiswa.Show<br />End Sub<br /><br />Private Sub Timer1_Timer()<br /> Label1.ForeColor = QBColor(Rnd * 15)<br />End Sub<br /><br />Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)<br /> Select Case Button.Key<br /> Case "siswa"<br /> formSiswa.Show 1<br /> Case "guru"<br /> formGuru.Show<br /> Case "transaksi"<br /> frmspp.Show<br /> Case "laporan"<br /> frmcetakspp.Show<br /> Case "keluar"<br /> End<br /> End Select<br />End Sub<br /><br />'code form guru<br /><br />Private Sub Command1_Click()<br />On Error Resume Next<br />CrystalReport1.WindowState = crptMaximized<br />CrystalReport1.RetrieveDataFiles<br />CrystalReport1.Action = 1<br />End Sub<br /><br />Private Sub Form_Load()<br /> Data1.DatabaseName = App.Path & "\spp.mdb"<br /> Data1.RecordSource = "guru"<br /> CrystalReport1.ReportFileName = App.Path & "\lapguru.rpt"<br />End Sub<br /><br />Private Sub optlaki_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtTTL.SetFocus<br />End If<br />End Sub<br /><br />Private Sub optper_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtTTL.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtalamat_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />optlaki.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtcarikode_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />End Sub<br /><br />Private Sub txtjab_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtmengajar.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtnama_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />If KeyAscii = 13 Then<br />txtalamat.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtnip_Change()<br /> Dim X As Byte<br /> If Len(txtnip.Text) < 11 Then<br /> Exit Sub<br /> End If<br /> txtnama.SetFocus<br /> cmdsimpan.Enabled = True<br /> Data1.Recordset.Index = "idx_nip"<br /> Data1.Recordset.Seek "=", txtnip.Text<br /> If Not Data1.Recordset.NoMatch Then<br /> cmdupdate.Enabled = True<br /> cmdsimpan.Enabled = False<br /> tampil<br /> Exit Sub<br /> End If<br />End Sub<br /><br />Private Sub txtnip_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />End Sub<br /><br />Private Sub txtnip_LostFocus()<br /><br />End Sub<br /><br /><br />Private Sub DBGrid1_DblClick()<br /> txtnip.Text = DBGrid1.Text<br />End Sub<br /><br />Private Function bersih()<br /> txtnip.Text = ""<br /> txtnama.Text = ""<br /> txtalamat.Text = ""<br /> txtTTL.Text = ""<br /> txtjab.Text = ""<br /> txtmengajar.Text = ""<br /> optlaki.Value = False<br /> optper.Value = False<br /> End Function<br /><br />Private Sub cmdbatal_Click()<br /> bersih<br /> cmdsimpan.Enabled = False<br /> cmdupdate.Enabled = False<br /> txtnip.Enabled = True<br /> txtnip.SetFocus<br />End Sub<br /><br />Private Function tampil()<br /> txtnip.Enabled = False<br /> txtnama.Text = Data1.Recordset!Nama<br /> txtalamat.Text = Data1.Recordset!alamat<br /> If Data1.Recordset!jk = "L" Then<br /> optlaki.Value = True<br /> Else<br /> optper.Value = True<br /> End If<br /> txtTTL.Text = Data1.Recordset!ttl<br /> txtjab.Text = Data1.Recordset!jabatan<br /> txtmengajar.Text = Data1.Recordset!mengajar<br /> cmdsimpan.Enabled = False<br />End Function<br /><br />Private Sub cmdclose_Click()<br /> formGuru.Hide<br />End Sub<br /><br />Private Sub cmdhapus_Click()<br />On Error Resume Next<br /> X = MsgBox("Data akan dihapus ? ", vbOKCancel, "PERHATIAN")<br /> If X = vbOK Then<br /> Data1.Recordset.Delete<br /> bersih<br /> End If<br /> End Sub<br /><br />Private Sub cmdsimpan_Click()<br /> If txtnip.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" _<br /> Or txtTTL.Text = "" Or txtjab.Text = "" Or txtmengajar.Text = "" _<br /> Or (optlaki.Value = False And optper.Value = False) Then<br /> MsgBox "Entry Data isn't complite..!!"<br /> bersih<br /> Exit Sub<br /> Else<br /> Data1.Recordset.AddNew<br /> Data1.Recordset!nip = txtnip.Text<br /> Data1.Recordset!Nama = txtnama.Text<br /> Data1.Recordset!alamat = txtalamat<br /> If optlaki.Value = True Then<br /> Data1.Recordset!jk = "L"<br /> Else<br /> Data1.Recordset!jk = "P"<br /> End If<br /> Data1.Recordset!ttl = txtTTL.Text<br /> Data1.Recordset!jabatan = txtjab.Text<br /> Data1.Recordset!mengajar = txtmengajar.Text<br /> Data1.Recordset.Update<br /> bersih<br /> cmdsimpan.Enabled = False<br /> End If<br />End Sub<br /><br />Private Sub cmdupdate_Click()<br /> Data1.Recordset.Edit<br /> Data1.Recordset!Nama = txtnama.Text<br /> Data1.Recordset!alamat = txtalamat.Text<br /> If optlaki.Value = True Then<br /> Data1.Recordset!jk = "L"<br /> Else<br /> Data1.Recordset!jk = "P"<br /> End If<br /> Data1.Recordset!ttl = txtTTL.Text<br /> Data1.Recordset!jabatan = txtjab.Text<br /> Data1.Recordset!mengajar = txtmengajar.Text<br /> Data1.Recordset.Update<br /> bersih<br /> cmdupdate.Enabled = False<br /> cmdsimpan.Enabled = True<br /> txtnip.Enabled = True<br />End Sub<br /><br />Private Sub Form_Activate()<br /> bersih<br /> txtnip.SetFocus<br /> cmdsimpan.Enabled = False<br /> End Sub<br /><br />Private Sub txtcarinama_Change()<br /> Data1.Recordset.Index = "idx_nama"<br /> Data1.Recordset.Seek "<=", Trim(txtcarinama.Text) & "zzz"<br />End Sub<br /><br />Private Sub txtcarikode_Change()<br /> Data1.Recordset.Index = "idx_nip"<br /> Data1.Recordset.Seek "<=", Trim(txtcarikode.Text) & "zzz"<br />End Sub<br /><br />Private Sub txtTTL_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtjab.SetFocus<br />End If<br />End Sub<br /><br />'code formguru<br /><br />Private Sub cmbAgama_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtTelepon.SetFocus<br />End If<br />End Sub<br /><br />Private Sub cmbKelas_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />mskTgl.SetFocus<br />End If<br />End Sub<br /><br />Private Sub Command1_Click()<br />On Error Resume Next<br />CrystalReport1.WindowState = crptMaximized<br />CrystalReport1.RetrieveDataFiles<br />CrystalReport1.Action = 1<br />End Sub<br /><br />Private Sub Form_Load()<br />Dim tang As String<br /> Data1.DatabaseName = App.Path & "\spp.mdb"<br /> Data1.RecordSource = "siswa"<br /> mskTgl.Text = Format(Date, "dd/mm/yyyy")<br /> CrystalReport1.ReportFileName = App.Path & "\lapsis.rpt"<br />End Sub<br /><br />Private Function bersih()<br /> txtnis.Text = ""<br /> txtNama.Text = ""<br /> txtAlamat.Text = ""<br /> txtTgllahir.Text = ""<br /> cmbAgama.Text = ""<br /> txtTelepon.Text = ""<br /> cmbKelas.Text = ""<br /> mskTgl.Mask = ""<br /> txtspp.Text = ""<br /> opt1.Value = False<br /> opt2.Value = False<br /> cmdsimpan.Enabled = False<br /> End Function<br /><br />Private Sub DBGrid1_DblClick()<br /> txtnis.Text = DBGrid1.Text<br />End Sub<br /><br />Private Function tampil()<br /> On Error Resume Next<br /> txtnis.Enabled = False<br /> txtNama.Text = Data1.Recordset!Nama<br /> txtAlamat.Text = Data1.Recordset!alamat<br /> txtTelepon.Text = Data1.Recordset!telepon<br /> txtTgllahir.Text = Data1.Recordset!ttl<br /> cmbAgama.Text = Data1.Recordset!agama<br /> mskTgl.Text = Data1.Recordset!thnmsk<br /> If Data1.Recordset!jk = "L" Then<br /> opt1.Value = True<br /> Else<br /> opt2.Value = True<br /> End If<br /> txtspp.Text = Format(Data1.Recordset!spp, "#,#,0")<br /> cmbKelas.Text = Data1.Recordset!kelas<br /> cmdsimpan.Enabled = False<br />End Function<br /><br />Private Sub cmdbatal_Click()<br /> txtspp.Text = ""<br /> bersih<br /> cmdupdate.Enabled = False<br /> txtnis.Enabled = True<br /> txtnis.Text = ""<br /> txtnis.SetFocus<br />End Sub<br /><br />Private Sub cmdclose_Click()<br /> formSiswa.Hide<br />' frmMenu.Show<br />End Sub<br /><br />Private Sub cmdhapus_Click()<br />On Error Resume Next<br /> s = MsgBox("Data akan dihapus ?", vbOKCancel, "PERHATIAN")<br /> If s = vbOK Then<br /> Data1.Recordset.Delete<br /> End If<br />End Sub<br /><br />Private Sub cmdsimpan_Click()<br />On Error Resume Next<br /> If txtnis.Text = "" Then<br /> MsgBox "NIS belum diisi", vbOKOnly, "Message Siswa"<br /> Exit Sub<br /> End If<br /> If txtNama.Text = "" Or txtAlamat.Text = "" Or txtTgllahir.Text = "" _<br /> Or cmbAgama.Text = "" Or cmbKelas.Text = "" _<br /> Or (opt1.Value = False And opt2.Value = False) Or mskTgl.Text = "" Then<br /> MsgBox "Ada yang belum diisi", vbOKOnly, "Message Siswa"<br /> Exit Sub<br /> End If<br /> Data1.Recordset.AddNew<br /> Data1.Recordset!nis = txtnis.Text<br /> Data1.Recordset!Nama = txtNama.Text<br /> Data1.Recordset!alamat = txtAlamat.Text<br /> Data1.Recordset!telepon = txtTelepon.Text<br /> Data1.Recordset!ttl = txtTgllahir.Text<br /> Data1.Recordset!agama = cmbAgama.Text<br /> Data1.Recordset!kelas = cmbKelas.Text<br /> Data1.Recordset!thnmsk = mskTgl.Text<br /> If opt1.Value = True Then<br /> Data1.Recordset!jk = "L"<br /> Else<br /> Data1.Recordset!jk = "P"<br /> End If<br /> Data1.Recordset!spp = txtspp.Text<br /> Data1.Recordset.Update<br /> bersih<br /> cmdsimpan.Enabled = False<br />End Sub<br /> <br />Private Sub cmdupdate_Click()<br /> Data1.Recordset.Edit<br /> Data1.Recordset!nis = txtnis.Text<br /> Data1.Recordset!Nama = txtNama.Text<br /> Data1.Recordset!alamat = txtAlamat.Text<br /> Data1.Recordset!telepon = txtTelepon.Text<br /> Data1.Recordset!ttl = txtTgllahir.Text<br /> Data1.Recordset!agama = cmbAgama.Text<br /> Data1.Recordset!kelas = cmbKelas.Text<br /> Data1.Recordset!thnmsk = mskTgl.Text<br /> If opt1.Value = True Then<br /> Data1.Recordset!jk = "L"<br /> Else<br /> Data1.Recordset!jk = "P"<br /> End If<br /> Data1.Recordset!spp = txtspp.Text<br /> Data1.Recordset.Update<br /> bersih<br /> cmdupdate.Enabled = False<br /> txtnis.Enabled = True<br /> cmdsimpan.Enabled = True<br />End Sub<br /><br />Private Sub Form_Activate()<br /> bersih<br /> txtnis.SetFocus<br />End Sub<br /><br />Private Sub text1_Change()<br /><br />End Sub<br /><br />Private Sub mskTgl_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtspp.SetFocus<br />End If<br />End Sub<br /><br />Private Sub opt1_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtTgllahir.SetFocus<br />End If<br />End Sub<br /><br />Private Sub opt2_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />txtTgllahir.SetFocus<br />End If<br />End Sub<br /><br />Private Sub SSTab1_DblClick()<br />Data1.Refresh<br />DBGrid1.Refresh<br />End Sub<br /><br />Private Sub txtalamat_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />opt1.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtcarinama_Change()<br /> Data1.Recordset.Index = "namapel"<br /> Data1.Recordset.Seek "<=", Trim(Txtcarinama.Text) & "zzz"<br /> If Data1.Recordset.NoMatch Then<br /> MsgBox "Data tidak ada", vbOKOnly, "Message Siswa"<br /> Exit Sub<br /> End If<br /> cmdhapus.Enabled = True<br />End Sub<br /><br />Private Sub Txtcarinis_Change()<br /> cmdhapus.Enabled = False<br /> If Len(Txtcarinis.Text) < 5 Then<br /> Exit Sub<br /> End If<br /> Data1.Recordset.Index = "nispel"<br /> Data1.Recordset.Seek "=", Txtcarinis.Text<br /> If Data1.Recordset.NoMatch Then<br /> MsgBox "Data tidak ada", vbOKOnly, "Message Siswa"<br /> Exit Sub<br /> End If<br /> cmdhapus.Enabled = True<br />End Sub<br /><br />Private Sub txtkelas_KeyPress(KeyAscii As Integer)<br /> If Not (KeyAscii >= Asc("1") And KeyAscii <= Asc("3") Or KeyAscii = vbKeyBack) Then<br /> Beep<br /> KeyAscii = 0<br /> End If<br />End Sub<br /><br />Private Sub txtcariNis_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />End Sub<br /><br />Private Sub txtnama_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />If KeyAscii = 13 Then<br />txtAlamat.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtnis_Change()<br /> Dim X As Byte<br /> If Len(txtnis.Text) < 10 Then<br /> Exit Sub<br /> End If<br /> cmdsimpan.Enabled = True<br /> txtNama.SetFocus<br /> Data1.Recordset.Index = "nispel"<br /> Data1.Recordset.Seek "=", txtnis.Text<br /> If Not Data1.Recordset.NoMatch Then<br /> cmdupdate.Enabled = True<br /> tampil<br /> End If<br />End Sub<br /><br />Private Sub Txtnis_LostFocus()<br /> cmdbatal.Enabled = True<br />End Sub<br /><br />Private Sub txtspp_KeyPress(KeyAscii As Integer)<br /> If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then<br /> Beep<br /> KeyAscii = 0<br /> End If<br />End Sub<br /><br />Private Sub txtnis_KeyPress(KeyAscii As Integer)<br /> KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />End Sub<br /><br />Private Sub txtTelepon_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />cmbKelas.SetFocus<br />End If<br />End Sub<br /><br />Private Sub txtTgllahir_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />cmbAgama.SetFocus<br />End If<br />End Sub<br /><br />'code form cetak<br />Dim p As Printer<br /><br />Private Sub cmdList_Click()<br /><br />End Sub<br /><br />Private Sub preview()<br />Dim mno, mhal, mbaris, X As Integer<br /> Dim mnilai, msubtotal, mtotal As Single<br /> Dim mgrs As String<br /> On Error GoTo 0<br /> With dbtran.Recordset<br /> 'pb.Min = 1<br /> 'pb.Max = .RecordCount<br /> .MoveFirst<br /> Printer.CurrentX = 5<br /> Printer.CurrentY = 5<br /> mhal = 0<br /> mno = 0<br /> mtotal = 0<br /> Do<br /> mhal = mhal + 1<br /> Form2.FontSize = Val(cbs.Text) * 2<br /> Form2.FontBold = True<br /> Form2.Print "Data Pembayaran SPP"<br /> Form2.Print "SD Negeri 01 Blimbing - Malang"<br /> Form2.FontSize = cbs.Text<br /> Form2.FontBold = False<br /> Form2.Print<br /> Form2.Print Tab(10); "Kelas : "; !kelas;<br /> Form2.Print Tab(100); "Hal :"; Format(mhal, "###")<br /> Form2.Print<br /> mgrs = String$(200, "-")<br /> Form2.Print mgrs<br /> Form2.Print Tab(2); "No. Tran";<br /> Form2.Print Tab(10); "Tgl. Pem";<br /> Form2.Print Tab(20); "NIS";<br /> Form2.Print Tab(45); "Kelas";<br /> Form2.Print Tab(60); "NIP";<br /> Form2.Print Tab(70); "Bayar";<br /> Form2.Print<br /> Form2.Print mgrs<br /> Form2.Print<br /> mbaris = 0<br /> msubtotal = 0<br /> Do<br /> mno = mno + 1<br /> pb.Value = mno<br /> Form2.Print Tab(1); rkanan(mno, "#####");<br /> Form2.Print Tab(10); !nis;<br /> Form2.Print Tab(20); !kelas;<br /> Form2.Print Tab(45); rkanan(!bayar, "###,###,###");<br /> Form2.Print Tab(60); !terlambat;<br /> Form2.Print Tab(70); !sanksi;<br /> <br /> mbaris = mbaris + 1<br /> .MoveNext<br /> If .EOF Then<br /> Exit Do<br /> End If<br /> Loop Until mbaris > 55<br /> Form2.Print<br /> Form2.Print mgrs<br /> ' Form2.NewPage<br /> If .EOF Then<br /> Exit Do<br /> End If<br /> Loop<br /> 'Form2.EndDoc<br /> pb.Value = .RecordCount<br /> End With<br /> On Error GoTo 0<br /> Exit Sub<br />salahcetak:<br /> Beep<br /> d = MsgBox("Printer Error !" & Chr(13) & "Betulkan Printer lalu klik ok", vbOKCancel)<br /> If d = 0 Then<br /> Resume<br /> Else<br /> 'Printer.KillDoc<br /> <br /> End If<br />End Sub<br /><br />Private Sub cmdprev_Click()<br />With CrystalReport1<br />.ReportFileName = App.Path & "\laptran.rpt"<br />.SelectionFormula = "month({transaksi.tgl_pem})=" & Combo1.ListIndex + 1 & " "<br />.RetrieveDataFiles<br />.WindowShowCloseBtn = True<br />.WindowState = crptMaximized<br />.Action = 1<br />End With<br />End Sub<br /><br />Private Sub Command1_Click()<br />Unload Me<br />End Sub<br /><br />Private Sub Command2_Click()<br />CrystalReport2.ReportFileName = App.Path & "\laptran.rpt"<br />CrystalReport2.WindowState = crptMaximized<br />CrystalReport2.RetrieveDataFiles<br />CrystalReport2.Action = 1<br />End Sub<br /><br />Private Sub Form_Activate()<br />frmPrint.Visible = True<br />End Sub<br /><br />Private Sub Form_Load()<br />dbtran.DatabaseName = App.Path & "\spp.mdb"<br />dbtran.RecordSource = "Select * From transaksi"<br />For bln = 1 To 12<br /> bulan = Choose(bln, "januari", "februari", "maret", "april", "mei", "juni", "juli", "agustus", "september", "oktober", "november", "desember") & " " & Str(Year(Date))<br /> Combo1.AddItem bulan<br />Next<br />End Sub<br /><br /><br /><br />Private Sub cmdRefresh_Click()<br /> dbtran.DatabaseName = App.Path & "\spp.mdb"<br />dbtran.RecordSource = "Select * From transaksi"<br /> dbtran.Refresh<br />End Sub<br /><br />Private Sub cbf_Click()<br /> cbf.FontName = cbf.Text<br />End Sub<br /><br />Private Sub cbp_Click()<br /> For Each p In Printers<br /> If p.DeviceName = cbp.Text Then<br /> Set Printer = p<br /> Exit For<br /> End If<br /> Next<br />End Sub<br /><br /><br />Private Sub cbs_Click()<br /> cbs.FontSize = cbs.Text<br />End Sub<br /><br />Private Sub cmdcetak_Click()<br /> Dim mno, mhal, mbaris, X As Integer<br /> Dim mnilai, msubtotal, mtotal As Single<br /> Dim mgrs As String<br /> On Error GoTo 0<br /> With dbtran.Recordset<br /> 'pb.Min = 1<br /> 'pb.Max = .RecordCount<br /> .MoveFirst<br /> Printer.CurrentX = 5<br /> Printer.CurrentY = 5<br /> mhal = 0<br /> mno = 0<br /> mtotal = 0<br /> Do<br /> mhal = mhal + 1<br /> Printer.FontSize = Val(cbs.Text) * 2<br /> Printer.FontBold = True<br /> Printer.Print "Data Pembayaran SPP"<br /> Printer.Print "SD Negeri 01 Blimbing - Malang"<br /> Printer.FontSize = cbs.Text<br /> Printer.FontBold = False<br /> Printer.Print<br /> Printer.Print Tab(10); "Kelas : "; !kelas;<br /> Printer.Print Tab(100); "Hal :"; Format(mhal, "###")<br /> Printer.Print<br /> mgrs = String$(200, "-")<br /> Printer.Print mgrs<br /> Printer.Print Tab(2); "No. Tran";<br /> Printer.Print Tab(10); "Tgl. Pem";<br /> Printer.Print Tab(20); "NIS";<br /> Printer.Print Tab(45); "Kelas";<br /> Printer.Print Tab(60); "NIP";<br /> Printer.Print Tab(70); "Bayar";<br /> <br /> Printer.Print<br /> Printer.Print mgrs<br /> Printer.Print<br /> mbaris = 0<br /> msubtotal = 0<br /> Do<br /> mno = mno + 1<br /> pb.Value = mno<br /> Printer.Print Tab(1); rkanan(mno, "#####");<br /> Printer.Print Tab(10); !nis;<br /> Printer.Print Tab(20); !kelas;<br /> Printer.Print Tab(45); rkanan(!bayar, "###,###,###");<br /> Printer.Print Tab(60); !terlambat;<br /> Printer.Print Tab(70); !sanksi;<br /> <br /> mbaris = mbaris + 1<br /> .MoveNext<br /> If .EOF Then<br /> Exit Do<br /> End If<br /> Loop Until mbaris > 55<br /> Printer.Print<br /> Printer.Print mgrs<br /> Printer.NewPage<br /> If .EOF Then<br /> Exit Do<br /> End If<br /> Loop<br /> Printer.EndDoc<br /> pb.Value = .RecordCount<br /> End With<br /> On Error GoTo 0<br /> <br /> Exit Sub<br />salahcetak:<br /> Beep<br /> d = MsgBox("Printer Error !" & Chr(13) & "Betulkan Printer lalu klik ok", vbOKCancel)<br /> If d = 0 Then<br /> Resume<br /> Else<br /> Printer.KillDoc<br /> <br /> End If<br />End Sub<br /><br />Private Sub opmiring_Click()<br /> Printer.Orientation = vbPRORLandscape<br />End Sub<br /><br /><br />Private Sub opportait_Click()<br /> Printer.Orientation = vbPRORPortrait<br />End Sub<br /><br />Private Sub txtcopy_LostFocus()<br /> If Val(txtcopy.Text) <> 10 Then<br /> Beep<br /> txtcopy.SetFocus<br /> End If<br />End Sub<br /><br /><br />Private Function rkanan(ndata, cformat) As String<br /> rkanan = Format(ndata, cformat)<br /> rkanan = Space(Len(cformat) - Len(rkanan)) + rkanan<br />End Function<br /><br /><br />Private Sub UpDown1_Change()<br /> txtcopy.Text = UpDown1.Value<br />End Sub<br /><br /><br />'code formspp<br /><br />Dim DB As Database<br />Dim RSsiswa As Recordset<br />Dim RStran As Recordset<br /><br />Private Function clear()<br /> Text3.Text = ""<br /> Text4.Text = ""<br /> Text5.Text = ""<br /> Text6.Text = ""<br /> Text7.Text = ""<br /> Text8.Text = ""<br /> Text9.Text = ""<br /> Text10.Text = ""<br /> Text12.Text = ""<br /> DBCombo1.Text = ""<br /> DBCombo2.Text = ""<br /> Combo1.Text = ""<br /> Cmdsimpan.Enabled = False<br /> cmdupdate.Enabled = False<br />End Function<br /><br /><br />Private Sub cmdupdate_Click()<br /> Data1.Recordset.Edit<br /> Data1.Recordset!Notran = Text1.Text<br /> Data1.Recordset!tgl_pem = Text2.Text<br /> Data1.Recordset!nis = DBCombo1.Text<br /> Data1.Recordset!kelas = Text4.Text<br /> Data1.Recordset!nip = DBCombo2.Text<br /> Data1.Recordset!bayar = Text7.Text<br /> Data1.Recordset!ket = Text8.Text<br /> Data1.Recordset!terlambat = Text10.Text<br /> Data1.Recordset!sanksi = Combo1.Text<br /> Data1.Recordset!ket_sanksi = Text12.Text<br /> Data1.Recordset.Update<br /> clear<br /> Text1.Enabled = True<br /> Text1.Text = ""<br /> Text1.SetFocus<br />End Sub<br /><br />Private Sub Command1_Click()<br />On Error Resume Next<br /> s = MsgBox("Data akan dihapus ?", vbOKCancel, "PERHATIAN")<br /> If s = vbOK Then<br /> Data1.Recordset.Delete<br /> End If<br />End Sub<br /><br />Private Sub DBCombo1_Change()<br />Data2.Recordset.Index = "nispel"<br /> Data2.Recordset.Seek "=", DBCombo1.Text<br /> If Not Data2.Recordset.NoMatch Then<br /> Text3.Text = Data2.Recordset!Nama<br /> Text4.Text = Data2.Recordset!kelas<br /> Text5.Text = Format(Data2.Recordset!spp, "#,#,0")<br /> Text9.Text = Format$(Data2.Recordset!thnmsk, "dddd, dd MMMM yyyy")<br /> 'Text10.Text = Val(Data2.Recordset!thnmsk) - (Format$(Date, "dd mm"))<br />End If<br />End Sub<br /><br /><br />Private Sub DBCombo2_Change()<br />Data3.Recordset.Index = "idx_nip"<br /> Data3.Recordset.Seek "=", DBCombo2.Text<br /> If Not Data3.Recordset.NoMatch Then<br /> Text6.Text = Data3.Recordset!Nama<br />End If<br />End Sub<br /><br />Private Sub Form_Activate()<br />Text1.Text = ""<br />Text1.SetFocus<br />clear<br />End Sub<br /><br />Private Sub Form_Load()<br />Data1.DatabaseName = App.Path & "\spp.mdb"<br />Data1.RecordSource = "transaksi"<br />Data2.DatabaseName = App.Path & "\spp.mdb"<br />Data2.RecordSource = "siswa"<br />Data3.DatabaseName = App.Path & "\spp.mdb"<br />Data3.RecordSource = "guru"<br /> Text2.Text = Date<br /> Combo1.List(0) = "Peringatan"<br /> Combo1.List(1) = "Denda"<br /> Combo1.List(2) = "Skors"<br /> Combo1.List(3) = "Dikeluarkan"<br /> End Sub<br /><br />Private Sub cmdbatal_Click()<br /> clear<br /> Text1.Enabled = True<br /> Text1.Text = ""<br /> Text1.SetFocus<br /> <br /> End Sub<br /><br />'Private Sub mnentry_Click()<br />' Dim I As Byte<br />' For I = 0 To 3<br />' txtno.Text = ""<br />'Next I<br />'txtno.SetFocus<br />'End Sub<br /><br />Private Sub cmdkeluar_Click()<br /> Unload Me<br />End Sub<br /><br />Private Sub mnreport_Click()<br /> 'frmlapspp.Show<br /> 'frmspp.Hide<br />End Sub<br /><br />Private Sub cmdsimpan_Click()<br />Dim tgl As Date<br />If Text1.Text = "" Or Text2.Text = "" Or DBCombo1.Text = "" Or DBCombo2.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then<br /> MsgBox "Ada yang belum terisi !!", vbOKOnly, "Pesan Transaksi"<br /> Else<br /> Data1.Recordset.AddNew<br /> Data1.Recordset!Notran = Text1.Text<br /> Data1.Recordset!tgl_pem = Text2.Text<br /> Data1.Recordset!nis = DBCombo1.Text<br /> Data1.Recordset!kelas = Text4.Text<br /> Data1.Recordset!nip = DBCombo2.Text<br /> Data1.Recordset!bayar = Text7.Text<br /> Data1.Recordset!ket = Text8.Text<br /> Data1.Recordset!terlambat = Text10.Text<br /> Data1.Recordset!sanksi = Combo1.Text<br /> Data1.Recordset!ket_sanksi = Text12.Text<br /> Data1.Recordset.Update<br /> clear<br /> Text1.Text = ""<br /> Text1.SetFocus<br />End If<br />End Sub<br /><br />Private Sub text1_Change()<br /> If Len(Text1.Text) < 6 Then<br /> Exit Sub<br /> End If<br /> Cmdsimpan.Enabled = True<br /> DBCombo1.SetFocus<br /> Data1.Recordset.Index = "notran"<br /> Data1.Recordset.Seek "=", Text1.Text<br /> If Not Data1.Recordset.NoMatch Then<br /> tampil<br /> Text7.Text = Format(Data1.Recordset!bayar, "#,#,0")<br /> Text8.Text = Data1.Recordset!ket<br /> Text10.Text = Data1.Recordset!terlambat<br /> Combo1.Text = Data1.Recordset!sanksi<br /> Text12.Text = Data1.Recordset!ket_sanksi<br /> cmdupdate.Enabled = True<br /> Cmdsimpan.Enabled = False<br /> End If<br /> <br />End Sub<br /><br /><br />Private Function tampil()<br />On Error Resume Next<br /> Text1.Enabled = False<br /> DBCombo1.Text = Data1.Recordset!nis<br /> DBCombo2.Text = Data1.Recordset!nip<br /> Text7.Text = Data1.Recordset!bayar<br /> Text8.Text = Data1.Recordset!ket<br /> Text9.Text = Data1.Recordset!batas<br /> Text10.Text = Data1.Recordset!terlambat<br /> Text12.Text = Data1.Recordset!ket_sanksi<br /> End Function<br /><br />Private Sub Text1_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />End Sub<br /><br />Private Sub Text11_Change()<br />Cmdhapus.Enabled = False<br /> If Len(Text11.Text) < 6 Then<br /> Exit Sub<br /> End If<br /> Data1.Recordset.Index = "notran"<br /> Data1.Recordset.Seek "=", Text11.Text<br /> If Data1.Recordset.NoMatch Then<br /> MsgBox "Data tidak ada", vbOKOnly, "PERHATIAN"<br /> Exit Sub<br /> End If<br /> Cmdhapus.Enabled = True<br />End Sub<br /><br />Private Sub Text11_KeyPress(KeyAscii As Integer)<br />KeyAscii = Asc(UCase(Chr(KeyAscii)))<br />End Sub<br /><br />Private Sub Text2_Change()<br />Text2.Text = Date<br />End Sub<br /><br />Private Sub Text7_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />Text8.SetFocus<br />End If<br />End Sub<br /><br />Private Sub Text8_Change()<br />If KeyAscii = 13 Then<br />Text10.SetFocus<br />End If<br />End Sub<br /><br />Nah untuk source codenya silakan disedot <a href="http://www.ziddu.com/download/4542326/setup.zip.html">disini</a>Unknownnoreply@blogger.com5tag:blogger.com,1999:blog-7872901297791207431.post-79745129738579729732009-04-18T09:16:00.003+07:002009-04-18T09:44:16.093+07:00memindahkan database access ke excelMateri kali ini penulis akan mengajak vbthok mania untuk membuat program yang bisa memindahkan isi database akses kedalam excel, mungkin ada diantara vbthok mania yang ingin membuat laporan dalam format excel dan datanya diambil dari database akses.Nah semoga artikel ini bermanfaat.<br />Oke kalau begitu buat form dan desain seperti contoh berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0gd0DNzsR-tFm9OvCaHfeawF6vVCbRqQ2pOVqhlmE5wl8a4FDZnRDbwby8hs7xy4POX6D3wn-4cD-XErq2pgTYEkkF5E_QsTCO7nEMQwPz_gTwdOnY-J0kn28rr_-SWKBUbdcLaDHESo/s1600-h/converter.JPG"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 299px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0gd0DNzsR-tFm9OvCaHfeawF6vVCbRqQ2pOVqhlmE5wl8a4FDZnRDbwby8hs7xy4POX6D3wn-4cD-XErq2pgTYEkkF5E_QsTCO7nEMQwPz_gTwdOnY-J0kn28rr_-SWKBUbdcLaDHESo/s400/converter.JPG" alt="" id="BLOGGER_PHOTO_ID_5325852701246443714" border="0" /></a>komponen yang dibutuhkan :<br />microsoft DAO 3.51 object library<br />microsoft excel 10.0 object library<br />microsoft common dialog control 6.0<br /><br />untuk scrip codenya sebagai berikut :<br /><br />Option Explicit<br /> Dim dbSR As Database<br /> Dim rs As Recordset<br /> Dim strcaption, sn<br /> Dim Td As TableDef<br /> Dim i As Single<br /> Dim Recs As Integer, Counter As Integer<br /> Dim Barstring As String, MdbFile As String<br /> Dim Junk As String<br /> <br /> Private Type ExlCell<br /> row As Long<br /> col As Long<br /> End Type<br /><br />Private Sub Command2_Click()<br /> Picture1.ForeColor = RGB(0, 0, 255)<br /> On Error GoTo errhandler<br /> CommonDialog1.Filter = "Access Files (*.mdb)"<br /> CommonDialog1.FilterIndex = 0<br /> CommonDialog1.FileName = "*.mdb"<br /> CommonDialog1.ShowOpen<br /> MdbFile = (CommonDialog1.FileName)<br /><br /> 'set mdb file<br /> Set dbSR = OpenDatabase(MdbFile)<br /> <br /> List1.Clear<br /> For Each Td In dbSR.TableDefs<br /> Junk = Td.Name<br /> Junk = UCase(Junk)<br /> If Left(Junk, 4) <> "MSYS" Then<br /> List1.AddItem Td.Name<br /> End If<br /> Next<br /> Frame1.Visible = True<br /><br /> Exit Sub<br />errhandler:<br />End Sub<br /><br />Private Sub Form_Unload(Cancel As Integer)<br /> On Error Resume Next<br /> dbSR.Close<br /> Set dbSR = Nothing<br /> End<br />End Sub<br /><br /><br />Private Sub List1_Click()<br /> On Error GoTo errortrapper<br /> Screen.MousePointer = vbHourglass<br /><br /> Junk = List1.Text<br /> Set rs = dbSR.OpenRecordset(Junk, dbOpenDynaset)<br /> Call ToExcel(rs, "C:\wk.xls")<br /> GoTo skiperrortrapper<br />errortrapper:<br /> Beep<br /> Screen.MousePointer = vbDefault<br /> MsgBox "This is a system file" & Chr(10) & "and is not accessible."<br />skiperrortrapper:<br /> Screen.MousePointer = vbDefault<br />End Sub<br /><br />Private Sub CopyRecords(rs As Recordset, ws As Worksheet, _<br /> StartingCell As ExlCell)<br /> Dim SomeArray() As Variant<br /> Dim row As Long, col As Long<br /> Dim fd As Field<br /> If rs.EOF And rs.BOF Then Exit Sub<br /> rs.MoveLast<br /> ReDim SomeArray(rs.RecordCount + 1, rs.Fields.Count)<br /> col = 0<br /><br /> For Each fd In rs.Fields<br /> SomeArray(0, col) = fd.Name<br /> col = col + 1<br /> Next<br /> rs.MoveFirst<br /> Recs = rs.RecordCount<br /> Counter = 0<br /> <br /> For row = 1 To rs.RecordCount - 1<br /> Counter = Counter + 1<br /> If Counter <= Recs Then i = (Counter / Recs) * 100<br /> UpdateProgress Picture1, i<br /> For col = 0 To rs.Fields.Count - 1<br /> SomeArray(row, col) = rs.Fields(col).Value<br /> If IsNull(SomeArray(row, col)) Then _<br /> SomeArray(row, col) = ""<br /> Next<br /> rs.MoveNext<br /> Next<br /> ws.Range(ws.Cells(StartingCell.row, StartingCell.col), _<br /> ws.Cells(StartingCell.row + rs.RecordCount + 1, _<br /> StartingCell.col + rs.Fields.Count)).Value = SomeArray<br />End Sub<br /><br />Private Sub ToExcel(sn As Recordset, strcaption As String)<br /> Dim oExcel As Object<br /> Dim objExlSht As Object ' OLE automation object<br /> Dim stCell As ExlCell<br /><br /> DoEvents<br /> On Error Resume Next<br /> Set oExcel = GetObject(, "Excel.Application")<br /> If Err = 429 Then<br /> Err = 0<br /> Set oExcel = CreateObject("Excel.Application")<br /> If Err = 429 Then<br /> MsgBox Err & ": " & Error, vbExclamation + vbOKOnly<br /> Exit Sub<br /> End If<br /> End If<br /> oExcel.Workbooks.Add<br /> oExcel.Worksheets("sheet1").Name = strcaption<br /> Set objExlSht = oExcel.ActiveWorkbook.Sheets(1)<br /> stCell.row = 1<br /> stCell.col = 1<br /> CopyRecords sn, objExlSht, stCell<br /> oExcel.Visible = True<br /> oExcel.Interactive = True<br /> Set objExlSht = Nothing<br /> Set oExcel = Nothing<br /> Set sn = Nothing<br /> End Sub<br /><br />Sub UpdateProgress(PB As Control, ByVal percent)<br /> Dim num$<br /> If Not PB.AutoRedraw Then<br /> PB.AutoRedraw = -1<br /> End If<br /> PB.Cls<br /> PB.ScaleWidth = 100<br /> PB.DrawMode = 10<br /> num$ = Barstring & Format$(percent, "###") + "%"<br /> PB.CurrentX = 50 - PB.TextWidth(num$) / 2<br /> PB.CurrentY = (PB.ScaleHeight - PB.TextHeight(num$)) / 2<br /> PB.Print num$<br /> PB.Line (0, 0)-(percent, PB.ScaleHeight), , BF<br /> PB.Refresh<br />End Sub<br /><br />Untuk source codenya silakan donlot <a href="http://www.ziddu.com/download/4344226/converterdatabase.zip.html">disini<br /><br /></a>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-81067666942701359582009-04-02T21:42:00.004+07:002009-04-02T22:03:14.126+07:00Membuat grafik atau chart sederhanaGrafik atau chart terkadang bisa dijadikan acuan untuk melihat perkembangan suatu barang atau produk, dll. Dengan grafik atau chart orang bisa dengan mudah mengambil kesimpulan tentang perbandingan yang ada.<br />Nah untuk itu kali ini penulis mencoba mengajak vbthok mania untuk membuat grafik atau chart sederhana tentang perkembangan kendaraan yang sering digunakan.Dari sini mungkin vbthok mania bisa mengembangkan lagi ke grafik2 yang lain tentunya lebih spesifik lagi.<br />Berikut contoh grafik yang sudah penulis buat<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzJ18EAuWlrMkRuari208qBMJEfoO_Va-OfVfeohfkyA5IfnXp5i5kJ9gbKyMXQhMCjAsfvfE-zsZsMoPHaPBiMCTi_T7rXbhR0ITdOP1eYBZN4hQNtBjngz7UJ85wcSleszlaj_a4jJY/s1600-h/chart.GIF"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 387px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzJ18EAuWlrMkRuari208qBMJEfoO_Va-OfVfeohfkyA5IfnXp5i5kJ9gbKyMXQhMCjAsfvfE-zsZsMoPHaPBiMCTi_T7rXbhR0ITdOP1eYBZN4hQNtBjngz7UJ85wcSleszlaj_a4jJY/s400/chart.GIF" alt="" id="BLOGGER_PHOTO_ID_5320106725799125346" border="0" /></a><br />componen yang dibutuhkan adalah picturebox1, timer, label, textbox, commandbutton<br />desain sesuai contoh diatas atau sesuai dengan selera vbthok mania<br />kemudian masukkan script code dibawah ini kedalam form<br />Private Sub Command2_Click()<br /><br />End Sub<br /><br />Private Sub Command3_Click()<br /><br />Picture1.Cls<br />Text2.Text = 5000 - Val(TextA)<br />Text3.Text = 5000 - Val(TextB)<br />Text4.Text = 5000 - Val(TextC)<br />Text5.Text = 5000 - Val(TextD)<br />Text6.Text = 5000 - Val(TextE)<br />Timer1.Enabled = True<br /><br />End Sub<br /><br />Private Sub Timer1_Timer()<br />For i = 1 To 1500<br />Picture1.Line (0 + i, Text2.Text)-(0 + i, Picture1.Height), vbRed<br />Picture1.Line (1500 + i, Text3.Text)-(1500 + i, Picture1.Height), vbGreen<br />Picture1.Line (3000 + i, Text4.Text)-(3000 + i, Picture1.Height), vbBlue<br />Picture1.Line (4500 + i, Text5.Text)-(4500 + i, Picture1.Height), vbYellow<br />Picture1.Line (6000 + i, Text6.Text)-(6000 + i, Picture1.Height), vbMagenta<br />Next i<br />Timer1.Enabled = False<br />End Sub<br /><br />mudah bukan?? kalo ada ingin program jadinya silakan donlot <a href="http://www.ziddu.com/download/4123216/Chart.zip.html">disini</a>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-86800758025430514272009-03-16T08:37:00.008+07:002009-03-16T09:17:38.582+07:00Membuat program client server menggunakan acces<ul><li><span style=";font-family:";color:black;" lang="EN-US"><span style=""> </span><span style="font-weight: bold;">Server Side </span><o:p></o:p></span><span style="letter-spacing: -0.05pt;color:black;" lang="EN-US"><span style=""> </span>Tambahkan component Microsoft Winsock Control , Microsoft ADO Data<o:p></o:p></span><span style="letter-spacing: -0.05pt;color:black;" lang="EN-US"> Control dan Microsoft DataGrid</span></li></ul><!--[if gte mso 9]><xml> <w:worddocument> <w:view>Normal</w:View> <w:zoom>0</w:Zoom> <w:compatibility> <w:breakwrappedtables/> <w:snaptogridincell/> <w:wraptextwithpunct/> <w:useasianbreakrules/> </w:Compatibility> <w:browserlevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><style> <!-- /* Font Definitions */ @font-face {font-family:"Times New Roman Bold"; panose-1:0 0 0 0 0 0 0 0 0 0; mso-font-charset:0; mso-generic-font-family:auto; mso-font-format:other; mso-font-pitch:auto; mso-font-signature:3 0 0 0 1 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0in; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman"; mso-ansi-language:EN-US; mso-fareast-language:EN-US;} @page Section1 {size:8.5in 11.0in; margin:1.0in 1.25in 1.0in 1.25in; mso-header-margin:.5in; mso-footer-margin:.5in; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIqdOD37FDpXJy1EGNuzHBX_NLgjA455iQAZtXNHlwUWJkoVVRlHvexUqtTDm3qGhQO2Mkco2Q4synsrzbsqR8rYhpFtSCN1q55GLPGjuRC3XFV6notQrDGqXwX1y1fBdskbk4oSQ-pZA/s1600-h/untitled.bmp"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 356px; height: 358px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIqdOD37FDpXJy1EGNuzHBX_NLgjA455iQAZtXNHlwUWJkoVVRlHvexUqtTDm3qGhQO2Mkco2Q4synsrzbsqR8rYhpFtSCN1q55GLPGjuRC3XFV6notQrDGqXwX1y1fBdskbk4oSQ-pZA/s400/untitled.bmp" alt="" id="BLOGGER_PHOTO_ID_5313596686837103778" border="0" /></a>
<br /><meta equiv="Content-Type" content="text/html; charset=utf-8"><meta name="ProgId" content="Word.Document"><meta name="Generator" content="Microsoft Word 10"><meta name="Originator" content="Microsoft Word 10"><!--[if gte mso 9]><xml> <w:worddocument> <w:view>Normal</w:View> <w:zoom>0</w:Zoom> <w:compatibility> <w:breakwrappedtables/> <w:snaptogridincell/> <w:wraptextwithpunct/> <w:useasianbreakrules/> </w:Compatibility> <w:browserlevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><style> <!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0in; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman"; mso-ansi-language:EN-US; mso-fareast-language:EN-US;} @page Section1 {size:8.5in 11.0in; margin:1.0in 1.25in 1.0in 1.25in; mso-header-margin:.5in; mso-footer-margin:.5in; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--><span style="letter-spacing: -0.15pt;color:black;" lang="EN-US">Buat design layout<o:p></o:p></span>
<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibuAjLUtF-jWfxhZmR4c5JzzvfGkUmusPlu02DpfwabW9OABTM4i6QbmXzoKboI7O5A49lPSuL1BlfPHZIZNBL0ksv3Tm1Wxfuqgp2R2vtm7Qxt5aNnFlyMLUXDDau0DmiDgsg6vQjqVQ/s1600-h/untitled2.bmp"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 383px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibuAjLUtF-jWfxhZmR4c5JzzvfGkUmusPlu02DpfwabW9OABTM4i6QbmXzoKboI7O5A49lPSuL1BlfPHZIZNBL0ksv3Tm1Wxfuqgp2R2vtm7Qxt5aNnFlyMLUXDDau0DmiDgsg6vQjqVQ/s400/untitled2.bmp" alt="" id="BLOGGER_PHOTO_ID_5313597601044018098" border="0" /></a><meta equiv="Content-Type" content="text/html; charset=utf-8"><meta name="ProgId" content="Word.Document"><meta name="Generator" content="Microsoft Word 10"><meta name="Originator" content="Microsoft Word 10"><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5Cgw_mlg%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml"><!--[if gte mso 9]><xml> <w:worddocument> <w:view>Normal</w:View> <w:zoom>0</w:Zoom> <w:compatibility> <w:breakwrappedtables/> <w:snaptogridincell/> <w:wraptextwithpunct/> <w:useasianbreakrules/> </w:Compatibility> <w:browserlevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><style> <!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0in; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman"; mso-ansi-language:EN-US; mso-fareast-language:EN-US;} @page Section1 {size:8.5in 11.0in; margin:1.0in 1.25in 1.0in 1.25in; mso-header-margin:.5in; mso-footer-margin:.5in; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--><span style="letter-spacing: -0.15pt;color:black;" lang="EN-US"><span style=""> </span>Isi tombol connect dengan script dibawah ini
<br /></span>
<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTVRb_6sKP8V8d0aOK2VrLqFKvnTGipAQLvneNsXgHq6adZe8YIwq8kGdLhw8tQ_Sn5UGhe_8ifUx35bO8o7AY_HP27hyphenhyphenzPY3F4lDZkirzWaAiHUIWK_VaspAQ-BDx-XBIjHX2Unu2sOU/s1600-h/untitled3.bmp"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 373px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTVRb_6sKP8V8d0aOK2VrLqFKvnTGipAQLvneNsXgHq6adZe8YIwq8kGdLhw8tQ_Sn5UGhe_8ifUx35bO8o7AY_HP27hyphenhyphenzPY3F4lDZkirzWaAiHUIWK_VaspAQ-BDx-XBIjHX2Unu2sOU/s400/untitled3.bmp" alt="" id="BLOGGER_PHOTO_ID_5313599016305404290" border="0" /></a><meta equiv="Content-Type" content="text/html; charset=utf-8"><meta name="ProgId" content="Word.Document"><meta name="Generator" content="Microsoft Word 10"><meta name="Originator" content="Microsoft Word 10"><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5Cgw_mlg%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml"><!--[if gte mso 9]><xml> <w:worddocument> <w:view>Normal</w:View> <w:zoom>0</w:Zoom> <w:compatibility> <w:breakwrappedtables/> <w:snaptogridincell/> <w:wraptextwithpunct/> <w:useasianbreakrules/> </w:Compatibility> <w:browserlevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><style> <!-- /* Font Definitions */ @font-face {font-family:"Times New Roman Bold"; panose-1:0 0 0 0 0 0 0 0 0 0; mso-font-charset:0; mso-generic-font-family:auto; mso-font-format:other; mso-font-pitch:auto; mso-font-signature:3 0 0 0 1 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0in; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman"; mso-ansi-language:EN-US; mso-fareast-language:EN-US;} @page Section1 {size:8.5in 11.0in; margin:1.0in 1.25in 1.0in 1.25in; mso-header-margin:.5in; mso-footer-margin:.5in; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--><span style="font-weight: bold;color:black;" lang="EN-US">•</span><span style="font-weight: bold;font-family:Arial;color:black;" lang="EN-US"> </span><span style=";font-family:";color:black;" lang="EN-US"><span style="font-weight: bold;"> Client Side
<br /></span><o:p></o:p></span>Tambahkan component Microsoft WinSock Control pada tool bar, kemudian buat layout seperti desain dibawah ini<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivzL74uADzkNIUdytQlZ3OkG8IitEOXJv51AHf350TtHRPieayyusJOIX6SkfTaKYJoEBVTGBJO4hPbGGFryKRX9ppT1QqnWtF_8n7XFlgeXNFr_AjgbfmSl6UZSxG6L13JqpsPeOV2mo/s1600-h/untitled4.bmp"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 206px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivzL74uADzkNIUdytQlZ3OkG8IitEOXJv51AHf350TtHRPieayyusJOIX6SkfTaKYJoEBVTGBJO4hPbGGFryKRX9ppT1QqnWtF_8n7XFlgeXNFr_AjgbfmSl6UZSxG6L13JqpsPeOV2mo/s400/untitled4.bmp" alt="" id="BLOGGER_PHOTO_ID_5313600957972966834" border="0" /></a>
<br />
<br />
<br /><p class="MsoNormal" style="margin: 0in 80.2pt 0.0001pt 126.95pt; line-height: 14pt;"><span style="letter-spacing: -0.2pt;color:black;" lang="EN-US"> <span style=""> </span><o:p></o:p></span></p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7872901297791207431.post-28191717216057967372009-03-10T12:48:00.005+07:002009-03-10T13:10:45.089+07:00Ebook VB untuk pemulaMungkin diantara vbthok mania yang masih pemula bingung mau belajar visual basic tapi belum mengerti tentang apa dan bagaimana visual basic, nah sedangkan mau beli buku uang pas2an,hehehe memang buku komputer harganya lumayan mahal...<br />Ada juga dari temen vbthok yang kasih comment minta dijelasin step by step. So penulis ingin memberikan alternatif buat belajar visual basic melalui ebook, kali ini penulis mengutip dari tulisan mas khrisna dari situs ilmu komputer untuk di share bagi yang ingin belajar visual basic dari awal silakan donload ebooknya <a href="http://www.ziddu.com/download/3806149/krisna-vb6-05.zip.html">disini</a><br />Selamat belajar semoga bermanfaat....Semangat!!!Unknownnoreply@blogger.com3tag:blogger.com,1999:blog-7872901297791207431.post-56187255471825120992009-03-08T20:29:00.006+07:002009-03-08T22:04:10.822+07:00Membuat program chating LAN sederhanaHai para vbthok mania…sudah hampir 2 bulan neh penulis tidak produktif dalam pembuatan artikel untuk vbthok mania dikarenakan penulis lagi sibuk dengan pekerjaan yang menyita bnyak waktu.Hehehe…sok sibuk deeh…<br />Oke kali ini penulis ingin mengajak vbthok mania untuk sharing lagi dalam pembuatan program chating dimana program ini dibuat hanya untuk Local Area Network (LAN) dan tidak untuk online diinternet. Mungkin kalian berfikir kenapa hanya untuk LAN saja tidak bisa untuk online diinternet, nah kalo untuk online diinternet mungkin sudah banyak program jadi yang tidak kalah keren dan handal seperti yahoo messeger, so kalian bisa menggunakan program jadi tersebut daripada buat sendiri…Hehehehe<br />Tapi jangan salah kalo kalian ingin chat hanya untuk LAN mungkin kalian tidak akan bisa menggunakan program yahoo messenger dan untuk itu penulis ingin membuat program chating hanya untuk LAN saja. Yah sapa tau dengan program sederhana ini vbthok mania ingin mengembangkannya lagi menjadi program yang setara dengan yahoo messenger atau bahkan bisa dipakai di internet dan LAN.Woww..kereen tuuh…<br />Yawda tanpa panjang lebar lagi sekarang buatlah 1 project untuk server yang nantinya program ini dijalankan pada komputer yang dijadikan server, nah didalam project ini buat 1 form dan berikan 1 komponen winsock dengan mengaktifkan komponen microsoft winsock control terlebih dahulu ditabel komponen pada program visual basic, setting propertis untuk name winsock diganti menjadi server. Kemudian desain tampilan sesuai yang ada pada gambar dengan memberikan 1 textbox untuk tabel messageg chat yang disetting propertisnya untuk name = tbmessage multiline = true, scrollbar = vertical kemudian 1 text untuk tulis pesan dengan setting propertisnya name = tbsay, 2 label untuk tombol connect dan disconnect dengan setting propertis label1 name = startt dan label2 name = stopp. Berikut tampilan preview program chat untuk server yang sudah jadi<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnCzVpQPWxC0ZIAC1sqVuiKWGztfwIst_HoFPlzXX8HTtYUudHpRmPC-MvvtwySFEpo6Fa-JE4jYfiRuXlqe6s5A1ZeqxcNMPIPnh_r4FaLaE1O743Z9NjBSlaK0BUFPpYNcszmMKqCpA/s1600-h/Server.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 292px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnCzVpQPWxC0ZIAC1sqVuiKWGztfwIst_HoFPlzXX8HTtYUudHpRmPC-MvvtwySFEpo6Fa-JE4jYfiRuXlqe6s5A1ZeqxcNMPIPnh_r4FaLaE1O743Z9NjBSlaK0BUFPpYNcszmMKqCpA/s400/Server.jpg" alt="" id="BLOGGER_PHOTO_ID_5310810232785034098" border="0" /></a>Untuk yang client hampir sama tinggal menambahkan text untuk ip address server saja dan tombol untuk koneksi, berikut tampilan untuk program clientnya<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTVbBbhHAvHVQ2myqPPBrV35iMjID2eLj0C5dBp6H-FxMWCKdRm3VT68PeYP4cv_cau3f6wHRLrxlAEzEfOPl4lBdpu_9SttQRnZVMTtKGOY_tdLc5lToqkLxNOdJ7qVnI5THeu4ApaEo/s1600-h/client.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 292px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTVbBbhHAvHVQ2myqPPBrV35iMjID2eLj0C5dBp6H-FxMWCKdRm3VT68PeYP4cv_cau3f6wHRLrxlAEzEfOPl4lBdpu_9SttQRnZVMTtKGOY_tdLc5lToqkLxNOdJ7qVnI5THeu4ApaEo/s400/client.jpg" alt="" id="BLOGGER_PHOTO_ID_5310813230940396594" border="0" /></a><br />untuk sorce codenya sebagai berikut<br />'form server<br />Private Sub Form_Load()<br />startt.Visible = True<br />stopp.Visible = False<br />End Sub<br /><br />Private Sub stopp_Click()<br />startt.Visible = True<br />Server.Close<br />stopp.Visible = False<br />End Sub<br /><br />Private Sub Label1_Click()<br />End<br />End Sub<br /><br />Private Sub startt_Click()<br />stopp.Visible = True<br /><br />startt.Visible = False<br />Server.LocalPort = 2500<br />Server.Listen<br />End Sub<br /><br />Private Sub Server_ConnectionRequest(ByVal requestID As Long)<br />Server.Close<br />Server.Accept requestID<br />End Sub<br /><br />Private Sub Server_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)<br />Call MsgBox(Description, bvExclimation, "Error Num." & Number)<br />End Sub<br /><br />Private Sub Server_DataArrival(ByVal bytesTotal As Long)<br />Dim strData As String<br />Server.GetData strData<br />tbMessages.Text = tbMessages & "Client: " & strData & vbCrLf<br />End Sub<br /><br />Private Sub tbSay_KeyPress(KeyAscii As Integer)<br />On Error Resume Next<br />Dim strMessage As String<br />If KeyAscii = (13) Then<br />strMessage = tbSay.Text<br />tbMessages.Text = tbMessages.Text & "Server: " & tbSay & vbCrLf<br />Server.SendData strMessage<br />tbSay.Text = ""<br />End If<br />End Sub<br /><br /><br /><br />'form client<br />Private Sub exit_Click()<br />End<br />End Sub<br /><br />Private Sub Form_Load()<br />tbl_konek.Visible = True<br />tbl_disconect.Visible = False<br /><br />End Sub<br /><br /><br />Private Sub tbl_konek_Click()<br />On Error GoTo Error:<br />Client.RemotePort = 2500<br />Client.RemoteHost = tbIP.Text<br />Client.Connect<br />tbl_konek.Visible = False<br />tbl_disconect.Visible = True<br />Error: Exit Sub<br />End Sub<br /><br />Private Sub cbConnect_Click()<br /><br />End Sub<br /><br />Private Sub tbl_disconect_Click()<br />Client.Close<br />tbl_konek.Visible = True<br />tbl_disconect.Visible = False<br /><br />End Sub<br /><br /><br />Private Sub tbSay_KeyPress(KeyAscii As Integer)<br />On Error Resume Next<br />Dim strData As String<br />If KeyAscii = (13) Then<br />strData = tbSay.Text<br />tbMessages.Text = tbMessages.Text & "Client: " & tbSay & vbCrLf<br />Client.SendData strData<br />tbSay.Text = ""<br />End If<br />End Sub<br /><br />Private Sub Client_DataArrival(ByVal bytesTotal As Long)<br />Dim strData As String<br />Client.GetData strData<br />tbMessages.Text = tbMessages & "Server: " & strData & vbCrLf<br />End Sub<br /><br />Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)<br />Call MsgBox(Description, vbExclamation, "Error Num." & Number)<br />End Sub<br /><br />Segitu aja script kodenya, silakan mencoba sendiri dan berkespresi lagi dalam mengembangkan program chat untuk LAN ini....yang pasti tetep semangat dan pantang menyerah untuk belajar. OK??<br />Oiya untuk yang pengen liat lansung source codenya bisa di donlot <a href="http://www.ziddu.com/download/3785173/LANChat.zip.html">disini</a>Unknownnoreply@blogger.com3tag:blogger.com,1999:blog-7872901297791207431.post-91862345074120341822009-01-27T09:49:00.005+07:002009-01-27T12:20:32.404+07:00Menghitung lama waktu komputer dijalankanPernahkah kalian mencoba menghitung lama komputer dihidupkan?? dari mulai komputer dinyalakan.Nah kali ini penulis akan mencoba membuat program penghitung waktu dengan menggunakan fungsi API.<br />Yang perlu disiapkan yaitu 1 form, 1 module,1 komponen timer kemudian atur desainnya seperti contoh preview dibawah ini<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7caYClbcDDXPRY5_BPZXeS2rRAHchsIbSY41zwNXT-BnxjAFib0ElEf1L0o0ZPSa5jxHCe0NCNMZiQHmHVqal_S14NqZltB7nnGdZEn2vemyfCNwgtr760CLkOOfsiP6TwksKLNrlXio/s1600-h/soft.JPG"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 354px; height: 235px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7caYClbcDDXPRY5_BPZXeS2rRAHchsIbSY41zwNXT-BnxjAFib0ElEf1L0o0ZPSa5jxHCe0NCNMZiQHmHVqal_S14NqZltB7nnGdZEn2vemyfCNwgtr760CLkOOfsiP6TwksKLNrlXio/s400/soft.JPG" alt="" id="BLOGGER_PHOTO_ID_5295814302013161090" border="0" /></a><br />berikut ini untuk source codenya<br />'untuk form 1<br />Private Sub Form_Load()<br /> nTime = GetTickCount()<br />End Sub<br /><br />Private Sub Timer1_Timer()<br />Dim Time As Long<br />Dim detik As Long<br />Dim menit As Long<br />Dim jam As Long<br /><br /> ' untuk me-refesh timer ini gunakan<br /> ' setting interval dalam properti timer<br /> ' dengan nilai 1000 (1 detik)<br /> <br /> Time = GetTickCount()<br /> detik = Round(Time / 1000)<br /> menit = Round(detik / 60)<br /> jam = Round(menit / 60)<br /> <br /> <br /> List1.Clear<br /> ' List1.AddItem ("Total waktu berjalan = " & vbTab & Time & " millisecond")<br /> List1.AddItem ("")<br /> List1.AddItem (jam & " Jam, atau " & _<br /> menit & " Menit, atau " & _<br /> detik & " Detik")<br /> List1.AddItem ""<br /> List1.AddItem "Waktu dari mulai program ini dijalankan: " & Round((Time - nTime) / 1000) & " Detik"<br /> <br />End Sub<br /><br /><br />' script untuk module<br /><br />Public Declare Function GetTickCount Lib "kernel32" () As Long<br />Public nTime As Long<br /><br />Selesai sudah script kodeya skrg tinggal di compile dan pasti jalan programnya, kalo ada error mungkin bisa liat program masternya...donlot <a href="http://www.ziddu.com/download/3313430/MengetahuiBerapaLamaSistemWindowsBerjalan.zip.html">disini</a>Unknownnoreply@blogger.com1