標(biāo)題: VB控制計算機并口示例（含完整可以運行源代碼） [打印本頁]
作者: TAMA_JACK    時間: 2018-5-11 15:56
標(biāo)題: VB控制計算機并口示例（含完整可以運行源代碼）
可以通過并口直接控制MCU，做SW控制不錯，關(guān)鍵還可以學(xué)習(xí)并口硬件控制學(xué)習(xí)。含詳細源代碼哦


運行界面：


源碼資料包：


源程序如下:
  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         =   "整數(shù) - 二進制轉(zhuǎn)換"
  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         =   "二進制 - 根據(jù)上面選擇"
  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         =   "狀態(tài)端口"
  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         =   "整數(shù) - 二進制轉(zhuǎn)換"
  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         =   "二進制 - 根據(jù)上面選擇"
  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         =   "數(shù)據(jù)端口"
  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         =   "二進制 - 根據(jù)上面選擇"
  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         =   "整數(shù) - 二進制轉(zhuǎn)換"
  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黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
VB控制計算機并口示例.zip (153.65 KB, 下載次數(shù): 104)


作者: TAMA_JACK    時間: 2018-5-11 15:56
自己先頂一下，不知道怎么設(shè)置成免費貼呢
作者: TAMA_JACK    時間: 2018-5-14 07:59
謝謝老大的幫忙編輯
作者: chinabj2019    時間: 2019-7-11 22:02
太好了！正在找控制并口的資料。向樓主學(xué)習(xí)。
作者: wook2008    時間: 2019-7-23 16:42
TAMA_JACK 發(fā)表于 2018-5-11 15:56
自己先頂一下，不知道怎么設(shè)置成免費貼呢

好東西，正在學(xué)習(xí)并口控制方法
作者: zse05    時間: 2019-9-14 19:01
先下載了，調(diào)試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
調(diào)試了JTAG好像不行，不知道問題何在
作者: lxh3405    時間: 2020-5-21 19:09
并口模式需要設(shè)置嗎？數(shù)據(jù)端口好像控制不了，我的并口有問題，還是程序哪需要編輯？
作者: hb-lzy    時間: 2020-5-23 14:10
好�。�！
作者: 51550461    時間: 2020-5-28 22:44
VB一直學(xué)不好的，還是跟工作有關(guān)。
作者: xiaxue_203    時間: 2021-2-12 16:48
太需要了，謝謝樓主分享！
作者: pys_li    時間: 2021-3-16 20:30
謝謝分享，樓主辛苦
作者: donglw    時間: 2024-5-25 09:29
并口是上世紀(jì)的微機必配接口，現(xiàn)在微機已不存在了



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1