Code Belajar Foxpro Programing

set talk off
set color to w/n
clear
belajar foxpro

@0,6 to 4,74
@1,20 say"Laporan Data Barang Per 31 Desember 2005" color w+/n
@2,28 say"PT. FENDER COORPORATION" COLOR RG+*/N
@3,22 SAY"Jl. Raya Mojokerto-Surabaya No. 1-5" color W+/n
@6,0 say"Tanggal   :" color w+/n
@6,12 say dmy (date()) color gr+/n
@6,43 say "jam :"color w+/n
Set clock to 6,49
@7,0 to 20,39 panel color w/n
@7,41 to 20,80 panel color w/n
@9,2 say "Type barang    :"color w/n
@9,18 say " Fender Stratocester"color w+/n
@10,2 say "Produksi       :"
@10,18 say " Fender Indonesia"color w+/n
@11,2 say "Jenis          :"
@11,18 say " Gitar"color w+/n
@12,2 say "Jumlah Dawai   :"
@12,18 say " 6"color w+/n         
@13,2 say "No. Seri       :"
@13,18 say " 12.23122003"color w+/n
@14,2 say "Tgl Produksi   :"
@14,18 say " 14 September 2005   "color w+/n
@15,2 say "Keterangan     :"
@16,4 say "- Stang Mengkilat Tanpa Warna"color w+/n
@17,4 say "- Jumlah Fred 24"color w+/n
@18,4 say "- Bodi dan Kepala Warna Merah"color w+/n
@20,9 say ".: The Best Guitar :."color gr+/w
@8,42,19,78 box"²²²²²²²²²"color
@8,42 to 13,78 fill color r/n
@13,49 say"Wearnes Education Center" COLOR W/N
@22,0,24,79 BOX" "color w+/n
@23,17 SAY"Kepuasan Konsumen Merupakan Tujuan Utama Kami" color gr+*/n

Iklan

loading...