作者MiaoMi225 (口苗口米～)
看板CTSH96302
标题[科科] ...
时间Mon Apr 27 11:29:40 2009
program ellipse
use DFLIB
xmin=-300
xmax=300
ymin=-300
ymax=300
ii=setwindow(.true.,xmin,ymax,xmax,ymin)
ii=setbkcolor(15)
call clearscreen($gclearscreen)
ii=clickmenuqq(loc(winfullscreen))
dt=1
vx=1
vy=2
do i=-269,26900000
r=10
ii=setcolor(9)
z=20
ii=rectangle_w($gborder,xmin+z,ymax-z,xmax-z,ymin+z)
if (x>270 .or. x<-270) then
vx=-vx
endif
if (y>268 .or. y<-268) then
vy=-vy
endif
ii=setcolor(15)
ii=ellipse_w($gfillinterior,x-r,y+r,x+r,y-r)
ii=setcolor(9)
x=x+vx*dt
y=y+vy*dt
ii=ellipse_w($gfillinterior,x-r,y+r,x+r,y-r)
!call sleepqq(1)
enddo
end
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.148.4
1F：推 danny6430:ejs? 04/27 11:33
2F：推 SuperED:程设? 04/27 12:56
3F：推 crazyhao:讯号? 04/27 16:13
4F：推 a606155123:甲上!!! 04/27 18:25
5F：推 luiyilun:这也可以炫耀? 04/28 01:33
6F：嘘 fireboy0114:阅! 04/28 20:07
7F：推 fireboy0114:给错了~推回来 04/28 20:09
8F：→ MiaoMi225:没拉 上课的时候给同学用的 懒的用信箱传 05/01 21:10
9F：→ MiaoMi225:室友偷表啥小 ＸＤ 05/01 21:10
10F：→ MiaoMi225:程式是fortran 好像是土木系用的 05/01 21:11
11F：推 luiyilun:原PO大GG!!! 05/02 03:27
12F：→ MiaoMi225:........... 05/03 22:28