Comeon-Moveon: Source Code

Salam jumpa sobat MoveOn, pada kesempatan yang baik ini Comeon-Moveon akan mengajarkan bagaimana caranya membuat virus dengan script khusus melalui notepad dengan mudah. virus ini tidak berbahaya dan hanya di buka di system operasi windows. 
<div class="separator" style="clear: both; text-align: center;">
<img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwjY_jASt1Wkp18b5pJ4fF7TzbQVS_hiwXuSub1IVNPbG2qxNkcfB82CY_T79m_7LrhFH7CiGZSv3Rz-mxE4kPVEfx4sP_PauoNd1IKqsRSwrvcBSK57sWYREHGPvxUPk52U6nyZorgndN/s271/Apa+kabar.png" /></div>
 
ikuti langkah-langkah berikut ini : 
 
1. buka Notepadnya 
2. masukan kode/script berikut : 
 
<div style="background-color: white; border: 1px solid rgb(191, 189, 189); height: auto; overflow: auto; padding: 5px; text-align: justify; width: auto;">
@ECHO off 
 
:Begin 
 
msg * Hai...:) 
 
msg * apa kabar...? 
 
msg * aku ingin mengungkapkan sesuatu sama kamu nih! 
 
msg * tapi aku malu...... 
 
msg * sebenernya aku udah ingin mengungkapkan ini dari dulu.... 
 
msg * perasaan ini muncul ketika aku meminjam komputermu.... 
 
msg * perasaan bahwa sebenernya aku.... 
 
msg * bahwa sebenernya aku..... 
 
msg * bahwa aku.... 
 
msg * akulah yang sudah ngejahilin komputermu.....muuuaccch.... 
 
GOTO BEGIN</div>
 
perhatian : "kalau copas kode ini dari comeon-moveon jangan lupa untuk hapus sourcenya, biar scriptnya berhasil!" 
 
3. Simpan kode/script tersebut dengan ekstensi .bat 
    contohnya : PESAN.bat 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWEQ1tO1x6EH-iBzilpSQFpI66MaTXYvDDLwWHurTshgNSR_n8tk0OcSkB-aR3ovtbzFdHl-Ki_2KegWFf5KGJiX_GsDf-DD9VsxI6T841MTQIeqOahDE0MXhnYaQTo7YIWs21xGAlv9iS/s663/pesan.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="63" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWEQ1tO1x6EH-iBzilpSQFpI66MaTXYvDDLwWHurTshgNSR_n8tk0OcSkB-aR3ovtbzFdHl-Ki_2KegWFf5KGJiX_GsDf-DD9VsxI6T841MTQIeqOahDE0MXhnYaQTo7YIWs21xGAlv9iS/s400/pesan.png" width="400" /></a></div>
 
Kemudian untuk melihat hasilnya coba buka filenya, perlu di tegaskan kembali bahwa virus ini tidak berbahaya... 
 
Buat yang mau hasil jadinya bisa di download disini : 
<div class="separator" style="clear: both; text-align: center;">
<a href="http://www.4shared.com/file/PqDJVF_e/pesan__by_Comeon-Moveonblogspo.html" target="_blank"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNj4E8bYgJ__ZiydFFUSehv9f08d36dB4gBWpctFwFoVkW04myoAgUAgIQeLFrWD0Yb7pMngcrGJUWMW_g62nt6wqDJJ3Ydxr8KT94sae7kqK67ZTVtA77U1LC38e-AxH0_Pb5R-Jbznry/s149/download.jpg" /></a></div>
Sekian Posting Comeon-Moveon Mengenai cara membuat virus dengan mudah melalui notepad, semoga bermanfaat!

Cara Membuat Virus Melalui Notepad

Salam jumpa sobat MoveOn, pada kesempatan yang baik ini Comeon-Moveon akan mengajarkan bagaimana caranya membuat virus dengan script khusus ...

Baca selengkapnya »

<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, ...

Baca selengkapnya »

Comeon-Moveon

PASANG IKLAN di COMEON-MOVEON.COM

KLIK DISINI! Ukuran bisa menyesuaikan, biaya terjangkau.

Cara Membuat Virus Melalui Notepad

Cara Membuat Program Data Belanja Melalui TPW .1.5

Terpopuler 7 Hari Terakhir

Komentar Terbaru

Arsip Blog

PASANG IKLAN DI
COMEON-MOVEON

Klik Disini!
Ukuran bisa menyesuaikan,
biaya terjangkau.

Cara Membuat Virus Melalui Notepad

Cara Membuat Program Data Belanja Melalui TPW .1.5

PASANG IKLAN DI COMEON-MOVEON

Klik Disini! Ukuran bisa menyesuaikan, biaya terjangkau.

PASANG IKLAN DI
COMEON-MOVEON

Klik Disini!
Ukuran bisa menyesuaikan,
biaya terjangkau.