program.txt

用VB编写的 单片机采集到的数据在软件上显示出来！

Dim Y As Currency, T As Currency, M As Currency, n As Currency, X As Single, A As Integer, i As Single, B As Integer, C As Integer
Dim max As Integer, datee As Integer
Dim X1 As Single, Y1 As Single
Dim vx(0 To 100) As Single
Dim vy(0 To 100) As Single
Dim data() As Byte

Private Sub Form_Load()
        MSComm1.CommPort = 1
       MSComm1.Settings = "2400,n,8,1"
        MSComm1.InputLen = 0
        MSComm1.PortOpen = True
        MSComm1.RThreshold = 1
        vx(0) = 0
        vy(0) = 0
        max = 1
        T = 3                             '从1mm 起读起
        Show
    Call Xyzone
End Sub


Private Sub Command1_Click()
    
       
     
       MSComm1.InBufferCount = 0
       
       Dim sendData() As Byte
       ReDim sendData(1)
       sendData(0) = Rnd * 255
       
       MSComm1.Output = sendData
       
        
        X = T
        T = T + 1         '自加部分
    
        Do
        DoEvents
        Loop Until MSComm1.InBufferCount > 0

        tem = MSComm1.Input
        data = tem
       
        M = data(0) * 5# / 255
       
       
        M = (M - 2) * -1                   ' 电位上提2v
        Y = M * 2                         '实际电压乘以倍数得坐标电压
        
        
    
        Picture1.DrawWidth = 4
        Picture1.PSet (X, Y), vbRed
        
        
        If T > 4 Then
            Picture1.DrawWidth = 1
        Picture1.Line (X, Y)-(X1, Y1), vbRed
        End If
        
        X1 = X
        Y1 = Y
         
        
    
       
End Sub


Private Sub Command2_Click()
        A = MsgBox("确定退出本系统", 256 + 4 + 32, "请确认")
    If A = 6 Then
        End
    End If
End Sub




Private Sub Xyzone()
        Picture1.ScaleMode = 7
        Picture1.Scale (-0.5, 6)-(11, -6)
        Picture1.DrawWidth = 1
        
        For i = -6 To 6 Step 0.5
            Picture1.Line (-0.5, i)-(11, i), &HC0E0FF
                      Next i
         For i = -0.5 To 11 Step 0.5
             Picture1.Line (i, -6)-(i, 6), &HC0E0FF
                      Next i
         Picture1.Line (0, -6)-(0, 6), vbRed
         Picture1.Line (-0.5, 0)-(11, 0), vbRed

        Picture1.CurrentY = -1             '写坐标点
        Picture1.CurrentX = 10
        Picture1.Print "位移(mm)"

        Picture1.CurrentY = 5.5        '写坐标点
        Picture1.CurrentX = 0.2
        Picture1.Print " 电压(V)"

        Picture1.CurrentY = 0.13       '写坐标点
        Picture1.CurrentX = 10.7
        Picture1.Print " >"

        Picture1.CurrentY = 6        '写坐标点
        Picture1.CurrentX = -0.2
        Picture1.Print " /\"
        
         Picture1.CurrentY = 0        '写坐标点
        Picture1.CurrentX = 0.2
        Picture1.Print " 0"
        
        For i = 0.5 To 10 Step 0.5
            Picture1.CurrentY = 0
            Picture1.CurrentX = i - 0.2
            Picture1.Print i
            Picture1.DrawWidth = 1
            Picture1.DrawWidth = 4
            Picture1.PSet (i, 0.03), vbBlue
        Next i
         
         For i = -5 To 5 Step 0.5
            Picture1.CurrentY = i
            Picture1.CurrentX = -0.5
            Picture1.Print i
            Picture1.DrawWidth = 1
            Picture1.DrawWidth = 4
            Picture1.PSet (0.03, i), vbBlue
        Next i

End Sub