| |
|
|
- Página 1 - |
|
Web Scanner | Apéndice: Web Scanner, Beitrag=56582, Zeitpunkt=28.03.2010
Usted puede Usted dieses Thermometer en Ebay bestellen: USB xp linux thermometer,RS232 protocol,TEMPer232 Ebay Artikelnummer:220564891464 Herstellerseite: [...] Lo kostet 18US$ + 6$ Fracht. Das Temper232 kommt de China, dauert pocos Tage. Grüße Web
Web Scanner, Beitrag=56571, Zeitpunkt=28.03.2010
Anbei el Ver código fuente. Kann uno sicher todavía viel mejor hacer, pero funktioniert erstemal: KompilierenMarcaSeparaciónTemperaturmessung 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
@Clos a> (f% )
End
¡Hola Programmierfreunde,
después de längerer Tiempo Yo otra vez una kleines Softwareprojekt. Lo va una Temperatursteuerung. Dazu muß Soy un USB Temperaturstick auswerten. Algo como hier: Ebay Artikelnummer: 380167386533
Nun mi Cuestión, ha así algo ya alguien gemacht? Gibt lo como spezielle Treiber, dlls, oder sonstige Hilfen? Yo muß dazu sagen, el el Stick todavía no en me weilt y por lo tanto es todavía algo dürftig con el Datenlage
Grüße
Web |
|
|
| |
|
|
|
| |
|
- Página 7 - |
|
Web Scanner | Hi Georg,
el puede ser doch bajo el Systemverwaltung zuweisen? Jedenfalls va en el el virtuellen Comports como en el Thermometer. Puedo incluso auswählen, en welchen Comport Yo route.
Grüß
Web |
|
|
| |
|
|
|
GDL | Hi,
lo va a automatische Erkennung por el Programa beim Anwender. |
|
|
| |
|
|
|
Web Scanner | Okay, stimmt, el es ne otro Baustelle - aber wichtig, si al Programa weitergeben möchte. Bin ahora sólo de mi PC ausgegangen.
Grüße
Web |
|
|
| |
|
|
|
Web Scanner | Heyyyy es el Hammer, lo kommen ahora Daten! ¿Es todavía checken pero la Stick meldet se, el LED blinkt!!! Unglaublich - Yo bin platt
So sieht lo de de lo que el Stick kommt:
[...]
Jetzt muß lo sólo en una lesbares Formato umgewandelt voluntad...coool Ziemlich kryptisch??
Grüße
Web |
|
|
| |
|
|
|
| Als ANSI-Signo sicherlich kryptisch ^ ^, el Protokoll es wo beschrieben?
Bestimmt algo como como ersten Bytes: HiHo hier Yo bin Thermo! y luego "5 Bits veces Dreissig Halbe" ergeben Grad Fahrenheit - irgend así una horror sólo. ^ ^ |
|
|
| |
|
|
|
Web Scanner | Sí genau,
Sending command: 24, 10, 05, 01, 01, 00, 32, 01, 55. Then you voluntad see :24, FE, 02, HH, LL, 88
Nur como wandle Yo, el kryptischen kram en? Mit chr$ gehts no...
Eigentlich debería Yo eben el bekommen: 24, FE, 02, HH, LL, 88
Wobei HH LL el Temperatur beinhaltet. |
|
|
| |
|
|
|
| Usted puede cada Byte con Ord beziehen z.B. ord(mid$(s$,byteNummer,1)) y senden por chr$($24) oder "x24". Si usted 24 FE 02 HH LL 88 empfängst, entonces sólo Byte 4 y 5 para el Werte wobei Temp vlt. HH*256+LL es.
Usted puede aber auch simplemente el Byte zugreifen indem Usted el Adresse vom String nutzt: KompilierenMarcaSeparación In nativen Características kannst Usted en Cuerdas simplemente auch por Arrayschreibweise (z.B. s$[4]) el Bytewert beziehen qué específicamente para schnelles Abfragen konzipiert es, hierbei pero probablemente unnötig es, si no necesariamente z.B. una separaten Hilo a el hWnd regelmässig el Temperatur como Message senden willst. ^ ^ |
|
|
| |
|
|
|
| |
|
| |
|
|
|
Web Scanner | Sauber IF -- lo va. Gracias Usted! Yo sehe el Temperatur genau como en el richtigen Progamm vom Hersteller.
Jetz muß Yo sólo todavía el Synchronisation hinbekommen. Der Stick envía automáticamente ca. todos halbe Sekunde automáticamente el Temperatur. Mit Sleep wir el nix, como verheddert él se siempre veces. Yo muß wahrscheinlich en el 24 FE 02 triggern y danach el Werte abholen...
So es auch ya drin. Werde el Programa todavía algo aufhübschen, entonces lugar Yo para angucken rein. Tal vez muß sí alguien el Temperatur por PC messen
El Búsqueda después de el Comport tener Todavía no implementiert. Pero sicher sinnvoll ser. ¿Es otra vez después de 24 FE 02 suchen, si el en una Comport zurückkommt, es el sólo richtige.
Anbei el Ver código fuente. Kann uno sicher todavía viel mejor hacer, pero funktioniert erstemal: KompilierenMarcaSeparaciónTemperaturmessung 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
@Clos a> (f% )
End
|
|
|
| |
|
|
|
| Juhu, Por favor, auch como Exe Puesto con (al besten Kauflink para Tempfühler, runde Sache y yo hole me solch Tempfühler garantiert ya alleine fürs Mondauto. ^ ^ |
|
|
| |
|
|
|
Web Scanner | Usted puede Usted dieses Thermometer en Ebay bestellen:
USB xp linux thermometer,RS232 protocol,TEMPer232 Ebay Artikelnummer:220564891464
Herstellerseite: [...]
Lo kostet 18US$ + 6$ Fracht. Das Temper232 kommt de China, dauert pocos Tage.
Grüße
Web |
|
|
| |
|
|
| |
|
- Página 8 - |
|
|
| |
|
| |
|
|