vb6.0绘制函数图象
发布网友
发布时间:2023-08-26 07:26
我来回答
共3个回答
热心网友
时间:2023-08-26 15:49
Private Sub Picture1_Click()
V0 = Text1
X1 = 10: Y1 = 10
For t = 0 To 50
X2 = 10 + V0 * t
Y2 = 10 + 10 * t * t / 2
Picture1.Line (X1, Y1)-(X2, Y2), vbRed
X1 = X2: Y1 = Y2
Next t
End Sub
热心网友
时间:2023-08-26 15:50
这个有点复杂哦.
你可参考编译系统教程
-----------------------------
兄弟,表达式的识别有困难的,编程可能比较复杂,演示效果你可以使用matlab数学函数分析这个软件。具体的编程你可以参考简易的编译系统,这个你可以到网上搜索的到的。找到后可以把里面的函数拿过来你自己编程用。
详细点说就是如y=5x(6x-4)这个函数,你要专门编程来识别5和x和括号里面的表达式是相乘的,而且碰到括号还要编程来把括号里面的表达式拿出来分析,这个跟编译系统里面的词法分析器很类似,因此建议你去看看这方面的东西。
最后说一句,这个比较复杂,你要做好不容易。。。
热心网友
时间:2023-08-26 15:50
你想做神马...
VB6.0制作函数图像 求大神帮忙把代码写一下然后给我,谢谢~
Private Sub Form_Load()Dim g, h g = 1.7 h = 1.7 Me.Cls Me.Height = 8000 Me.Width = 8000 Me.AutoRedraw = True Me.Scale (-g, h)-(g, -h)Me.Line (g, 0)-(-g, 0), QBColor(2)Me.Line (0, h)-(0, -h), QBColor(2)For e = -9 To 9 Me.Line (e * ...
如何用VB6.0画出一个sinx函数图象,要有横纵坐标的
新建工程,添加picture1 和 command1两个控件。注意,picture1画大一点,因为要在他里面画图。点command1代码执行。xp+vb6.0调试通过 代码如下:Private Sub Command1_Click()Dim x As Double Dim y As Double Picture1.ScaleMode = 3 Picture1.Scale (-10, 1)-(10, -1)Picture1.Line (-10,...
求高手给代码 VB6.0画一个二次函数(什么样的都行)和一个一次函数的曲线...
color 可选的。Long (长整型数),圆的轮廓的 RGB 颜色。如果它被省略,则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。start, end 可选的。 Single (单精度浮点数),当弧、或部分圆或椭圆画完以后,start 和 end 指定(以弧度为单位)弧的起点和终点位置。其范围从 -2 p...
vb6.0 实时绘制曲线,先加100分,采纳的话还可加分 ,分不是问题
1、首先,把数据采集到Access数据库 2、清除所有图像 3、根据你的需要,取最新的N组数据作为坐标,绘制新的图像(在事先定义的坐标系中绘制折线图)4、绘制图像的代码单独写在成一个函数或者过程,每隔三秒调用一次就行了
vb6.0 函数绘图,急!在线等。
赋大一点的值 Text2.Text =500 Text2.Text =-800 等等
vb 6.0 用代码在内存画图问题?十万火急
1.产生一个位图设备,调用笔刷,画就完了,这需要用API 2.用一个PictureBox,设置visible为false,在上面画图,得到Picture的图像句柄,保存,这无需API
求助VB6.0高手,谁能帮助做一个透明的Picture控件。在线等,急用。谢谢...
BitBlt 目标图.hDC, ( 目标图.Width / 2 - 掩码图.Width / 2 ) / 15,0, 掩码图.Width / 15, 掩码图.Height / 15, 掩码图.hDC, 0,0, vbSrcAnd BitBlt 目标图.hDC, ( 目标图.Width / 2 - 掩码图.Width / 2 ) / 15,0, 掩码图.Width / 15, 掩码图.Height / ...
用vb 的OpenGL 在picture中画一个三角形。
要想在VB6.0中使用OpenGL绘图,必须先下载一个SDK,名字叫vbogl.tlb。下载该文件后,直接在VB6.0“工程”-“引用”里面引用 1、在form中加入一个PictureBox控件 2、要在Windows里面使用OpenGL,必须先进行像素格式设置,函数代码如下 Dim hRC As Long’全局变量 '启用OGL Sub EnableOpenGL(ghDC As ...
vb用function怎样自定义函数?格式怎么写?举个例子,比如inputbox函数用...
1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”,将界面设置成下图:2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择通用。3、在通用段输入如下代码:Public Sub F1(n%, ByVal m%)n = n ...
VB6.0操作题,val()函数
文本框内容输入的数值内容需要用 英文输入法下输入 不要有多余的符号 空格之类的 以免影响结果 再者你图中 n=0 黄色行并没有运行到赋值代码处