(冯亚波)飞字技术是使字符在屏幕上运动的一种技巧,它利用人眼的视觉暂留现象造成动感。其实质是在某行某列显示字符(串),然后隔一段时间将其消隐。在FOXBASE语言中用@X,Y SAY(表达式语句)显示,用@X,Y CLEAR TO M,N或@X,Y SAY SPACE消隐,最后用循环语句形成飞字。
笔者在长城286上用FOXBASE语言编写了一段小程序“欢迎光临”,从右面逐字飞向屏幕。可以控制P的大小来控制飞行速度。
源程序如下:
*飞字程序段
CLEA
SET TALK OFF
SET SCOR OFF
SET STAT OFF
@0,0 CLEA TO 24,80
I=1
DO WHIL I<=68
@ 9,77-I SAY“欢”
@9,79-I SAY SPACE(2)
I=I+1
DO TIME
ENDDO
I=1
DO WHIL I<=64
@9,77-ISAY“迎”
@ 9,79-ISAY SPACE(2)
I=I+1
DO TIME
ENDDO
I=1
DO WHIL I<=60
@ 9,77-ISAY“光”
@ 9,79-ISAY SPACE(2)
I=I+1
DO TIME
ENDDO
I=1
DO WHIL I<=56
@ 9,77-ISAY“临”
@ 9,79-ISAY SPACE(2)
I=I+1
DO TIME
ENDDO
SET CONS ON
SET SCOR ON
SET STAT ON
* 延时子程序(TIME.PRG)
P=l
DO WHILE P<2
P=P+1
ENDDO
RETU