> tanya pascal boleh kan ??
boleh
> aku baru kali ini ikut milist so aku mau nanya nih, gimana caranya bikin
> program persediaan kursi bioskop, kita bikin semacam kotak2 trus ada nomor
> kursinya gitu, nah waktu ada yang pesan salah satu dari kursi itu, kotak
> yang ada nomornya itu ada arsirannya, yang menunjukkan kalo kursi itu udah
> terisi ato udah terjual, disuruh wali kelas bikin program ini, bebas sih,
simple procedure untuk membuat kursi, dan anda bisa merubah2 warna kursi itu
dengan mengisi warna itu pada parameter warna, nilainya antara 0 s.d. 15
procedure fillarea(x1,y1,x2,y2,warna:integer);
var i:integer;
begin
setcolor(warna);
setlinestyle(0,1,1);
for i:=y1 to y2 do line(x1,i,x2,i);
end;
> mau dari pascal ato basic yang penting under DOS setau aku kalo basic ama
> pascal gak ada graphnya, ada sih dipascal tapi versi 5.0, aku gak punya
yang
> versi itu, hehehe makasih banyak sebelumnya.
siapa bilang? Basic bisa kok untuk buat graph, apalagi Pascal, baik itu
Turbo Pascal yg versi 5.5 ataupun versi 7.
untuk menggunakan Graph, anda harus menambahkan
Uses Graph;
pastikan bahwa file Graph.TPU, file berektension BGI dan CHR anda miliki
juga.
agar bisa masuk ke mode grafik, anda harus menginialisasinya, berikut sample
untuk inisialisasi ke mode grafis
procedure init(directory:string);
var driv,mode:integer;
begin
driv:=vga;mode:=vgahi;
initgraph(driv,mode,directory);
end;
isi parameternya dengan direktori dimana anda menaruh file - file BGI dan
CHR.
tentunya agar bisa masuk mode VGA, anda harus memiliki file EGAVGA.BGI
berikut ini fungsi2 yg semoga bisa menambah rame program anda
procedure paint(x,y,batas,warna:integer);
begin
setfillstyle(1,warna);
floodfill(x,y,batas);
end;
Procedure Tulis(x,y:integer;s:string;t:integer);
var i:integer;
begin
for i:=0 to t-1 do outtextxy(x+i,y,s);
end;
procedure pigura1(x1,y1,x2,y2:integer);
begin
setlinestyle(0,1,1);setcolor(15);
rectangle(x1+1,y1+1,x2,y2);line(x1,y2,x2,y2);line(x2,y1,x2,y2);
setcolor(8);rectangle(x1,y1,x2-1,y2-1);
end;
procedure pigura2(x1,y1,x2,y2:integer);
begin
setlinestyle(0,1,1);setcolor(15);rectangle(x1,y1,x2,y2);
setcolor(8);line(x1,y1,x1,y2);line(x1,y1,x2-1,y1);
end;
procedure pigura3(x1,y1,x2,y2:integer);
begin
setlinestyle(0,1,1);setcolor(8);rectangle(x1,y1,x2,y2);
setcolor(15);line(x1,y1,x1,y2);line(x1,y1,x2-1,y1);
end;
procedure fillpage(warna:integer);
{asumsi resolusi 640 x 480}
var i:integer;
begin
setcolor(warna);setlinestyle(0,1,1);
for i:=0 to 479 do line(0,i,639,i);
end;
namaskar
Ol1v3r
NB: kalo anda ingin program anda yg under DOS,bisa mirip Windows (tombol,
form, kotak Edit, etc) dan bisa
berinteraksi dengan event mouse, bisa japri ke saya, nanti saya kasih
rahasia dan
source kodenya.
so, anda bisa membuat "a simple window showing up", dan bisa dengan bangga
berkata pada dosen anda , kalo anda adalah "PROGRAMMERS"
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
