Witam,

Zrobiłem sobie układzik odczytujący pastylkę DS1990A (89C2051, MAX232)
i napisałem program na PC (w C#), który wysyła trzy bajty, powiedzmy
01 02 03, do czytnika, który po odebraniu tych bajtów ma odesłać
numer.

Problem jest taki, że instrukcje input i inputhex działają do momentu
odebrania znaku 0x13, a ja takiego znaku nie wysyłam więc BASCOM nie
reaguje na moje 01 02 03.

Jedynie intrukcja inputbin nie oczekuje na znak 0x13, ale nie wiem jak
to rozpracować, żeby po wysłaniu z programu na PC trzech bajtów BASCOM
mi odpowiedział. Póki co, wykoncypowałem coś takiego i w symaluatorze
BASCOMa to działa, ale może Koledzy mają jakieś sprawdzone
rozwiązanie?

$regfile = "89C2051.DAT"
$crystal = 11059200
$baud = 19200
Config 1wire = P1.0

Dim Ar(8) As Byte
Dim Crc As Byte
Dim Crcp As Byte
Dim Licz As Byte
Dim Bajt1 As String * 1
Dim Bajt2 As String * 1
Dim Bajt3 As String * 1
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte

Led1 Alias P1.4
Led2 Alias P1.5
Led3 Alias P1.6

Led1 = 1
Led2 = 1
Led3 = 1

Declare Sub Ow_read
Declare Sub Ow_crc
Declare Sub Led_reset

Do
Inputbin Bajt1
Inputbin Bajt2
Inputbin Bajt3
B1 = Hexval(bajt1)
B2 = Hexval(bajt2)
B3 = Hexval(bajt3)
P1.4 = 0
If B1 = &H2D And B2 = &H1C And B3 = &H6F Then
Call Ow_read
Call Ow_crc
Call Led_reset
End If
Loop

Sub Led_reset
Led1 = 1
Led2 = 1
Led3 = 1
End Sub

Sub Ow_read
1wreset
1wwrite &H33
For Licz = 1 To 8
Ar(licz) = 1wread()
Next Licz
Printhex Ar(1) ; Ar(2) ; Ar(3) ; Ar(4) ; Ar(5) ; Ar(6) ; Ar(7) ; Ar
(8)
Led2 = 0
End Sub

Sub Ow_crc
Crc = 0
For Licz = 1 To 7
Crcp = Crc Xor Ar(licz)
Crc = Lookup(crcp , Crc8)
Next Licz
Printhex Crc
End Sub

'Tablica do wyliczania CRC dla DS1990
Crc8:
Data 0 , 94 , 188 , 226 , 97 , 63 , 221 , 131 , 194 , 156
Data 126 , 32 , 163 , 253 , 31 , 65 , 157 , 195 , 33 , 127
Data 252 , 162 , 64 , 30 , 95 , 1 , 227 , 189 , 62 , 96
Data 130 , 220 , 35 , 125 , 159 , 193 , 66 , 28 , 254 , 160
Data 225 , 191 , 93 , 3 , 128 , 222 , 60 , 98 , 190 , 224
Data 2 , 92 , 223 , 129 , 99 , 61 , 124 , 34 , 192 , 158
Data 29 , 67 , 161 , 255 , 70 , 24 , 250 , 164 , 39 , 121
Data 155 , 197 , 132 , 218 , 56 , 102 , 229 , 187 , 89 , 7
Data 219 , 133 , 103 , 57 , 186 , 228 , 6 , 88 , 25 , 71
Data 165 , 251 , 120 , 38 , 196 , 154 , 101 , 59 , 217 , 135
Data 4 , 90 , 184 , 230 , 167 , 249 , 27 , 69 , 198 , 152
Data 122 , 36 , 248 , 166 , 68 , 26 , 153 , 199 , 37 , 123
Data 58 , 100 , 134 , 216 , 91 , 5 , 231 , 185 , 140 , 210
Data 48 , 110 , 237 , 179 , 81 , 15 , 78 , 16 , 242 , 172
Data 47 , 113 , 147 , 205 , 17 , 79 , 173 , 243 , 112 , 46
Data 204 , 146 , 211 , 141 , 111 , 49 , 178 , 236 , 14 , 80
Data 175 , 241 , 19 , 77 , 206 , 144 , 114 , 44 , 109 , 51
Data 209 , 143 , 12 , 82 , 176 , 238 , 50 , 108 , 142 , 208
Data 83 , 13 , 239 , 177 , 240 , 174 , 76 , 18 , 145 , 207
Data 45 , 115 , 202 , 148 , 118 , 40 , 171 , 245 , 23 , 73
Data 8 , 86 , 180 , 234 , 105 , 55 , 213 , 139 , 87 , 9
Data 235 , 181 , 54 , 104 , 138 , 212 , 149 , 203 , 41 , 119
Data 244 , 170 , 72 , 22 , 233 , 183 , 85 , 11 , 136 , 214
Data 52 , 106 , 43 , 117 , 151 , 201 , 74 , 20 , 246 , 168
Data 116 , 42 , 200 , 150 , 21 , 75 , 169 , 247 , 182 , 232
Data 10 , 84 , 215 , 137 , 107 , 53

Z góry dziękuję za pomoc :)

--
Gusioo.
http://gusioo.blogspot.com/

do góry

Dosc dawno temu pisalem program komunikujacy sie przez rs232 tym
procesorem - poszlo bez problemu.

Oto masz podpowiedzi:
- korzystaj z przerwan,bardzo dobry przyklad
http://www.elektroda.pl/rtvforum/topic451053.html
- jest cos takiego jak $timeout - to moze rowiazac problem wysylania znaku
enter - ale ja staralbym sie wysylac i odbierac jako bin

K.

do góry

On 6 Cze, 20:44, "Krzysztof" <o...@w...pl> wrote:
>  Dosc dawno temu pisalem program komunikujacy sie przez rs232 tym
> procesorem - poszlo bez problemu.
>
> Oto masz podpowiedzi:
> - korzystaj z przerwan,bardzo dobry
przykladhttp://www.elektroda.pl/rtvforum/topic451053
.html
> - jest cos takiego jak $timeout - to moze rowiazac problem wysylania znaku
> enter - ale ja staralbym sie wysylac i odbierac jako bin
>
> K.

Dzięki za link -- szukałem na Elektrodzie, ale tego nie znalazłem.

Problem leżał po stronie softu na PC, przez roztargnienie wysyłałem
zupełnie coś innego.

Dziękuję za pomoc i pozdrawiam.

--
Gusioo.
http://gusioo.blogspot.com/

do góry

> Do
> Inputbin Bajt1
> Inputbin Bajt2
> Inputbin Bajt3
> B1 = Hexval(bajt1)
> B2 = Hexval(bajt2)
> B3 = Hexval(bajt3)
> P1.4 = 0
> If B1 = &H2D And B2 = &H1C And B3 = &H6F Then
> Call Ow_read
> Call Ow_crc
> Call Led_reset
> End If
> Loop

To teraz wyślij po RSie taki ciąg znaków:
33h 2Dh 1Ch 6Fh
Jest tu sekwencja 2D 1C i 6F, którą próbujesz wykryć i co?? Nie
zadziała... bo program sprawdzi tylko sekwencje 33 2D 1C i później 6F i
2 kolejne bajty ;)... nie podpowiadam rozwiązania, bo zachęcam Cię do
samodzielnych prób (takie "ćwiczenia algorytmiczne" zawsze się przydają :)).

Pozdrawiam
Konop

do góry