Header

tugas 2


very,,,,,,very,,,,,,very,,,,,,dragon   isles, angry   text,  Image Hosting

Turbo Basic
++++++listing coding++++++

LOCATE 11,20 : INPUT "BERAPA DATA YANG DIINGINKAN : ",JUMLAH
CLS
FOR a = 1 TO JUMLAH
LOCATE 11,20 : INPUT "MASUKKAN KODE PRODUKSI : ",KODE$(a)
IF KODE$(a) = "A" THEN
HARGA(a) = 15000
ELSEIF KODE$(a) = "A" THEN
HARGA(a) = 10000
ELSEIF KODE$(a) = "B" THEN
HARGA(a) = 40000
ELSEIF KODE$(a) = "C" THEN
HARGA(a) = 5000
ELSE
END IF
LOCATE 12,20 : INPUT "MASUKKAN JUMLAH PRODUKSI : ",JUMLAH(a)

TOTALHARGA(a) = JUMLAH(a) * HARGA(a)
IF TOTALHARGA(a) > 10000 THEN
PAJAK(a) = TOTALHARGA(a) * 0.1
END IF
TOTALTERIMA(a) = TOTALHARGA(a) + PAJAK(a)
JLH1 = JLH1 + TOTALHARGA(a)
JLH2 = JLH2 + PAJAK(a)
JLH3 = JLH3 + TOTALTERIMA(a)
NEXT a

CLS
BRS = 10
LOCATE 04,15 : PRINT " LAPORAN BULAN OKTOBER 2008"
LOCATE 05,15 : PRINT STRING$(61,"-")
LOCATE 06,15 : PRINT "NO KODE JUMLAH HARGA TOTAL PAJAK TO
LOCATE 07,15 : PRINT "URUT PRODUKSI PRODUKSI SATUAAN HARGA TE
LOCATE 08,15 : PRINT STRING$(61,"-")
FOR b = 1 TO JUMLAH
LOCATE BRS,15 : PRINT (b)
LOCATE BRS,22 : PRINT KODE$(b)
LOCATE BRS,32 : PRINT JUMLAH(b)
LOCATE BRS,43 : PRINT HARGA(b)
LOCATE BRS,53 : PRINT TOTALHARGA(b)
LOCATE BRS,61 : PRINT PAJAK(b)
LOCATE BRS,69 : PRINT TOTALTERIMA(b)
BRS = BRS +1
NEXT b
LOCATE BRS+1,15 : PRINT STRING$(61,"-")
LOCATE BRS+2,15 : PRINT "JUMLAH"
LOCATE BRS+2,53 : PRINT JLH1
E:MSADIL~1.BAS Line 53 Col 52 Insert Indent Tab
LOCATE 05,15 : PRINT STRING$(61,"-")
LOCATE 06,15 : PRINT "NO KODE JUMLAH HARGA TOTAL PAJAK TO
LOCATE 07,15 : PRINT "URUT PRODUKSI PRODUKSI SATUAAN HARGA TE
LOCATE 08,15 : PRINT STRING$(61,"-")
FOR b = 1 TO JUMLAH
LOCATE BRS,15 : PRINT (b)
LOCATE BRS,22 : PRINT KODE$(b)
LOCATE BRS,32 : PRINT JUMLAH(b)
LOCATE BRS,43 : PRINT HARGA(b)
LOCATE BRS,53 : PRINT TOTALHARGA(b)
LOCATE BRS,61 : PRINT PAJAK(b)
LOCATE BRS,69 : PRINT TOTALTERIMA(b)
BRS = BRS +1
NEXT b
LOCATE BRS+1,15 : PRINT STRING$(61,"-")
LOCATE BRS+2,15 : PRINT "JUMLAH"
LOCATE BRS+2,53 : PRINT JLH1
LOCATE BRS+2,61 : PRINT JLH2
LOCATE BRS+2,69 : PRINT JLH3
LOCATE BRS+3,15 : PRINT STRING$(61,"-")
LOCATE BRS+5,15 : PRINT "Banjarbaru, Oktober 2008"
LOCATE BRS+6,15 : PRINT "Bagian Produksi,"
END

0 pesan anda:

Post a Comment

Salam sahabat BLOGGER

tanks atas komentarnya semoga bermanfaat...

Related Post