Доброго времени, уважаемые.
Возникла проблема в работе с 1-Wire в баскоме, а именно - криво читает код ключа, вместо закономерного B8C52C имею случайные наборы данных.
Работаю с ATmega1280, плата RLN Electro. В протеусе все бодро, проект и код ниже.
Код:
$regfile = "m1281def.dat"
$crystal = 16000000
$baud = 2400
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcdpin = Pin , Db4 = Porth.5 , Db5 = Porth.4 , Db6 = Porth.3 , Db7 = Porth.2 , E = Porth.6 , Rs = Portb.4
Config Lcd = 16x2 , Chipset = Dogm162v5
Config 1wire = Portk.7
Dim Ar(8) As Byte , I As Integer
Cls
Locate 1 , 1 : Lcd "Trying to 1WIRE!"
Locate 2 , 6 : Lcd "gosubl"
Wait 2
1wreset
Cls
Do
Cls
1wreset
1wwrite &H33
For I = 0 To 7
Ar(i) = 1wread()
Next
For I = 7 To 1 Step -1
Lcd Hex(ar(i))
Next
Waitms 1000
Loop
Вход
Регистрация
Правила
FAQ
Поиск
