当前位置：首页 -> 技术开发 -> 程序开发 -> 用VB绘制正弦动画曲线

用VB绘制正弦动画曲线

时间： 2021-07-31 作者：daque

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属性值辨别设为正弦弧线和中断。　　双击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 6.0，windows 9第88中学调节和测试经过。

用VB绘制正弦动画曲线

相关推荐

推荐下载

热门阅览

最新排行