matlab清屏五彩缤纷的清屏效果.pdf

matlab清屏:五彩缤纷的清屏效果 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article14770.html 在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞 台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形态各异的清屏图案。vb作为一门优秀的 windows下的开发语言，其图形功能也很强。我们完全可以用其提供的画线语句作出上述的清屏图案，下面的 程序给出了常见的清屏图案程序： 　　 sub filscro\设置背景色 　　 me.backcolor=rgb(int(rnd＊256),int(rnd＊256),int(rnd＊256)) 　　 end sub 　　 sub clrscrl()\从左右两边到中间清屏 　　 dim i as integer：randomize：color=rgb(int(rnd＊256),int(rnd＊256),int(rnd＊256)) 　　 for i=0 to scalewidth/2 　　 line(i,0)－(i,scaleheight),color 　　 line(scalewidth－i,0)－(scalewidth－i,scaleheight),color 　　 next i 　　 end sub 　　 sub clrser20\从中间到左右两边清屏 　　 dim i as integer：randomize：color=rgb(int(rnd＊256),int(rnd＊256),int(rnd＊256)) 　　 for i=scalewidth/2 to 0 step －1 　　 line(i,0)－(i,scaleheight－1),color 　　 line(scalewidth－i,0)－(scalewidth－i,scaleheight),color 　　 next i 　　 end sub 　　 sub clrscr30\从上(顶)下(低)到中间清屏 　　 dim i as integer：randomize：color=rgb(int(rnd＊256),int(rnd＊256),int(rnd＊256)) 　　 for i=0 to scaleheight/2 　　 line(0,i)－(scalewidth,i),color 　　 line(0,scaleheight－i)－(scalewidth,scaleheight－i),color 　　 next i 　　 end sub 　　 sub clrscr40\从中间到上(顶)下(底)清屏 　　 dim i as integer:randomize:color=rgb(int(rnd＊256),int(rnd＊256),int(rnd＊256)) 　　 for i=scaleheight/2 to 0 step －1 　　 line(0,i)_(scalewidth,i),color 　　 line(0,scaleheight－i)－(scalewidth,scaleheight－i),color 　　 next i 　　 end sub 　　 sub clrscr50\菱形清屏，从四角向中心 　　 dim i,j as integer:randomize:color=rgb(int(rnd＊256),int(rnd＊256),int(rnd＊256)) 　　 for i=0 to scalewidth sep 200 　　 for j=0 to scaleheight step200＊scaleheight/scalewidth 　　 line(i,0)－(0,j),color 　　 line(scalewidth－i,scaleheight)－(scalewidth,scaleheight－j),color 　　 line(0,scaleheight－j)－(i,scaleheight),color 　　 line(scalewidth－i,0)－(scalewidth,scaleheight－j),color 　　 next j 　　 next i 　　 end sub 　　 sub clrscr60\圆形清屏，由大至小从外围向中心 　　 dim i as integer:r