PROGRAM PENJUALAN;
USES CRT;
TYPE JUAL = RECORD
NOMOR : WORD;
NAMA : STRING;
BARANG : STRING;
MEMBER : CHAR;
JUMLAH : INTEGER;
HARGA : REAL;
DISKON : REAL;
TOTAL : REAL;
BAYAR : REAL;
END;
VAR
PILIHAN : CHAR;
NAMAFILE : FILE OF JUAL;
DATA : JUAL;
PROCEDURE BACA;
BEGIN
ASSIGN(NAMAFILE,'DATAJUAL.TXT');{$I-}
RESET(NAMAFILE);{$I+}
END;
PROCEDURE TAMBAH;
VAR
ADA : BOOLEAN;
SELESAI : CHAR;
NOCR : WORD;
X : INTEGER;
BEGIN
CLRSCR;
BACA;
IF IORESULT <> 0 THEN REWRITE (NAMAFILE);
REPEAT
CLRSCR;
ADA:=FALSE;
X:=0;
GOTOXY(19,12);WRITELN('===========================');
GOTOXY(19,13);WRITELN(' FORM INPUT DATA');
GOTOXY(19,14);WRITELN('---------------------------');
GOTOXY(19,26);WRITELN('===========================');
GOTOXY(19,27);WRITELN(' BY. AGUSTONO');
GOTOXY(19,28);WRITELN('===========================');
GOTOXY(20,15);WRITE('NOMOR : ');READLN(NOCR);
WHILE (ADA=FALSE) AND (X<>FILESIZE(NAMAFILE)) DO
BEGIN
SEEK(NAMAFILE,X);
READ(NAMAFILE,DATA);
IF DATA.NOMOR=NOCR THEN
ADA:=TRUE
ELSE
INC(X);
END;
IF (ADA=TRUE) THEN
BEGIN
GOTOXY(19,29);WRITE('NO. TRANSAKSI INI SUDAH ADA');READLN;
END
ELSE
BEGIN
SEEK(NAMAFILE,FILESIZE(NAMAFILE));
DATA.NOMOR:=NOCR;
GOTOXY(20,16);WRITE('NAMA : ');READLN(DATA.NAMA);
GOTOXY(20,17);WRITE('MEMBER (Y/N) : ');READLN(DATA.MEMBER);
GOTOXY(20,18);WRITE('NAMA BARANG : ');READLN(DATA.BARANG);
GOTOXY(20,19);WRITE('JUMLAH : ');READLN(DATA.JUMLAH);
GOTOXY(20,20);WRITE('HARGA : ');READLN(DATA.HARGA);
DATA.TOTAL:=DATA.JUMLAH*DATA.HARGA;
GOTOXY(20,21);WRITELN('TOTAL : ',DATA.TOTAL:2:0);
IF (DATA.MEMBER='Y') OR (DATA.MEMBER='y') THEN
DATA.DISKON:=(5/100)*DATA.HARGA ELSE DATA.DISKON:=0;
GOTOXY(20,22);WRITELN('DISKON : ',DATA.DISKON:2:0);
DATA.BAYAR:=DATA.TOTAL-DATA.DISKON;
GOTOXY(20,23);WRITELN('TOTAL BAYAR : ',DATA.BAYAR:2:0);
GOTOXY(20,25);WRITE('SUDAH SELESAI : ');READLN(SELESAI);
WRITE(NAMAFILE,DATA);
END;
UNTIL (SELESAI='Y') OR (SELESAI='y');
CLOSE(NAMAFILE);
END;
PROCEDURE TAMPIL;
VAR
X : INTEGER;
I : REAL;
BEGIN
I:=0;
BACA;
IF IORESULT <> 0 THEN
WRITE('MAAF BELUM ADA DATA')
ELSE
BEGIN
CLRSCR;
WRITELN('===========================================================================');
WRITELN(' LAPORAN DAFTAR PENJUALAN');
WRITELN(' TOKO GUSTON JAYA');
WRITELN(' JL. AHMAD YANI NO. 30 SURAKARTA');
WRITELN('===========================================================================');
WRITELN('|| NO | NAMA | BARANG | JML | HARGA | TOTAL | DISKON | BAYAR ||');
WRITELN('---------------------------------------------------------------------------');
X:=0;
WHILE NOT EOF (NAMAFILE) DO
BEGIN
INC(X);
READ(NAMAFILE,DATA);
WRITELN('|| ',X:2,' | ',DATA.NAMA:8,' | ',DATA.BARANG:7,' | ',
DATA.JUMLAH:3,' | ',DATA.HARGA:7:0,' | ',DATA.TOTAL:7:0,' | ',
DATA.DISKON:7:0,' | ',DATA.BAYAR:7:0,' ||');
END;
CLOSE(NAMAFILE);
END;
WRITELN('===========================================================================');
WRITELN;
WRITELN(' YANG MEMBUAT');
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN(' ( )');
READLN;
END;
BEGIN
CLRSCR;
REPEAT
CLRSCR;
GOTOXY(19,12);WRITELN('=================================');
GOTOXY(19,13);WRITELN(' PROGRAM PENJUALAN');
GOTOXY(19,14);WRITELN(' OLEH AGUSTONO');
GOTOXY(19,15);WRITELN(' STMIK DUTA BANGSA');
GOTOXY(19,16);WRITELN('---------------------------------');
GOTOXY(19,17);WRITELN('1. MENAMBAH DATA PENJUALAN');
GOTOXY(19,18);WRITELN('2. MELIHAT DATA PENJUALAN');
GOTOXY(19,19);WRITELN('3. KELUAR PROGRAM');
GOTOXY(19,20);WRITELN('---------------------------------');
GOTOXY(19,22);WRITELN('=================================');
GOTOXY(19,21);WRITE('PILIHAN ANDA : ');READLN(PILIHAN);
IF PILIHAN='1' THEN TAMBAH ELSE
IF PILIHAN='2' THEN TAMPIL;
UNTIL PILIHAN='3';
END.
About Me
Popular Posts
-
Anda mungkin sedang mendesign rumah sendiri. Karena harus menyesuaikan dengan dana, Anda memilih rumah ukuran sedang antara 100 s.d. 150 ...
-
PROGRAM PENJUALAN; USES CRT; TYPE JUAL = RECORD NOMOR : WORD; NAMA : STRING; BARANG : STRING; MEMBER : CHAR; ...
-
Semoga bermanfaat. <?php //konstanta define ("phi",3.14); echo "Test Konstanta"; $r=10; echo "<br>...
-
Menyediakan banyak source code Pemrograman, PHP, Visual Basic, Delphi, Java, dsb. Baru mulai sih, tapi pasti akan selalu berkembang. Pengen...
-
Camcorder Saku Samsung HMX-E10 Video Full HD . Samsung meluncurkan HD camcorder saku Samsung HMX-E10 . Kamera video Full HD yang dil...
-
Advanced Host Monitor melakukan memonitor ketersediaan dan kecepatan server . Dalam hal kesalahan dan kegagalan dalam...
-
MATLAB sangat handal untuk komputasi yang terkait dengan array atau matriks. Kehandalan ini bisa terlihat mulai dari proses assignment var...
-
kita akan mencoba membobol sebuah website shop dengan admin panel . biasanya disana ada beberapa data costumer seperti: -CC number -Dll ...
-
1. Buat file dengan nama form.php <html> <head> <title>Contoh Form</title> </head> <body> <form ac...
ADs
Labels Cloud
- 3Kingdom (2)
- Accesoris (2)
- Akuntansi (6)
- alat pacu (1)
- berantakan (1)
- Blackberry (1)
- Bluescreen (1)
- candi (2)
- catatan (1)
- cetho (1)
- curhat (1)
- Darah (1)
- Desain (3)
- Dosen (1)
- Download (2)
- DPR (1)
- Function (1)
- Games (2)
- Global Warming (1)
- gunung (1)
- hak (1)
- Hati-hati (1)
- Helm (1)
- IOS (1)
- IP (2)
- Jadwal (1)
- jaim (1)
- Jalan raya (1)
- Jam kosong (1)
- jantung (1)
- Kamera (1)
- kentang (1)
- kepercayaan (1)
- keripik (1)
- Kerja sambil kuliah (1)
- kertas (1)
- korupsi (1)
- KPK (1)
- KSI (1)
- KULIAH (19)
- Lalu lintas (1)
- Laptop (2)
- lawu (1)
- lem (1)
- Lowongan (1)
- Luas (1)
- Mahasiswa (1)
- majapahit (1)
- masyarakat (1)
- Matlab (3)
- Matrix (1)
- Mikrotik (1)
- MINE (2)
- MISTERI (3)
- Monitor (1)
- Motor (1)
- MPR (1)
- negara (1)
- Ngebut (1)
- Ngupil (1)
- orde baru (1)
- Pascal (5)
- PC (4)
- pejabat (1)
- Pekerjaan (1)
- pendapat (1)
- penemuan (1)
- Pengangguran (1)
- penisilin (1)
- percaya (1)
- perjuangan (1)
- php (2)
- Polisi (2)
- Ponsel (3)
- Presiden (1)
- Projector (1)
- rakyat (1)
- Rambu-rambu (1)
- Rancangan (3)
- reformasi (1)
- Rem (1)
- Rumah (3)
- saingan (1)
- sampanye (1)
- Sepeda motor (1)
- SIM (1)
- slinky (1)
- SNI (1)
- Software (2)
- SOSIAL (5)
- SPL (1)
- SQL (1)
- STNK (1)
- sukuh (1)
- T36 (1)
- T45 (1)
- T46 (1)
- tak disengaja (1)
- TEKNOLOGI (19)
- Tidur (1)
- Tilang (1)
- TIPS (4)
- Tugas (6)
- VGA (1)
- viagra (1)
- vulkanisir (1)
- Webhosting (1)
Labels List Numbered
- 3Kingdom (2)
- Accesoris (2)
- Akuntansi (6)
- alat pacu (1)
- berantakan (1)
- Blackberry (1)
- Bluescreen (1)
- candi (2)
- catatan (1)
- cetho (1)
- curhat (1)
- Darah (1)
- Desain (3)
- Dosen (1)
- Download (2)
- DPR (1)
- Function (1)
- Games (2)
- Global Warming (1)
- gunung (1)
- hak (1)
- Hati-hati (1)
- Helm (1)
- IOS (1)
- IP (2)
- Jadwal (1)
- jaim (1)
- Jalan raya (1)
- Jam kosong (1)
- jantung (1)
- Kamera (1)
- kentang (1)
- kepercayaan (1)
- keripik (1)
- Kerja sambil kuliah (1)
- kertas (1)
- korupsi (1)
- KPK (1)
- KSI (1)
- KULIAH (19)
- Lalu lintas (1)
- Laptop (2)
- lawu (1)
- lem (1)
- Lowongan (1)
- Luas (1)
- Mahasiswa (1)
- majapahit (1)
- masyarakat (1)
- Matlab (3)
- Matrix (1)
- Mikrotik (1)
- MINE (2)
- MISTERI (3)
- Monitor (1)
- Motor (1)
- MPR (1)
- negara (1)
- Ngebut (1)
- Ngupil (1)
- orde baru (1)
- Pascal (5)
- PC (4)
- pejabat (1)
- Pekerjaan (1)
- pendapat (1)
- penemuan (1)
- Pengangguran (1)
- penisilin (1)
- percaya (1)
- perjuangan (1)
- php (2)
- Polisi (2)
- Ponsel (3)
- Presiden (1)
- Projector (1)
- rakyat (1)
- Rambu-rambu (1)
- Rancangan (3)
- reformasi (1)
- Rem (1)
- Rumah (3)
- saingan (1)
- sampanye (1)
- Sepeda motor (1)
- SIM (1)
- slinky (1)
- SNI (1)
- Software (2)
- SOSIAL (5)
- SPL (1)
- SQL (1)
- STNK (1)
- sukuh (1)
- T36 (1)
- T45 (1)
- T46 (1)
- tak disengaja (1)
- TEKNOLOGI (19)
- Tidur (1)
- Tilang (1)
- TIPS (4)
- Tugas (6)
- VGA (1)
- viagra (1)
- vulkanisir (1)
- Webhosting (1)
Mantap Bro... Makasih....!
BalasHapus