دستور UDR در Bascom

[parsgroup]

سلام دوستان
من در میکر atmega32 می خوام با دستور udr یک داده رو ارسال کنم.
تمام کانفیگ URXC رو هم انجام دادم اما هیج داده ارسال نمی کنه کمک PLZZZ :angry:

[kinj]

پاسخ : دستور UDR در Bascom

برنامه تو بذار تا دوستان بتونن کمک کنن

[Navid_Micro]

پاسخ : دستور UDR در Bascom

توی بسکام ، شما فقط Buad Rate رو تعیین کن بعد مثلا بنویس UDR = 10
بعد چکش کن
البته واسه سریUSB باید UDRE استفاده کنی و واسه M128و 64 هم UDR0 یا UDR1

[parsgroup]

پاسخ : دستور UDR در Bascom

دوستان این برنامه

$regfile = "m32def.dat"
$crystal = 8000000
Config Portc = Output
Portc = &H00
Baud = 9600 '****
Config Serialout = Buffered , Size = 20
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Urxc
Enable Timer0
On Timer0 Check
On Urxc Getfpc
'/DEFINE/////////////////////////
Dim Uart As Byte
Dim Fb As Byte
Dim Bc As Byte
Dim Serial_data(5) As Byte
Dim Count As Integer
Dim Flage As Integer
Dim Cs As Byte

Dim W As Word
Dim T1 As Word
Dim T2 As Word
Dim T3 As Word
Dim T4 As Word
Dim Temps As Word
Dim Ts1 As String * 10
Dim Ts2 As String * 10
Dim Ts3 As String * 10
Dim Ts4 As String * 10
Dim I As Integer
Dim Lng1 As Integer
Dim Lng2 As Integer
Dim Lng3 As Integer
Dim Lng4 As Integer
Stop Adc
Start Adc

Do


Udr = &HEB

Loop


End 'end program
'//////////////
Getfpc:
Uart = Udr
If Flage = 0 Then
If Uart = &HAA Then
Cs = Uart
Fb = Uart
Flage = 1
Count = 1
End If
Else
Serial_data(count) = Uart
If Count = 5 Then
If Cs = Serial_data(5) Then
'Dr = Serial_data(1)

Bc = 1
End If
Count = 0
Flage = 0
End If
Incr Count
Cs = Cs + Uart
End If
Return
'///////////////

[Navid_Micro]

پاسخ : دستور UDR در Bascom

Do


UDR = &HEB
Waitms 20
Loop

[r.babazadeh]

پاسخ : دستور UDR در Bascom

شما UDR = &HEB رو تو یک لیبل بزار بعد تو لوپت از دستور زیر استفاده کن
If Usr.5 = 1 Then Call Tx_p

[r.babazadeh]

پاسخ : دستور UDR در Bascom

البته اول کار هم پورت سریالت رو کانفیگ کن مثل :
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2, Databits = 8

[parsgroup]

پاسخ : دستور UDR در Bascom

مرسی دوستان چک کنم 2باره جواب میدم

[parsgroup]

پاسخ : دستور UDR در Bascom

تمام کارایی که گفتین کردم ولی توی محیط دیتای سریال بسکام هیچ دیتایی دریافت نمیشه
یه سئ.ال : باید حتما برنامه برای نمایش دیتای دریافتی خودم بنویسم یا مال بسکتم نشون می ده ؟

[parsgroup]

پاسخ : دستور UDR در Bascom

باز زهم خود نوشتم با vb برنامه دریافت رو ولی نشد. اشکال از چیه؟ udr کار نمی کنه تو دریافت کار می کنه ولی تو ارسال نه