作者Deltaguita (貝纳頌)
看板Electronics
標題[問題] 8051與VB通訊的資料去回不同
時間Wed Mar 7 16:01:17 2012
請教一下各位前輩
小弟正在弄一個透過VB2010(PC)-RS232-8051 資料去回的實習
以便將來我監控資料
目前可以用VB把資料傳過去，也可以把資料傳回來
可是傳過去的資料沒有辦法正確的傳回來
例如我傳送1 回來是g(113)
傳送2 回來是r(114)
b 194
c 195
可以請問 問題是出在哪個環節嗎?
300P幣答謝!
VB CODE:
********************變數定義****************************
Dim i As Integer
Dim aa As Integer = 0
Dim send_data As String
Dim input As Integer = 0
Dim receive_data As String
Dim Ctr As Control
Dim BRx(256) As char
*********************************************************
UART設定
*********************************************************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
SerialPort1.DataBits = 8
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.Parity = IO.Ports.Parity.None
*********************************************************
RECEIVE
*********************************************************
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
For Me.i = 0 To 255 'BRX CLEAR
BRx(i) = 0
Next
receive_data = SerialPort1.BytesToRead
If receive_data = 0 Then Exit Sub
If receive_data > 256 Then
receive_data = 256
End If
For Me.j = 1 To receive_data
BRx(input) = SerialPort1.ReadByte
aa = BRx(input)
txt_receive.Text = txt_receive.Text & Chr(BRx(input))
input = input + 1
Next
input = 0
Timer1.Enabled = False
For Me.i = 0 To 255
BRx(i) = 0
Next
Timer1.Interval = 500
Timer1.Enabled = True
***********************************************************************
SEND
***********************************************************************
Private Sub send_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles send.Click
send_data = 0
For Me.i = 0 To Len(txtSend.Text) - 1
send_data = Mid(txtSend.Text, 1 + i, 1)
Me.SerialPort1.Write(send_data)
Call delay(90000)
Next i
End Sub
8051 CODE
/*------------------------------------------------
串口初始化
------------------------------------------------*/
void InitUART (void)
{
SCON = 0x50; // SCON: 模式 1, 8-bit UART, 使能接收
TMOD |= 0x20; // TMOD: timer 1, mode 2, 8-bit 重裝
TH1 = 0xFD; // TH1: 重裝值 9600 串列傳輸速率 晶振12MHz
TR1 = 1; // TR1: timer 1 打開
EA = 1; //打開總中斷
// ES = 1; //打開串口中斷
}
-------------------------------------------------
串口中斷程式
------------------------------------------------*/
void UART_SER (void) interrupt 4 //串列中斷服務程式
{
unsigned char Temp; //定義臨時變數
if(RI) //判斷是接收中斷產生
{
RI=0; //標誌位元清零
Temp=SBUF; //讀入緩衝區的值
P1=Temp; //把值輸出到P1口，用於觀察
SBUF=Temp; //把接收到的值再發回電腦端
}
if(TI) //如果是發送標誌位元，清零
TI=0;
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.251.222.115
※ Deltaguita:轉錄至看板 Visual_Basic 03/07 16:07
※ 編輯: Deltaguita 來自: 60.251.222.115 (03/07 16:08)
※ 編輯: Deltaguita 來自: 60.251.222.115 (03/07 16:13)
※ 編輯: Deltaguita 來自: 60.251.222.115 (03/07 16:15)
1F：推 Anal:buadrate 的設定對嗎？通常rs232出錯都是這個問題 03/07 18:38
2F：→ narcissusli:從這4個文字的傳收來看,是51端UART的設定有問題. 03/07 21:27
3F：→ Deltaguita:好的 小弟明天放上buadrate那邊的設定 順便修改看看 03/07 21:55
4F：推 su35:我覺得你VB的程式會錯誤喔 他可能還沒全部接收完 你程式就跑 03/07 22:06
5F：→ su35:完了 Buadrate那 要看你的振盪器的時脈 書本上跟你的板子用的 03/07 22:07
6F：→ su35:震盪器 不見得一樣的 03/07 22:08
7F：→ su35:我自己VB是用事件中斷去執行 遇到中斷才會去執行 單晶片那傳 03/07 22:10
8F：→ su35:送自訂的協定封包 所以我會有表頭檔這些資料 03/07 22:11
9F：→ su35:知道會收到多少個 並且計時 超過時間還沒收完就放棄 收到正確 03/07 22:11
10F：→ su35:的BYTE就會接下去執行 03/07 22:12
※ 編輯: Deltaguita 來自: 60.251.222.115 (03/08 11:04)
※ 編輯: Deltaguita 來自: 60.251.222.115 (03/08 11:09)
※ 編輯: Deltaguita 來自: 60.251.222.115 (03/08 15:05)
11F：→ Deltaguita:報告各位前輩 板子上面的是寫12M 註解寫11.0596 03/08 15:06
12F：→ Deltaguita:請問是一樣的嗎? 03/08 15:07
13F：→ narcissusli:不一樣喔,通常11.0592MHz是為了9600bps用的,如果用12M 03/11 21:26
14F：→ narcissusli:會導致51端的傳收偏移,這可以解釋你傳1/2/b/c的結果. 03/11 21:29
15F：→ narcissusli:用2進位去看就知道了. 03/11 21:30
16F：→ Deltaguita:感謝 已經解決! 03/12 15:53