久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 9172|回復: 17
收起左側

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, 下載次數: 104)


評分

參與人數 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 | 顯示全部樓層
謝謝分享，樓主辛苦
回復

使用道具 舉報

ID:344848 發表于 2024-5-25 09:29 | 顯示全部樓層
并口是上世紀的微機必配接口，現在微機已不存在了
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板： 国产精品欧美一区二区三区不卡 | 在线一区视频 | 国产精品一区二区三区久久 | 精品中文在线 | 日本午夜一区二区三区 | 免费一级片 | 天堂久久一区 | 国产精品久久二区 | 久久av在线播放 | 中文字幕视频一区二区 | 精品网 | 成人av一区 | 狠狠躁夜夜躁人人爽天天高潮 | 日本视频在线播放 | 国产欧美日韩一区二区三区 | 狠狠艹| 成人免费视频网站在线看 | 国产成人精品一区二三区在线观看 | 91久久爽久久爽爽久久片 | 99精品电影 | 欧美一区二区三区在线播放 | 久久久久久99 | 国产线视频精品免费观看视频 | 97精品国产 | 狠狠色综合久久丁香婷婷 | 国产视频三区 | 日本不卡一区 | 免费av一区二区三区 | 亚洲三区视频 | 国产三级电影网站 | 欧美日韩在线成人 | 久久久久国产一区二区三区四区 | re久久| 三a毛片 | 久久精品国产一区二区三区不卡 | 中文字幕第7页 | 中文字幕亚洲精品在线观看 | 日韩高清中文字幕 | 91免费看片| 欧美激情国产日韩精品一区18 | 日韩淫片免费看 |