标题: VB控制计算机并口示例（含完整可以运行源代码） [打印本页]
作者: TAMA_JACK    时间: 2018-5-11 15:56
标题: VB控制计算机并口示例（含完整可以运行源代码）
可以通过并口直接控制MCU，做SW控制不错，关键还可以学习并口硬件控制学习。含详细源代码哦


运行界面：


源码资料包：


源程序如下:
  1. VERSION 5.00
  2. Begin VB.Form Main
  3.    BackColor       =   &H80000005&
  4.    Caption         =   "计算机并口控制示例"
  5.    ClientHeight    =   10560
  6.    ClientLeft      =   255
  7.    ClientTop       =   615
  8.    ClientWidth     =   8910
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   10560
  11.    ScaleWidth      =   8910
  12.    Begin VB.Frame Frame3
  13.       BackColor       =   &H00FFFFFF&
  14.       Caption         =   "控制端口"
  15.       Height          =   1695
  16.       Left            =   5640
  17.       TabIndex        =   35
  18.       Top             =   1560
  19.       Width           =   2295
  20.       Begin VB.Label Label14
  21.          BackColor       =   &H00FFFFFF&
  22.          Caption         =   "整数 - 二进制转换"
  23.          Height          =   255
  24.          Left            =   120
  25.          TabIndex        =   39
  26.          Top             =   960
  27.          Width           =   1935
  28.       End
  29.       Begin VB.Label Label13
  30.          BackColor       =   &H00FFFFFF&
  31.          Caption         =   "二进制 - 根据上面选择"
  32.          Height          =   360
  33.          Left            =   120
  34.          TabIndex        =   38
  35.          Top             =   210
  36.          Width           =   1935
  37.       End
  38.       Begin VB.Label lblCb
  39.          BackColor       =   &H00FFFFFF&
  40.          BorderStyle     =   1  'Fixed Single
  41.          Height          =   255
  42.          Left            =   120
  43.          TabIndex        =   37
  44.          Top             =   600
  45.          Width           =   1935
  46.       End
  47.       Begin VB.Label lblCi
  48.          BackColor       =   &H00FFFFFF&
  49.          BorderStyle     =   1  'Fixed Single
  50.          Height          =   255
  51.          Left            =   120
  52.          TabIndex        =   36
  53.          Top             =   1200
  54.          Width           =   1935
  55.       End
  56.    End
  57.    Begin VB.Frame Frame2
  58.       BackColor       =   &H00FFFFFF&
  59.       Caption         =   "状态端口"
  60.       Height          =   1695
  61.       Left            =   3240
  62.       TabIndex        =   30
  63.       Top             =   1560
  64.       Width           =   2295
  65.       Begin VB.Label Label10
  66.          BackColor       =   &H00FFFFFF&
  67.          Caption         =   "整数 - 二进制转换"
  68.          Height          =   255
  69.          Left            =   120
  70.          TabIndex        =   34
  71.          Top             =   960
  72.          Width           =   1935
  73.       End
  74.       Begin VB.Label Label9
  75.          BackColor       =   &H00FFFFFF&
  76.          Caption         =   "二进制 - 根据上面选择"
  77.          Height          =   345
  78.          Left            =   120
  79.          TabIndex        =   33
  80.          Top             =   210
  81.          Width           =   2130
  82.       End
  83.       Begin VB.Label lblSi
  84.          BackColor       =   &H00FFFFFF&
  85.          BorderStyle     =   1  'Fixed Single
  86.          Height          =   255
  87.          Left            =   105
  88.          TabIndex        =   32
  89.          Top             =   600
  90.          Width           =   1935
  91.       End
  92.       Begin VB.Label lblSb
  93.          BackColor       =   &H00FFFFFF&
  94.          BorderStyle     =   1  'Fixed Single
  95.          Height          =   255
  96.          Left            =   120
  97.          TabIndex        =   31
  98.          Top             =   1200
  99.          Width           =   1935
  100.       End
  101.    End
  102.    Begin VB.Frame Frame1
  103.       BackColor       =   &H00FFFFFF&
  104.       Caption         =   "数据端口"
  105.       Height          =   1695
  106.       Left            =   840
  107.       TabIndex        =   25
  108.       Top             =   1560
  109.       Width           =   2295
  110.       Begin VB.Label lblDb
  111.          BackColor       =   &H00FFFFFF&
  112.          BorderStyle     =   1  'Fixed Single
  113.          Height          =   255
  114.          Left            =   120
  115.          TabIndex        =   29
  116.          Top             =   1200
  117.          Width           =   1935
  118.       End
  119.       Begin VB.Label lblDi
  120.          BackColor       =   &H00FFFFFF&
  121.          BorderStyle     =   1  'Fixed Single
  122.          Height          =   255
  123.          Left            =   105
  124.          TabIndex        =   28
  125.          Top             =   570
  126.          Width           =   1935
  127.       End
  128.       Begin VB.Label Label5
  129.          BackColor       =   &H00FFFFFF&
  130.          Caption         =   "二进制 - 根据上面选择"
  131.          Height          =   360
  132.          Left            =   120
  133.          TabIndex        =   27
  134.          Top             =   195
  135.          Width           =   1935
  136.       End
  137.       Begin VB.Label Label6
  138.          BackColor       =   &H00FFFFFF&
  139.          Caption         =   "整数 - 二进制转换"
  140.          Height          =   240
  141.          Left            =   105
  142.          TabIndex        =   26
  143.          Top             =   945
  144.          Width           =   1935
  145.       End
  146.    End
  147.    Begin VB.CheckBox S05
  148.       BackColor       =   &H00FF0000&
  149.       Caption         =   "15"
  150.       Height          =   195
  151.       Left            =   6825
  152.       TabIndex        =   24
  153.       Top             =   975
  154.       Width           =   495
  155.    End
  156.    Begin VB.CheckBox C03
  157.       BackColor       =   &H00FF0000&
  158. ……………………

  160. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
VB控制计算机并口示例.zip (153.65 KB, 下载次数: 104)


作者: TAMA_JACK    时间: 2018-5-11 15:56
自己先顶一下，不知道怎么设置成免费贴呢
作者: TAMA_JACK    时间: 2018-5-14 07:59
谢谢老大的帮忙编辑
作者: chinabj2019    时间: 2019-7-11 22:02
太好了！正在找控制并口的资料。向楼主学习。
作者: wook2008    时间: 2019-7-23 16:42
TAMA_JACK 发表于 2018-5-11 15:56
自己先顶一下，不知道怎么设置成免费贴呢

好东西，正在学习并口控制方法
作者: zse05    时间: 2019-9-14 19:01
先下载了，调试JTAG的时候用得上
作者: hudsh124    时间: 2019-9-27 10:34
太好了，只是要怎么下载呢
作者: cdust    时间: 2019-11-6 01:28
支持64位吗？
作者: guojingzhong    时间: 2020-1-13 20:27
好东西，总算找到了
作者: cr8526    时间: 2020-1-13 21:51
VB工资高吗
作者: lindeijun1    时间: 2020-3-17 08:29
谢谢楼主分享！！！
作者: zse05    时间: 2020-4-18 13:35
调试了JTAG好像不行，不知道问题何在
作者: lxh3405    时间: 2020-5-21 19:09
并口模式需要设置吗？数据端口好像控制不了，我的并口有问题，还是程序哪需要编辑？
作者: hb-lzy    时间: 2020-5-23 14:10
好！！！
作者: 51550461    时间: 2020-5-28 22:44
VB一直学不好的，还是跟工作有关。
作者: xiaxue_203    时间: 2021-2-12 16:48
太需要了，谢谢楼主分享！
作者: pys_li    时间: 2021-3-16 20:30
谢谢分享，楼主辛苦
作者: donglw    时间: 2024-5-25 09:29
并口是上世纪的微机必配接口，现在微机已不存在了



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1