【特效】用GVBasic模拟LAVA的淡入淡出特效

yoyohenry

不断的显示、清屏 、再显示、再清屏....

然后调整其中的间隔ok

Fayer

  【特效】用GVBasic模拟LAVA的淡入淡出特效

用GVBasic模拟LAVA的淡入淡出特效
在LAVA的函数里有一个让文字从浅到深(或从深到浅)的显示的函数.在GVBasic中其实也可以实现.
原理是改一个地址,地址为6的内存是来调屏幕的深浅度的(不需要关机就可实现)
POKE 6,0 为关闭屏幕
POKE 6,K (K=1,6,11,16,21,26......)K为131时,恢复正常.大于131时屏幕深度能大大超出用星星调的.
太大了会蓝屏(注:蓝屏不太稳定,有时会死机,建议不要用)
看一个程序:
70 GRAPH
80 POKE 6,1
90 LOCATE 3,6RINT "I am Faye!"
100 FOR A=1 TO 131 STEP 5
110 POKE 6,A:FOR Z=1 TO 150
120 NEXT Z,A
运行后可以在屏幕上看到漫漫显现出来的 I am Faye !
用这个GVB特效你可以用来美化程序!
下面有个事例程序
100 GRAPHOKE 6,1
110 FOR A=34 TO 40
120 LINE A,20,A-10,60:NEXT:FOR A=40 TO 70INE A,20,A-5,25:NEXT
130 FOR A=75 TO 82INE A,40,A-20,60INE 137-A,40,137-A+20,60:NEXT:B=1
140 BOX 30,40,60,42,1,1:B=75:FOR A=1 TO 1.5 STEP.01:BOX B+A,60,B+A,58
150 B=B+A:NEXT:LOCATE 4,16RINT "Soft"
160 FOR A=11 TO 131 STEP 5:POKE 6,A:FOR Z=1 TO 150:NEXT Z,A