Не пойму что баскому не понравилось в этом коде?
Function Get_1wire()
Local Id(8) As Byte , I As Byte
Restore 1wre_1
For I = 1 To 8
Read Id(i)
Next I
1wverify Id(1)
End Function
$data
1wre_1:
Data &H0 , &H0 , &H0 , &H0 , &H0 , &H0 , &H0Ругается на строку.
Read Id(i)
Error : 238 Line : 30 Variable is not dimensioned as an array [ID(I)] , in File : Test.bas
Error : 104 Line : 30 LoadReg error [ID(I)] , in File : Test.bas
Error : 100 Line : 30 No array support for IRAM variables , in File : Test.bas
Error : 31 Line : 30 Invalid data type [[0012]] , in File : Test.bas
Error : 126 Line : 30 NEXT expected , in File : Test.bas