2024年5月31日发(作者：)

Private

Command1_Click()

'重设坐标系统

ode = 3

(-200, 900)-(1950, -100)

'设置坐标线的宽度

dth = 3 '绘X轴

(0, 0)-(1800, 0) '绘Y轴

(0, 800)-(0, 0) '打网格

Sub

dth = 1

yle = 2

Dim i As Integer

For i = 1 To 20

(i * 90, 0)-(i * 90, 800)

Next i

For i = 1 To 20

(0, i * 40)-(1800, i * 40)

Next i '写坐标轴标志

tX = 850

tY = -50

"t(ms)"

tX = -20

tY = 870

"转速n(转/分)"

choosedname '写纵坐标

For i = 0 To 20 Step 2

tX = -160

tY = i * 40 + 20

Format((200 - 0) * i / 20 + Min, "0.00")

Next i '写横坐标

For i = 0 To 20 Step 2

tX = i * 90

tY = -15

max1 = m_Tpon * m_Pn

max2 = max1 * 1000

Min1 = 0

Format((180 - Min1) * i / 20 + Min1, "0.00")

Next i

nCount = 0

For i = 0 To 9

If i < max2 Then

nCount = nCount + 1

Else

Exit Sub

End If

Next i

End Sub