Langsung ke konten utama

Program Kasir Warteg Sederhana (QBasic Programming)

Assalamu'alaikum..
disini saya ingin berbagi kodingan aplikasi warteg sederhana dengan menggunakan bahasa pemrograman QBasic. semoga bermanfaat :)
Keep Learn, Keep Coding.. ! :D


rem database
data "Nasi Uduk",7000
data "Nasi Rawon",6000
data "Pecel Lele",6000
data "Sate",15000
data "Nasi Kunning",7000
data "Es Teh",2000
data "Jus Jeruk",5000
data "Kopi",3000
data "Wedang Jahe",6000
data "Es Kelapa Muda",15000

rem variable
DIM namabarang$(20)
DIM harga(20)

rem baca database
for a=1 to 10
    read namabarang$(a),harga(a)
next a


cls
x:
cls
color 3
print"                                Warteg Bengkel Perut "
print
print
color 4
print "                                     Menu Kami"
print
color 7
print "Menu Makanan          Harga              Menu Minuman          Harga "
color 4
print "1.Nasi Uduk          Rp 7000            6.Es Teh             Rp 2000"
print "2.Nasi Rawon         Rp 6000            7.Jeruk              Rp 5000"
print "3.Pecel Lele         Rp 6000            8.Kopi               Rp 3000"
print "4.Sate               Rp 15000           9.Wedang Jahe        Rp 6000"
print "5.Nasi Kuning        Rp 7000            10.Es Kelapa Muda     Rp 6000"
print
color 3
LOCATE 15, 5: PRINT GH$; " KODE "; GH$; "   NAMA BARANG    "; GH$; "  JUMLAH  "; GH$; "    HARGA    "; GH$; " JUMLAH HARGA "; GH$
LOCATE 15, 5: PRINT GH$; STRING$(6, GVA$); GH$; STRING$(18, GVA$); GH$; STRING$(10, GVA$); GH$; STRING$(13, GVA$); GH$; STRING$(14, GVA$); GH$

FOR BAR = 1 TO 10
    LOCATE 15 + BAR, 5: PRINT GH$; STRING$(6, " "); GH$; STRING$(18, " "); GH$; STRING$(10, " "); GH$; STRING$(13, " "); GH$; STRING$(14, " "); GH$
NEXT BAR

LOCATE 16, 5: PRINT GH$; STRING$(50, GVA$); GH$; STRING$(14, GVA$); GH$
LOCATE 17, 5: PRINT GH$; STRING$(50, " "); GH$; STRING$(14, " "); GH$

LOCATE 18, 5: PRINT GH$; STRING$(50, GVA$); GH$; STRING$(14, GVA$); GH$
LOCATE 19, 5: PRINT GH$; STRING$(50, " "); GH$; STRING$(14, " "); GH$

LOCATE 20, 5: PRINT GH$; STRING$(50, GVA$); GH$; STRING$(14, GVA$); GH$
LOCATE 21, 5: PRINT GH$; STRING$(50, " "); GH$; STRING$(14, " "); GH$
LOCATE 22, 5: PRINT GH$; STRING$(50, GVB$); GH$; STRING$(14, GVB$); GH$

LOCATE 37, 3: PRINT GH$; "                                   TOTAL BAYAR  "
LOCATE 39, 3: PRINT GH$; "                                         BAYAR  "
LOCATE 41, 3: PRINT GH$; "                                     KEMBALIAN  "
color 3
locate 15,3:print "Kode"
locate 15,10:print "Nama"
locate 15,25:print "Harga Satuan"
locate 15,45:print "Jumlah"
locate 15,55:print "Harga Total"

uang = 0
x = 1
do
    locate 17+x,5:input"",pilih
    if pilih <0 or pilih>10 then
        locate 17+x,5:print"           "
        locate 17+x,5:input"",pilih
    end if
    locate 17+x,10:print Namabarang$(pilih)
    locate 17+x,25:print Harga(pilih)
    locate 17+x,45 :input"",jumlah
    total = harga(PILIH) * JUMLAH
    locate 17+x,55 :print"",total
    jumtotal = jumtotal + total
    locate 37,50 :print"",jumtotal
    x = x + 1
loop until pilih=0
locate 39,50 :input"",uang
kembalian = uang - jumtotal
while uang<jumtotal
    locate 39,50 :print"                    "
    locate 39,50 :input"",uang
wend
kembalian = uang - jumtotal
locate 41,50 :print"",kembalian
locate 43,50 :print "Terimakasih..."

berikut hasil outputnya:

Komentar

Posting Komentar

Postingan populer dari blog ini

Tipe data dalam bahasa C (C Programming)

Hai.. ketemu lagi dengan saya di blog yang sederhana ini.. dalam kesempatan kali ini saya akan memposting tentang tipe data dalam bahasa C. yuk kita simak :) Tipe data adalah suatu pengenal (identifier) yang merupakan bagian program yang paling penting karena tipe data mempengaruhi setiap instruksi yang akan dilaksanakan oleh k omputer. Misalnya saja 5 dibagi 2 bisa saja menghasilkan hasil yang berbeda tergantung tipe datanya. Jika 5 dan 2 bertipe integer maka akan menghasilkan nilai 2, namun jika keduanya bertipe float maka akan menghasilkan nilai 2.5000000. Pemilihan tipe data yang tepat akan membuat proses operasi data menjadi lebih efisien dan efektif. Bahasa C menyediakan 5 macam tipe data dasar, yaitu 1. Tipe data integer yaitu bilangan bulat dideklarasikan dengan int . 2. Floating point yaitu bilangan pecahan dideklarasikan dengan float . 3. Double precision yaitu bilangan pecahan ketepatan ganda dideklarasikan dengan double . 4. karakter dideklaras
20 komentar
Baca selengkapnya

Kimia (Polimer)

A.    DEFINISI POLIMER DAN PEMBENTUKAN POLIMER 1.    Pengertian Polimer Polimer adalah suatu makromolekul yang terbentuk dari molekul-molekul sederhana yang kita sebut sabagai monomer. Monomer adalah bagian terkecil dari suatu polimer. 2.    Pembentukan Polimer Proses pembentukan polimer dari monomer-monomernya disebut polimerisasi. Reaksi polimerisasi adalah reaksi penggabungan beberapa monomer. a.    Reaksi Polimer Adisi Polimerisasi terjadi pada monomer yang memiliki ikatan rangkap. Adalah perkaitan langsung antarmonomer berdasarkan reaksi adisi. 1)    Pembentukan Polietilena (Polietena) Polietilena dibentuk oleh monomer-monomer etena. Etena diperoleh dari hasil perengkahan (cracking) minyak bumi atau gas bumi. Pembentukan polimer ini digambarkan sebagai berikut CH 2 =CH 2   +   CH 2 =CH 2    →    --CH 2 -- CH 2 -- CH 2 -- CH 2 -- →   ( --CH 2 -- CH 2 --) n 2 molekul monomer                     dimer                           
1 komentar
Baca selengkapnya

Apa itu using namespace std?

Assalamu’alaikum.. Hai teman-teman.. dalam posting kali ini saya akan sedikit menjelaskan tentang namespace std. using namespace std , perintah ini digunakan untuk mendeklarasikan/ memberitahukan kepada compiler bahwa kita akan menggunakan semua fungsi/class/file yang terdapat dalam namespace std. namespace sendiri memiliki kesamaan dengan paket pada bahasa Java yang berisi pengelompokan fungsi, class dan yang sejenis. Pada C++ library- library umumnya disimpan dalam namespace std, seperti perintah cin dan cout. Perbedaan penulisan apabila kita menggunakan namespace std atau tidak adalah : Tanpa using namespace std               std::cout << " Tanpa menggunakan namespace std " ;       std::cin >> pil; Menggunakan using namespace std      #include <iostream>      using namespace std;       int main()      {         cout << " Menggunakan namespace std ";         cin >> pil;         return 0;      } Na
2 komentar
Baca selengkapnya

MEMBACA DAN MENGIDENTIFIKASIKAN MOS,CMOS DAN FET

1)       Komponen MOS, CMOS dan FET diidentifikasi tipenya, rating operasinya .     MOSFET ( Metal Oxide Semiconductor Field Effect Transistor ) MOSFET disebut juga Transistor Efek Medan Oksida Logam, hal ini karena pada Gate di isolasi dari saluran mayoritas pembawa muatan hal ini mengakibatkan arus Gate sangat kecil dan tidak dipengaruhi oleh Positif atau Negatifnya Gate tersebut. MOSFET sering juga disebut sebagai IGFET (Insulated Gate Field Effect Transistor) , mempunyai elektroda Source, Drain dan Gate . Bekerjanya MOSFET berbeda dengan JFET, pada MOSFET Gate/Gerbang di isolasi dari kanal sehingga dapat dioperasikan menggunakan tegangan positif (+), sedang pada JFET menggunakan tegangan negatif (-). Tegangan positif tersebut memeberi manfaat mempertinggi konduktifitas kanal. Makin positif tegangan gerbang, semakin besar konduktifitas dari Source ke Drain (Sumber ke Cerat). Keuntungan utama menggunakan FET adalah, impedansi Inputnya sangat tinggi dan menggun
Posting Komentar
Baca selengkapnya

Mengenal Tipe data dan Operator di VB .net (VB Programming)

Assalamu'alaikum.. pada tutorial kali ini saya ingin berbagi tentang tipe data danoperator yang digunakan dalam pemrograman Visual Basic. selamat menyimak.. :) Teori 2.1. Variabel Variabel   adalah pengalokasian tempat di memory komputer dengan type data tertentu dan datanya dapat diubah. Aturan pendefinisian variabel -           Harus dimulai dengan huruf -           Tidak boleh menggunakan spasi -           Tidak melebihi 255 karakter -           Untuk vb. Net tidak case sensitive (tidak membedakan huruf kecil dan besar -           Boleh menggunakan underscore Contoh penulisan variabel yang benar : -           Dim Dataku as integer -           Dim A4 as double -           Dim Alas_ruang as Boolean Contoh penulisan yang salah -           Dim 4data as Integer -           Dim Data   gambar as date 2.1.1 Ruang lingkup variabel Dalam pendefinisian variabel dikenal dua area yaitu variabel lokal dan variabel global. Variabel lokal adalah vari
3 komentar
Baca selengkapnya