End Function

Public Function CH375DBG_WriteIRAM(StartAddr As Long, Buffer() As Byte, Count As Byte) As Boolean       '向內部RAM寫入數據塊
' 輸入參數: StartAddr 指定內部RAM的起始地址
'           buffer 指向一個數據緩沖區'存放準備寫入的數據塊
'           count 指定寫入的字節數
' 向內部RAM寫入數據塊
' 輸入參數: StartAddr 指定內部RAM的起始地址
'           buffer 指向一個數據緩沖區,存放準備寫入的數據塊
'           count 指定寫入的字節數
Dim Down As USB_DOWN_PKT
Dim Up  As USB_UP_PKT
Dim Leng As Long
    CH375DBG_WriteIRAM = False
    If (Count > MAX_DATA_SIZE) Then
        CH375DBG_WriteIRAM = False        ' 限制單次處理的數據長度,可以與單片機程序的MAX_DATA_SIZE一起同步修改為更大或更小的值
        Exit Function
    End If
    Down.mCommand = WriteIRamCmdCode
    Down.mCommandNot = Not (Down.mCommand)
    Down.mByte(0) = CByte(StartAddr)
    For i = 1 To 3
      Down.mByte(i) = 0
    Next i
    Down.mLength = Count
    For i = 0 To (Count - 1)
        Down.mBuffer(i) = Buffer(i)
    Next i
    Leng = CONST_CMD_LEN + Down.mLength

    If (CH375Writedata(CH375DBG_Index, Down, Leng)) Then      ' 寫出命令塊
        Leng = Len(Up)
        If (CH375ReadData(CH375DBG_Index, Up, Leng)) Then
           ' 讀取應答塊
            If ((Up.mStatus = ERR_SUCCESS) And (Up.mCommandNot = Down.mCommandNot)) Then
              ' 操作成功
                CH375DBG_WriteIRAM = True
            End If
        End If
    End If
End Function

Public Function CH375DBG_ReadXRAM(StartAddr As Long, Buffer() As Byte, Count As Byte) As Boolean         '從外部RAM讀取數據塊
' 輸入參數: StartAddr 指定外部RAM的起始地址
'           buffer 指向一個足夠大的數據緩沖區'用于存放讀出的數據塊
'           count 指定讀取的字節數
' 從外部RAM讀取數據塊
' 輸入參數: StartAddr 指定外部RAM的起始地址
'           buffer 指向一個足夠大的數據緩沖區,用于存放讀出的數據塊
'           count 指定讀取的字節數
Dim Down As USB_DOWN_PKT
Dim Up  As USB_UP_PKT
Dim Leng As Long
    CH375DBG_ReadXRAM = False
    If (Count > MAX_DATA_SIZE) Then
        CH375DBG_ReadXRAM = False    ' 限制單次處理的數據長度,可以與單片機程序的MAX_DATA_SIZE一起同步修改為更大或更小的值
        Exit Function
    End If
    Down.mCommand = ReadXRamCmdCode
    Down.mCommandNot = Not (Down.mCommand)
    Down.mByte(0) = CByte(StartAddr Mod 256)
    Down.mByte(1) = CByte(StartAddr \ 256)
    Down.mByte(2) = 0
    Down.mByte(3) = 0
    Down.mLength = Count
    Leng = CONST_CMD_LEN
    If (CH375Writedata(CH375DBG_Index, Down, Leng)) Then
       ' 寫出命令塊
        Leng = Len(Up)
        If (CH375ReadData(CH375DBG_Index, Up, Leng)) Then
            ' 讀取應答塊
            If ((Up.mStatus = ERR_SUCCESS) And (Up.mCommandNot = Down.mCommandNot) And (Up.mLength >= Count)) Then
              ' 操作成功,并且返回數據
                For i = 0 To (Up.mLength - 1)
                    Buffer(i) = Up.mBuffer(i)  ' 返回數據
                Next i
                CH375DBG_ReadXRAM = True
               
            End If
        End If
    End If
End Function

Public Function CH375DBG_WriteXRAM(StartAddr As Long, Buffer() As Byte, Count As Byte) As Boolean           '向外部RAM寫入數據塊
' 輸入參數: StartAddr 指定外部RAM的起始地址
'           buffer 指向一個數據緩沖區'存放準備寫入的數據塊
'           count 指定寫入的字節數
 ' 向外部RAM寫入數據塊
' 輸入參數: StartAddr 指定外部RAM的起始地址
'           buffer 指向一個數據緩沖區,存放準備寫入的數據塊
'           count 指定寫入的字節數
Dim Down As USB_DOWN_PKT
Dim Up  As USB_UP_PKT
Dim Leng As Long
    CH375DBG_WriteXRAM = False
    If (Count > MAX_DATA_SIZE) Then
        CH375DBG_WriteXRAM = False    ' 限制單次處理的數據長度,可以與單片機程序的MAX_DATA_SIZE一起同步修改為更大或更小的值
        Exit Function
    End If
    Down.mCommand = WriteXRamCmdCode
    Down.mCommandNot = Not (Down.mCommand)
    Down.mByte(0) = CByte(StartAddr Mod 256)
    Down.mByte(1) = CByte(StartAddr \ 256)
    Down.mByte(2) = 0
    Down.mByte(3) = 0
    Down.mLength = Count
    For i = 0 To (Count - 1)
       Down.mBuffer(i) = Buffer(i)
    Next i
    Leng = CONST_CMD_LEN + Down.mLength
    If (CH375Writedata(CH375DBG_Index, Down, Leng)) Then
        ' 寫出命令塊
        Leng = Len(Up)
        If (CH375ReadData(CH375DBG_Index, Up, Leng)) Then
            ' 讀取應答塊
            If ((Up.mStatus = ERR_SUCCESS) And (Up.mCommandNot = Down.mCommandNot)) Then
              ' 操作成功
                CH375DBG_WriteXRAM = True
            End If
        End If
    End If
End Function

Public Function CH375DBG_ReadROM(StartAddr As Long, Buffer() As Byte, Count As Byte) As Boolean      '從程序ROM讀取數據塊
' 輸入參數: StartAddr 指定程序ROM的起始地址
'           buffer 指向一個足夠大的數據緩沖區'用于存放讀出的數據塊
'           count 指定讀取的字節數
 ' 從程序ROM讀取數據塊
' 輸入參數: StartAddr 指定程序ROM的起始地址
'           buffer 指向一個足夠大的數據緩沖區,用于存放讀出的數據塊
'           count 指定讀取的字節數
Dim Down As USB_DOWN_PKT
Dim Up  As USB_UP_PKT
Dim Leng As Long
    CH375DBG_ReadROM = False
    If (Count > MAX_DATA_SIZE) Then     ' 限制單次處理的數據長度,可以與單片機程序的MAX_DATA_SIZE一起同步修改為更大或更小的值
      CH375DBG_ReadROM = False
      Exit Function
    End If
    Down.mCommand = ReadRomCmdCode
    Down.mCommandNot = Not Down.mCommand
    Down.mByte(0) = CByte(StartAddr Mod 256)
    Down.mByte(1) = CByte(StartAddr \ 256)
    Down.mByte(2) = 0
    Down.mByte(3) = 0
    Down.mLength = Count
    Leng = CONST_CMD_LEN
    If (CH375Writedata(CH375DBG_Index, Down, Leng)) Then
       ' 寫出命令塊
        Leng = Len(Up)
        If (CH375ReadData(CH375DBG_Index, Up, Leng)) Then
           ' 讀取應答塊
            If ((Up.mStatus = ERR_SUCCESS) And (Up.mCommandNot = Down.mCommandNot) And (Up.mLength >= Count)) Then
              ' 操作成功,并且返回數據
                For i = 0 To (Count - 1)
                   Buffer(i) = Up.mBuffer(i)  ' 返回數據
                Next i
                CH375DBG_ReadROM = True
            End If
        End If
    End If
End Function

Function hextobcd(str As String) As Byte                 '將文本框中輸入的十六進制值轉換成BCD碼
Dim Length As Integer
Dim x As String
Length = Len(str)
For i = 0 To Length - 1
x = Mid(str, Length - i, 1)
Select Case x
       Case "a", "A"
         hextobcd = hextobcd + 10 * (16 ^ i)
       Case "b", "B"
         hextobcd = hextobcd + 11 * (16 ^ i)
       Case "c", "C"
         hextobcd = hextobcd + 12 * (16 ^ i)
       Case "d", "D"
         hextobcd = hextobcd + 13 * (16 ^ i)
       Case "e", "E"
         hextobcd = hextobcd + 14 * (16 ^ i)
       Case "f", "F"
         hextobcd = hextobcd + 15 * (16 ^ i)
       Case "0" To "9"
         hextobcd = hextobcd + val(x) * 16 ^ i
       Case Else
       'MsgBox "非十六進制數", vbCritical, "信息提示"
       hextobcd = 0
End Select
Next i
End Function

Function hex2bit(var As Byte) As String
If var < 16 Then
   hex2bit = "0" & Hex(var)
 Else
   hex2bit = Hex(var)
End If
End Function

Public Function HexKeyAscii(KeyAscii As Integer) '屏蔽非十六進制位鍵值
  If KeyAscii > 96 And KeyAscii < 123 Then
     KeyAscii = KeyAscii - 32  '字母小寫轉成大寫
  End If
  If KeyAscii > 70 And KeyAscii < 91 Or (KeyAscii >= 0 And KeyAscii <= 7) Or (KeyAscii >= 11 And KeyAscii <= 12) _
      Or (KeyAscii >= 14 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) _
     Or (KeyAscii >= 123 And KeyAscii <= 127) Then   '非有效進制值為0
     KeyAscii = 48
  End If
  HexKeyAscii = KeyAscii
End Function

Public Function SFR_ADDR(x As String) As Byte                   'SFR地址函數：根據TEXT3的內容返回其值
Select Case x
Case "P0"
SFR_ADDR = &H80
Case "SP"
SFR_ADDR = &H81
Case "DPL"
SFR_ADDR = &H82
Case "DPH"
SFR_ADDR = &H83
Case "PCON"
SFR_ADDR = &H87
Case "TCON"
SFR_ADDR = &H88
Case "TMOD"
SFR_ADDR = &H89
Case "TL0"
SFR_ADDR = &H8A
Case "TL1"
SFR_ADDR = &H8B
Case "TH0"
SFR_ADDR = &H8C
Case "TH1"
SFR_ADDR = &H8D
Case "P1"
SFR_ADDR = &H90
Case "SCON"
SFR_ADDR = &H98
Case "SBUF"
SFR_ADDR = &H99
Case "P2"
SFR_ADDR = &HA0
Case "IE"
SFR_ADDR = &HA8
Case "P3"
SFR_ADDR = &HB0
Case "IP"
SFR_ADDR = &HB8
Case "T2CON"
SFR_ADDR = &HC8
Case "PSW"
SFR_ADDR = &HD0
Case "ACC"
SFR_ADDR = &HE0
Case "B"
SFR_ADDR = &HF0
Case "TL2"
SFR_ADDR = &HCC
Case "TH2"
SFR_ADDR = &HCD
Case Else
SFR_ADDR = 0
End Select
End Function