基于VB做的串口编程调试软件

        If intAdd48Chk = 1 Then
            intHighAddress = 8
        Else
            intHighAddress = 4
        End If
            intAddressArray(0) = intAddress
        For m = 1 To intHighAddress
            intAddressArray(m) = intAddressArray(m - 1) \ 16
        Next m
        For m = 1 To intHighAddress
            intAddressArray(m - 1) = intAddressArray(m - 1) - intAddressArray(m) * 16
        Next m
        For m = 1 To intHighAddress
       
            If intAddressArray(intHighAddress - m) < 10 Then
                intAddressArray(intHighAddress - m) = intAddressArray(intHighAddress - m) + Asc("0")
               
            Else
                intAddressArray(intHighAddress - m) = intAddressArray(intHighAddress - m) + Asc("A") - 10
               
            End If
            strAddress = strAddress + Chr$(intAddressArray(intHighAddress - m))
        Next m
       
        strAddress = strAddress + Chr$(13) + Chr$(10)       '设置换行
           
    Next n
   
   
    '***************************************
End Sub

'*************************************
'显示输出
'*************************************

Public Sub display()

   
    Dim intViewWidth As Long        '横向宽度(像素)
    Dim intViewLine As Integer      '纵向宽度(行)

    Dim strDisplayAddress As String
    Dim strDisplayHex As String
    Dim strDisplayAscii As String
   
    strDisplayAddress = ""
    strDisplayHex = ""
    strDisplayAscii = ""
   
    Dim intStart As Integer
    Dim intLenth As Integer
   
   
  
   
    intStart = intOriginY * (intHexWidth + 2) + 1
    intLenth = intViewLine * (intHexWidth + 2)
    strDisplayAscii = Mid(strAscii, intStart, intLenth)
   
   
   
  
   
   
   
End Sub

'******************************************
'文本无变化的刷新
'******************************************

Public Sub ScrollRedisplay()

    Call display
   
End Sub

'******************************************
'文本发生变化的刷新
'******************************************

Public Sub SlideRedisplay()
   
    Call GetDisplayText
    Call display

End Sub

'******************************************

 

上一页  [1] [2] [3] [4] [5] 

本文关键字：软件  自动控制-单片机，电子制作 - 自动控制-单片机