设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 程序设计/上位机 › VB控制计算机并口示例（含完整可以运行源代码）
返回列表 发新帖
查看: 7033|回复: 16
收起左侧

VB控制计算机并口示例（含完整可以运行源代码）

  [复制链接]
ID:317625 发表于 2018-5-11 15:56 | 显示全部楼层 |阅读模式
可以通过并口直接控制MCU，做SW控制不错，关键还可以学习并口硬件控制学习。含详细源代码哦


运行界面：

附件含VB源代码

附件含VB源代码

源码资料包：
0.png 0.jpg

源程序如下:
  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, 下载次数: 94)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

回复

使用道具 举报

ID:317625 发表于 2018-5-11 15:56 | 显示全部楼层
自己先顶一下，不知道怎么设置成免费贴呢
回复

使用道具 举报

ID:317625 发表于 2018-5-14 07:59 | 显示全部楼层
谢谢老大的帮忙编辑
回复

使用道具 举报

ID:552794 发表于 2019-7-11 22:02 | 显示全部楼层
太好了！正在找控制并口的资料。向楼主学习。
回复

使用道具 举报

ID:390052 发表于 2019-7-23 16:42 来自手机 | 显示全部楼层
TAMA_JACK 发表于 2018-5-11 15:56
自己先顶一下，不知道怎么设置成免费贴呢

好东西，正在学习并口控制方法
回复

使用道具 举报

ID:110604 发表于 2019-9-14 19:01 | 显示全部楼层
先下载了，调试JTAG的时候用得上
回复

使用道具 举报

ID:617054 发表于 2019-9-27 10:34 | 显示全部楼层
太好了，只是要怎么下载呢
回复

使用道具 举报

ID:364988 发表于 2019-11-6 01:28 | 显示全部楼层
支持64位吗？
回复

使用道具 举报

ID:685817 发表于 2020-1-13 20:27 来自手机 | 显示全部楼层
好东西，总算找到了
回复

使用道具 举报

ID:373684 发表于 2020-1-13 21:51 | 显示全部楼层
VB工资高吗
回复

使用道具 举报

ID:298008 发表于 2020-3-17 08:29 | 显示全部楼层
谢谢楼主分享！！！
回复

使用道具 举报

ID:110604 发表于 2020-4-18 13:35 | 显示全部楼层
调试了JTAG好像不行，不知道问题何在
回复

使用道具 举报

ID:743813 发表于 2020-5-21 19:09 | 显示全部楼层
并口模式需要设置吗？数据端口好像控制不了，我的并口有问题，还是程序哪需要编辑？
回复

使用道具 举报

ID:759119 发表于 2020-5-23 14:10 | 显示全部楼层
好！！！
回复

使用道具 举报

ID:718725 发表于 2020-5-28 22:44 | 显示全部楼层
VB一直学不好的，还是跟工作有关。
回复

使用道具 举报

ID:884031 发表于 2021-2-12 16:48 | 显示全部楼层
太需要了，谢谢楼主分享！
回复

使用道具 举报

ID:892783 发表于 2021-3-16 20:30 | 显示全部楼层
谢谢分享，楼主辛苦
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表