Comeon-Moveon

10 Cerita Ngeres Yang Kocak

1.
 Kuputar tubuhnya menghadap belakang. Lalu kutusuk lubang kecil nan 
sempit itu, tiba-tiba tubuhnya bergetar hebat… ”Lagi mau nge-charge HP, 
eh, ada sms.” 
 
2.
 Rena mengambil tisu, lalu mengelap lendir bening pacarnya itu. 
“Gara–gara kamu, sampe keluar gini,” kata sang pacar. “Maaf say, kamu 
jadi ketularan flu,” ujar Rena.<a href="http://www.blogger.com/post-edit.g?blogID=4342947504292086604&postID=9140132560431226217" name="more" style="color: #2347b0; text-decoration: none;"></a> 
 
3.
 Benda bulat itu dipegang tante Intan, digerakkan naik-turun dengan 
penuh semangat, otot-ototnya pun menjadi tegang. “Ugh, capeknya angkat 
barbel.” 
 
4. Cewek : “Uuh… Mas, kamu kok lama banget sih keluarnya? Aku pegel nih… cape.” 
Cowok : “Maaf say, tadi dosennya ngasih tugas dulu. Udah lama di sini?” 
 
5.
 Para tante mengerubungiku, seraya memaksaku mengocoknya lebih cepat, 
akhirnya keluar juga benda putih itu. “Arisan kali ini yang dapet tante 
Marni.” 
 
 
 
 
<div style="text-align: center;">
<a href="http://iheboh.blogspot.com/" style="color: #2347b0; text-decoration: none;"><img border="0" src="http://obatngantuk.files.wordpress.com/2008/11/otak-ngeres.gif" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px;" /></a> 
 
 </div>
6.
 Jariku masuk ke dalam lubang yang sempit itu. Kugesek-gesek lalu 
tiba-tiba jariku terasa basah oleh lendir yang bening. “Gini nih kalo 
ngupil pas lagi pilek… huh.” 
 
7. Gadis muda itu berjongkok di depanku tanpa mengenakan celana dalam, ia pun menatapku dan berkata, “ Ayah… pipisnya udah.” 
 
8.
 Setelah lama tawar menawar, harga disepakati. Mawar pun berkata, “Mau 
pake kondom ga??” Gue, “Boleh, biar ga lecet kan casingnya?” 
 
9.
 “Beb, rada cepet dong genjotannya, udah mau nyampe nih…” ujar Rani. 
“Huff… iya beb, aku udah sekuat tenaga genjotnya nih.” Jawab Tomi sambil
 ngos-ngosan. “Awas ada anak kecil nyebrang!” pekik Rani panik. 
 
10.
 Mulut Rani kempot saking nafsu mengenyotnya, dan benar saja, tak lama 
kemudian cairan kental dan manis itu tumpah dalam mulutnya. “Oh, enaknya
 permen blaster.”

10 Cerita Ngeres Yang Kocak

1. Kuputar tubuhnya menghadap belakang. Lalu kutusuk lubang kecil nan sempit itu, tiba-tiba tubuhnya bergetar hebat… ”Lagi mau nge-charge HP, eh, ada sms.” 2. Rena mengambil tisu, lalu mengelap lendir bening pacarnya itu. “Gara–gara kamu, sampe keluar gini,” kata sang pacar. “Maaf say, kamu ja…

Baca selengkapnya »

26Jun2012

tahukah kamu? Kubah Pelindung dari Kiamat di Kutub Utara

Sebuah bangunan sangat kuat yang dibangun di Kutub Utara untuk menyimpan
 biji-bijian dari seluruh dunia resmi difungsikan. Fasilitas yang 
disebut sebagai Kubah Kiamat (Doomsday Vault) ini dibuat di dalam sebuah
 gunung beku di Kepulauan Svalbard, Norwegia, 1100 kilometer dari kutub 
utara.</div>
<div style="text-align: justify;">

</div>
<div style="text-align: justify;">

Kubah ini akan berfungsi untuk menyimpan biji-bijian dari seluruh dunia 
guna melindungi plasma nutfah. Harapannya, jika terjadi bencana besar 
yang melanda dunia, biji-bijian yang disimpan di kubah itu akan bisa 
menjadi sumber penyelamat manusia sebelum terjadi kelaparan.</div>
<div style="text-align: justify;">

</div>
<div style="text-align: justify;">

Karena fungsi sebagai penyelamat manusia, maka kubah itu diberi nama 
Kubah Kiamat (Doomsday Vault). Kubah tersebut terletak di dalam sebuah 
gunung beku di Kepulauan Svalbard, Norwegia, 1100 kilometer dari Kutub </div>
 
<img border="0" src="http://misteridunia.files.wordpress.com/2008/10/2766741019_59544a2075_o.jpg" /> 
<img border="0" src="http://misteridunia.files.wordpress.com/2008/10/2767586276_b42779f337_o.jpg" /> 
 
<div style="text-align: justify;">

Dalam pernyataannya, Perdana Menteri Norwegia Jens Stoltenberg menyebut 
bahwa Svalbard Global Seed Vault merupakan kebijakan penyelamatan kami. 
“Ini adalah ‘Bahtera Nuh’ untuk melindungi keragaman biologi generasi 
masa depan,” ujar Jens Stoltenberg dalam upacara peresmian kubah itu.</div>
<div style="text-align: justify;">

</div>
<div style="text-align: justify;">

Acara yang monumental tersebut juga dihadiri oleh Presiden Komisi Eropa,
 Jose Manual Barroso, dan penerima Nobel Perdamaian 2004, Wangari 
Maathai, dari Kenya.</div>
 
<img border="0" src="http://misteridunia.files.wordpress.com/2008/10/2767587928_c4cd792df4_o.jpg" /> 
 
 
 
<div style="text-align: justify;">

Setelah diresmikan, kubah yang berada di dalam perut gunung sedalam 
127,5 meter ini akan menyimpan cadangan bibit dari ratusan bank benih 
dari seluruh dunia. Ruangan di dalamnya dapat memuat 4,5 juta sampel 
benih. 
 
Kubah yang pembangunannya memakan biaya US$9,1 juta-hasil 
kerja sama Global Crop Diversity Trust, lembaga yang didanai badan PBB 
untuk urusan pangan atau FAO (Food and Agriculture Organization) dan 
Biodiversity Internasional yang berbasis di Roma, Italia-diharapkan 
benar-benar bisa jadi solusi masa depan demi kelangsungan kehidupan 
manusia.</div>
<div style="text-align: justify;">

</div>
 
 
 
Sumber: 
<a href="http://winnsbury.blog.com/">http://winnsbury.blog.com/</a>

tahukah kamu? Kubah Pelindung dari Kiamat di Kutub Utara

Sebuah bangunan sangat kuat yang dibangun di Kutub Utara untuk menyimpan biji-bijian dari seluruh dunia resmi difungsikan. Fasilitas yang disebut sebagai Kubah Kiamat (Doomsday Vault) ini dibuat di dalam sebuah gunung beku di Kepulauan Svalbard, Norwegia, 1100 kilometer dari kutub utara. Kubah …

Baca selengkapnya »

23Jun2012

Kumpulan Java Games Untuk Handphone

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLjK9Xwki9guWSMdCpDhyozpBHYR007drqXmoPjgGin7bq6fzH5Dp-T36-FgKSLbXdLZL0lxCopzmQci7-Fwrs3X-RH3WgdNx65Fjzg-hPPG_xMnFurLO6i7Chh_zIAGwQAWZBr45NpJ9v/s1600/javagame.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLjK9Xwki9guWSMdCpDhyozpBHYR007drqXmoPjgGin7bq6fzH5Dp-T36-FgKSLbXdLZL0lxCopzmQci7-Fwrs3X-RH3WgdNx65Fjzg-hPPG_xMnFurLO6i7Chh_zIAGwQAWZBr45NpJ9v/s1600/javagame.jpg" /></a></div>
<a href="http://http%3B//comeon-moveon.blogspot.com" rel="nofollow" target="_blank">Comeon-Moveon</a> | Langsung aja ni sob, saya mau share Sama kalian Java game hand phone buat downloadnya tinggal klik aja link download dibawah, bisa dimainkan di hp china, nokia, sony, samsung, motorolla,dll yang mempunyai fitur java. 
..."Semoga Bermanfaat"... 
 
<ul>
<li>200 Games Java.rar (21,427 KB) : <a href="http://adf.ly/IY4Ll" target="_blank">Download</a></li>
</ul>
 
<ul>
<li> 400 Java Game Pack.rar (68,118 KB) : <a href="http://adf.ly/IY4Qq" target="_blank">Download</a></li>
</ul>
 
<ul>
<li>Game HP China 320x240.rar : </li>
</ul>
Part 1 <a href="http://adf.ly/IY4WR" style="font-size: x-large;" target="_blank">Download</a>, 
<div>
Part 2 <a href="http://adf.ly/IY4a2" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 3 <a href="http://adf.ly/IY4df" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 4 <a href="http://adf.ly/IY4he" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 5 <a href="http://adf.ly/IY4lP" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 6 <a href="http://adf.ly/IY4oX" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 7 <a href="http://adf.ly/IY4ro" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 8 <a href="http://adf.ly/IY4vP" style="font-size: x-large;" target="_blank">Download</a>,</div>
<div>
Part 9 <a href="http://adf.ly/IY4zf" style="font-size: x-large;" target="_blank">Download</a> 
 
Terimakasih sudah mengunjungi <a href="http://comeon-moveon.blogspot.com/" target="_blank">Comeon-Moveon</a>... 
<ul>
</ul>
</div>

Kumpulan Java Games Untuk Handphone

Comeon-Moveon | Langsung aja ni sob, saya mau share Sama kalian Java game hand phone buat downloadnya tinggal klik aja link download dibawah, bisa dimainkan di hp china, nokia, sony, samsung, motorolla,dll yang mempunyai fitur java. ..."Semoga Bermanfaat"... 200 Games Java.rar (21,427 KB) : Downlo…

Baca selengkapnya »

19Jun2012

Kumpulan SMS

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbfYWoHcG78m-3-vNROOSyFr6pmnopBaRuIjrV81UNh2Y90nA1inf3lLJ37ySO1V4WlTY5uoIXjuCGU2G19mWMtCjyHIMOzgTvGstfrRGy8x2I8vWdyYYvINelTEtDzHULdjZYHt2ZdPMv/s1600/smscinta.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbfYWoHcG78m-3-vNROOSyFr6pmnopBaRuIjrV81UNh2Y90nA1inf3lLJ37ySO1V4WlTY5uoIXjuCGU2G19mWMtCjyHIMOzgTvGstfrRGy8x2I8vWdyYYvINelTEtDzHULdjZYHt2ZdPMv/s1600/smscinta.jpg" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
 
<center>
SMS Terbaru 2012</center>
 
<blockquote>
Berharap ada di dalam lesung yang ada hanya rumpun jerami, 
harapan hati ingin berrtemu langsung yang terlayang hanya sms ini… Minal
 aidin wal faidzin mohon maaf lahir dan bathin. (Anonim)</blockquote>
Sebelum ramadhan peri, sebelum idul fitri datang, sebelum 
jaringan sibuk, sebelum sms pending, sebelum sinyal ilang "aku 
mengucapin met lebaran ya, mohon maaf lahir dan bathin." (Anonim) 
 
<blockquote>
Bunga melati indah berseri, menjadi hiasan di hari suci, sms
 dikirim pengganti diri cerminan dari silaturahmi. Selamat Idul Fitri. 
Minal Aidin Wal Faidzin. (Anonim)</blockquote>
 
Saat mendengar gemericik letusan senapan,hati was-was terdengar seruan 
orang, hati beranjak keluar, mata melotot meneteskan air mata melihat 
darah berceceran, hati diam berdoa di kegelapan malam, berdoa kepada 
para pejuang yang meninggalkan dunia. (Anonim) 
saat diriku menatap mu, hatiku terjebak oleh cinta, terpesona hatiku 
menatapmu saat dirimu melihatku hati terasa tenang dan damai, aq ingin 
memelukmu dan mengucapkan selamat hari valentine. (Anonim) 
 
<blockquote>
saat hati terjebak oleh cinta, saat diri ini tidak bisa 
menahan dan terhanyut oleh gertaran cinta betapa indahnya cintamu oooh 
valentine day. (Anonim)</blockquote>
 
cinta adalah makna, makna ada di dalam cinta, makna dan cinta menjadi satu, jadilah valentine day. (Anonim) 
 
<blockquote>
coklat memberikan suasana cinta rasa coklat juga memberi 
kemanisan kepada diri kamu coklat memberikan cinta valentine day. 
(Anonim) 
Ada ombak ada karang, ada gula ada semut, ada hari valentine ada cinta. (Anonim)</blockquote>
Saat kamu meneteskan airmata kamu kehilangan cinta, aq datang dengan membawa cinta dan aq bilang I LOVE YOU. (Anonim) 
 
<blockquote>
Tengoklah niat kita, adakah ketulusan di dalamnya? Jadilah 
mujahid yang sibuk hiasi diri dengan amal dakwah, jadilah pejuang yang 
selalu tegap menuju syahadah. Allahu Akbar!!! (Ina Martatilova)</blockquote>
 
Hendaklah kalian qiyamul lail, karena sesungguhnya ia adalah kebiasaan 
orang-orang shaleh yang hidup sebelum kalian. ia adalah salah satubentuk
 pendekatan diri kepada ALLAH, penghapus kesalahan & pencegah 
terjadinya perbuatan dosa. (Ina Martatilova) 
 
<blockquote>
Milikilah.. Sebuah hati yang tidak pernah membenci Sebuah 
senyuman yang tidak pernah pudar Sebuah senyuman yang tidak akan pernah 
menyakitkan dan Sebuah persahabatan yang tidak akan pernah berakhir. 
(Moi-Moi)</blockquote>
 
Setitik kasih membawa sayang Secubit mesra menumbuhkan cinta Secangkir 
janji membuat percaya Secuil dusta membuat luka Tetapi sekeping ukhuwah 
selamanya bermakna. (Rie2n) 
 
<blockquote>
Jika malam menjelang & langit gelap gulita Nyalakan 
lilin persahabatan kita di hatimu Rasakan kehangatan cahaya-Nya Yang 
menerangi hidup kita Juga kehidupan di sekeliling kita. (Rie2n)</blockquote>
 
Kesejukan hati berawal dari keikhlasan kita terhadap ALLAH, Keikhlasan 
hati adalah tanpa pamrih. Kemurnian jiwa berawal dari kepasrahan diri 
kepada ALLAH, Pasrah karena hanya ALLAH-lah yang menentukan hidup kita. 
(Ina Martatilova) 
 
<blockquote>
Jika kamu bersabar maka takdir ALLAH akan berjalan kepadamu 
sedangkan kamu mendapat pahala. Jika kamu berkeluh kesah maka takdir 
ALLAH akan tetap berjalan kepadamu sedangkan kamu mendapat dosa. (Ina 
Martatilova)</blockquote>
 
Tolong jangan baca SMS ulang tahun ini karena anda telah beresiko mentraktir bakso sebagai ganti biaya SMS ini (Anonim) 
 
<blockquote>
Kok ada bau Pizza dan ayam goreng ya hari ini ? Oh ya aku 
ingat soalnya nanti malam ada traktiran ultah dari yang baca SMS ini 
(Anonim)</blockquote>
 
Meski lewat sms, ucapanku tersampaikan, semoga tidak mengurangi kebahagianmu. Selamat ulang tahun ya teman (Anonim) 
 
<blockquote>
Jalan ini terang...namun sepi, Bunga itu harum...namun layu,
 Bumi ini luas...namun terbatas, tanpa SMS darimu sayang.... (Anonim)</blockquote>
 
Saat malaikat menghampiriku dia bertanya padaku, apa yg kauinginkn hari 
ini? Aku menjawab, tolong jaga orang yg membaca sms ini. karena aku 
SAYANG DIA (Anonim) 
 
<blockquote>
Buat sobat yang mempunyai banyak koleksi atau kumpulan Kata Mutiara SMS Terbaru 2012 kirimkan saja ya kesini ke email [Wahyunorry@gmail.com] atau bisa juga lewat komentar, saya tunggu ya Kata Mutiara SMS Terbaru 2012nya dari sobat.</blockquote>

Kumpulan SMS

SMS Terbaru 2012 Berharap ada di dalam lesung yang ada hanya rumpun jerami, harapan hati ingin berrtemu langsung yang terlayang hanya sms ini… Minal aidin wal faidzin mohon maaf lahir dan bathin. (Anonim) Sebelum ramadhan peri, sebelum idul fitri datang, sebelum jaringan sibuk, sebelum sms pendi…

Baca selengkapnya »

19Jun2012

Lihat Peta Kabupaten Banjarnegara

<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;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEielQ8E-eKJDczbm5cIOmqrdnaA_tSvCTfgTyKBidZ1c9g4H2vPS-S3vjExYx4tiP-ecn6hZfsukmgQ231ZvvkEC8LZRZdTNRos7RF8MmimbaERPcXjYsapuWbuAu1dLMqLV8cwSsI09sLI/s1600/index.jpeg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="183" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEielQ8E-eKJDczbm5cIOmqrdnaA_tSvCTfgTyKBidZ1c9g4H2vPS-S3vjExYx4tiP-ecn6hZfsukmgQ231ZvvkEC8LZRZdTNRos7RF8MmimbaERPcXjYsapuWbuAu1dLMqLV8cwSsI09sLI/s320/index.jpeg" width="320" /></a>Banjarnegara adalah sebuah kabupaten di Propinsi Jawa Tengah, Indonesia. Ibukotanya adalah Banjarnegara.
 Secara astronomi, Kabupaten Banjarnegara terletak di antara 7° 12' - 7°
 31' Lintang Selatan dan 109° 29' - 109° 45'50" Bujur Timur. Luas 
Wilayah Kabupaten Banjarnegara adalah 106.970,997 ha atau 3,10 % dari 
luas seluruh Wilayah Provinsi Jawa Tengah. Kabupaten ini berbatasan dengan Kabupaten Pekalongan dan Kabupaten Batang di Utara, Kabupaten Wonosobo di Timur, Kabupaten Kebumen di Selatan, dan Kabupaten Banyumas dan Kabupaten Purbalingga di Barat.</div>
<iframe frameborder="0" height="350" marginheight="0" marginwidth="0" scrolling="no" src="https://maps.google.com/maps?f=q&source=s_q&hl=id&geocode=+&q=banjarnegara,+indonesia&ie=UTF8&hq=&hnear=Banjarnegara,+Jawa+Tengah,+Indonesia&ll=-7.397097,109.695997&spn=0.040942,0.084543&t=h&z=14&output=embed" width="425"></iframe> 
<a href="https://maps.google.com/maps?f=q&source=embed&hl=id&geocode=+&q=banjarnegara,+indonesia&ie=UTF8&hq=&hnear=Banjarnegara,+Jawa+Tengah,+Indonesia&ll=-7.397097,109.695997&spn=0.040942,0.084543&t=h&z=14" style="color: blue; text-align: left;">Lihat Peta Lebih Besar</a>

Lihat Peta Kabupaten Banjarnegara

Banjarnegara adalah sebuah kabupaten di Propinsi Jawa Tengah, Indonesia. Ibukotanya adalah Banjarnegara. Secara astronomi, Kabupaten Banjarnegara terletak di antara 7° 12' - 7° 31' Lintang Selatan dan 109° 29' - 109° 45'50" Bujur Timur. Luas Wilayah Kabupaten Banjarnegara adalah 106.970,997 ha a…

Baca selengkapnya »

18Jun2012

Cara Membuat Program Data Belanja Melalui TPW .1.5

<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCBqw3rL9XXi5MfOOzWAOZU4eQLlYhnEmjhjj9k_5zMu5RkWK5shZbi7iDuWnqTJPc2B8Cfj_Aj5Jt5OVCj8Gjb-072kSxYgSwe5xcGQMF8s7H7r6spjRawiFRV1jRD9GHZd-DaqlVds6q/s1600/data+belanja.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="281" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCBqw3rL9XXi5MfOOzWAOZU4eQLlYhnEmjhjj9k_5zMu5RkWK5shZbi7iDuWnqTJPc2B8Cfj_Aj5Jt5OVCj8Gjb-072kSxYgSwe5xcGQMF8s7H7r6spjRawiFRV1jRD9GHZd-DaqlVds6q/s1600/data+belanja.jpg" width="400" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">TPW for Windows</td></tr>
</tbody></table>
<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/AVvXsEjw2avyG04a-GKESr-Hpu-CEfG8bFViw1xVVbczxyxRLkd4x47-GlTTUy9VpReaXXS5gtXGFSc_6nkAD7w3OqV4j4cl9pqdp36MifopFYQeEzhxGEjUNiOgyhO4EVJkw2Q5TVX3M1bxoW0S/s1600/program+data+belanja.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"> </a></div>
Sahabat MoveOn dimanapun anda berada, kali ini saya akan share bagaimana cara membuat progam kasir melalui TPW. Ok, langsung saja... 
 
Langkah pertama, buka TPWnya. 
 
Langkah kedua, 
Copas saja source code/ tulisan di bawah ini ke TPWnya 
 
<div style="background-color: white; border: 1px solid rgb(191, 189, 189); height: 500px; overflow: auto; padding: 5px; text-align: justify; width: auto;">
Program Kasir; 
 
 uses wincrt; 
 
 var nama_barang : array[1..20] of string; 
 
 harga : array[1..20] of real; 
 
 banyak : array[1..20] of byte; 
 
 kata,grs :string; 
 
 namakasir : string; 
tanggal :string; 
 
 x,y,i,j :byte; 
 
 Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real; 
 
 begin 
 
 
 
 clrscr; 
 
 grs:='==============================================================='; 
 
 
 kata:='>>>>> TACKAWA STORE <<<<<'; 
 
 x:=round((78-length(kata))/2); 
 
 gotoxy(x,2);writeln(kata); 
 
 x:=round((78-length(grs))/2); 
 
 gotoxy(x,3);write(grs); 
 
 {-----------------------------} 
 
 gotoxy(x,4);write('Data Belanjaan'); 
 
 gotoxy(x,5);write(grs); 
 
 gotoxy(x,6);writeln('| No |   Nama Barang   | Harga Satuan | Banyak | Jumlah Harga |'); 
 
 gotoxy(x,7);write(grs); 
 
 {--------------------------------------------------------------------} 
 
 i:=0; 
 
 Total_Harga:=0; 
 
 repeat 
 
 i:=i+1; 
 
 gotoxy(x,7+i);write('| ',i); 
 
 gotoxy(x+5,7+i);write('|'); 
 
 gotoxy(x+7,7+i);readln(Nama_barang[i]); 
 
 if Nama_Barang[i] <>'' then begin 
 
 gotoxy(x+23,7+i);write('|'); 
 
 gotoxy(x+27,7+i);readln(Harga[i]); 
 
 gotoxy(x+24,7+i);writeln(Harga[i]:10:2); 
 
 gotoxy(x+38,7+i);write('|'); 
 
 gotoxy(x+42,7+i);readln(Banyak[i]); 
 
 gotoxy(x+47,7+i);write('|'); 
 
 Jum_Harga:=Harga[i]*Banyak[i]; 
 
 gotoxy(x+48,7+i);writeln(Jum_Harga:10:2); 
 
 gotoxy(x+62,7+i);writeln('|'); 
 
 Total_Harga:=Total_Harga+Jum_Harga ; end; 
 
 until nama_barang[i]=''; 
 
 {--------------------------------------------------------------------} 
 
 disc:=0; 
 
 if (Total_Harga > 10000) and (Total_Harga <100000) then 
 
 disc:=0.05 * Total_Harga 
 
 else 
 
 if (Total_Harga >= 100000 ) then 
 
 disc:=0.1 *Total_Harga; 
 
 {--------------------------------------------------------------------} 
 
 kata:='TACKAWA STORE'; 
 
 y:=round((78-length(kata))/2); 
 
 gotoxy(y,2);writeln(kata); 
 
 j:=i-1; 
 
 gotoxy(x,8+j);write(grs); 
 
 gotoxy(x,8+j+1);write('Total Belanja :'); 
 
 gotoxy(x+48,8+j+1);write(Total_Harga:10:2); 
 
 gotoxy(x,8+j+2);write('Discount :'); 
 
 gotoxy(x+48,8+j+2);write(disc:10:2); 
 
 gotoxy(x,8+j+3);write(grs); 
 
 gotoxy(x,8+j+4);write('Total Bayar setelah discount :'); 
 
 Total_Bayar:=Total_Harga-disc; 
 
 gotoxy(x+48,8+j+4);write(Total_Bayar:10:2); 
 
 gotoxy(x,8+j+5);write('Uang Pembayaran :'); 
 
 gotoxy(x+48,8+j+5);readln(Uang); 
 
 gotoxy(x+48,8+j+5);writeln(Uang:10:2); 
 
 gotoxy(x,8+j+6);Write(grs); 
 
 gotoxy(x,8+j+7);write('Uang Kembali'); 
 
 gotoxy(x+48,8+j+7);write(Uang-Total_Bayar:10:2); 
 
 gotoxy(x,10+j+6);Write(grs); 
writeln; 
writeln('       Tackawa Store'); 
writeln('       Jl. Raya Mantrianom 75 Bawang - Banjarnegara'); 
write('       Tanggal : ');readln(tanggal); 
write('       Kasir : '); read(namakasir); 
writeln('       ---------------------------------------------------------------'); 
writeln('                    "Terimakasih atas kunjungan anda :)"'); 
 
 end.</div>
 
Langkah terakhir, simpan kode tersebut dan jalankan. 
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjw2avyG04a-GKESr-Hpu-CEfG8bFViw1xVVbczxyxRLkd4x47-GlTTUy9VpReaXXS5gtXGFSc_6nkAD7w3OqV4j4cl9pqdp36MifopFYQeEzhxGEjUNiOgyhO4EVJkw2Q5TVX3M1bxoW0S/s1600/program+data+belanja.jpg"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjw2avyG04a-GKESr-Hpu-CEfG8bFViw1xVVbczxyxRLkd4x47-GlTTUy9VpReaXXS5gtXGFSc_6nkAD7w3OqV4j4cl9pqdp36MifopFYQeEzhxGEjUNiOgyhO4EVJkw2Q5TVX3M1bxoW0S/s1600/program+data+belanja.jpg" width="400" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Gambar hasil jadinya setelah di run</td></tr>
</tbody></table>
  
Sekian Tutorial Bagaimana cara membuat program kasir melalui TPW. 
Terimakasih sudah mengunjungi <a href="http://comeon-moveon.blogspot.com/" target="_blank">Comeon-Moveon</a>, Semoga Bermanfaat!

Cara Membuat Program Data Belanja Melalui TPW .1.5

TPW for Windows Sahabat MoveOn dimanapun anda berada, kali ini saya akan share bagaimana cara membuat progam kasir melalui TPW. Ok, langsung saja... Langkah pertama, buka TPWnya. Langkah kedua, Copas saja source code/ tulisan di bawah ini ke TPWnya Program Kasir; uses wincrt; var nama_barang : a…

Baca selengkapnya »

16Jun2012

Free Download Simulator Pesawat Terbang

FlightGear 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiYr_rJ4qs0JyrHiwE3Tlr07Rt8bXwy7imfB8TAs2kS7-AfxQRJ8XajQL5xGda9de8w1RenucpRayCI-AqmbOfVsvF3UEXdE2l3ZdJjLJ9hJTFTJgwR5gSI9TGLQg0K7VxLZLr5GR_98uQe/s1600/images.jpeg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiYr_rJ4qs0JyrHiwE3Tlr07Rt8bXwy7imfB8TAs2kS7-AfxQRJ8XajQL5xGda9de8w1RenucpRayCI-AqmbOfVsvF3UEXdE2l3ZdJjLJ9hJTFTJgwR5gSI9TGLQg0K7VxLZLr5GR_98uQe/s1600/images.jpeg" /></a></div>
<a href="http://comeon-moveon.blogspot.com/" rel="nofollow" target="_blank">Comeon-Moveon</a> | 
<table class="detailsTable" style="background-color: white; border-collapse: collapse; color: #555555; font-family: Arial, sans-serif; margin: 0px 4px 0px 0px; padding: 0px; text-align: left; width: 360px;"><tbody>
<tr><th style="padding: 0px 0px 0.25em; text-align: left; vertical-align: top; white-space: nowrap; width: 135px;">License:</th><td style="padding: 0px 0px 0.25em; vertical-align: top; width: 225px;">Open Source</td></tr>
<tr><th style="padding: 0px 0px 0.25em; text-align: left; vertical-align: top; white-space: nowrap; width: 135px;">Operating Systems:</th><td style="padding: 0px 0px 0.25em; vertical-align: top; width: 225px;">Mac OS X, Windows 2000, Windows 7 (32 bit), Windows 7 (64 bit), Windows Vista (32 bit), Windows Vista (64 bit), Windows XP</td></tr>
</tbody></table>
<table class="detailsTable" style="background-color: white; border-collapse: collapse; color: #555555; font-family: Arial, sans-serif; margin: 0px 4px 0px 0px; padding: 0px; text-align: left; width: 360px;"><tbody>
<tr><th style="padding: 0px 0px 0.25em; text-align: left; vertical-align: top; white-space: nowrap; width: 135px;">Languages:</th><td style="padding: 0px 0px 0.25em; vertical-align: top; width: 225px;">English</td></tr>
<tr><th style="padding: 0px 0px 0.25em; text-align: left; vertical-align: top; white-space: nowrap; width: 135px;">Software Cost:</th><td style="padding: 0px 0px 0.25em; vertical-align: top; width: 225px;">Free</td></tr>
</tbody></table>
 
<div style="text-align: left;">
FlightGear adalah simulator penerbangan open source, mendukung berbagai platform populer (Windows, Mac, Linux, dll) dan dikembangkan oleh para relawan terampil dari seluruh dunia. Source code untuk keseluruhan proyek tersedia dan berlisensi di bawah Lisensi Publik Umum GNU. 
<div style="background-color: white; font-family: Arial, Tahoma;">
Tujuan dari proyek FlightGear adalah untuk menciptakan kerangka penerbangan simulator canggih dan terbuka untuk digunakan dalam lingkungan penelitian atau akademik, pelatihan pilot, sebagai alat rekayasa industri, untuk DIY-ers proyek ini bisa untuk mengejar ide simulasi penerbangan favorit mereka yang menarik, dan terakhir tapi jelas tidak sedikit sebagai sesuatu yang menyenangkan, realistis, dan simulator penerbangan desktop yang menantang. Kami sedang mengembangkan sebuah kerangka, simulasi canggih terbuka yang dapat diperluas dan diperbaiki oleh siapa saja yang tertarik dalam memberikan kontribusi.</div>
<div style="background-color: white; font-family: Arial, Tahoma;">
Ada banyak kemungkinan menarik untuk simulasi, penerbangan terbuka gratis. Kami berharap bahwa proyek ini akan menarik dan berguna untuk banyak orang di banyak daerah.</div>
 
Sebuah simulator 
menarik dengan kualitas grafis, pemandangan realistis dan dinamika terbang 
akurat. <a href="http://comeon-moveon.blogspot.com/2012/06/free-download-emulator-pesawat-terbang.html" target="_blank">FlightGear</a> Ini bukan permainan arcade biasa, meskipun anda harus meluangkan waktu untuk belajar dasar-dasar bermain game ini untuk mendapatkan hasil terbang yang maksimal dari <a href="http://comeon-moveon.blogspot.com/2012/06/free-download-emulator-pesawat-terbang.html" target="_blank">FlightGear 2.0</a>.</div>
<div style="text-align: left;">
Apabila anda baru mencoba game ini, memang anda akan kesulitan untuk menerbangkan setiap pesawatnya, karena game Simulator Pesawat Terbang <a href="http://comeon-moveon.blogspot.com/2012/06/free-download-emulator-pesawat-terbang.html" target="_blank">FlightGear</a> Sudah dirancang sedemikian rupa sehingga menyerupai pesawat terbang yang benar-benar nyata. 
tertarik untuk mencoba?</div>
<div style="text-align: left;">
silahkan belajar menjadi pilot handal melalui game <a href="http://comeon-moveon.blogspot.com/2012/06/free-download-emulator-pesawat-terbang.html" target="_blank">FlightGear</a>. 
 </div>
<div style="text-align: left;">
 </div>
<div style="text-align: left;">
<div style="text-align: center;">
<ul style="background-color: white; border: 0px; color: #444444; font-family: 'Open Sans', Helvetica, Arial, sans-serif; line-height: 24px; list-style-image: initial; list-style-position: outside; margin: 0px 0px 1.714285714rem; padding: 0px; text-align: start; vertical-align: baseline;">
<li style="border: 0px; margin: 0px 0px 0px 2.571428571rem; padding: 0px; text-align: center; vertical-align: baseline;"><a href="http://adf.ly/RgOOP" style="border: 0px; color: #21759b; margin: 0px; outline: none; padding: 0px; vertical-align: baseline;" target="_blank">Download v2.10 Aircraft</a></li>
</ul>
Updated Juli 2013</div>
<div style="text-align: center;">
versi terbaru</div>
</div>

Free Download Simulator Pesawat Terbang

FlightGear Comeon-Moveon | License:Open Source Operating Systems:Mac OS X, Windows 2000, Windows 7 (32 bit), Windows 7 (64 bit), Windows Vista (32 bit), Windows Vista (64 bit), Windows XP Languages:English Software Cost:Free FlightGear adalah simulator penerbangan open source, mendukung berbagai pl…

Baca selengkapnya »

15Jun2012

Comeon-Moveon

PASANG IKLAN di COMEON-MOVEON.COM

KLIK DISINI! Ukuran bisa menyesuaikan, biaya terjangkau.

10 Cerita Ngeres Yang Kocak

tahukah kamu? Kubah Pelindung dari Kiamat di Kutub Utara

Kumpulan Java Games Untuk Handphone

Kumpulan SMS

Lihat Peta Kabupaten Banjarnegara

Cara Membuat Program Data Belanja Melalui TPW .1.5

Free Download Simulator Pesawat Terbang

Terpopuler 7 Hari Terakhir

Komentar Terbaru

Arsip Blog

PASANG IKLAN DI
COMEON-MOVEON

Klik Disini!
Ukuran bisa menyesuaikan,
biaya terjangkau.

PASANG IKLAN DI COMEON-MOVEON

Klik Disini! Ukuran bisa menyesuaikan, biaya terjangkau.

PASANG IKLAN DI
COMEON-MOVEON

Klik Disini!
Ukuran bisa menyesuaikan,
biaya terjangkau.