1.vb函数曲线绘制程序的源码代码
2.我想用VB编一个程序,输入一个函数y=t+A*Sinw后可以作出它的绘制函数图象并以画图程序保存。 急!图像!源码!绘制函数
3.怎么用VB绘制函数图像?
4.怎样用vb画函数图像?
vb函数曲线绘制程序的图像源码论坛源码代码
Option Explicit
Const STEP_PAI As Double = 0.
Dim xisu As Double
Private Sub drawPoint(Optional ByVal lngColor As Long = vbBlue)
Cls
Dim i As Long
Dim r As Double
Dim angle As Double
Dim x As Double
Dim y As Double
For i = 0 To
angle = STEP_PAI * i
r = * Sin(angle * xisu)
x = r * Cos(angle)
y = r * Sin(angle)
PSet (x, y), lngColor
Next
End Sub
Private Sub Form_Click()
Dim i As Integer, j As Integer
i = 2 + Int( * Rnd)
j = 2 + Int( * Rnd)
xisu = i / j
Me.Caption = "n=" & i & "/" & j
drawPoint vbGreen
End Sub
Private Sub Form_Load()
Me.DrawWidth = 2
Me.BackColor = vbBlack
End Sub
Private Sub Form_Resize()
Me.Scale (-, )-(, -)
End Sub
请参考
我想用VB编一个程序,输入一个函数y=t+A*Sinw后可以作出它的源码图象并以画图程序保存。 急!绘制函数!图像!源码
我给你一段简单的绘制函数代码,你以此类推
Private Sub Form_Load()
Me.WindowState = vbMaximized
End Sub
Private Sub Form_Paint()
Me.Cls
Me.Scale (-,图像 )-(, -)
Dim i As Single
Dim t As Single
Dim A As Single
t = 2
A =
For i = - To Step 0.
PSet (i, t + A * Sin(i))
Next
End Sub
程序刚开始先最大化窗体,再在OnPaint事件中实现画图,源码这样子你调整窗体大小之后它还会继续刷新。绘制函数
注意自己设定t跟A的图像值。
还有什么不明白的请补充!
要保存的wapp 源码话,别画在窗体上,画在一个PictureBox上,调用
Picture1.PSet (i, t + A * Sin(i))
在要保存的地方,添加:
SavePicture Picture1.Image, "C:\.bmp"
即可,注意改动控件名即文件名。注意,只能保存为bmp格式。
怎么用VB绘制函数图像?
1、qtpushbutton源码绘制任意一函数如y=2x,其简单代码、图像如图所示。2、调用annotation('arrow',x,y) 函数 添加剪头注释,简单代码。结果如图所示(单箭头)。
3、调用annotation('doublearrow',iofile源码x,y)函数 添加双箭头注释,简单代码,结果如图所示(双箭头)。
4、调用annotation('textarrow',x,y),添加添加文本框剪头对象,设置文本框显示的字符串并设置字体大小为。
5、结果如图所示。ocker 源码
怎样用vb画函数图像?
使用VB画函数图像的步骤如下: 1. 定义变量i,yy,xx,colvb,x,y,txt和dy。 2. 定义函数xp(colvb, x, y, txt):设置控件前景色、当前位置、打印文本。 3. 在Command1_Click事件中:使用For循环,对i从0到进行迭代,计算函数值yy。
使用Line控件绘制坐标轴和x轴范围。
使用For循环,对i从0到进行迭代,通过PSet绘制函数图像,颜色为红色。
使用函数xp绘制X轴,颜色为蓝色,文本为"X轴"。
使用函数xp绘制Y轴,颜色为蓝色,文本为"y轴"。
使用函数xp绘制y轴上的0点,颜色为蓝色,文本为"0"。
使用函数xp绘制y轴上和-的点,颜色为蓝色,文本分别为""和"-"。
这样,就完成了使用VB画函数图像的基本流程。