VERSION 5.00
Begin VB.Form Main
BackColor = &H80000005&
Caption = "计算机并口控制示例"
ClientHeight = 10560
ClientLeft = 255
ClientTop = 615
ClientWidth = 8910
LinkTopic = "Form1"
ScaleHeight = 10560
ScaleWidth = 8910
Begin VB.Frame Frame3
BackColor = &H00FFFFFF&
Caption = "控制端口"
Height = 1695
Left = 5640
TabIndex = 35
Top = 1560
Width = 2295
Begin VB.Label Label14
BackColor = &H00FFFFFF&
Caption = "整数 - 二进制转换"
Height = 255
Left = 120
TabIndex = 39
Top = 960
Width = 1935
End
Begin VB.Label Label13
BackColor = &H00FFFFFF&
Caption = "二进制 - 根据上面选择"
Height = 360
Left = 120
TabIndex = 38
Top = 210
Width = 1935
End
Begin VB.Label lblCb
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 37
Top = 600
Width = 1935
End
Begin VB.Label lblCi
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 36
Top = 1200
Width = 1935
End
End
Begin VB.Frame Frame2
BackColor = &H00FFFFFF&
Caption = "状态端口"
Height = 1695
Left = 3240
TabIndex = 30
Top = 1560
Width = 2295
Begin VB.Label Label10
BackColor = &H00FFFFFF&
Caption = "整数 - 二进制转换"
Height = 255
Left = 120
TabIndex = 34
Top = 960
Width = 1935
End
Begin VB.Label Label9
BackColor = &H00FFFFFF&
Caption = "二进制 - 根据上面选择"
Height = 345
Left = 120
TabIndex = 33
Top = 210
Width = 2130
End
Begin VB.Label lblSi
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 105
TabIndex = 32
Top = 600
Width = 1935
End
Begin VB.Label lblSb
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 31
Top = 1200
Width = 1935
End
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "数据端口"
Height = 1695
Left = 840
TabIndex = 25
Top = 1560
Width = 2295
Begin VB.Label lblDb
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 29
Top = 1200
Width = 1935
End
Begin VB.Label lblDi
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 105
TabIndex = 28
Top = 570
Width = 1935
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
Caption = "二进制 - 根据上面选择"
Height = 360
Left = 120
TabIndex = 27
Top = 195
Width = 1935
End
Begin VB.Label Label6
BackColor = &H00FFFFFF&
Caption = "整数 - 二进制转换"
Height = 240
Left = 105
TabIndex = 26
Top = 945
Width = 1935
End
End
Begin VB.CheckBox S05
BackColor = &H00FF0000&
Caption = "15"
Height = 195
Left = 6825
TabIndex = 24
Top = 975
Width = 495
End
Begin VB.CheckBox C03
BackColor = &H00FF0000&
……………………
…………限于本文篇幅 余下代码请从51黑下载附件…………