计算机屏幕上的飞字技术

🏠 首页 《无线电》杂志 1994年 🔗 第11期 🔗 第33页 分类:无线电技术自学经验交流 🔗 冯亚波 🔗

(冯亚波)飞字技术是使字符在屏幕上运动的一种技巧,它利用人眼的视觉暂留现象造成动感。其实质是在某行某列显示字符(串),然后隔一段时间将其消隐。在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