0 (Turbo Basic) Tugas 3 Input Dan Tampilkan Data

Do you want to share?

Do you like this story?

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

>
>>>>EBOOK Dibawah Ini Penting Untuk Anda: <<<

1. Langkah Demi Langkah Diagnosa Dan Memperbaiki Kerusakan PC Desktop
2. Langkah Demi Langkah Diagnosa Dan Memperbaiki Kerusakan Komponen Motherboard
3. Langkah Demi Langkah Diagnosa Dan Memperbaiki Laptop
4. Ebook Cara Memperbaiki Laptop
5. Ebook Cara Membangun Jaringan Komputer/Warnet/a>
<

Dengan memasukan alamat email dibawah ini, berarti anda akan dapat kiriman artikel terbaru dari STMIK Banjarbaru Teknik Informatika Angkatan 2011 di inbox anda: