用VB如何画出函数的图形。绘出常用函数的曲线y=sin(x)在线急?? 函数的图形。绘出常用函数的曲线,要求画出坐标轴,函数包括y=sin(x)或者是y=cos(x)等等 只要其中的一个 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用VB绘制正弦动画曲线 VB提供了绘图的基本方法,如Pset、Line、Circle,能够绘出点、直线、圆等基本图形,但没有提供绘曲线的方法。其实,我们可以灵活运用基本绘图方法,来绘出所需要的曲线,甚至达到动画的效果。 一、VB坐标系介绍 VB里有三种坐标系,屏幕坐标系、窗体坐标系和窗体内的对象坐标系,这三种坐标系都是以其左上角为坐标原点,与平常使用的几何坐标系不一致,我们绘图时感到不习惯。VB允许编程人员自定义坐标系,根据需要定义坐标原点的位置。 自定义坐标系的方法是Scale,语法格式: Scale (X1,Y1) - (X2,Y2) 其中: X1是绘图区域左上角的横坐标; Y1是绘图区域左上角的纵坐标; X2是绘图区域右下角的横坐标; Y2是绘图区域右下角的纵坐标。 例如:Scale (-320,240) - (320,-240) 定义了绘图区域大小为640×480,坐标原点(0,0)在绘图区域中心。 二、绘制正弦动画曲线 启动VB6,新建标准EXE工程,添加一个PictureBox控件,两个CommandButton控件到窗体,其Caption属性值分别设为正弦曲线和结束。如图1: 图1 双击Command1,打开代码编辑器窗口,相应事件的代码如下: 通用声明模块: Const pi = 3.14159 Dim a Private Sub Command1_Click() 注释:画正弦曲线 注释:首先清除picture1内的图形 Picture1.Cls 注释:Scale方法设定用户坐标系,坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3 Picture1.Scale (-10, 10)- (10, -10) 注释:设置绘线宽度 Picture1.DrawWidth = 1 注释:绘坐标系的X轴及箭头线 Picture1.Line (-10, 0)-(10, 0), vbBlue Picture1.Line (9, 0.5)-(10, 0), vbBlue Picture1.Line -(9, -0.5), vbBlue Picture1.ForeColor = vbBlue Picture1.Print "X" 注释:绘坐标系的Y轴及箭头线 Picture1.Line (0, 10)-(0, -10), vbBlue Picture1.Line (0.5, 9)-(0, 10), vbBlue Picture1.Line -(-0.5, 9), vbBlue Picture1.Print "Y" 注释:指定位置显示原点O Picture1.CurrentX = 0.5 Picture1.CurrentY = -0.5 Picture1.Print "O" 注释:重设绘线宽度 Picture1.DrawWidth = 2 注释:用For循环绘点,使其按正弦规律变化。步长值很小,使其形成动画效果 For a = -2 * pi To 2 * pi Step pi / 6000 Picture1.PSet (a, Sin(a) * 5), vbRed Next 注释:指定位置显示描述文字 Picture1.CurrentX = pi / 2 Picture1.CurrentY = -7 Picture1.ForeColor = vbBlack Picture1.Print "正弦曲线示意" End Sub 简单问题 vb远程读取txt文件的问题,高手请进,解决马上给分,全天在线 如何才能使FORM象贴纸一样出现在另一个FORM内! 请问怎样实现像优化大师那样可以卸载其它软件的功能 如何判断 MSHFLEXGRID 中哪些行被选中? 关于创建数据库 ADODC数据更新问题:把两个TextBox控件,和一个Datagrid控件绑定到一个ADODC。 Active skin 做过餐饮酒店的兄弟请进来看看 用qq号323295换farpoint spread 6.0的注册机. MSFlexGrid问题请教高手 我忘记密码了
VB里有三种坐标系,屏幕坐标系、窗体坐标系和窗体内的对象坐标系,这三种坐标系都是以其左上角为坐标原点,与平常使用的几何坐标系不一致,我们绘图时感到不习惯。VB允许编程人员自定义坐标系,根据需要定义坐标原点的位置。 自定义坐标系的方法是Scale,语法格式: Scale (X1,Y1) - (X2,Y2) 其中: X1是绘图区域左上角的横坐标; Y1是绘图区域左上角的纵坐标; X2是绘图区域右下角的横坐标; Y2是绘图区域右下角的纵坐标。 例如:Scale (-320,240) - (320,-240) 定义了绘图区域大小为640×480,坐标原点(0,0)在绘图区域中心。 二、绘制正弦动画曲线
启动VB6,新建标准EXE工程,添加一个PictureBox控件,两个CommandButton控件到窗体,其Caption属性值分别设为正弦曲线和结束。如图1:
图1 双击Command1,打开代码编辑器窗口,相应事件的代码如下: 通用声明模块: Const pi = 3.14159 Dim a Private Sub Command1_Click() 注释:画正弦曲线 注释:首先清除picture1内的图形 Picture1.Cls 注释:Scale方法设定用户坐标系,坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3 Picture1.Scale (-10, 10)- (10, -10) 注释:设置绘线宽度 Picture1.DrawWidth = 1 注释:绘坐标系的X轴及箭头线 Picture1.Line (-10, 0)-(10, 0), vbBlue Picture1.Line (9, 0.5)-(10, 0), vbBlue Picture1.Line -(9, -0.5), vbBlue Picture1.ForeColor = vbBlue Picture1.Print "X" 注释:绘坐标系的Y轴及箭头线 Picture1.Line (0, 10)-(0, -10), vbBlue Picture1.Line (0.5, 9)-(0, 10), vbBlue Picture1.Line -(-0.5, 9), vbBlue Picture1.Print "Y" 注释:指定位置显示原点O Picture1.CurrentX = 0.5 Picture1.CurrentY = -0.5 Picture1.Print "O" 注释:重设绘线宽度 Picture1.DrawWidth = 2 注释:用For循环绘点,使其按正弦规律变化。步长值很小,使其形成动画效果 For a = -2 * pi To 2 * pi Step pi / 6000 Picture1.PSet (a, Sin(a) * 5), vbRed Next 注释:指定位置显示描述文字 Picture1.CurrentX = pi / 2 Picture1.CurrentY = -7 Picture1.ForeColor = vbBlack Picture1.Print "正弦曲线示意" End Sub