Config Lcdbus = 4
Dim Kod(8) As Byte
Dim Priv_temp As Byte
Dim I As Byte
Dim Ee_adresa As Byte
Dim Mj_pod(9) As Byte

Dim Kodtemp As Integer
Dim Temperatura As Single


'Citanje ID koda'
Do
Gosub Adres
Gosub Convert
Wait 1
Gosub Adres
Citaj_t
Obrada 1wreset
Loop

'Zapisi_koda'
Ee_adresa = 10
For I = 1 To 8
   Priv = Kod(i)
   Writeeeprom Priv , Ee_adresa
   Incr Ee_adresa
Next I

'Prozivanje senzora, citanje podataka'
Ee_adresa = 10
For I = 1 To 8
   Priv = Kod(i)
   Readeeprom Priv , Ee_adresa
   Incr Ee_adresa
Next I
1wreset
1wwrite &H55

'adresiraj senzor'
Sub Adres
1wreset
1write &H55
For B = 1 To 8
Priv_temp = Dsid1(b)
1wwrite Priv_temp
Waitus 100
Next B
End Sub

'Pretvaranje'
Sub Convert
1wwrite &H44
Waitms 900
End Sub


'cekanje da se pretvorba zavrsi'
'Waitms 255'

'Prozovi rutinu za iscitavanje temp iz senzora'
'1wreset'
'1wwrite &H55'

'Odaberi senzor'
'For I = 1 To 8'
   'Priv = Kod(i)'
   '1wwrite Priv'
'Next I'
'1wwrite &HBE%'

'Citanje Temperature'
Sub Citaj_t
 1wwrite &HBE
 For I = 1 To 9
 Mj_pod(i) = 1wread
 Waitus 100
 Next
 1wreset
 End Sub


Temperatura = Kodtemp
Temperatura = Temperatura / 16.0
Loop