$regfile = "2313def.dat"
$crystal = 4000000
$baud = 9600

Config 1wire = Portb.0




Declare Function Searchid() As Byte
Const Debug = 1
Const Ids = 3

Dim I As Byte
Dim Rom_data(8) As Byte
Dim Compare(8) As Byte
Dim Id As Byte
Dim Value As Byte


Do


Print "Bitte iButton kontaktieren."
Do
Rom_data(1) = 1wsearchfirst()
Wait 1
Loop Until Err = 0
Print " iButton detektiert."

#if Debug
Print "Dallas 1-Wire ID : "
For I = 1 To 8
Print Hex(rom_data(i));
Next

Print
#endif
Print "Suche in der Datenbank..."
If Searchid() = 0 Then
Print "ID gefunden."
Else
Print "ID ist nicht in der Datenbank"
End If
Do
Rom_data(1) = 1wsearchfirst()
Wait 1
Loop Until Err = 1

Loop
End

Function Searchid()
'Local Result As Byte
Restore Id_tab


For I = 1 To 8
Read Value
If Value = Rom_data(i) Then
Searchid = 0
Else
Searchid = 1
Next
End If


End Function




Id_tab:
Data &H01 , &H6B , &H55 , &H58 , &H0D , &H00 , &H00 . &H95
Data &H01 , &H05 , &H91 , &H59 , &H0D , &H00 , &H00 . &HF7
Data &H01 , &H16 , &H83 , &H59 , &H0D , &H00 , &H00 . &H0A


'016b55580d000095           Mit Hyperterminal ausgelesenen iButtons
'010591590d0000F7
'011683590d00000a