[科科] ...

[MiaoMi225 (口苗口米～)]

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
推 danny6430:ejs?
推 SuperED:程設?
推 crazyhao:訊號?
推 a606155123:甲上!!!
推 luiyilun:這也可以炫耀?
噓 fireboy0114:閱!
推 fireboy0114:給錯了~推回來
→ MiaoMi225:沒拉  上課的時候給同學用的  懶的用信箱傳
→ MiaoMi225:室友偷錶啥小 ＸＤ
→ MiaoMi225:程式是fortran 好像是土木系用的
推 luiyilun:原PO大GG!!!
→ MiaoMi225:...........