مشکل در ارسال و دریافت اطلاعات با پایه های TX و RX میکرو

[amir_tm]

با سلام
یه مشکلی در ارسال و دریافت اطلاعات با میکرو دارم . اون هم اینه که هر موقع اطلاعاتی رو از پایه RX میکرو دریافت میکنم بطور همزمان همون اطلاعات در پایه TX میکرو ارسال میشه . برنامه ام رو هم با بسکام نوشتم . می خواستم بدونم چطور میتونم ارسال اطلاعات رو از میکرو کنترل کنم که فقط با اعلام دستور اطلاعات به پایه tx ارسال بشه؟
ممنون میشم از راهنماییتون :agree:

[محمد مومنی22]

پاسخ : مشکل در ارسال و دریافت اطلاعات با پایه های TX و RX میکرو

با سلام
یه مشکلی در ارسال و دریافت اطلاعات با میکرو دارم . اون هم اینه که هر موقع اطلاعاتی رو از پایه RX میکرو دریافت میکنم بطور همزمان همون اطلاعات در پایه TX میکرو ارسال میشه . برنامه ام رو هم با بسکام نوشتم . می خواستم بدونم چطور میتونم ارسال اطلاعات رو از میکرو کنترل کنم که فقط با اعلام دستور اطلاعات به پایه tx ارسال بشه؟
ممنون میشم از راهنماییتون :agree:

سلام
دوست عزیز لطفا برنامه رو بگذارید که بهتر بشه راهنمایی کرد.احتمالا مشکل از برنامه هست.

[amir_tm]

پاسخ : مشکل در ارسال و دریافت اطلاعات با پایه های TX و RX میکرو

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Config Portc.0 = Output : Bezzer Alias Portc.0
Config Portc.1 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Dim Ii As Byte

For Ii = 0 To 2

Sound Bezzer , 100 , 250
Portd.6 = 1
Waitms 200

Sound Bezzer , 100 , 250
Portd.5 = 1

Waitms 200

Sound Bezzer , 100 , 250
Portd.4 = 1
Waitms 400
Portd.4 = 0
Portd.5 = 0
Portd.6 = 0

Next Ii
Dim A As String * 10
Dim C As Eram Byte
Dim C1 As Byte
Dim Save(10) As Eram String * 10
Dim Save1 As String * 10
Dim Del(10) As Eram Byte
Dim Dell As Byte
Dim K As Eram Byte
Dim I As Byte
Dim Kk As Byte
Dim Nn As Byte


'***********karthaye tarif shodeye ***********************
Dim J As Byte
Dim F As Long
Dim X As Long
Dim H(100) As Long
F = 0008117250
For J = 1 To 100 Step 1
H(j) = F
F = F + 1
Next
'**********************************


If K = 255 Then
K = 0
End If
Kk = K

C1 = C
H1:

Portd.4 = 0
Portd.5 = 0
Portd.6 = 0



Do

Input A
Waitms 10

'**********tabdil voroodi reshte be adad ***************
X = Val(a)
'******************************************** **********

If A = "0008096781" Or A = "0008114799" Then

Sound Bezzer , 100 , 250
Sound Bezzer , 100 , 250
Portd.4 = 1
Waitms 700
Goto Modir
'******************************************** ***************************
Else
For I = 0 To C1
Save1 = Save(i)
If A = Save1 Then


For Ii = 0 To 5
Toggle Portc.1
Portd.6 = 1


Sound Bezzer , 100 , 250
Waitms 80
Portd.6 = 0
Next Ii
Set Portc.1
Wait 1
Reset Portc.1
Nn = 1

Exit For

'**************ezafe kardane shart jadid************************
Elseif H(1) < X And X < H(100) Then


For Ii = 0 To 5
Toggle Portc.1
Portd.6 = 1
Sound Bezzer , 100 , 250
Waitms 80
Portd.6 = 0
Next Ii
Set Portc.1
Wait 1
Reset Portc.1
Nn = 1
Exit For
End If
'****************************************

Next I
If Nn = 0 Then
Sound Bezzer , 100 , 250
Waitms 80
Sound Bezzer , 100 , 250
Waitms 80
Sound Bezzer , 100 , 250
Waitms 80
Sound Bezzer , 100 , 250
Waitms 80

Portd.5 = 1
Wait 1
Portd.5 = 0
End If
End If
Nn = 0
Loop


Modir:

A = ""
Input A
If A = "0008096781" Then
Sound Bezzer , 100 , 250
Sound Bezzer , 100 , 250
Waitms 100
If K = 0 Then
Incr C1
C = C1
'Cls
'Showpic 0 , 0 , Rf4
'Lcdat 6 , 10 , "INSERT ADD TAG"
Portd.6 = 1
Input A
If A = "0008096781" Then


Goto H1
End If
Save(c1) = A
Waitms 100
Portd.5 = 1

Else


Kk = K
Dell = Del(kk)
Waitms 100

Save(dell) = A








Decr Kk
K = Kk

Wait 1
End If

End If
If A = "0008114799" Then
Sound Bezzer , 100 , 250
Sound Bezzer , 100 , 250

Portd.5 = 1
Input A
If A = "0008114799" Then
Goto H1
End If
For I = 0 To C1
Save1 = Save(i)
If A = Save1 Then
Save(i) = ""
Kk = K
Kk = Kk + 1
K = Kk
Del(k) = I

Waitms 100

Portd.6 = 1
Wait 1
Portd.4 = 0
Portd.5 = 0
Portd.6 = 0
Exit For
End If
Next I
End If
Goto H1
Return

من اصلا دستور پرینت هم نگذاشتم ولی باز هم تو پایه TX اطلاعات RX رو دارم :angry:

[amir_tm]

پاسخ : مشکل در ارسال و دریافت اطلاعات با پایه های TX و RX میکرو

من اصلا دستور پرینت هم نگذاشتم ولی باز هم تو پایه TX اطلاعات RX رو دارم