登录
首页 电脑编程
回帖 发帖
正文

主题:求解释VB程序

点击:838 回复:6

请高人解释一下下面这段VB程序每句的意思,谢谢!
aa = DAT(j - 105)
bb = DAT(j - 104)
cc = DAT(j - 103)
dd = DAT(j - 102)
f = Hex(aa * 255)
  If Len(f) = 3 Then
     f = "0" + f
 End If
g = Hex((bb - 1) * 255)
 If Len(g) = 3 Then
     g = "0" + g
 End If
h = Hex((cc - 2) * 255)
  If Len(h) = 3 Then
     h = "0" + h
 End If
i = Hex((dd - 3) * 255)
 If Len(i) = 3 Then
     i = "0" + i
 End If
pro(0) = Val("&H" + Mid(f, 3, 2))
pro(1) = Val("&H" + Mid(g, 3, 2))
pro(2) = Val("&H" + Mid(h, 3, 2))
pro(3) = Val("&H" + Mid(i, 3, 2))
v = 0
Do While v <= 3
If pro(v) <= 127 Then
Text1.Text = Text1.Text + Chr(pro(v))
v = v + 1
Else
Text1.Text = Text1.Text + Chr(Val("&H" + Hex(pro(v)) + Hex(pro(v + 1))))
v = v + 2
End If
Loop
End If
15-12-02 13:32
没有人知道吗?
15-12-02 21:41
好多年没用这个了,都忘光啦
15-12-03 08:40
这个直接找度娘就好了
15-12-03 09:05
就是一个字符转换程序,HEX转换为16进制数,VAL转换为数值,MID从字符串中提取字符,CHR转换为字符。
基础指令能不能看看编程手册啊。
表情
15-12-03 09:58
现在改C#了,VB毕竟老了
15-12-04 06:09
完全看不懂,计算机语言
15-12-04 07:04

工控新闻

更多新闻资讯