Svenska ElektronikForumet

Jag får dom inte att fungera med et programmet jag skrev med OWIN och OWout, får bara en massa konstiga mätvärden, mellan 60-87 grader inne.
Något skiljer, troligtvis i tider mellan läs och skriv.
Det gamla programmet fungerar på dom utan S.
Tycker du ska framföra dina åsikter till Maxim/Dallas, jag har gjort det.
DS1820 är utgående modell, det borde väl vara dålig reklam att ha dom som samplers, dom kanske inte vet det själva.

>> tusse

Är inte 60-87°F normal rumstemperatur?
(15,5-30,5°C)

Håller med dig om det inte varit Celsius grader.

Nu fungerar båda versionerna på givare "DS1820" lika bra men jag har inte fått någon förklaring från inköparen på varför man ersatte s version.


Jag har utvecklat min termostat lite, förväntar mig några kommentarer, nu går det att programmera givarens kod direkt från datorn på ett enkelt sätt med dethär programmet http://hem.bredband.net/berte/Termo/programtemp.htm och en färdigprogrammerad PIC-krets.
Programmet är inte helt färdigt och avlusat än men hoppas på en färdig produkt snart.

Se första versionen: http://hem.bredband.net/berte/Termo/temp.htm

Ser trevligt ut
Förstår dock inte allt på bilderna men till vis del iaf... jag vet ju vad du försöker åstakomma... har en känsla av att det är lite svårare för dem som kanske söker en sådan produkt men inte vet hur du har utformat programmet (VB proget that is) så en bra dokumentation är nog en fördel om du ska släppa att sedan... en tanke iaf...

Hur ser koden till PICen ut?
Kör du med OWOUT/OWIN? Med DS18S20?

Keep it up!

//Rille

Hoppla, texten saknas.
Ska fixa det.
OWIN/OWOUT fungerar perfekt.
Lite kod om du blir klokare av det.

Temput:



OWout DQ,1,[$55,cod(0),cod(1),cod(2),cod(3),cod(4),cod(5),cod(6),cod(7),$44]
igen:
Owin DQ,4,[ok]

IF ok = 0 Then igen

owout DQ,1,[$55,cod(0),cod(1),cod(2),cod(3),cod(4),cod(5),cod(6),cod(7),$BE]

OWin DQ,2,[Temp.LOWBYTE,Temp.HIGHBYTE,skip 4,remain,perc]

Temp = (((Temp >> 1) * 100) - 25) + (((perc - remain) * 100) / perc)

TempVarde(cod(08))=(Temp / 100)



SerOut2 UtD,16572,[DEC(Temp / 100), ".", DEC2 Temp, " C",STR cod(08),cod(09),cod(10),cod(11),cod(12),cod(13),cod(14),cod(15)]
Pause 1000
IF a=0 Then
a=1
Else
a=0
EndIF
IF a=1 Then
LCDOut $FE,2,cod(09),cod(10),cod(11),cod(12),cod(13),cod(14),cod(15)," "
LCDOut $FE,$14,DEC(Temp / 100), ".", DEC2 Temp, " C "' Display text
Else
LCDOut $Fe,$C0,cod(09),cod(10),cod(11),cod(12),cod(13),cod(14),cod(15)," "
LCDOut $FE,$14,DEC(Temp / 100), ".", DEC2 Temp, " C "' Display text

EndIF

GoSub RELA

Return
Smilies med solglasögon ska vara 8 och )

Text är alltid bra om man hade tänkt dela med sig av sitt project...

Du skulle inte vilja skicka den kompletta koden till mig? Underlättar då jag ser vad cod, ok har för storlek etc

//Rille

Lite uppdaterad:
http://hem.bredband.net/berte/Termo/programtemp.htm