[syntax=basic4gl]Dim Zapisane As String * 10
Dim Odebrane As String * 10
Zapisane="4700740D78"
If Odebrane = Zapisane Then
..
Else
..
End If[/syntax]
Odbieranie przez UART z porównaniem można zrobić tak
[syntax=basic4gl]$baud = 9600
Dim Zapisane As String * 10
Dim Odebrane As String * 10
Dim Znaki As String * 10
Dim Ascii As Byte
Zapisane = "4700740D78"
Odebrane = ""
Znaki = ""
On Urxc Rs232
Enable Urxc
Enable Interrupts
Do
If Odebrane = Zapisane Then
..
Else
..
End If
Waitms 10
Loop
Rs232:
Disable Urxc
Ascii = Inkey()
Znaki = Znaki + Chr(Ascii)
If Len(znaki) = 10 Then
Odebrane = Znaki
Znaki = ""
End If
Enable Urxc
Return[/syntax]Statystyki: Napisane przez ariek44 — 27 maja 2013, o 22:26
]]>