赞助论坛
  • 4783阅读
  • 0回复

12频道自定义软件,M88VS2000+261344K.6+M88TS2020 [复制链接]

楼层直达

发帖
66
精华
0
金币
3129
威望
3
贡献
0
好评
5
注册
2010-01-08
楼主    lackey2010 发表于: 2010-01-16 01:46:53 
中九杂牌机芯片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