各位高手 請幫小弟解決一下我的問題 
小弟正在製作一個以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

1> 先測試 VB -> UART -> 8051
2> 請確定兩邊通訊協定, baud rate 一樣
3> 確定兩邊傳的值代表意義都一樣, 別一邊傳 char, 一邊當值在收(永遠收不到正確值)
4> 51端 UART 建議用中斷接收值.

P.S : 程式碼請做好縮排, 閉免大家閱讀困難

------
-------------------------------------------------------------------------
走是為了到另一境界，停是為了欣賞人生；未走過千山萬水，怎知生命的虛實與輕重！？

===================引 用 ㊣ 文 章===================
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也是沒反應

謝謝版大指教 下次會注意

你要不要先找找 PC <-> 51 之間直接用 RS232 通訊。
如果正常。
我們再來看看 PC<->藍芽<->51
這個問題。

你這樣無法把變因控制在一個。
不好除錯

===================引 用 暗黑破壞神 文 章===================
你要不要先找找 PC <-> 51 之間直接用 RS232 通訊。
如果正常。
我們再來看看 PC<->藍芽<->51
這個問題。

你這樣無法把變因控制在一個。
不好除錯
-------------------------------
版大 小弟依你的步驟做了一下
PC<->51的狀況也是一樣
只有接收到資料
但沒動作

那要確認一下你的 TX - RX 是不是有對應好。
訊號有沒有由 MAX 232 這類的IC轉到 51 的 RX 去？
這個部份你可以由示波器來量測。

再來就要看你 51 接 RS232 的程式是否正確。
這個部份很多書都有寫怎麼接收，你可以看看書。

我們把控制變因變成一個。來找問題。

===================引 用 暗黑破壞神 文 章===================
那要確認一下你的 TX - RX 是不是有對應好。
訊號有沒有由 MAX 232 這類的IC轉到 51 的 RX 去？
這個部份你可以由示波器來量測。

再來就要看你 51 接 RS232 的程式是否正確。
這個部份很多書都有寫怎麼接收，你可以看看書。

我們把控制變因變成一個。來找問題。

---------------------------------
謝謝版大
之前有測過了 51有接收到封包
要等明天實驗室開才有示波器用ˊ_ˋ
看了2-3本書 跟一些網路資料
都試不出來才來問的ˊ_ˋ

你 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也是沒反應

謝謝版大指教 下次會注意

------
-------------------------------------------------------------------------
走是為了到另一境界，停是為了欣賞人生；未走過千山萬水，怎知生命的虛實與輕重！？

抱歉 筆誤都是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也是沒反應

謝謝版大指教 下次會注意

編輯記錄

感謝版大的幫忙
小弟目現進度在
經過51程式修改後
RS232<->8051部分已完成
由VB發出指令後 51有依指令動作
但換裝藍芽後
51又沒動作了@@

那你要看你的藍芽是否正確了。
因為PC－＞51我們正常。
那現在我們再重頭來看看。
你由PC送出資料。是否有到51的RX這支腳？由示波器來看。

感謝版大的幫助 
我與藍芽廠商諮詢後解決問題了

===================引 用 暗黑破壞神 文 章===================
那你要看你的藍芽是否正確了。
因為PC－＞51我們正常。
那現在我們再重頭來看看。
你由PC送出資料。是否有到51的RX這支腳？由示波器來看。

試試下面的紅色標誌

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

此問題已經解決了 謝謝你@@

===================引 用 penguin5 文 章===================
試試下面的紅色標誌