關於vb rs232 8051傳輸問題 |
缺席
|
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
各位高手 請幫小弟解決一下我的問題
小弟正在製作一個以vb控制 藍芽傳輸 8051動作的專題 vb=>藍芽發出(虛擬comport)~~~~(UART)~~~~>藍芽接收=>8051=>動作 vb經由虛擬com傳出資料 藍芽提供虛擬comport以uart傳送指令 8051收到指令後動作 但是在指令傳送到8051後卻沒有動作 希望各位高手指教一下 以下是小弟的code VB部分 Private Sub Command10_Click() MSComm1.CommPort = 6 MSComm1.Settings = " 9600,N,8,1 " MSComm1.PortOpen = True End Sub Private Sub Command8_Click() MSComm1.PortOpen = False End Sub Private Sub Command9_Click() MSComm1.Output = Chr(A) End Sub 8051部分 org 0H start: jmp main org 30H main: mov sp,#5fH call rs232 ;初始設定 p2.7亮 cpl p2.7 mov r5,#25 call delayms cpl p2.7 ;設定完成 p2.7暗 wait: jnb RI,wait ;接收資料 p2.6亮 <==動作到此行p2.6有亮 所以應該有接收到資料 cpl p2.6 clr RI mov a,sbuf csaeA: cjne a,#41H,mend ;收到'A'p2.5亮 <==到此行無任何動作 mov r1,#1 cAloop: cpl p2.5 call delayms djnz r1,cAloop jmp mend mend: mov r5,#50 call delayms cpl p2.6 jmp wait rs232: mov tmod,#00100101B mov th1,#0fdh mov tl1,#0fdh setb tr1 mov scon,#01010000B ret delayms: mov r6,#100 delaym: mov r7,#100 djnz r7,$ djnz r6,delaym djnz r5,delayms ret end |
㊣
版主 發表:261 回覆:2302 積分:1667 註冊:2005-01-04 發送簡訊給我 |
1> 先測試 VB -> UART -> 8051
2> 請確定兩邊通訊協定, baud rate 一樣 3> 確定兩邊傳的值代表意義都一樣, 別一邊傳 char, 一邊當值在收(永遠收不到正確值) 4> 51端 UART 建議用中斷接收值. P.S : 程式碼請做好縮排, 閉免大家閱讀困難
------
------------------------------------------------------------------------- 走是為了到另一境界,停是為了欣賞人生;未走過千山萬水,怎知生命的虛實與輕重!? |
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
===================引 用 ㊣ 文 章=================== 1> 先測試 VB -> UART -> 8051 2> 請確定兩邊通訊協定, baud rate 一樣 3> 確定兩邊傳的值代表意義都一樣, 別一邊傳 char, 一邊當值在收(永遠收不到正確值) 4> 51端 UART 建議用中斷接收值. P.S : 程式碼請做好縮排, 閉免大家閱讀困難 --------------------------------------------------------------- 2. 2邊baud rate都是9200 3.我把51部分改成 cjne a,#'A',mend也是沒反應 謝謝版大指教 下次會注意 |
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
|
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
===================引 用 暗黑破壞神 文 章=================== 那要確認一下你的 TX - RX 是不是有對應好。 訊號有沒有由 MAX 232 這類的IC轉到 51 的 RX 去? 這個部份你可以由示波器來量測。 再來就要看你 51 接 RS232 的程式是否正確。 這個部份很多書都有寫怎麼接收,你可以看看書。 我們把控制變因變成一個。來找問題。 --------------------------------- 謝謝版大 之前有測過了 51有接收到封包 要等明天實驗室開才有示波器用ˊ_ˋ 看了2-3本書 跟一些網路資料 都試不出來才來問的ˊ_ˋ |
㊣
版主 發表:261 回覆:2302 積分:1667 註冊:2005-01-04 發送簡訊給我 |
你 VB 程式 baud rate 明明是 9600, 你說都是 9200 ?? 要不要先確認一下?
最笨的方法, VB 部分自己寫一個 memo, 用來顯示 UART 收到的資料. Com port 2.3腳短路, 看看 memo 顯示的是不是你要發的 data. 如果對, 問題就在 51端. ===================引 用 wowow11 文 章=================== 2. 2邊baud rate都是9200 3.我把51部分改成? cjne?a,#'A',mend也是沒反應 謝謝版大指教 下次會注意
------
------------------------------------------------------------------------- 走是為了到另一境界,停是為了欣賞人生;未走過千山萬水,怎知生命的虛實與輕重!? |
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
抱歉 筆誤都是9600才對 另外 VB的DEMO可以正確執行
===================引 用 ㊣ 文 章=================== 你 VB 程式 baud rate 明明是 9600, 你說都是 9200 ?? 要不要先確認一下? 最笨的方法, VB 部分自己寫一個 memo, 用來顯示 UART 收到的資料. Com port 2.3腳短路, 看看 memo 顯示的是不是你要發的 data. 如果對, 問題就在 51端. ===================引 用 wowow11 文 章=================== 2. 2邊baud rate都是9200 3.我把51部分改成? cjne?a,#'A',mend也是沒反應 謝謝版大指教 下次會注意
編輯記錄
wowow11 重新編輯於 2007-05-13 22:19:35, 註解 無‧
|
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
|
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
|
penguin5
資深會員 發表:116 回覆:317 積分:431 註冊:2004-05-09 發送簡訊給我 |
試試下面的紅色標誌
VB部分 Private Sub Command10_Click() MSComm1.CommPort = 6 MSComm1.Settings = " 9600,N,8,1 " MSComm1.PortOpen = True End Sub Private Sub Command8_Click() MSComm1.PortOpen = False End Sub Private Sub Command9_Click() MSComm1.Output = Chr(A) <==將chr(A)改為CHR(1) End Sub 8051部分 org 0H start: jmp main org 30H main: mov sp,#5fH call rs232 ;初始設定 p2.7亮 cpl p2.7 mov r5,#25 call delayms cpl p2.7 ;設定完成 p2.7暗 wait: jnb RI,wait ;接收資料 p2.6亮 cpl p2.6 clr RI mov a,sbuf csaeA: cjne a,#41H,mend ;收到'A'p2.5亮 <==將cjne a,#41H,mend )改為cjne a,#1,mend mov r1,#1 cAloop: cpl p2.5 call delayms djnz r1,cAloop jmp mend mend: mov r5,#50 call delayms cpl p2.6 jmp wait rs232: mov tmod,#00100101B mov th1,#0fdh mov tl1,#0fdh etb tr1 mov scon,#01010000B ret delayms: mov r6,#100 delaym: mov r7,#100 djnz r7,$ djnz r6,delaym djnz r5,delayms ret end |
wowow11
一般會員 發表:1 回覆:7 積分:1 註冊:2007-05-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |