中九杂牌机芯片M88VS2000+261344K.6+M88TS2020,可以改12个频道。存储芯片可以直接取下来放在编程器上读写,风险小。特自编一软件,方便自定义频道。
代码在EXCEL中用 VBA 写的,如下:
Sub TEST()
Close #1
Dim nPos As Long
Dim b(1 To 1) As Byte
Dim th(1 To 1) As Byte
Dim Ch_name() As Byte
Dim CH_n() As Byte
Dim Avpid(1 To 2) As Byte
Dim AuPid(1 To 2) As Byte
Open "c:\000-1.bin" For Binary Access Read Write As #1
For i = 1 To 12
nPos = Val("&H" + Trim(Cells(50 + i - 1, 1)))
b(1) = Cells(i + 1, 2)
th(1) = Cells(i + 1, 3)
temp1 = "0" + Hex$(Cells(i + 1, 5))
temp2 = "0" + Hex$(Cells(i + 1, 6))
temp3 = Trim(Cells(i + 1, 4))
len1 = LenB(temp3)
Len2 = Len(temp3)
ReDim Ch_name(1 To len1) As Byte
k = 0
For j = 1 To Len2
k = k + 1
w = Mid(temp3, j, 1)
hw = Trim(Hex(Asc(w)))
If Len(hw) >= 3 Then
Ch_name(k) = Val("&H" + Left(hw, 2))
k = k + 1
Ch_name(k) = Val("&H" + Right(hw, 2))
Else
Ch_name(k) = Val("&H" + hw)
End If
Next j
Avpid(1) = Val("&H" + Right(temp1, 2))
Avpid(2) = Val("&H" + Left(temp1, 2))
AuPid(1) = Val("&H" + Right(temp2, 2))
AuPid(2) = Val("&H" + Left(temp2, 2))
ReDim CH_n(1 To k + 1)
For x = 1 To k
CH_n(x) = Ch_name(x)
Next x
CH_n(k + 1) = 0
Put #1, nPos + 5, b()
Put #1, nPos + 7, Avpid()
Put #1, nPos + 19, th()
Put #1, nPos + 23, AuPid()
Put #1, nPos + 26, CH_n()
Next i
Close #1
End Sub