皮皮网

【原生txl源码】【微婚恋源码】【fastboot源码分析】vb源码 绘制函数图像

2024-11-06 13:31:03 来源:pigcms 源码 漏洞

1.vb函数曲线绘制程序的源码代码
2.我想用VB编一个程序,输入一个函数y=t+A*Sinw后可以作出它的绘制函数图象并以画图程序保存。 急!图像!源码!绘制函数
3.怎么用VB绘制函数图像?
4.怎样用vb画函数图像?

vb源码 绘制函数图像

vb函数曲线绘制程序的图像原生txl源码代码

       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的图像值。

       还有什么不明白的请补充!

       要保存的微婚恋源码话,别画在窗体上,画在一个PictureBox上,调用

       Picture1.PSet (i, t + A * Sin(i))

       在要保存的地方,添加:

       SavePicture Picture1.Image, "C:\.bmp"

       即可,注意改动控件名即文件名。注意,只能保存为bmp格式。

怎么用VB绘制函数图像?

       1、fastboot源码分析绘制任意一函数如y=2x,其简单代码、图像如图所示。

       2、调用annotation('arrow',x,y) 函数  添加剪头注释,简单代码。结果如图所示(单箭头)。

       3、调用annotation('doublearrow',github 源码封装x,y)函数  添加双箭头注释,简单代码,结果如图所示(双箭头)。

       4、调用annotation('textarrow',x,y),添加添加文本框剪头对象,设置文本框显示的字符串并设置字体大小为。

       5、结果如图所示。ae广告源码

怎样用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画函数图像的基本流程。