求一个VB编写的 将数据库里的数据用简单曲线显示的小程序

Dim X(1 To 11) As Long: Dim Y(1 To 11) As Long

Private Sub Command1_Click()

Dim X1 As Long: Dim Y1 As Long

Dim X2 As Long: Dim Y2 As Long

X1 = 0

Y1 = 2000

For i = 1 To 11

X2 = (3000 / 150) X(i)

Y2 = 2000 - (2000 / 100) Y(i)

Picture1Line (X1, Y1)-(X2, Y2), vbRed

X1 = X2: Y1 = Y2

Next

End Sub

Private Sub Form_Load()

Picture1Width = 3000

Picture1Height = 2000

For i = 1 To 10

X(i) = CInt(150 Rnd)

Y(i) = CInt(100 Rnd)

DebugPrint "x=" & X(i) & " ;" & "y=" & Y(i)

Next

Dim minX As Long: Dim minY As Long

For i = 1 To 9

For j = i + 1 To 10

If X(i) > X(j) Then

minX = X(i): X(i) = X(j): X(j) = minX

End If

你用什么东西写代码的，用JAVA或者C#或者其他的获取数据库数据很简单，然后通过异步传到JS。

function buynow() {

$ajax({

type: "GET",

url: "/ashx/ashxchecksessionashx",

timeout: 5000,

success: function (data) {

buynow_do(data);

},

complete: function (XML>

VB提供的绘制图形的方法：（可以在窗体上或PicTureBox控件上使用）

与你主题相关的有：

1，绘制直线

objectLine (x1,y1) - (x2,y2), [color]

其中：(x1,y1) 和 (x2,y2)分别是平面上的两个点坐标。

2，绘制一点：

objectPSet (x,y), [color]

其中：(x1,y1) 是平面上的一个点坐标。

3，绘制图形的笔尖的粗细：

objectDrawWidth = size

默认粗细为1。

4，绘制图形的线条的颜色设置：

1）ObjectForeColor = QbColor(n) :n = 0 -- 15

2) 或者在使用上述方法时，在后边跟的参数[color]

思路：

绘制曲线，就是根据函数关系：y = f(x)，采用描点法，在某一区域范围内，根据x计算y，然后用

PSet (x,y)实现曲线的绘制。

以上就是关于求一个VB编写的 将数据库里的数据用简单曲线显示的小程序全部的内容，包括:求一个VB编写的 将数据库里的数据用简单曲线显示的小程序、关于js 怎么调用MySQL中的数据来绘制曲线图、想在VB中根据数据库的数据画曲线变化图，如何画用什么方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！