📄 frmdio.frm
字号:
TabIndex = 9
Text = "300"
Top = 720
Width = 1050
End
Begin VB.Label Label8
Caption = "Checksum"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 24
Top = 360
Width = 975
End
Begin VB.Label Label3
Caption = "TimeOut"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 270
TabIndex = 10
Top = 720
Width = 990
End
End
Begin VB.Frame Frame2
Caption = "Step 5: Write DO"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 4320
TabIndex = 7
Top = 2280
Width = 4275
Begin VB.OptionButton optBit
Caption = "ON"
Height = 255
Index = 1
Left = 3600
TabIndex = 39
Top = 960
Width = 615
End
Begin VB.OptionButton optBit
Caption = "OFF"
Height = 255
Index = 0
Left = 2880
TabIndex = 38
Top = 960
Value = -1 'True
Width = 615
End
Begin VB.TextBox txtCh
Height = 315
Left = 2400
TabIndex = 34
Text = "0"
Top = 960
Width = 450
End
Begin VB.CommandButton cmdWriteBit
Caption = "Write Bit DO"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 33
Top = 840
Width = 1335
End
Begin VB.TextBox txtWrite
Height = 375
Left = 2880
TabIndex = 26
Text = "0"
Top = 360
Width = 1215
End
Begin VB.CommandButton cmdWrite
Caption = "Write DO"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 25
Top = 360
Width = 1335
End
Begin VB.Label Label9
Caption = "Output Value"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1560
TabIndex = 40
Top = 480
Width = 1215
End
Begin VB.Label Label6
Caption = "Channel"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1560
TabIndex = 35
Top = 960
Width = 720
End
End
Begin VB.Frame Frame1
Caption = "Step 1: Open COM Port"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Left = 30
TabIndex = 1
Top = 60
Width = 4245
Begin VB.CommandButton cmdClose
Caption = "Close COM"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2280
TabIndex = 21
Top = 960
Width = 1455
End
Begin VB.CommandButton cmdOpen
Caption = "Open COM Port"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 240
TabIndex = 6
Top = 945
Width = 1665
End
Begin VB.TextBox txtPort
Height = 330
Left = 990
TabIndex = 3
Text = "1"
Top = 450
Width = 570
End
Begin VB.TextBox txtBaudrate
Height = 390
Left = 2805
TabIndex = 2
Text = "9600"
Top = 420
Width = 960
End
Begin VB.Label Label1
Caption = "COM Port"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 90
TabIndex = 5
Top = 480
Width = 810
End
Begin VB.Label Label2
Caption = "BaudRate"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1830
TabIndex = 4
Top = 510
Width = 825
End
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 960
TabIndex = 0
Top = 4080
Width = 1725
End
End
Attribute VB_Name = "frmDIO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim passtime, v(6), iport, ibaudrate, iAddress, iChannel, iTimeOut, ipassmax, txt
Option Explicit
Private Sub Form_Load()
Dim a, b, chnow, txtnow, i, newtxt
Open App.Path & "\把计.txt" For Input As #1
Line Input #1, txt
Close #1
If (Mid(txt, Len(txt), 1) = "0") Then
newtxt = Mid(txt, 1, Len(txt) - 1) + "1"
Open App.Path & "\把计.txt" For Output As #1
Print #1, newtxt
Close #1
txtnow = 1
For i = 1 To Len(txt) - 1
chnow = Mid(txt, i, 1)
If (chnow <> " ") Then
v(txtnow) = v(txtnow) + chnow
Else
v(txtnow) = Val(v(txtnow))
txtnow = txtnow + 1
End If
Next
v(6) = Val(v(6))
a = Open_Com(v(1), v(2), 8, 0, 0)
b = DCON_Write_DO(v(1), v(3), -1, v(4), 127, 0, v(5))
End If
End Sub
Private Sub Timer1_Timer()
Dim e
passtime = passtime + 1
If (passtime = v(6)) Then
e = DCON_Write_DO(v(1), v(3), -1, v(4), 0, 0, v(5))
Close_Com (v(1))
Open App.Path & "\把计.txt" For Output As #1
Print #1, txt
Close #1
Unload Me
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -