欢迎来到天天文库
浏览记录
ID:37456222
大小:16.50 KB
页数:3页
时间:2019-05-24
《如何用vb画动态正弦曲线》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、VB提供了绘图的基本方法,如Pset、Line、Circle,能够绘出点、直线、圆等基本图形,但没有提供绘曲线的方法。其实,我们可以灵活运用基本绘图方法,来绘出所需要的曲线,甚至达到动画的效果。一、VB坐标系介绍VB里有三种坐标系,屏幕坐标系、窗体坐标系和窗体内的对象坐标系,这三种坐标系都是以其左上角为坐标原点,与平常使用的几何坐标系不一致,我们绘图时感到不习惯。VB允许编程人员自定义坐标系,根据需要定义坐标原点的位置。自定义坐标系的方法是Scale,语法格式:Scale(X1,Y1)-(X2,Y2)其中:X1是绘图区域左上角的横坐标;Y1是绘图区域左上角的纵坐标;X2是绘图区
2、域右下角的横坐标;Y2是绘图区域右下角的纵坐标。例如:Scale(-320,240)-(320,-240)定义了绘图区域大小为640×480,坐标原点(0,0)在绘图区域中心。二、绘制正弦动画曲线启动VB6,新建标准EXE工程,添加一个PictureBox控件,两个CommandButton控件到窗体,其Caption属性值分别设为正弦曲线和结束。双击Command1,打开代码编辑器窗口,相应事件的代码如下:通用声明模块:3Constpi=3.14159DimaPrivateSubCommand1_Click()'画正弦曲线'首先清除picture1内的图形Picture1.C
3、ls'Scale方法设定用户坐标系,坐标原点在Picture1中心Picture1.ScaleMode=0Picture1.ScaleMode=3Picture1.Scale(-10,10)-(10,-10)'设置绘线宽度Picture1.DrawWidth=1'绘坐标系的X轴及箭头线Picture1.Line(-10,0)-(10,0),vbBluePicture1.Line(9,0.5)-(10,0),vbBluePicture1.Line-(9,-0.5),vbBluePicture1.ForeColor=vbBluePicture1.Print"X"'绘坐标系的Y轴及箭
4、头线Picture1.Line(0,10)-(0,-10),vbBluePicture1.Line(0.5,9)-(0,10),vbBluePicture1.Line-(-0.5,9),vbBlue3Picture1.Print"Y"'指定位置显示原点OPicture1.CurrentX=0.5Picture1.CurrentY=-0.5Picture1.Print"O"'重设绘线宽度Picture1.DrawWidth=2'用For循环绘点,使其按正弦规律变化。步长值很小,使其形成动画效果Fora=-2*piTo2*piSteppi/6000Picture1.PSet(a,S
5、in(a)*5),vbRedNext'指定位置显示描述文字Picture1.CurrentX=pi/2Picture1.CurrentY=-7Picture1.ForeColor=vbBlackPicture1.Print"正弦曲线示意"EndSub3
此文档下载收益归作者所有