计算机控制程序例子,VB控制计算机并口示例(含完整可以运行源代码)

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黑下载附件…………

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值