本文目录
- 如何用vb画出简易函数图像
- 想在VB中根据数据库的数据画曲线变化图，如何画用什么方法
- VB怎样画扇形，椭圆，弧形
- VB画图的命令都有什么啊
- 如何用VB画出一下图形五角星
- VB中怎么画出下面的图形
- 用VB怎么根据函数画出图形
如何用vb画出简易函数图像
用vb画出简易函数图像的操作步骤为：（1）新建一个工程,新建一个Form1,在上面添加一个picture控件和一个command控件；（2）选中此控件,右击"复制",在窗体空白处右击"粘贴",在弹出的对话框中选择"是",创建了一个Command控件数组,复制,使窗体上总共出现7个Command控件；（3）复制代码:Const Pi = 3.1415926535 ’定义圆周率Dim a, worDim i As IntegerStatic Function Loge(X) Loge = Log(X) / Log(Exp(1))End Function’定义用于在Picture1上的一个位置打印字符函数Private Function PrintWord(X, y, Word As String)With Picture1.CurrentX = X.CurrentY = y.ForeColor = RGB(0, 0, 255)End WithPicture1.Print WordEnd FunctionPrivate Function DrawDot(Px, Py, Color)Picture1.PSet (Px, Py), ColorEnd FunctionSub XY() ’建立直角坐标系Picture1.DrawWidth = 1 ’设置线条宽度Picture1.Cls’设定用户坐标系，坐标原点在Picture1中心Picture1.Scale (-10, 10)-(10, -10)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)Picture1.ForeColor = RGB(0, 0, 255)Picture1.Print "X"’画 X 轴Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)Picture1.Print "Y"’画 Y 轴For lin = -9 To 9Picture1.Line (lin, 0)-(lin, 0.25)wor = PrintWord(lin - 0.5, -0.5, Str(lin))Picture1.Line (0, lin)-(-0.25, lin)If lin 《》 0 Thenwor = PrintWord(-0.9, lin, Str(lin))End IfNext linPicture1.DrawWidth = 2End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 For a = -3 To 3 Step Pi / 6000 Dot = DrawDot(a, a ^ 2, RGB(0, 0, 0)) Next a wor = PrintWord(4, 9, "二次曲线 y=x^2")Case 1 For a = -9 To 9 Step Pi / 6000 Dot = DrawDot(a, a, RGB(0, 0, 0)) Next a wor = PrintWord(8, 5, "一次曲线 y=x")Case 2 For a = -9 To 3 Step Pi / 6000 Dot = DrawDot(a, Exp(a), RGB(0, 0, 0)) Next a wor = PrintWord(4, 9, "指数曲线 y=e^x")Case 3 For a = 0.0001 To 9 Step Pi / 6000 Dot = DrawDot(a, Loge(a), RGB(0, 0, 0)) Next a wor = PrintWord(8, 3, "对数曲线 y=ln x")Case 4 For a = -10 To 10 Step Pi / 6000 Dot = DrawDot(a, Sin(a), RGB(0, 0, 0)) Next a wor = PrintWord(-5, 2, "正弦曲线 y=sin x")Case 5 For a = -10 To 10 Step Pi / 6000 Dot = DrawDot(a, Cos(a), RGB(0, 0, 0)) Next a wor = PrintWord(-9, 2, "余弦曲线 y=cos x")Case 6 XYEnd SelectEnd SubPrivate Sub Form_Load()Me.Caption = "数学函数作图?quot;"Me.ShowMe.AutoRedraw = TruePicture1.AutoRedraw = TrueCommand1(0).Caption = "二次曲线"Command1(1).Caption = "一次曲线"Command1(2).Caption = "指数曲线"Command1(3).Caption = "对数曲线"Command1(4).Caption = "正弦曲线"Command1(5).Caption = "余弦曲线"Command1(6).Caption = "清空"XYEnd SubPrivate Sub Form_Resize()Picture1.Width = Me.Width * 0.94Picture1.Height = Me.Height - (Command1(0).Height * 4 + 100)Command1(0).Top = Me.Height - (Command1(0).Height * 2.5 + 100)Command1(0).Left = Me.Width * 0.01For i = 1 To 6Command1(i).Top = Me.Height - (Command1(0).Height * 2.5 + 100)Command1(i).Left = Command1(i - 1).Left + 1000NextXYEnd Sub
想在VB中根据数据库的数据画曲线变化图，如何画用什么方法
VB提供的绘制图形的方法：（可以在窗体上或PicTureBox控件上使用）与你主题相关的有：1，绘制直线object.Line (x1,y1) - (x2,y2), 其中：(x1,y1) 和 (x2,y2)分别是平面上的两个点坐标。2，绘制一点：object.PSet (x,y), 其中：(x1,y1) 是平面上的一个点坐标。3，绘制图形的笔尖的粗细：object.DrawWidth = size默认粗细为1。4，绘制图形的线条的颜色设置：1）Object.ForeColor = QbColor(n) :n = 0 -- 152) 或者在使用上述方法时，在后边跟的参数思路：绘制曲线，就是根据函数关系：y = f(x)，采用描点法，在某一区域范围内，根据x计算y，然后用PSet (x,y)实现曲线的绘制。
VB怎样画扇形，椭圆，弧形
用Circle 画圆 圆弧 椭圆 都可以 具体参照下面的详细说明Circle(1000,1000),500,8,-6,-31000,1000,圆心坐标500,半径后面分别代表起始角,终止角,长短轴比率好吧,详细点,就把Circle方法都说一遍在对象上画圆、椭圆或弧。语法object.Circle Circle 方法的语法有如下的对象限定符和部分：部分 描述 object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。 Step 可选的。关键字 ，指定圆、椭圆或弧的中心，它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。 (x, y) 必需的。 Single （单精度浮点数），圆、椭圆或弧的中心坐标。object 的 ScaleMode 属性决定了使用的度量单位。 radius 必需的。Single （单精度浮点数），圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位。 color 可选的。Long （长整型数），圆的轮廓的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 start, end 可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 end 指定（以弧度为单位）弧的起点和终点位置。其范围从 -2 pi 到 2 pi 。起点的缺省值是0; 终点的缺省值是2 * pi。 aspect 可选的。 Single （单精度浮点数），圆的纵横尺寸比。缺省值为 1.0，它在如何屏幕上都产生一个标准圆（非椭圆）。 说明想要填充圆，使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。画部分圆或椭圆时，如果 start 为负，Circle 画一半径到 start，并将角度处理为正的；如果 end 为负，Circle 画一半径到 end，并将角度处理为正的。Circle 方法总是逆时针（正）方向绘图。画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值。在背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值。画角度为 0 的扇形时，要画出一条半径（向右画一水平线段），这时给 start 规定一很小的负值，不要给 0。.可以省略语法中间的某个参数，但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。Circle 执行时，CurrentX 和 CurrentY 属性被参数设置为中心点。这个方法不能用在 With匛nd With 语句块中。--------------------------------------------------------------------------------Circle 方法示例这个示例用Circle 方法在窗体中央画许多同心圆。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。Sub Form_Click () Dim CX, CY, Radius, Limit ’ Declare variable. ScaleMode = 3 ’ 以像素为单位。 CX = ScaleWidth / 2 ’ X 位置。 CY = ScaleHeight / 2 ’ Y 位置。 If CX 》 CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ’ 半径。 Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next RadiusEnd Sub--------------------------------------------------------------------------------
VB画图的命令都有什么啊
Line,Circle,Pset,Cls.辅助命令：RGB,QBColor.API中绘图命令相当多。1.设定图素SetPixelGetPixel2.画线LineTo 画直线。 Polyline和PolylineTo 画一系列相连的直线。 PolyPolyline 画多组相连的线。 Arc 画椭圆线。 PolyBezier和PolyBezierTo 画贝塞尔曲线。ArcTo和AngleArc 画椭圆线。 PolyDraw 画一系列相连的线以及贝塞尔曲线3.既画线也填入所画图形的封闭区域的函数,边界框函数Rectangle 画矩形。 Ellipse 画椭圆。 RoundRect 画带圆角的矩形。 Pie 画椭圆的一部分，使其看起来像一个扇形。 Chord 画椭圆的一部分，以呈弓形。/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////SetPixel函数在指定的x和y坐标以特定的颜色设定图素：SetPixel (hdc, x, y, crColor) ; 如同在任何绘图函数中一样，第一个参数是设备内容的句柄。第二个和第三个参数指明了坐标位置。通常要获得窗口显示区域的设备内容，并且x和y相对于该显示区域的左上角。最后一个参数是COLORREF型态指定了颜色。如果在函数中指定的颜色视讯显示器不支持，则函数将图素设定为最接近的纯色并从函数传回该值。GetPixel函数传回指定坐标处的图素颜色：crColor = GetPixel (hdc, x, y) ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////画一条直线，必须呼叫两个函数。第一个函数指定了线的开始点，第二个函数指定了线的终点：MoveToEx (hdc, xBeg, yBeg, NULL) ; LineTo (hdc, xEnd, yEnd) ; MoveToEx实际上不会画线，它只是设定了设备内容的「目前位置」属性。然后LineTo函数从目前的位置到它所指定的点画一条直线。目前位置只是用于其它几个GDI函数的开始点。在内定的设备内容中，目前位置最初设定在点（0,0）.如果在呼叫LineTo之前没有设定目前位置，那么它将从显示区域的左上角开始画线。当您要将数组中的点连接成线时，使用Polyline函数要简单得多Polyline (hdc, apt, 5) ; 最后一个参数是点的数目。我们还可以使用(sizeof (apt) / sizeof (POINT))来表示这个值。Polyline与一个MoveToEx函数后面加几个LineTo函数的效果相同，但是，Polyline既不使用也不改变目前位置。PolylineTo有些不同，这个函数使用目前位置作为开始点，并将目前位置设定为最后一根线的终点/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Rectangle (hdc, xLeft, yTop, xRight, yBottom) ; 点(xLeft, yTop)是矩形的左上角，(xRight, yBottom)是矩形的右下角。用函数Rectangle画出的图形如图5-6所示，矩形的边总是平行于显示器的水平和垂直边
如何用VB画出一下图形五角星
用line控件，或line命令都可以画。你要先计算出五角星的五个点的坐标，就可以了。代码：Private Sub Form_Load()Me.AutoRedraw = TrueEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Const Pi = 3.14159265358979Clsr = Val(InputBox("输入五角星的直径，大于1000")) / 2’中心坐标是（x，y）’求五个点的坐标X1 = X: Y1 = Y - rX2 = X + r * Cos(Pi / 10)Y2 = Y - r * Sin(Pi / 10)X3 = X + r * Cos(54 / 180 * Pi)Y3 = Y + r * Sin(54 / 180 * Pi)X4 = X - r * Cos(54 / 180 * Pi)Y4 = Y3X5 = X - r * Cos(18 / 180 * Pi)Y5 = Y2’画五角星Line (X1, Y1)-(X3, Y3)Line -(X5, Y5)Line -(X2, Y2)Line -(X4, Y4)Line -(X1, Y1)End Sub希望有帮助到你，望采纳，谢谢！
VB中怎么画出下面的图形
1.通过自定义坐标系, 自定义的园半径. 画圆.2. 根据图形分成4组. 每组都有点集合和颜色.通过标注的角度值把各个点的坐标计算出来. 3. 分别连线即可.
用VB怎么根据函数画出图形
数学中常用的就是描点法；通过X计算出Y，输出该点，然后点与点之间可以连接直线；VB可以在Form或者PictureBox里绘制点和直线；命令格式如下：1，绘制点；对象名.Pset (x,y)2，绘制直线；对象名.Line (x1,y1) - (x2,y2)说明：(x,y)、(x1,y1)、(x2,y2)是点的坐标。
