
建议你可以这样画看看,打开迅捷画图,在跳转的页面你可以选择自己新建流程图,也可以直接套用模板进行编辑。
这时页面将跳转到新建的页面,在画布四周我们能看到有很多的工具栏,这样写在画流程图的时候都是需要用上的,需要给画布添加新的图形可以在左边基础图形里面选择图形直接用鼠标将图形拖曳至右边需要的位置就可以啦。
新的图形添加之后,需要用连接线将各图形进行连接。在左边基础图形里面可以选择需要的线条,在画布上方可以将线条的形状进行选择。
基本框架搭建完后,我们需要对里面进行内容的添加,双击文本框就可将内容进行添加。
双击画布空白处,在右边出现的菜单中可以对文本的排列以及样式和流程图的整体颜色进行更换。
这时一个完整的流程图就制作完成了,点击有上方的导出,在d出的菜单栏中选择自己需要的格式进行导出就可以啦。
提供一个绘制任意曲线的简单代码。其他功能类似,希望能举一反三。
在窗体中添加一个Picture box,然后输入命令如下:
Dim oldx As SingleDim oldy As Single
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then '当鼠标左建按下时发生
Picture1.Line (oldx, oldy)-(X, Y)
oldx = X
oldy = Y
End If
End Sub
Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldx = X
oldy = Y
End Sub
从图像可知,这两条曲线分别是sin(x),cos(x)。实现这两条曲线的绘制可以这样编写其代码:
x=0:pi/10:4*pi %生成x向量组,其范围从0到4π,步长为pi/10
y1=sin(x) %计算正弦函数值
y2=cos(x) %计算余弦函数值
plot(x,y1,'--',x,y2,'-') %绘制正弦函数和余弦函数曲线图
legend("sin(x)","cos(x)") %图例标注
xlabel('时间')ylabel('幅值')%标注坐标轴名称
执行代码和运行结果
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)