| |
|
|
Web Scanner | Nachtrag: Web Scanner, Beitrag=56582, Zeitpunkt=28.03.2010
Du kannst Dir dieses Thermometer bei Ebay bestellen: USB xp linux thermometer,RS232 protocol,TEMPer232 Ebay Artikelnummer:220564891464 Herstellerseite: [...] Das Ding kostet 18US$ + 6$ Fracht. Das Temper232 kommt aus China, dauert paar Tage. Grüße Web
Web Scanner, Beitrag=56571, Zeitpunkt=28.03.2010
Anbei der Quelltext. Kann man sicher noch viel besser machen, aber es funktioniert erstemal: KompilierenMarkierenSeparierenTemperaturmessung Temper232 für PROFAN
über RS232 COMPORT 3
(C) Webbisoft 3/2010
Declare a$, f%, ende%,e%
Declare x$, y$, z%, bz&, xtemp!,xdtemp!, ll&, hh&, testtemp%
Proc GetComInput
Parameters id%
x$ = @ReadCom$(id%,10)
y$ = @ComError(id%)
bz& = @addr(x$)
print "temp: ",bz&
WhileNot x$ = ""
testtemp% = 0
x$=@ReadCom$(id%, 10)
@ComError(id%)
bz& = ord(mid$(x$,1,1))
print "temp1: ",(bz&); " ";
if bz& = 36
testtemp% = 1
else
testtemp% = 0
endif
bz& = ord(mid$(x$,2,1))
print (bz&); " ";
if bz& = 254
testtemp% = 1
else
testtemp% = 0
endif
bz& = ord(mid$(x$,3,1))
print (bz&); " ";
if bz& = 2
testtemp% = 1
else
testtemp% = 0
endif
bz& = ord(mid$(x$,4,1))
print (bz&); " ";
bz& = ord(mid$(x$,5,1))
print (bz&); " ";
bz& = ord(mid$(x$,6,1))
print (bz&); " "
iF TESTTEMP% =1
hh& = ord(mid$(x$,4,1))
ll& = ord(mid$(x$,5,1))
Print "ll& =", (ll&)
Print "hh& =",(hh&)
Xtemp! =256*hh&+ll&
Print "xtemp!=", xtemp!
If Xtemp! > 16384
XDtemp! = -(16384-(Xtemp!)/4)*(0.03125) Korrekturwert 4000h ab 100°C
Else
XDtemp! = (Xtemp!/4)*(0.03125)
EndIf
XDtemp!= XDtemp!-3 Korrekturwert
@Set("Decimals",2)
print "Temperatur USB232= ",xdtemp!,"°C"
endif
sleep 800
EndWhile
print
EndProc
Window 0, 0 - 400, 400
f% = @OpenCom("COM3", 1024, 1024)
@SetCom("COM3:4800,N,8,1")
@WriteCom(f%, chr$($24)+ chr$($10)+chr$($05)+chr$($01)+chr$($01)+chr$($00)+chr$($32)+chr$($01)+chr$($55))
Thermometer initialisieren
y$ = @ComError(f%)
GetComInput f% Antwort abwarten und anzeigen
ende% = 0
WhileNot ende%
a$ = @Inkey$() Tastatur abfragen
If a$ = "§" Ende mit SHIFT-3
ende%=1
Else
GetComInput f% empfangene Zeichen lesen
Endif
EndWhile
@CloseCom(f%)
End
Hallo Programmierfreunde,
nach längerer Zeit habe ich wieder ein kleines Softwareprojekt. Es geht um eine Temperatursteuerung. Dazu muß ich einen USB Temperaturstick auswerten. Sowas hier: Ebay Artikelnummer: 380167386533
Nun meine Frage, hat so etwas schon jemand gemacht? Gibt es da spezielle Treiber, dlls, oder sonstige Hilfen? Ich muß dazu sagen, das der Stick noch nicht bei mir weilt und daher ist es noch etwas dürftig mit der Datenlage
Grüße
Web |
|
|
| |
|
|
|
| Für ein Strommessgerät hatten wir letztens, Temperatorfühler ist aber auch interessant. |
|
|
| |
|
|
|
Web Scanner | Werde ich warten müssen, bis das Dingens bei mir aus Hongkong eintrifft. Ich habe schon überlegt, eventuell kann die zugelieferte USB Software parallel laufen und ich kann die Daten aus einem irgendwo abgelegeten "Temperaturfile"übernehmen?
Grüße
Web |
|
|
| |
|
|
|
| Wenn der Treiber dazu zu bewegen ist, z.B. ne CSV anzulegen, dann bestimmt. Andernfalls kann ich mir auch gut vorstellen, dass Du per Com-Port an Informationen kommst. |
|
|
| |
|
|
|
GDL | Hallo Roland
ich würde mir für die nächste XProfan Version direkte USB Unterstützung wünschen.Danke. Dann könnte ich die neuen Atmels ohne FTDI Bausteine und ohne virtuellen COM-Port Umweg ansprechen.
Servus Georg |
|
|
| |
|
|
|
| |
|
| |
|
|
|
RGH | Hallo, wie genau sollte so eine Unterstützung aussehen? Da ich selber kein Hardware-Bastler (mehr) bin, kann ich mir momentan kein so rechtes Bild davon machen, was denn an Funktionalitäten benötigt würde.
Gruß Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 13.10.2009 ▲ |
|
|
|
|
| Hallo Roland, "was" hattest Du denn gebastelt? |
|
|
| |
|
|
|
RGH | iF, Beitrag=54433, Zeitpunkt=13.10.2009
Hallo Roland, "was" hattest Du denn gebastelt?
Unterschiedliches. Vor meinem ersten "richtigen" Computer (einem ZX81 im Sommer 1981) hatte ich mich mit Elektronik-Bastel befasst und einige KOSMOS-Experimentierkästen bis hin zu einem einfachen 4-Bit-Computer-Bausatz von SHARP. Viele Jahre hatte ich als Student und in den ersten Berufsjahren einen selbstgebauten Stereo-Vollverstärker mit selbstgebauten Boxen im Einsatz, an den ich manchmal noch mit Wehmut zurückdenke. Die Bässe waren sowas von exakt und trocken ... Beim ZX81 kam man aus dem Basteln auch nicht heraus: Einen Speicherchip (1 kB) einbauen, um Userdefinierte Ueichen zu erlauben, einen Parallelport für einen richtigen Drucker anbauen und das Ganze in ein schönes Gehäuse mir richtiger Tatstatur und Anschluß für Joysticks ... Später habe ich dann z.B. mal einen Aufsatz für den Nintendo64, mit dem man NES- und SNES-Spiele abspielen konnte durch Einbau eines zuusätzlich Oszilatorkristalls so umgebaut, dass er nicht nur NTSC-, sondern auch PAL-Ausgabe beherrschte oder einem DVD-/Laserdiskplayer beigebracht, regionfree zu sein. Erst letztlich habe ich mir im Urlaub aus Jux und Tollerei einen kleinen Retro-Radiobausatz gegönnt, um mal wieder den Lötkolben schwingen zu können ...
Gruß Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 13.10.2009 ▲ |
|
|
|
|
| Hehe, verstehe! |
|
|
| |
|
|
|
Web Scanner | Oha
Wie so eine USB Unterstüzung im Betriebssystem aussehen soll, weiß ich leider auch nicht. Gibt es da nicht eine entsprechende Normung? Kann man das dann wie einen normalen LPT Port ansprechen?
Wie komme ich über die Com-Ports an die USB Daten ran? Ich hab ja schon die LPT Schnittstelle mit Ein- und Ausgaben ansprechen können, aber den COM Port...
In welchem Thema finde ich hier was passendes?
Grüße Web |
|
|
| |
|
|
|
| Na die Treiber realisieren oft einen virtuellen COM-Port [...] , Befehle hierzu einfach der XProfan-Hilfe entnehmen. |
|
|
| |
|
|