سلام
ارتباط بین avr 32 و کامپیوتر ( VB)
کدها را به صورت زیر در وی بی 6 تنظیم کردم
و
این کدها را هم در ای وی آر :
2 تا مشکل دارم اولی اینه که از طرف میکرو به کامپیوتر عدد بزرگتر از 255 ارسال میشه ولی از طرف کامپیوتر اگر بزرگتر از 255 بشه ارور میده چرا؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
دومین مشکل اینه که میکرو دو عدد اول را دریافت میکنه و عدد آخر را یعنی فقط سه عدد را دریافت میکنه نه بیشتر . چرا ؟؟؟؟
ممنون از راهنمایی شما
oo:
ارتباط بین avr 32 و کامپیوتر ( VB)
کدها را به صورت زیر در وی بی 6 تنظیم کردم
dim x(20) As Integer
Dim y(20) As Integer
Private Sub Send_Data()
For k = 0 To 20
MSComm1.Output = Chr$(x(n))
Next k
End Sub
Private Sub Form_Load()
MSComm1.RThreshold = 2
MSComm1.InputLen = 2
MSComm1.Settings = "2400,N,8,1"
MSComm1.DTREnable = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
Dim y(20) As Integer
Private Sub Send_Data()
For k = 0 To 20
MSComm1.Output = Chr$(x(n))
Next k
End Sub
Private Sub Form_Load()
MSComm1.RThreshold = 2
MSComm1.InputLen = 2
MSComm1.Settings = "2400,N,8,1"
MSComm1.DTREnable = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
این کدها را هم در ای وی آر :
Do
Rx(n) = Inkey()
n = n + 1
If n = 20 Then: Print 512: n = 0: End If
Loop
Rx(n) = Inkey()
n = n + 1
If n = 20 Then: Print 512: n = 0: End If
Loop
دومین مشکل اینه که میکرو دو عدد اول را دریافت میکنه و عدد آخر را یعنی فقط سه عدد را دریافت میکنه نه بیشتر . چرا ؟؟؟؟
ممنون از راهنمایی شما
oo:
دیدگاه