VB控制計算機并口示例（含完整可以運行源代碼）

ID:317625 · 發(fā)表于 2018-5-11 15:56

可以通過并口直接控制MCU，做SW控制不錯，關(guān)鍵還可以學(xué)習(xí)并口硬件控制學(xué)習(xí)。含詳細(xì)源代碼哦

運行界面：

附件含VB源代碼

源碼資料包：

源程序如下:

VERSION 5.00
Begin VB.Form Main
BackColor = &H80000005&
Caption = "計算機并口控制示例"
ClientHeight = 10560
ClientLeft = 255
ClientTop = 615
ClientWidth = 8910
LinkTopic = "Form1"
ScaleHeight = 10560
ScaleWidth = 8910
Begin VB.Frame Frame3
BackColor = &H00FFFFFF&
Caption = "控制端口"
Height = 1695
Left = 5640
TabIndex = 35
Top = 1560
Width = 2295
Begin VB.Label Label14
BackColor = &H00FFFFFF&
Caption = "整數(shù) - 二進(jìn)制轉(zhuǎn)換"
Height = 255
Left = 120
TabIndex = 39
Top = 960
Width = 1935
End
Begin VB.Label Label13
BackColor = &H00FFFFFF&
Caption = "二進(jìn)制 - 根據(jù)上面選擇"
Height = 360
Left = 120
TabIndex = 38
Top = 210
Width = 1935
End
Begin VB.Label lblCb
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 37
Top = 600
Width = 1935
End
Begin VB.Label lblCi
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 36
Top = 1200
Width = 1935
End
End
Begin VB.Frame Frame2
BackColor = &H00FFFFFF&
Caption = "狀態(tài)端口"
Height = 1695
Left = 3240
TabIndex = 30
Top = 1560
Width = 2295
Begin VB.Label Label10
BackColor = &H00FFFFFF&
Caption = "整數(shù) - 二進(jìn)制轉(zhuǎn)換"
Height = 255
Left = 120
TabIndex = 34
Top = 960
Width = 1935
End
Begin VB.Label Label9
BackColor = &H00FFFFFF&
Caption = "二進(jìn)制 - 根據(jù)上面選擇"
Height = 345
Left = 120
TabIndex = 33
Top = 210
Width = 2130
End
Begin VB.Label lblSi
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 105
TabIndex = 32
Top = 600
Width = 1935
End
Begin VB.Label lblSb
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 31
Top = 1200
Width = 1935
End
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "數(shù)據(jù)端口"
Height = 1695
Left = 840
TabIndex = 25
Top = 1560
Width = 2295
Begin VB.Label lblDb
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 29
Top = 1200
Width = 1935
End
Begin VB.Label lblDi
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 105
TabIndex = 28
Top = 570
Width = 1935
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
Caption = "二進(jìn)制 - 根據(jù)上面選擇"
Height = 360
Left = 120
TabIndex = 27
Top = 195
Width = 1935
End
Begin VB.Label Label6
BackColor = &H00FFFFFF&
Caption = "整數(shù) - 二進(jìn)制轉(zhuǎn)換"
Height = 240
Left = 105
TabIndex = 26
Top = 945
Width = 1935
End
End
Begin VB.CheckBox S05
BackColor = &H00FF0000&
Caption = "15"
Height = 195
Left = 6825
TabIndex = 24
Top = 975
Width = 495
End
Begin VB.CheckBox C03
BackColor = &H00FF0000&
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復(fù)制代碼

所有資料51hei提供下載:

VB控制計算機并口示例.zip (153.65 KB, 下載次數(shù): 104)

ID:317625 · 發(fā)表于 2018-5-11 15:56

自己先頂一下，不知道怎么設(shè)置成免費貼呢

ID:317625 · 發(fā)表于 2018-5-14 07:59

謝謝老大的幫忙編輯

ID:552794 · 發(fā)表于 2019-7-11 22:02

太好了！正在找控制并口的資料。向樓主學(xué)習(xí)。

ID:390052 · 發(fā)表于 2019-7-23 16:42

TAMA_JACK 發(fā)表于 2018-5-11 15:56
自己先頂一下，不知道怎么設(shè)置成免費貼呢

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

ID:110604 · 發(fā)表于 2019-9-14 19:01

先下載了，調(diào)試JTAG的時候用得上

ID:617054 · 發(fā)表于 2019-9-27 10:34

太好了，只是要怎么下載呢

ID:364988 · 發(fā)表于 2019-11-6 01:28

支持64位嗎？

ID:685817 · 發(fā)表于 2020-1-13 20:27

好東西，總算找到了

ID:373684 · 發(fā)表于 2020-1-13 21:51

VB工資高嗎

ID:298008 · 發(fā)表于 2020-3-17 08:29

謝謝樓主分享�。�！

ID:110604 · 發(fā)表于 2020-4-18 13:35

調(diào)試了JTAG好像不行，不知道問題何在

ID:743813 · 發(fā)表于 2020-5-21 19:09

并口模式需要設(shè)置嗎？數(shù)據(jù)端口好像控制不了，我的并口有問題，還是程序哪需要編輯？

ID:759119 · 發(fā)表于 2020-5-23 14:10

好！�。�

ID:718725 · 發(fā)表于 2020-5-28 22:44

VB一直學(xué)不好的，還是跟工作有關(guān)。

ID:884031 · 發(fā)表于 2021-2-12 16:48

太需要了，謝謝樓主分享！

ID:892783 · 發(fā)表于 2021-3-16 20:30

謝謝分享，樓主辛苦

ID:344848 · 發(fā)表于 2024-5-25 09:29

并口是上世紀(jì)的微機必配接口，現(xiàn)在微機已不存在了

帳號		自動登錄	找回密碼
密碼			立即注冊

	16^# 無效樓層，該帖已經(jīng)被刪除

	17^# 無效樓層，該帖已經(jīng)被刪除

	18^# 無效樓層，該帖已經(jīng)被刪除

VB控制計算機并口示例（含完整可以運行源代碼）

評分