'Boris Milojevic 4.D
'Vjezba 7
$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcdbus = 4

'Senzor
Config Porta = Input
'1-wire
Config 1wire = Porta.7
'LCD
Config Portb = Output
Config Lcd = 20 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.2 , Rs = Portb.3

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