Kamis, 17 Januari 2013

memmbuat program barang di xbase


DO WHILE .T.
    CLEAR
    cBrg = SPACE(10)
    cNbrg = SPACE(20)
    cHrg = SPACE(8)
    STORE SPACE(6) to cJbli
    STORE 0 TO nTtl=cHrg*cJbli
    
    @ 1,4 SAY "Kode Barang      : "GET cBrg
    @ 2,4 SAY "Nama Barang      : "GET cNbrg
    @ 3,4 SAY "Harga            : "GET cHrg
    @ 4,4 SAY "Jumlah Beli      : "GET cJbli
    READ

    @ 9,27 SAY  "PT.TURUN NAIK"
    @ 11,30 SAY "NOTA BAYAR"
    @ 12,30 SAY "==========================="
    @ 14,3 SAY  " No. Barang                : "+UPPER (cBrg)
    @ 15,3 SAY  " Nama Barang               : "+UPPER (cNbrg)
    @ 16,3 SAY  " Harga                     : "+UPPER (cHrg)
    @ 17,3 SAY  " Jumlah Beli               : "+UPPER (cJbli)
    cTtl = cHrg*cJbli
    @ 18,3 SAY  "Total                      : "(cTtl)
    @ 19,25 SAY " Uang Bayar    : GET cByr
    @ 20,3 SAY  "uang kembali   : "(cBlk)
    cBlk = cByr - Ttl
    
    
    @ 21,3 SAY cBlk PICT "99,999,999"
    cLagi = "   "
    @ 7,50 SAY " mau proses lagi ? [y/t] " GET cLagi
    READ
    IF UPPER (cLagi) = "T"
        CLEAR
        @ 11,30 SAY " - THANK  YOU -  "
        EXIT
    ENDIF
ENDDO


Artikel Terkait:

0 komentar: