[下载]BASIC花纹

laugj

速度比较慢
得等他一点点画完,有种不流畅的感觉
考虑巧妙的让其连续起来(第2种)
不过好漂亮哦!!![em07]
+U,美感很重要~[em10]

daxin131

8错

enjoyenjoy

问一下,如何将16*16的图流畅的画出

cc90042938

用批量法,或慢慢POKE

hxdwq789

批量法数度会快,但是楼主不一定会用,

LAODA

300 REM花纹二
310 CLS
320 LINE 0,10,161,10,1INE 0,69,161,69,1INE 0,0,161,0,1INE 0,80,161,80,1
330 LINE 1,0,1,81,1:LINE 159,0,159,81,1
340 FOR I=5 TO 160 STEP 10
350 LINE I,0,I,6:LINE I,73,I,81:NEXT I
360 FOR I=10 TO 160 STEP 10:LINE I,10,I,4:LINE I,69,I,75：LINE I-8,7,I-2,7:LINE I-8,72,I-2,72:LINE I-3,3,I+3,3:LINE I-3,76,I+3,76:next i
400 REM花纹二完毕
这样把

xueqiuzou

正在学习中
看到有意思的东西就想使使

Tshine

FOR很拖时间
我的 循环12下左右=1秒

海天雨帆

雨帆写的basic代码的花纹，仅仅写了两个，余下的今后再写。

   


40 REM花纹一
45 CLS:BOX 35,12,125,68
50 BOX 35,12,37,68,1:BOX 125,68,123,12,1
55 BOX 32,2,128,12
60 BOX 32,68,128,78
70 BOX 29,3,32,11,1:BOX 29,69,32,77,1
75 BOX 128,3,131,11,1:BOX 128,69,131,77,1
85 BOX 131,4,133,10:BOX 131,70,133,76
90 BOX 29,4,27,10:BOX 29,70,27,76
100 FOR I=14 TO 66 STEP 2
110 DRAW 36,I,0
120 DRAW 124,I,0
130 NEXT I
140 RETURN
150 REM花纹一完毕

*********************************************************************************


300 REM花纹二
310 CLS
320 LINE 0,10,161,10,1INE 0,69,161,69,1INE 0,0,161,0,1INE 0,80,161,80,1
330 LINE 1,0,1,81,1:LINE 159,0,159,81,1
340 FOR I=5 TO 160 STEP 10
350 LINE I,0,I,6:LINE I,73,I,81:NEXT I
360 FOR I=10 TO 160 STEP 10:LINE I,10,I,4:LINE I,69,I,75:NEXT I
370 FOR I=2 TO 160 STEP 10:LINE I,7,I+6,7:LINE I,72,I+6,72:NEXT I
380 FOR I=7 TO 160 STEP 10:LINE I,3,I+6,3:LINE I,76,I+6,76:NEXT I:RETURN
400 REM花纹二完毕

[此贴子已经被作者于2005-1-15 18:01:03编辑过]