Comeon-Moveon: Programming

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