我也有一個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....
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. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |