我也有一個8051 RS-232 vs VB的問題... |
缺席
|
ss99ss
一般會員 發表:4 回覆:7 積分:2 註冊:2005-04-20 發送簡訊給我 |
各位前輩好,小弟用89s51測試將資料以RS232回傳,結果非常奇怪 跑mode 1,9600,n,8,1 當我按下RESET後,8051的確有將東西送出去,但是這時候VB的MSCOMM Event不會
被呼叫,我多按幾次RESET後,8051竟然開始起肖,TX送出來的是極慢的上下跳動(大概2bps?),這時候VB就會一次把之前吃的東西全部吐出來,而且補上0.... 如果我將 class="code">
; 檔名:Rs2321.a51
; 配合"RS232實習板"
; 傳送一字串為"HELLO!!"
;
START:
MOV TMOD,#20H ;TMOD=20H,設定TIMER1為8位元自動載入定時器
MOV TH1,#0FDH ;TH1=0FDH
MOV TL1,#0FDH ;TL1=0FDH,設定鮑率為9600BPS
CLR SM0 ;SM0=0
SETB SM1 ;SM1=1,設定串列傳輸為模式1
SETB TR1 ;TR1=1,開始計時
MOV DPTR,#HTABLE ;DPTR=HTABLE之位址
LOOP:
CLR A ;A=0
MOVC A,@A DPTR ;A=[DPTR A],位址上之資料
JZ EXIT ;若A=0,則跳至EXIT
MOV SBUF,A ;SBUF=A
WHILE:
JNB TI,WHILE ;若TI=0表示未傳完,需等待
CLR TI ;TI=0
INC DPTR ;DPTR=DPTR 1,指向下一資料
JMP LOOP ;GOTO LOOP
EXIT:
JMP $ ;原地跳躍
HTABLE:
DB "HELLO!!",0
END ;程式結束
(VB的原始碼)
Private Sub Command1_Click() If MSC1.PortOpen = False Then MSC1.PortOpen = True End Sub '---------------------------------------------------- Private Sub Command2_Click() If MSC1.PortOpen = True Then MSC1.PortOpen = False Debug.Print "======================" End Sub '---------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) If MSC1.PortOpen = True Then MSC1.PortOpen = False Debug.Print "======================" End Sub '----------------------------------------------------- Private Sub MSC1_OnComm() 'MSCOMM 觸發 MSC1.Settings = "9600,n,8,1" Dim Buffer As Variant ,i MSC1.InputMode = comInputModeBinary Buffer = MSC1.Input For i = LBound(Buffer) To UBound(Buffer) Debug.Print "X" Str(Buffer(i)) " - " Chr(Buffer(i)) Next i Debug.Print " " End Sub該如何解決呢? 還有,為何RESET幾次後會變成TX亂跳呢? (我已經有加1u的de-bounce電容) 請指教, 感激不盡! 發表人 - ss99ss 於 2005/04/22 19:30:22 |
㊣
版主 發表:261 回覆:2302 積分:1667 註冊:2005-01-04 發送簡訊給我 |
|
ss99ss
一般會員 發表:4 回覆:7 積分:2 註冊:2005-04-20 發送簡訊給我 |
|
㊣
版主 發表:261 回覆:2302 積分:1667 註冊:2005-01-04 發送簡訊給我 |
|
ss99ss
一般會員 發表:4 回覆:7 積分:2 註冊:2005-04-20 發送簡訊給我 |
|
ss99ss
一般會員 發表:4 回覆:7 積分:2 註冊:2005-04-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |