📄 form1.frm
字号:
ReDim rebytes(7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("a")
rebytes(4) = Asc("f")
jiaoyanhe = 0
For i = 0 To 4
jiaoyanhe = jiaoyanhe Xor rebytes(i)
Next i
rebytes(5) = Asc(jiaoyanhe)
rebytes(6) = Asc("#")
'MsgBox ("yyyyyyaa")
MSComm1.Output = rebytes
MSComm1.InBufferCount = 0
ElseIf bytes(3) = Asc("a") And bytes(4) = Asc("f") And bytes(l - 1) = Asc("#") And bytes(5) <> Asc("#") Then '3
' For i = 0 To 1000
' Next i
s = Val(Chr(bytes(5)))
For i = 0 To s - 1
k = k + Chr(bytes(6 + i))
Next i
summ = summ + Val(k)
Label5.Caption = summ
biaodizhi = summ
ReDim rebytes(7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("a")
rebytes(4) = Asc("o")
jiaoyanhe = 0
For i = 0 To 4
jiaoyanhe = jiaoyanhe Xor rebytes(i)
Next i
rebytes(5) = Asc(jiaoyanhe)
rebytes(6) = Asc("#")
'MsgBox ("llllllll")
MSComm1.Output = rebytes
MSComm1.OutBufferCount = 0
End If '3
'****************************************************
If bytes(3) = Asc("b") And bytes(4) = Asc("q") And bytes(6) = Asc("#") Then '3
' For i = 0 To 1000
' Next i
ReDim rebytes(7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("b")
rebytes(4) = Asc("f")
jiaoyanhe = 0
For i = 0 To 4
jiaoyanhe = jiaoyanhe Xor rebytes(i)
Next i
rebytes(5) = Asc(jiaoyanhe)
rebytes(6) = Asc("#")
'MsgBox ("yyyyyyyy")
MSComm1.Output = rebytes
MSComm1.InBufferCount = 0
ElseIf bytes(3) = Asc("b") And bytes(4) = Asc("f") And bytes(l - 1) = Asc("#") And bytes(5) <> Asc("#") Then '3
' For i = 0 To 1000
' Next i
sw = Val(Chr(bytes(5)))
gw = Val(Chr(bytes(6)))
s = sw * 10 + gw
j = 0
For i = 0 To s - 1
c(j) = Chr(bytes(7 + i))
j = j + 1
Next i
summ0 = DateAdd("yyyy", Val(c(0) + c(1)), #1/1/2000#)
summ0 = DateAdd("m", Val(c(3) + c(4)) - 1, summ0)
summ0 = DateAdd("d", Val(c(6) + c(7)) - 1, summ0)
summ1 = DateAdd("h", Val(c(8) + c(9)), #12:00:00 AM#)
summ1 = DateAdd("n", Val(c(11) + c(12)), summ1)
summ1 = DateAdd("s", Val(c(14) + c(15)), summ1)
tt = DateDiff("n", summ1, Time)
ty = DateDiff("d", summ0, Date)
Date = DateAdd("d", -ty, Date)
Time = DateAdd("n", -tt, Time)
Module1.delay
biaodiriqi = Now
'反回信息码
ReDim rebytes(7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("b")
rebytes(4) = Asc("o")
jiaoyanhe = 0
For i = 0 To 4
jiaoyanhe = jiaoyanhe Xor rebytes(i)
Next i
rebytes(5) = Asc(jiaoyanhe)
rebytes(6) = Asc("#")
' MsgBox ("llllllll")
MSComm1.Output = rebytes
MSComm1.OutBufferCount = 0
End If '3
'*******************************************************
If bytes(3) = Asc("c") And bytes(4) = Asc("q") And bytes(6) = Asc("#") Then '3
' For i = 0 To 1000
' Next i
ReDim rebytes(7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("c")
rebytes(4) = Asc("f")
jiaoyanhe = 0
For i = 0 To 4
jiaoyanhe = jiaoyanhe Xor rebytes(i)
Next i
rebytes(5) = Asc(jiaoyanhe)
rebytes(6) = Asc("#")
'MsgBox ("yyyyyyaa")
MSComm1.Output = rebytes
MSComm1.InBufferCount = 0
ElseIf bytes(3) = Asc("c") And bytes(4) = Asc("o") And bytes(6) = Asc("#") Then '3
' For i = 0 To 1000
' Next i
st = CStr(biaodizhi)
s = Len(CStr(biaodizhi))
' For i = 0 To s - 1
' k = k + Chr(bytes(6 + i))
' Next i
' summ = summ + Val(k)
' Label5.Caption = summ
ReDim rebytes(s + 7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("c")
rebytes(4) = Asc("o")
rebytes(5) = Asc(s)
For i = 1 To s
rebytes(5 + i) = Asc(Mid(st, i, 1))
Next i
'校验
jiaoyanhe1 = 0
For i = 0 To s + 5
jiaoyanhe1 = jiaoyanhe1 Xor rebytes(i)
Next i
rebytes(s + 6) = Asc(jiaoyanhe)
rebytes(s + 7) = Asc("#")
MSComm1.InputLen = s + 6
MSComm1.Output = rebytes
'MsgBox ("llllllll")
MSComm1.OutBufferCount = 0
End If '3
'**************************************************************
If bytes(3) = Asc("d") And bytes(4) = Asc("q") And bytes(6) = Asc("#") Then '3
' For i = 0 To 1000
' Next i
ReDim rebytes(7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("d")
rebytes(4) = Asc("f")
jiaoyanhe = 0
For i = 0 To 4
jiaoyanhe = jiaoyanhe Xor rebytes(i)
Next i
rebytes(5) = Asc(jiaoyanhe)
rebytes(6) = Asc("#")
'MsgBox ("yyyyyyaa")
MSComm1.Output = rebytes
MSComm1.InBufferCount = 0
ElseIf bytes(3) = Asc("d") And bytes(4) = Asc("o") And bytes(6) = Asc("#") Then '3
' For i = 0 To 1000
' Next i
st = CStr(biaodizhi)
s = Len(CStr(biaodizhi))
' For i = 0 To s - 1
' k = k + Chr(bytes(6 + i))
' Next i
' summ = summ + Val(k)
' Label5.Caption = summ
ReDim rebytes(s + 7)
rebytes(0) = Asc("*")
rebytes(1) = Asc("~")
rebytes(2) = Asc("1")
rebytes(3) = Asc("c")
rebytes(4) = Asc("o")
rebytes(5) = Asc(s)
For i = 1 To s
rebytes(5 + i) = Asc(Mid(st, i, 1))
Next i
'校验
jiaoyanhe1 = 0
For i = 0 To s + 5
jiaoyanhe1 = jiaoyanhe1 Xor rebytes(i)
Next i
rebytes(s + 6) = Asc(jiaoyanhe)
rebytes(s + 7) = Asc("#")
MSComm1.InputLen = s + 6
MSComm1.Output = rebytes
'MsgBox ("llllllll")
MSComm1.OutBufferCount = 0
End If '3
End If '2
Else '1
MSComm1.InBufferCount = 0
End If '1
flag = 5
'End If
End Sub
Private Sub Timer1_Timer()
Dim a As Integer
lblclock.Caption = Time$
Label3.Caption = Date$
If flag <> 0 Then
MSComm1.PortOpen = False
flag = 0
Else
MSComm1.PortOpen = True
flag = 2
End If
End Sub
Private Sub Timer2_Timer()
Dim summ1 As String
Randomize
summ = summ + (Rnd() * 1) / 2 + (Rnd() * 1) Mod 2
Label5.Caption = Format(summ, "####.###")
summ1 = Format(Date, "yy.mm.dd") + Format(Time$, "hh:mm:ss") + Format(summ, "####.###")
If flag <> 0 Then MSComm1.Output = summ1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -