標題: VB控制單片機LED的方法詳解 [打印本頁]
作者: rdzhongren 時間: 2019-3-2 10:17
標題: VB控制單片機LED的方法詳解
試了一下VB上微機控制LED,很簡單的VB上位機。上位機默認使用COM4,單片機P1^0口接LED,點按鍵就可以控制LED。
VB上位機默認使用COM4,單片機P1^0口接LED,點擊按鍵就可以控制LED了
工程構建
實驗效果
單片機程序 :
#include <reg52.h>
void UartInit(void)
{
SCON |= 0x50 ;
PCON = 0x00 ;
TMOD |= 0x20 ;
TH1 = 0xfd ; /*11.0592MHZ,9600kps*/
TL1 = 0xfd ;
TR1 = 1 ;
ES = 1;
EA = 1 ;
}
void main(void)
{
UartInit();
while(1);
}
void UartISR(void) interrupt 4
{
if(TI)
{
TI = 0 ;
}
if(RI)
{
RI = 0 ;
P1 = SBUF ;
}
}
上位機程序 :
Private Sub Form_Load()
Form1.WindowState = 2 '界面設置為最大
Command1.Caption = "點亮LED"
Command2.Caption = "熄滅LED"
MSComm1.CommPort = 4
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click() '點亮
MSComm1.Output = Chr(1 & vbCr)
End Sub
Private Sub Command2_Click() '熄滅
MSComm1.Output = Chr(0 & vbCr)
End Sub
因為VB程序中已經固定了COM口,所以可以設置電腦COM為4,如果不為COM4,則按照下圖設置
完整的Word格式文檔51黑下載地址:
VB控制單片機LED.doc
(472.5 KB, 下載次數: 58)
2019-3-2 10:13 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
作者: 545016705 時間: 2019-3-24 07:59
我按上位機的命令輸入的,為啥會編譯錯誤呢,過程聲明與同名事件或過程的描述不匹配
作者: 545016705 時間: 2019-3-24 08:06
我按上位機的命令輸入的,為啥會編譯錯誤呢,過程聲明與同名事件或過程的描述不匹是啥原因
作者: jack_wang123 時間: 2019-4-3 16:20
我按上位機的命令輸入的,為啥會編譯錯誤呢,過程聲明與同名事件或過程的描述不匹是啥原因
作者: 1075868380 時間: 2020-5-18 16:10
樓主這個是需要單片機的實物板子嗎?
作者: shenqiwei 時間: 2021-12-16 05:25
你程序位子都放錯了,main主程序里面才有低八位和高八位的,把模式打開,總開關打開.
歡迎光臨 (http://m.zg4o1577.cn/bbs/) |
Powered by Discuz! X3.1 |
主站蜘蛛池模板:
91成人免费版
|
麻豆av在线免费观看
|
婷婷狠狠
|
国产午夜免费视频
|
日韩三级久久
|
色爱综合网
|
亚洲国产精品成人无久久精品
|
精品国产91乱码一区二区三区
|
亚洲 欧美 激情 另类 校园
|
亚洲专区在线
|
欧美成人精品一区二区三区在线看
|
欧美日韩视频一区二区
|
午夜视频免费看
|
欧美日韩精品在线观看
|
久久久一区二区
|
精品国产乱码久久久久久蜜柚
|
91日韩欧美
|
狠狠五月
|
亚洲第一视频网站
|
中文字幕亚洲综合
|
97国产视频
|
成年人免费在线观看
|
国产又粗又长又爽
|
国产精品久久久一区二区三区
|
日韩不卡在线
|
久久综合热
|
欧美在线播放视频
|
亚洲福利一区
|
久久香蕉网
|
欧美日韩成人一区二区三区
|
99精品网站
|
91小视频在线观看
|
国产欧美一区二区三区视频在线观看
|
久久香蕉国产
|
国产区在线
|
亚洲第一色
|
国产精品久久久一区二区三区
|
亚洲免费在线视频
|
美女扒开腿让人桶爽原神
|
日韩福利一区
|
日韩午夜片
|