Ngày tải lên :
10/09/2012, 09:21
... C1:=20;h1:=20;C2:=GetMaxx-c1;H2:=GetMaxy-H1;Cc1:=c1-3 45;
Cuaso(C1 -5, H1 -5, c2 +5, H2 +5, 15, 7,LightBlue ,5) ;Dc1: =5;
Gio1;
GetDate1;
Cuaso(C1,H2-100,c1+ 180 ,H2, 15, 7,Blue,3);
SetColor( 15) ;
OutTextXY(c1 +50 ,H2-90,'INDICATE');
OutTextXY(c1 +5, H2-60,#26#27+': ... C1:=10;H1:=10;H2:=470;
Cuaso(c1,h1,C1+620,H1+ 450 , 15, 7,9 ,5) ;
{ Chu_Bong(c1 +50 ,h1 ,8, 0 ,5, Lightred,cyan ,5, 'TRUONG DHBK HA NOI');
Chu_Bong(C1+190,h1 +50 ,8, 0,4,Lightred,cyan,4,'KHOA CNTT');}
... if tt<1 then Break;
end;
#80 :Begin
tt:=tt+1;
if tt> ;5 then tt:=1;
end;
#13 :Case tt of
1: Begin
Beep;
Anfa:=-
8; Beta: =8; c1:= 150 ;H1:= 150 ;C2: =50 0;H2:= 350 ;
17
VeFx(anfa,Beta,c1,h1,c2,h2);
...