I am using Ultra1Wire with an HA7Net with two DS18B20 temperature sensors connected, they work perfectly (as does your application). I have recently added a GP1 "pulse counter" from Embedded Data Systems to the HA7Net which contains a DS2406 and a DS2423. Since Ultra1Wire does not recognize or poll the GP1 I have a custom script to poll the DS2423 pulse counter every minute using the HA7Net web interface. That part is working perfectly.
On the status page of Ultra1Wire it now shows 143 DS2406s detected. The number seems to keep increasing although I don't see any particular pattern. It doesn't appear to be causing a problem but I don't know what, if any, impact it has on the program's long-term stability (will it eventually cause an issue?).
In case you're interested in adding the DS2423 Pulse Counter to Ultra1Wire (I would really love that!), here's the code I'm using to read it directly:
---
Sub Main
url = "http://10.1.1.222/1Wire/WriteBlock.html?Address=B600000004538D1D&Data=A5DF01FFFFFFFF FFFFFFFFFFFFFF"
myStr = hs.GetURL(url,PathLoc,False,80)
p0 = Instr(1,myStr,"ResultData_0")
myStr = Mid(myStr,p0)
p0 = Instr(1,myStr,"VALUE=")
myStr=Mid(myStr,p0+7,28)
' DB CODE DELETED FROM HERE
DBRecTemp.Open "SELECT * FROM PowerRawData", objrsDB, 2, 2
DBRecTemp.AddNew
DBRecTemp("ReadDate") = Now()
DBRecTemp("RawData") = myStr
DBRecTemp("Counter") = CCur("&H" & Mid(myStr,15,2) & Mid(myStr,13,2) & Mid(myStr,11,2) & Mid(myStr,9,2))
DBRecTemp.Update
DBRecTemp.Close
Set strDB = Nothing
set objRSDB = Nothing
Set DBRecTemp = NOthing
Set TextStream = Nothing
Set Folder = Nothing
End Sub
On the status page of Ultra1Wire it now shows 143 DS2406s detected. The number seems to keep increasing although I don't see any particular pattern. It doesn't appear to be causing a problem but I don't know what, if any, impact it has on the program's long-term stability (will it eventually cause an issue?).
In case you're interested in adding the DS2423 Pulse Counter to Ultra1Wire (I would really love that!), here's the code I'm using to read it directly:
---
Sub Main
url = "http://10.1.1.222/1Wire/WriteBlock.html?Address=B600000004538D1D&Data=A5DF01FFFFFFFF FFFFFFFFFFFFFF"
myStr = hs.GetURL(url,PathLoc,False,80)
p0 = Instr(1,myStr,"ResultData_0")
myStr = Mid(myStr,p0)
p0 = Instr(1,myStr,"VALUE=")
myStr=Mid(myStr,p0+7,28)
' DB CODE DELETED FROM HERE
DBRecTemp.Open "SELECT * FROM PowerRawData", objrsDB, 2, 2
DBRecTemp.AddNew
DBRecTemp("ReadDate") = Now()
DBRecTemp("RawData") = myStr
DBRecTemp("Counter") = CCur("&H" & Mid(myStr,15,2) & Mid(myStr,13,2) & Mid(myStr,11,2) & Mid(myStr,9,2))
DBRecTemp.Update
DBRecTemp.Close
Set strDB = Nothing
set objRSDB = Nothing
Set DBRecTemp = NOthing
Set TextStream = Nothing
Set Folder = Nothing
End Sub
Comment