برنامه ارتباط سریال

[abbasalifix]

پاسخ : برنامه ارتباط سریال

سلام
من یه برنامه کار راه اندازی که قبلا خودم نوشتم براتون میزارمش

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portc.3 = Output
Config Portc.4 = Output
Config Portc.5 = Output

Dim C As Byte
Do
Input "Enter cod:" , C
If C = 1 Then
Portc.3 = 1
Elseif C = 2 Then
Portc.3 = 0
End If

If C = 3 Then
Portc.4 = 1
Elseif C = 4 Then
Portc.4 = 0
End If

If C = 5 Then
Portc.5 = 1
Elseif C = 6 Then
Portc.5 = 0
End If

Loop
End

[mostafaserial]

پاسخ : برنامه ارتباط سریال

سلام

من از یه میکرو به میکروی دیگه رطوبت رو ارسال میکنم با دستور
Print " > RH: " ; H ;
به یه میکروی دیگه دیتا میفرستم و با دستور
Input Data_rec
دیتا رو میگیرم و روی نمایشگر نشون میدم حالا اگه ارتباط قطع بشه همون عدد قبلی رو نمایشگر میمونه و من میخام بنویسم disconnect
و از If Ischarwaiting(#3) = 1 Then استفاده کردم ولی نبود دیتا روی خط سریال رو متوجه نمیشه

حالا منظور کلیم فهمیدن وجود اطلاعات در پورت سریال


ممنوون میشم با مثال بهم راهنمایی گنین

[mostafaserial]

پاسخ : برنامه ارتباط سریال

سلام
مشکل این برنامه چیه بچه ها؟؟؟؟؟

$regfile = "m2560def.dat"
$crystal = 14745600

$baud = 9600
$lib "glcdKS108.lbx"

Config Portc = Output
Portc.0 = 1
Portc.1 = 1

Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Porte , Ce = 1 , Ce2 = 0 , Cd = 5 , Rd = 3 , Reset = 2 , Enable = 4

Setfont Font8x8

Config Com4 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin3 = Buffered , Size = 255
'Config Serialout3 = Buffered , Size = 255

Dim A As String * 7
A = "antes"

Dim Prueba As Byte
Prueba = 91

Dim Con As Byte
Con = 0

Open "com4:" For Binary As #4

Enable Urxc3
Enable Utxc3

Enable Interrupts

'$sim
Do

Waitms 100

Print #4 , Chr(13) ;
Printbin #4 , Prueba
Toggle Portc.0
' Cls
' Lcdat 1 , 1 , Con
' Con = Con + 1

Loop

End
Close #4

$include "font8x8.font"

---------------atmega8--------------------------

$regfile = "m8def.dat"
$crystal = 14745600
$baud = 9600

Config Portc = Output
Portc.0 = 0
Portc.1 = 0
Portc.2 = 0

Dim Variable As Byte

'Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Config Serialin = Buffered , Size = 255 , Bytematch = 13
Declare Sub Serial0charmatch()

Enable Urxc
Enable Interrupts

'$sim
Do

If Variable = 91 Then

Toggle Portc.1
End If

Toggle Portc.2
Waitms 500

' Print Chr(13) ;
'Printbin 91
Loop

Sub Serial0charmatch()

Toggle Portc.0
Inputbin Variable
Clear Serialin
Return

End Sub