回 帖 发 新 帖 刷新版面

主题:怎么绘中国国旗啊

会的大虾发个源程序看看,谢谢!

回复列表 (共18个回复)

11 楼

"现依版副提示,绘制1/4的旗面 "

不过 ,国旗没画出来   

12 楼

screen 12:cls
window screen(-50,-50)-(100,50)
paint(0,0),4
for i=-5 to 9
  for j=-5 to 4
    'line(i*10,j*9)-(i*10+10,j*9+9),3,b
  next j,i
star$ = "c14ta90r130 ta-72r250 ta144r250 ta0r250 ta-144r250 ta72r250"
s$(1)= "s2ta66r85 c14ta-96r165 ta120r165 ta-24r165 ta-168r165 ta48r165"
s$(2)= "ta114r85 c14ta-48r165 ta168r165  ta24r165 ta-120r165 ta96r165"
s$(3)= "ta-70r165 ta144r165 ta0r165 ta-144r165 ta72r62"
s$(4)= "ta70r85 c14ta-92r165 ta124r165  ta-21r165 ta-164r165 ta52r165"
p$="ta90r31 ta-36r39 ta-108r39 ta180r39 ta108r39  p14,14"
PSET (0,0): DRAW star$ :PRESET (0,0): draw"ta90r85"+s$(3)+"p14,14"
PSET (50, -27): DRAW s$(1):PRESET (50, -27): DRAW p$
PSET (70, -9): DRAW s$(2):PRESET (70,-9): DRAW p$
PSET (70, 18): DRAW "ta92r85c14" + s$(3):PRESET (70, 18): DRAW p$
PSET (50, 36): DRAW s$(4):PRESET (50, 36): DRAW p$
end

13 楼

s$(2)="ta144..."应改为s$(2)="ta114...",致歉。

14 楼

13楼跟没说似的啊。。。

15 楼

8楼中写的是S$(2)="ta144..."
12楼中写的是S$(2)="ta114...",已作修改。
13楼是针对以上情况而言,没说明白,请原谅。

16 楼

................................

17 楼

尊敬的版副def先生:
请问“................................”是什么意思呀?我理解能力太差,这个哑谜猜不出来。我仅仅是处于学步阶段,如果程序有何错误或不足,恳请赐教,好吗?

18 楼

1. 不要叫他做先生,他比我年轻
2. 他比我更神经质,所以一般情况下,会有些不同寻常的举动,可以忽略不加理会

我来回复

您尚未登录,请登录后再回复。点此登录或注册