belajar code foxpro

contoh program foxproset talk off
set color to w/n
clear

@0,5 to 4,76
@4,0 to 23,79
@4,5 say "Á"
@4,76 say "Á"
t1="Laporan Data Penjualan Oleh Kasir Per 31 November 2005"
t2="PT. FENDER COORPORATION"
t3="Jl. Raya Mojokerto-Surabaya No. 1-5"
@1,(wcols()-len(t1))/2 say t1 color w+/n
@2,(wcols()-len(t2))/2 say t2 color rg+/n
@3,(wcols()-len(t3))/2 say t3 color w+/n

set color to w/b
@5,1 clear to 22,78

set deli on
set deli to"[]"
@6,2 say "Nomor Transaksi   :" get notrans defa space(11);
        valid !empty(notrans) error " Masukan Nomor Transaksi Dengan Benar";
        mess " Sekarang Masukan Nomor Transaksi " color ,rg+/n,,,rg+/n
@7,2 say "Tanggal Transaksi : [           ]"
@7,23 say dmy (date()) color rg+/b
@8,2 say "Pembeli           :" get pembeli defa space(20);
        valid !empty(pembeli) error " Masukan Nomor Transaksi Dengan Benar";
        mess " Sekarang Masukan Nama Pembeli " color ,rg+/n,,,rg+/n
@9,2 say"No. Telepon Rumah :"get tlp defa space(11);
        valid!empty (tlp) error"Please Check Phone Number";
        mess "Insert Phone Number";
        pict"999-9999999";
        color,rg+/n,,,rg+/n
set deli off
@6,40 say"keterangan  :"get ket defa space(100) size 5,20;
    valid!empty (ket)error"Please Insert Remark";
    mess"Please insert Remark Now";
    color,rg+/n,,,rg+/n
@11,3 say"ÚÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
@12,3 say"³    ³      ³                     ³               ³        ³              ³"
@13,3 say"ÃÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
@14,3 say"³    ³      ³                     ³               ³        ³              ³"
@15,3 say"³    ³      ³                     ³               ³        ³              ³"
@16,3 say"³    ³      ³                     ³               ³        ³              ³"
@17,3 say"ÀÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
@18,3 say"                                                           ³              ³"
@19,3 say"                                                           ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
@20,3 say"                                                           ³              ³"
@21,3 say"                                                           ³              ³"
@22,3 say"                                                           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
@12,5 say"No" color w+/b
@12,10 say"Kode" color w+/b
@12,21 say"Nama Barang" color w+/b
@12,43 say"Harga" color w+/b
@12,55 say"Jumlah" color w+/b
@12,67 say"Total" color w+/b
read


@14,5 say "1"
@14,10 get kode1 defa space(4) color,rg+/n
@14,17 get nama1  defa space(19) color ,rg+/n
@14,38 get harga1 defa 0 pict"Rp 999,999,99" color ,rg+/n
@14,56 get jml1 defa 0 pict"9999" color,rg+/n
read
total1=harga1*jml1
@14,63 say total1 pict "Rp 999,999,99" color,w+/n

@15,5 say "2"

@15,10 get kode2 defa space(4) color,rg+/n;
   
@15,17 get nama2  defa space(19) color ,rg+/n
@15,38 get harga2 defa 0 pict"Rp 999,999,99" color ,rg+/n
@15,56 get jml2 defa 0 pict"9999" color,rg+/n
read
total2=harga2*jml2
@15,63 say total2 pict "Rp 999,999,99" color,w+/n
read

@16,5 say "3"
@16,10 get kode3 defa space(4) color,rg+/n
@16,17 get nama3  defa space(19) color ,rg+/n
@16,38 get harga3 defa 0 pict"Rp 999,999,99" color ,rg+/n
@16,56 get jml3 defa 0 pict"9999" color,rg+/n
read


total3=harga3*jml3
@16,63 say total3 pict "Rp 999,999,99" color,w+/n
read

@18,46 say" Grand Total" color w+/b
@20,46 say" Bayar" color w+/b          
@21,46 say" Kembali"color w+/b

gt=total1+total2+total3
@18,63 say gt pict "Rp 999,999,99" color rg+/n
@20,63 get bayar defa 0 pict "Rp 999,999,99";
    valid!empty(bayar) error"Uangnya Kurang";
    mess"jJumlah minimal adalah Rp."+alltrim(str(gt));
    color,rg+/n,,,rg+/n
read


kembali=bayar-gt
@21,63 say kembali pict "Rp 999,999,99" color rg+/n      
read

Iklan

loading...