BASIC

Ada beberapa contoh untuk para temen-temen yang belom bisa basic...
disini ada beberapa contoh basic..

cls
print
print
color 13
print " TOKO SUDI MAJU"
print " Silahkan Input"
print
color 11
input " Nama Pembeli : ",Pembeli$

print " Tekan 1 untuk Langganan,"
input " Tekan 2 untuk Bukan : ",Angka
if Angka=1 then Status$="Langganan"
if Angka=2 then Status$="Bukan"
color 13
print " Kode Barang [A/B/C]"
color 11
input " A=Kemeja, B=Celana, C=Topi : ",Kode$


input " Jumlah Pembelian Barang : ",Jumlah

if Kode$="A" then
Namabrg$="Kemeja"
Harga=50000
elseif Kode$="B" then
Namabrg$="Celana"
Harga=80000
elseif Kode$="C" then
Namabrg$="Topi"
Harga=15000
end if

Bayar=Jumlah*Harga

if Angka=1 then Duit=Bayar*10/100 else Duit=Bayar*1
Total=Bayar-Duit

cls
color 14
locate 02,30 : print "Toko Sudi Maju"
locate 03,25 : print "Jl. A. Yani Km.30 Banjarbaru"

color 10
locate 05,02 : print "Nama"
locate 06,02 : print "Pembeli"
locate 08,02 : print "";Pembeli$
color 10
locate 05,11 : print "Status"
locate 06,11 : print "Pembeli"
locate 08,11 : print "";Status$
color 10
locate 05,20 : print "Kode"
locate 06,20 : print "Barang"
locate 08,22 : print "";Kode$
color 10
locate 05,28 : print "Nama"
locate 06,28 : print "Barang"
locate 08,28 : print "";Namabrg$
color 10
locate 05,36 : print "Harga"
locate 06,36 : print "Barang"
locate 08,36 : print "";Harga
color 10
locate 05,44 : print "Jumlah"
locate 06,44 : print "Beli"
locate 08,44 : print "";Jumlah
color 10
locate 05,53 : print "Jumlah"
locate 06,53 : print "Bayar"
locate 08,53 : print "";Bayar
color 10
locate 05,62 : print "Diskon"
locate 06,62 : print ""
locate 08,62 : print "";Duit
color 10
locate 05,71 : print "Total"
locate 06,71 : print "Bayar"
locate 08,71 : print "";Total

locate 04,01 : print "----------------------------------------------------------------------------"
locate 07,01 : print "----------------------------------------------------------------------------"
end


hasil akhir

TOKO SUDI MAJU

Silahkan Input

----------------------------------------------------------------------------
NAMA STATUS KODE NAMA HARGA JUMLAH JUMLAH DISKON TOTAL
PEMBELI PEMBELI BARANG BARANG BARANG BELI BAYAR BAYAR
----------------------------------------------------------------------------

download file mediafire...