谁会用vb描点画图

如何用VB进行描点画图~

送你一段代码。自己研究~~控件都能看的懂！
这是sin的图~
Private Sub Command1_Click()
Const pi = 3.14159
Dim x As Single, a As Single, w As Single, f As Single, y As Single
Dim cz As Single, zz As Single
Picture1.Scale (-5, 10)-(10, -10)
Picture1.DrawWidth = 3
Picture1.Line (-5, 0)-(10, 0)
Picture1.Line (0, -10)-(0, 10)
Picture1.Line (0, 10)-(0.2, 9.5)
Picture1.Line (10, 0)-(9.5, 0.2)
Picture1.Line (10, 0)-(9.5, -0.2)
a = Val(Text1.Text)
w = Val(Text2.Text)
f = Val(Text3.Text)
Picture1.ForeColor = RGB(255, 0, 0)
Picture1.DrawWidth = 2
cz = -f / w
zz = (2 * pi - f) / w
For x = cz To zz Step (zz - cz) / 200
y = a * Sin(w * x + f)
Picture1.PSet (x, y)
Next x
End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture1.Scale (-5, 10)-(10, -10)
Picture1.ForeColor = RGB(255, 255, 0)
Picture1.DrawWidth = 3
Picture1.Line (0, 10)-(-0.2, 9.5)
Picture1.Line (0, 10)-(0.2, 9.5)
Picture1.Line (10, 0)-(9.5, 0.2)
Picture1.Line (10, 0)-(9.5, -0.2)
Picture1.Line (-5, 0)-(10, 0)
Picture1.Line (0, -10)-(0, 10)
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = 1
Text2.Text = 1
Text3.Text = 0

End Sub

Private Sub Text1_LostFocus()
If Abs(Val(Text1.Text)) > 9 Then
Text1.Text = 1
End If
End Sub

Private Sub Text2_LostFocus()
If Abs(Val(Text2.Text)) > 9 Then
Text2.Text = 1
End If
End Sub

Function Dpp(x, y, x1, y1)Dpp = Sqr((x - x1) ^ 2 + (y - y1) ^ 2)End FunctionFunction Ry(r, x)If Abs(x) = 1 And g >= 1 And b >= 1 Then Exit SubIf r < 0 Then r = 0If g < 0 Then g = 0If b < 0 Then b = 0PSet (x, y), RGB(r * 255, g * 255, b * 255)End SubSub myCircle(x0, y0, r, Optional w, Optional s)Dim u, x, y1, y2, h, y, cr, cg, cbIf IsMissing(w) Then w = 1 '线宽If IsMissing(s) Then s = 1 '平滑u = (w + s) / 2For x = Round(x0 - r - u) To Round(x0 + r + u)y1 = Ry(r - u, x - x0)y2 = Ry(r + u, x - x0)For h = -1 To 1 Step 2For y = Round(y0 + y1 * h) To Round(y0 + y2 * h) Step hcr = Abs(r - Dpp(x0, y0, x - 1 / 3, y))cg = Abs(r - Dpp(x0, y0, x, y))cb = Abs(r - Dpp(x0, y0, x + 1 / 3, y))myPset x, y, cr, cg, cb, w, sNext yNext hNext xEnd SubPrivate Sub Form_Load()AutoRedraw = TrueScaleMode = 3BackColor = vbWhiteWidth = 490 * 15Height = 310 * 15ShowFor w = 0 To 3 Step 0.5CurrentX = w * 120 + 80 - TextWidth("线宽" & w) / 2CurrentY = 10Print "线宽" & wFor s = 0.5 To 2 Step 0.5If w = 0 ThenCurrentX = 28 - TextWidth("平滑" & s) / 2CurrentY = 120 * s - 6Print "平滑" & sEnd IfmyCircle w * 120 + 80, 120 * s - 3, 25, w, sDoEventsNext sNext wEnd Sub

1,加入comm控件就可以用Input/Output属性读取数据了。
2，用VB打开Excel，如
Dim appExcel As Object
Dim wbkName As Object
Dim shtName As Object
Dim strSavePath As String

'Create the Excel file
10 Set appExcel = CreateObjec("Excel.Application")
20 Set wbkName = appExcel.workbooks.Add
30 Set shtName = wbkName.worksheets(1)
40 wbkName.worksheets(1).Name = "Sheet1"
50 appExcel.Range("A1").Value = "Channel"
60 strSavePath = App.Path & "\Test.xls"
70 wbkName.SaveAs strSavePath
80 appExcel.quit
3,可以用line语句或者用MSChar控件，MSchar.ChartData = dblData1_2'二维数组，注意坐标是（y，x）。

1、事实上是读取串口数据，VB中有相应的控件和方法
2、事实上是用VB打开Excel并编辑。
3、VB的Line语句就可以完成在窗体上画线。
以上的方法资源非常多，你分开查一查，我就不细说了。

Line语句就可以完成在窗体上画线
用VB打开Excel

第一步不会搞，后面的问题应该不大
不是很难的，

---

萧县18994244567： 用VB怎么根据函数画出图形 - ？
梅芸可利： 数学中常用的就是描点法;通过X计算出Y,输出该点,然后点与点之间可以连接直线;VB可以在Form或者PictureBox里绘制点和直线;命令格式如下:1,绘制点;对象名.Pset (x,y)2,绘制直线;对象名.Line (x1,y1) - (x2,y2) 说明:(x,y)、(x1,y1)、(x2,y2)是点的坐标.

萧县18994244567： vb中怎样描点,然后再将点直接用线连起来 - ？
梅芸可利： 描点:Circle (x, y), r 画线:line(x1,y1)-(x2,y2) 请看看这里有资料:VB制作折线统计图[张志晨] http://hi.baidu.com/xlzzc/blog/item/e3c48200ccca45147aec2c24.html

萧县18994244567： 如何用vb用描点法画圆?请提供得到圆周上等间隔的n个点的坐标的方? ？
梅芸可利： 不知道这样是否可以(注意要把窗体调成正方形,不然就画出椭圆): Dim x#, y# Private Sub Form_Load() Me.Scale (-5, 5)-(5, -5) Me.DrawWidth = 4 End Sub Private Sub Form_Click() For x = 0 To 4 Step 0.001 y = Sqr(16 - x ^ 2) PSet (x, y) PSet (-x, y) PSet (x, -y) PSet (-x, -y) Next x End Sub

萧县18994244567： 如何用VB编程画点划线? - ？
梅芸可利： 构建算法,先划20个点,空四个点,再划2个点,再空四个点,然后再划20个点,如此循环

萧县18994244567： 如何用vb用描点法画圆 - ？
梅芸可利： Function Dpp(x, y, x1, y1) Dpp = Sqr((x - x1) ^ 2 + (y - y1) ^ 2) End Function Function Ry(r, x) If Abs(x) Ry = Sqr(r ^ 2 - x ^ 2) Else Ry = 0 End If End Function Sub myPset(x, y, r, g, b, w, s) r = (r - w / 2) / s + 0.5 g = (g - w / 2) / s + 0.5 b = (b - w / 2) / s + 0....

萧县18994244567： 如何用VB画坐标图?(用给一组X,Y的数据,并描点,作截距线) - ？
梅芸可利： 关键看你是想在form里面还是在picture里面画坐标了 在以上两种里面的代码不同,在form里面用form.line 在picture里面用pictures.line 以在图片里面画图为例子,vb中系统的坐标原点在你所画的picture的、 最左上角的那一点上.,知道系统的...

萧县18994244567： vb中如何描点作图 - ？
梅芸可利： 请根据我的提醒,仔细检查并修改一下你的程序代码,应该没问题的:1、dim a,b as single表示定义变量a,但没有给它指定数据类型,b后的as single只管得住b是single类型.所以,如果要定义a也是single类型,应该“dim a as single,b as ...

萧县18994244567： 怎么用VB语言编绘制点的程序,点要整齐有规律的?? - ？
梅芸可利： Picture1.PSet (x, y), vbBlack Picture1是picture控件,x,y是点的坐标,vbblack是颜色 想要什么图形就在Timer控件下画点就好了 我发一个我的程序给你把

萧县18994244567： 怎么用VB画函数图像? - ？
梅芸可利： 用描点的方法吧 Form1.PSet (x, Sin(x)) Private Const PI = 3.14159265358979 Private Sub Command1_Click() w = 5 * PI h = w * Picture1.Height / Picture1.Width Picture1.Scale (-w, h)-(w, -h) k = Picture1.ScaleWidth / Picture1.Width Debug.Print ...

萧县18994244567： 有谁会VB绘图? - ？
梅芸可利： Private Sub Form_Click() Dim R As Single, PI As Double, M As Single M = 10 '分的份数,请输入一个>0的正整数 Cls PI = 3.1415926 Form1.FillStyle = 0 For i = 1.5 To 2.5 Step 1 / M k = k + 1 Form1.FillColor = IIf(k Mod 2, vbRed, vbBlue) Circle (...