?? form1.frm
字號:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "三菱FX系列解密(信捷自動化)"
ClientHeight = 450
ClientLeft = 45
ClientTop = 435
ClientWidth = 3570
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 450
ScaleWidth = 3570
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 200
Left = 1440
Top = 480
End
Begin MSCommLib.MSComm MSComm1
Left = 0
Top = 480
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
ParitySetting = 2
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":1CCA
Left = 1920
List = "Form1.frx":1CDD
TabIndex = 2
Text = "COM1"
Top = 80
Width = 735
End
Begin VB.CommandButton Command1
Caption = "解密"
Height = 375
Left = 2640
TabIndex = 1
Top = 35
Width = 855
End
Begin VB.TextBox Text1
BackColor = &H0000FF00&
BorderStyle = 0 'None
BeginProperty Font
Name = "楷體_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 0
TabIndex = 0
Text = "密碼顯示窗口"
Top = 30
Width = 1935
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
s = Val(Mid(Combo1.Text, 4, 1))
If MSComm1.PortOpen = False Then
MSComm1.CommPort = (s)
MSComm1.Settings = "9600,e,7,1"
MSComm1.PortOpen = True
End If
Text1.Text = ""
MSComm1.Output = Chr$(2) + "08" + "00" + "80" + "8" + Chr$(3) + "6B"
MSComm1.RThreshold = 20
End Sub
Private Sub MSComm1_OnComm()
w = Mid(MSComm1.Input, 2, 16)
For i = 1 To 15 Step 2
a = Mid(w, i, 2)
b = Val(Mid(a, 1, 1))
c = Val(Mid(a, 2, 1))
d = Chr$(b * 16 + c)
Text1.Text = Text1.Text + d
Next i
MSComm1.RThreshold = 0
Form1.Caption = "Tel:13054900817(郝金紅)"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -