📄 frmstop.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FrmStop
Caption = "与电子站牌通信"
ClientHeight = 5100
ClientLeft = 60
ClientTop = 345
ClientWidth = 6990
Icon = "FrmStop.frx":0000
LinkTopic = "Form2"
ScaleHeight = 5100
ScaleWidth = 6990
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
Height = 375
Left = 5760
TabIndex = 5
Text = "Text1"
Top = 4440
Width = 615
End
Begin VB.Timer Timer1
Interval = 1000
Left = 4920
Top = 4440
End
Begin MSCommLib.MSComm MSComm1
Left = 6120
Top = 360
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.CommandButton Command3
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 4
Top = 4440
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "动态信息发送"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 1
Top = 480
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "系统对时"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 0
Top = 480
Width = 2175
End
Begin RichTextLib.RichTextBox SendString
Height = 2775
Left = 720
TabIndex = 3
Top = 1560
Width = 6135
_ExtentX = 10821
_ExtentY = 4895
_Version = 393217
TextRTF = $"FrmStop.frx":0442
End
Begin VB.Label Label1
Caption = "发送："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 2
Top = 1560
Width = 735
End
End
Attribute VB_Name = "FrmStop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public TempText As Integer
Private Sub Command1_Click()
Dim VehNum As String
Static OldString1 As String
Dim CurrentTime As String
VehNum = InputBox$("请输入站牌号码（01—99）：", "站牌号码")
If Weekday(Now) = 1 Then
CurrentTime = "#CODEZP," & VehNum & ",A," & Second(Now) & "," & Minute(Now) & "," & Hour(Now) & "," & "8" & "," & Day(Now) & "," & Month(Now) & "," & Year(Now) & ","
Else
CurrentTime = "#CODEZP," & VehNum & ",A," & Second(Now) & "," & Minute(Now) & "," & Hour(Now) & "," & Weekday(Now) - 1 & "," & Day(Now) & "," & Month(Now) & "," & Year(Now) & ","
End If
OldString1 = OldString1 & CurrentTime
SendString.Text = b2q(OldString1) & vbCrLf
MSComm1.Output = b2q(CurrentTime) & vbCrLf
End Sub
Private Sub Command2_Click()
Timer1.Interval = 1000
End Sub
Private Sub Command3_Click()
MSComm1.PortOpen = False
Unload Me
End Sub
Private Sub Form_Load()
SendString.Text = ""
MSComm1.CommPort = 1
MSComm1.Settings = "1200,N,8,1"
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.PortOpen = True
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Timer1.Interval = 0
Text1.Text = 0
End Sub
Private Sub Timer1_Timer()
Dim DynamicInfo(1 To 5) As String
Static OldString2 As String
Dim Str1 As String
Dim str1Array(1 To 3) As String
Dim str2Array(1 To 6) As String
Dim str3Array(1 To 4), str4Array(1 To 4), str5Array(1 To 4), str6Array(1 To 4) As String
Dim I As Integer
Text1.Text = Text1.Text + 1
TempText = Text1.Text
Str1 = "长春站长江路开发区胜利公园国贸中心人民广场解放大路"
For I = 1 To 3
str1Array(I) = Hex(Asc(Mid$(Str1, I, 1)))
Next
For I = 1 To 6
str2Array(I) = Hex(Asc(Mid$(Str1, I + 3, 1)))
Next I
For I = 1 To 4
str3Array(I) = Hex(Asc(Mid$(Str1, I + 9, 1)))
str4Array(I) = Hex(Asc(Mid$(Str1, I + 13, 1)))
str5Array(I) = Hex(Asc(Mid$(Str1, I + 17, 1)))
str6Array(I) = Hex(Asc(Mid$(Str1, I + 21, 1)))
Next I
Select Case TempText
Case 10
SendString.Text = ""
DynamicInfo(1) = b2q("#CODEZP,01,B,")
DynamicInfo(2) = str1Array(1) & str1Array(2) & str1Array(3) & Hex(Asc(" ")) & Hex(Asc("》"))
DynamicInfo(3) = b2q(",15,20,4,")
DynamicInfo(4) = Hex(Asc("多")) & Hex(Asc("云")) & Hex(Asc("转")) & Hex(Asc("晴")) & Hex(Asc("４")) & Hex(Asc("到")) & Hex(Asc("１")) & Hex(Asc("５")) & Hex(Asc("度")) & Hex(Asc(" ")) & Hex(Asc(" "))
DynamicInfo(5) = DynamicInfo(1) & DynamicInfo(2) & DynamicInfo(3) & DynamicInfo(4)
OldString2 = OldString2 & DynamicInfo(5)
SendString.Text = OldString2 & vbCrLf
MSComm1.Output = DynamicInfo(5) & vbCrLf
Case 35
SendString.Text = ""
DynamicInfo(1) = b2q("#CODEZP,01,B,")
DynamicInfo(2) = str2Array(1) & str2Array(2) & str2Array(3) & Hex(Asc(" ")) & Hex(Asc("》"))
DynamicInfo(3) = b2q(",13,20,4,")
DynamicInfo(4) = Hex(Asc("吉")) & Hex(Asc("林")) & Hex(Asc("大")) & Hex(Asc("学")) & Hex(Asc("Ｉ")) & Hex(Asc("Ｔ")) & Hex(Asc("Ｓ")) & Hex(Asc("中")) & Hex(Asc("心")) & Hex(Asc("研")) & Hex(Asc("制")) & Hex(Asc(" ")) & Hex(Asc(" "))
DynamicInfo(5) = DynamicInfo(1) & DynamicInfo(2) & DynamicInfo(3) & DynamicInfo(4)
OldString2 = OldString2 & DynamicInfo(5)
SendString.Text = OldString2 & vbCrLf
MSComm1.Output = DynamicInfo(5) & vbCrLf
Case 65
SendString.Text = ""
DynamicInfo(1) = b2q("#CODEZP,01,B,")
DynamicInfo(2) = str3Array(1) & str3Array(2) & str3Array(3) & str3Array(4) & Hex(Asc("》"))
DynamicInfo(3) = b2q(",11,20,4,")
DynamicInfo(4) = Hex(Asc("多")) & Hex(Asc("云")) & Hex(Asc("转")) & Hex(Asc("晴")) & Hex(Asc("４")) & Hex(Asc("到")) & Hex(Asc("１")) & Hex(Asc("５")) & Hex(Asc("度")) & Hex(Asc(" ")) & Hex(Asc(" "))
DynamicInfo(5) = DynamicInfo(1) & DynamicInfo(2) & DynamicInfo(3) & DynamicInfo(4)
OldString2 = OldString2 & DynamicInfo(5)
SendString.Text = OldString2 & vbCrLf
MSComm1.Output = DynamicInfo(5) & vbCrLf
Case 90
SendString.Text = ""
DynamicInfo(1) = b2q("#CODEZP,01,B,")
DynamicInfo(2) = str4Array(1) & str4Array(2) & str4Array(3) & str4Array(4) & Hex(Asc("》"))
DynamicInfo(3) = b2q(",08,20,4,")
DynamicInfo(4) = Hex(Asc("吉")) & Hex(Asc("林")) & Hex(Asc("大")) & Hex(Asc("学")) & Hex(Asc("Ｉ")) & Hex(Asc("Ｔ")) & Hex(Asc("Ｓ")) & Hex(Asc("中")) & Hex(Asc("心")) & Hex(Asc("研")) & Hex(Asc("制")) & Hex(Asc(" ")) & Hex(Asc(" "))
DynamicInfo(5) = DynamicInfo(1) & DynamicInfo(2) & DynamicInfo(3) & DynamicInfo(4)
OldString2 = OldString2 & DynamicInfo(5)
SendString.Text = OldString2 & vbCrLf
MSComm1.Output = DynamicInfo(5) & vbCrLf
Case 120
SendString.Text = ""
DynamicInfo(1) = b2q("#CODEZP,01,B,")
DynamicInfo(2) = str5Array(1) & str5Array(2) & str5Array(3) & str5Array(4) & Hex(Asc("》"))
DynamicInfo(3) = b2q(",05,20,4,")
DynamicInfo(4) = Hex(Asc("吉")) & Hex(Asc("林")) & Hex(Asc("大")) & Hex(Asc("学")) & Hex(Asc("Ｉ")) & Hex(Asc("Ｔ")) & Hex(Asc("Ｓ")) & Hex(Asc("中")) & Hex(Asc("心")) & Hex(Asc("研")) & Hex(Asc("制")) & Hex(Asc(" ")) & Hex(Asc(" "))
DynamicInfo(5) = DynamicInfo(1) & DynamicInfo(2) & DynamicInfo(3) & DynamicInfo(4)
OldString2 = OldString2 & DynamicInfo(5)
SendString.Text = OldString2 & vbCrLf
MSComm1.Output = DynamicInfo(5) & vbCrLf
Case 150
SendString.Text = ""
DynamicInfo(1) = b2q("#CODEZP,01,B,")
DynamicInfo(2) = str6Array(1) & str6Array(2) & str6Array(3) & str6Array(4) & Hex(Asc(" "))
DynamicInfo(3) = b2q(",00,20,4,")
DynamicInfo(4) = Hex(Asc("欢")) & Hex(Asc("迎")) & Hex(Asc("使")) & Hex(Asc("用")) & Hex(Asc("本")) & Hex(Asc("系")) & Hex(Asc("统"))
DynamicInfo(5) = DynamicInfo(1) & DynamicInfo(2) & DynamicInfo(3) & DynamicInfo(4)
OldString2 = OldString2 & DynamicInfo(5)
SendString.Text = OldString2 & vbCrLf
MSComm1.Output = DynamicInfo(5) & vbCrLf
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -