MSComm1.PortOpen = False
Command2.Caption = "打开串口"
End If
End Sub
Private Sub MSComm1_OnComm() '触发事件
If MSComm1.InBufferCount > 0 Then
Text4.Text = MSComm1.Input
c = Val(Text4.Text)
delay (20)
End If
End Sub
Private Sub draw()
Picture1.FontSize = "15" '设置字体大小
Picture1.DrawWidth = 1
Picture1.ForeColor = QBColor(12)
Picture1.Cls
Picture1.Line (-88, -88)-(-88, 88) '纵坐标
Picture1.Line (-89, 86)-(-88, 88) '纵坐标箭头及 y 值
Picture1.Line (-87, 86)-(-88, 88)
Picture1.PSet (-86, 88)
Picture1.Print "y"
Picture1.Line (-88, 0)-(88, 0) '横坐标
Picture1.Line (86, 1)-(88, 0) '横坐标箭头及 x 值
Picture1.Line (86, -2)-(88, 0)
Picture1.PSet (88, -1)
Picture1.Print "x"
Picture1.DrawWidth = 4
Picture1.FontSize = 8
For Y = -80 To 80 Step 10
Picture1.PSet (-88, Y)
Picture1.Print (Y)
Next Y
T = -88
Timer2.Enabled = True
End Sub
Private Sub Picture1_MouseDOWN(Button As Integer, Shift As Integer, B As Single, A As
Single) '"光标线读数"
Text1.Text = B
Text2.Text = A
评论2
最新资源