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

如何在VB中畫曲線？

Option Explicit

Private Sub Formuuclick（）

Cls

Dim i，j As Single我。秤（-1，10）-（25，-1）“定義坐標(biāo)系，原點(diǎn)靠近左下角

直線（-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

結(jié)束if

下一步

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

如果J<> 0那么

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

currentx=-0.7:currenty=J 0.1

打印J

結(jié)束if

下一步

currentx=-0.4:currenty=-0.2

打印“0”“繪制原點(diǎn)

currentx=0.5:currenty=9.5

打印“Y”

currentx=24:currenty=0.5

打印“x”

隨機(jī)

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

對于I=2到24

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

！下一步

結(jié)束分

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

1。使用mschar控件（VB6）；

2。使用水晶報(bào)表；

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