如何在VB中畫曲線？Option ExplicitPrivate Sub Formuuclick（）ClsDim i，j As Single我。秤（-1，10）-（25，-1）“定義坐標系，原點靠近左

如何在VB中畫曲線？

Option Explicit

Private Sub Formuuclick（）

Cls

Dim i，j As Single我。秤（-1，10）-（25，-1）“定義坐標系，原點靠近左下角

直線（-1，0）-（25，0）”繪制X軸

直線（0，-1）-（0，10）“繪制Y軸

對于I=-1到25步驟1”繪制X軸比例

如果I<>0然后

線（I，0）-（I，0.2）

currentx=I-0.3:currenty=-0.2

打印I

結束if

下一步

對于J=-1到10“繪制Y軸比例

如果J<> 0那么

線（0，J）-（0.3，J）

currentx=-0.7:currenty=J 0.1

打印J

結束if

下一步

currentx=-0.4:currenty=-0.2

打印“0”“繪制原點

currentx=0.5:currenty=9.5

打印“Y”

currentx=24:currenty=0.5

打印“x”

隨機

currentx=1:currenty=format（RND*10，“0.00”）

對于I=2到24

行-（I，format（RND*10，“0.00”）這里是隨機生成的數(shù)據(jù)

！下一步

結束分

簡單來說，你可以檢查具體的代碼。首先，你需要能夠畫一個圖表。有三種方法：

1。使用mschar控件（VB6）；

2。使用水晶報表；

3。使用單詞表的x軸作為時間，y軸作為數(shù)據(jù)。要實現(xiàn)實時數(shù)據(jù)刷新，只需使用計時器刷新圖形的數(shù)據(jù)（x，y數(shù)據(jù)重寫）