Home / Tugas Kuliah / (Turbo Basic) Tugas 3 Input Dan Tampilkan Data

(Turbo Basic) Tugas 3 Input Dan Tampilkan Data

rem input dan tampilkan data TABEL
rem date write : 28 Sept 2011 by Aini Sastra
cls
input “Masukkan Kode Barang :”,kd$
input “Masukkan Nama Barang :”,Nmbr$
input “Masukkan Jenis Barang[PADAT/CAIR/GAS] :”,jen$
input “Masukkan Harga Barang :”,hrg
input “Masukkan Jumlah Barang :”,jum
pot=(5/100)
TOTAL1=(hrg*jum)
TOTAL2=TOTAL1-(TOTAL1*POT)

cls
locate 2,25:print “Data Penjualan Barang”
locate 4,4:print “———————————————————————“
locate 5,4:Print “Kode Brg Nama Brg Jenis Jumlah harga Pot Total”
locate 6,4:Print “=====================================================================”
locate 8,4:Print “=====================================================================”
locate 7,4:?kd$
locate 7,15:?Nmbr$
locate 7,30:?jen$
locate 7,37:?jum
locate 7,45:?using “Rp###,###”;hrg
locate 7,55:?using “##.##”;pot
locate 7,64:?using “Rp###,###”;total2
locate 25,30:? “Created By Aini Sastra”

Pesan Dari Penulis Listing
Usahakan nama Variabel BErbeda sama yang diatas..
Misalkan:
Kd dijadikan kdbrg Dan Lain- Lain

About Admin