找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 9074|回復(fù): 17
打印 上一主題 下一主題
收起左側(cè)

VB控制計(jì)算機(jī)并口示例（含完整可以運(yùn)行源代碼）

  [復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
可以通過并口直接控制MCU，做SW控制不錯(cuò)，關(guān)鍵還可以學(xué)習(xí)并口硬件控制學(xué)習(xí)。含詳細(xì)源代碼哦


運(yùn)行界面：


源碼資料包：


源程序如下:
  1. VERSION 5.00
  2. Begin VB.Form Main
  3.    BackColor       =   &H80000005&
  4.    Caption         =   "計(jì)算機(jī)并口控制示例"
  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ù) - 二進(jìn)制轉(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ìn)制 - 根據(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ù) - 二進(jìn)制轉(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ìn)制 - 根據(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ìn)制 - 根據(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ù) - 二進(jìn)制轉(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控制計(jì)算機(jī)并口示例.zip (153.65 KB, 下載次數(shù): 104)


評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏6 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:317625 發(fā)表于 2018-5-11 15:56 | 只看該作者
自己先頂一下，不知道怎么設(shè)置成免費(fèi)貼呢
回復(fù)

使用道具 舉報(bào)

板凳
ID:317625 發(fā)表于 2018-5-14 07:59 | 只看該作者
謝謝老大的幫忙編輯
回復(fù)

使用道具 舉報(bào)

地板
ID:552794 發(fā)表于 2019-7-11 22:02 | 只看該作者
太好了！正在找控制并口的資料。向樓主學(xué)習(xí)。
回復(fù)

使用道具 舉報(bào)

5#
ID:390052 發(fā)表于 2019-7-23 16:42 來自手機(jī) | 只看該作者
TAMA_JACK 發(fā)表于 2018-5-11 15:56
自己先頂一下，不知道怎么設(shè)置成免費(fèi)貼呢

好東西，正在學(xué)習(xí)并口控制方法
回復(fù)

使用道具 舉報(bào)

6#
ID:110604 發(fā)表于 2019-9-14 19:01 | 只看該作者
先下載了，調(diào)試JTAG的時(shí)候用得上
回復(fù)

使用道具 舉報(bào)

7#
ID:617054 發(fā)表于 2019-9-27 10:34 | 只看該作者
太好了，只是要怎么下載呢
回復(fù)

使用道具 舉報(bào)

8#
ID:364988 發(fā)表于 2019-11-6 01:28 | 只看該作者
支持64位嗎？
回復(fù)

使用道具 舉報(bào)

9#
ID:685817 發(fā)表于 2020-1-13 20:27 來自手機(jī) | 只看該作者
好東西，總算找到了
回復(fù)

使用道具 舉報(bào)

10#
ID:373684 發(fā)表于 2020-1-13 21:51 | 只看該作者
VB工資高嗎
回復(fù)

使用道具 舉報(bào)

11#
ID:298008 發(fā)表于 2020-3-17 08:29 | 只看該作者
謝謝樓主分享！��！
回復(fù)

使用道具 舉報(bào)

12#
ID:110604 發(fā)表于 2020-4-18 13:35 | 只看該作者
調(diào)試了JTAG好像不行，不知道問題何在
回復(fù)

使用道具 舉報(bào)

13#
ID:743813 發(fā)表于 2020-5-21 19:09 | 只看該作者
并口模式需要設(shè)置嗎？數(shù)據(jù)端口好像控制不了，我的并口有問題，還是程序哪需要編輯？
回復(fù)

使用道具 舉報(bào)

14#
ID:759119 發(fā)表于 2020-5-23 14:10 | 只看該作者
好�。�！
回復(fù)

使用道具 舉報(bào)

15#
ID:718725 發(fā)表于 2020-5-28 22:44 | 只看該作者
VB一直學(xué)不好的，還是跟工作有關(guān)。
回復(fù)

使用道具 舉報(bào)

16#
ID:884031 發(fā)表于 2021-2-12 16:48 | 只看該作者
太需要了，謝謝樓主分享！
回復(fù)

使用道具 舉報(bào)

17#
ID:892783 發(fā)表于 2021-3-16 20:30 | 只看該作者
謝謝分享，樓主辛苦
回復(fù)

使用道具 舉報(bào)

18#
ID:344848 發(fā)表于 2024-5-25 09:29 | 只看該作者
并口是上世紀(jì)的微機(jī)必配接口，現(xiàn)在微機(jī)已不存在了
回復(fù)

使用道具 舉報(bào)

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

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表