Rem Anel Dedić
Rem 18.10.2016
Rem 4.D, grupa A
Rem vježba 7
Rem Brojilo zadatak
$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcd = 20 * 2
Config Porta = Output
Config Portb = Output

Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2
Config Lcdbus = 4

Config 1wire = Porta.7

Dim Dsid(8) As Byte , I As Byte
Dim Temp1 As Integer
Dim Ee_adresa As Byte , Priv As Byte , Sc(9) As Byte
Dim Temperatura As Single

Gosub Citanje
Do

Gosub Adresiranje
Gosub Pretvorba
Gosub Adresiranje
Gosub Citaj_t
Gosub Izracun



Loop

End

Citanje:
   1wreset
   1wwrite &H33
   For I = 1 To 8
      Dsid(i) = 1wread()
      Waitms 250
   Next I
Return


Adresiranje:
1wreset
1wwrite &H55
   For I = 1 To 8
      Priv = Dsid(i)
      1wwrite Priv
      Waitus 100
   Next I
Return


Pretvorba:
1wwrite &H44
Waitms 255
Return

Citaj_t:
1wwrite &HBE
For I = 1 To 9
Sc(i) = 1wread()
Waitus 100
Next I
Return

Izracun:
Temp1 = Makeint(sc(1) , Sc(2))
Temperatura = Temp1 / 16
Return