谁懂得用vb来描点画图

作者&投稿:汉劳 (若有异议请与网页底部的电邮联系)
谁会用vb描点画图~

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、dim a,b as single表示定义变量a,但没有给它指定数据类型,b后的as single只管得住b是single类型。所以,如果要定义a也是single类型,应该“dim a as single,b as single”,这是省略不了的。但可以简写为“dim a!,b!”
2、ca(720)默认是从ca(0)到(720)共721个数据。
3、【重点注意】For i = 0 To 720是循环721次,不是循环720次,所以,你要确信outdate.txt的数据量足够程序循环721次,否则,这个要减去一次循环的。如果outdate.txt只有720组数据,这个程序肯定会出错的。
你不妨把第一个for循环改成For i = 0 To 719,第二个for循环改成for i=0 to 718看看。

Q我:512679991

可以
scale建立坐标系

自定义离散点

windows API函数

Line方法

Scale (-300, -300)-(300, 300)
DrawWidth = 3
PSet (c(1), d(1)), vbGreen
For xx = 2 To 300
Line -(c(xx), d(xx)), vbGreen
Next xx

加这几行程序就可以画出来了

Private Sub Form_Click()
Scale (-100, 100)-(100, -100) '定义坐标系
'以上四个参数分别为窗体左上角的x值,左上角的y值,右下角的x值,右下角的y值

Line (-100, 0)-(100, 0) '画出横坐标轴 [点 (-100,0) 到点 (100,0) ]
Line (0, 100)-(0, -100) '画出纵坐标轴 [点 (0,100) 到点 (0,-100) ]
Line (-12, 10)-(26, 90) '连接任意两点[(假设是(-12,10)和(26,90)]
End Sub


vb 帮我看下这段关于用数学函数绘图的程序???附图
1.定义变量 2.设置坐标:(x1,y1)表示Form的左上角坐标,(x2,y2)表示Form的右下角坐标 3.清除Form上的图形 4.外层循环,设置画的曲线数和大小 5.内层循环,设置描点时的参数——三角函数的参数,同时还顺便设置了描点次数 6、7.设置每次描点的横、纵坐标 9.描点连线 10、11.循环结束语句 ...

vb读取数据库信息,在jpg图片上描点标注 并支持浏览详细信息
用一个窗体放置IE控件、后台生成HTML文件插入那个高清图片并设置HTML热点(热点是从数据库读取出来的、热点被点击时的说明也是从数据库读取出来放到HTML页面的全局变量中的)HTML页面中的热点被点击时调用HTML内的JS或VBS角本显示说明。

怎样用VB在一张图上绘制坐标分布图
所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为 1,PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1,则点的中心位于指定坐标。画点的方法取决于 DrawMode 和 DrawStyle 属性值。执行 PSet 时,CurrentX 和 CurrentY 属性被设置为参数指定的点。想用 PSet 方法清除单一像素,规定...

请教VB中一个画点的问题
object.x, y 必需的。均为单精度值,指示 Form 或 PictureBox 的 ScaleMode 属性中该点的水平(x-轴)和垂直(y-轴)坐标。必须用括号包括这些值。说明 如果由 x 和 y 坐标所引用的点位于 object 之外,Point 方法将返回 -1。画点用pset方法 点的大小由窗体或picture控件的DrawWidth属性决定 ...

VB编写函数用PSET方法画
'画纵坐标轴,颜色为蓝色 '用循环语句描点画函数图像 for x = -10 to 10 step 0.0001 'x值从-10变化到10,每次增量为0.0001 y = x ^ 2 '根据表达式y=x2来计算y值 picture1.pset (x,y),rgb(255,0,0)'根据x,y的值用红色描点 next x '取下一个增量后的x值 end sub '结束...

想在VB中根据数据库的数据画曲线变化图,如何画?用什么方法
默认粗细为1。4,绘制图形的线条的颜色设置:1)Object.ForeColor = QbColor(n) :n = 0 -- 15 2) 或者在使用上述方法时,在后边跟的参数[color]思路:绘制曲线,就是根据函数关系:y = f(x),采用描点法,在某一区域范围内,根据x计算y,然后用 PSet (x,y)实现曲线的绘制。

在VB6.0里,用picture怎么画4个实时曲线分别测量4个数据?求代码_百度...
基本思路就是利用PictureBox控件的 画点方法,采用数学声称为描点法的方法;PictureBox控件的画点方法:对象.Pset (x,y)其中x ,y,分别是点的坐标。

怎么用vba画三角形
步骤:打开excel,进入vb 请点击输入图片描述 插入模块 请点击输入图片描述 在模块1内编程,声明4个函数,并编写一句显示窗体的程序——“直角三角形”。请点击输入图片描述 插入窗体 5.双击窗体进入编程界面,编写窗体单击事件触发的程序,调用模块1里声明的1个结构、4个函数编写程序 执行宏——“直角...

什么是VB?什么是VC?它们有什么区别?
什么是VB?什么是VC?它们有什么区别?  我来答 5个回答 #热议# 作为中考生的家长,应该怎样对待...10、了解最简单的GDI(图形设备接口):写文字、画框、画点、画线、画圆,设置画笔、画刷。 11、熟悉...但计算机是不懂得自然语言的(可以理解为高级语言),而高级语言设计出来的程序如何让计算机去执行呢?其实...

vb6.0中,在picturebox 控件中用SetPixelV描点画了一幅BMP图像时一个关...
最好有代码 为了不被遮挡部分消失 ,还是需要autoredraw=true ,只是显示后如何刷新的问题了。

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

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

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

和硕县17575313711: VB 逐点 画图 -
凭印清肝: pset(x,y)

和硕县17575313711: 如何用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....

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

和硕县17575313711: 怎么用VB语言编绘制点的程序,点要整齐有规律的?? -
凭印清肝: Picture1.PSet (x, y), vbBlack Picture1是picture控件,x,y是点的坐标,vbblack是颜色 想要什么图形就在Timer控件下画点就好了 我发一个我的程序给你把

和硕县17575313711: 如何用VB编程画点划线? -
凭印清肝: 构建算法,先划20个点,空四个点,再划2个点,再空四个点,然后再划20个点,如此循环

和硕县17575313711: 怎么用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 ...

和硕县17575313711: 如何用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

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网