| |
| |
|
| - page 1 - |
|
Web
Scanner | Nachtrag:
Web Scanner, Beitrag=56582, Zeitpunkt=28.03.2010
tu peux Dir cet Thermometer chez Ebay bestellen: USB xp linux thermometer,RS232 protocol,TEMPer232 Ebay Artikelnummer:220564891464 Herstellerseite: [...]  cela Ding kostet 18États-Unis$ + 6$ Fracht. cela Temper232 venez aus la Chine, dauert paire Tage. Grüße Web
Web Scanner, Beitrag=56571, Zeitpunkt=28.03.2010
Anbei qui Voir le texte source. peux on sûrement encore viel besser faire, mais es funktioniert erstemal: KompilierenMarqueSéparationTemperaturmessung 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
@Closa> (f% )
Fin
allô Programmierfreunde,
pour längerer Zeit habe je wieder un kleines Softwareprojekt.
und dir um une Temperatursteuerung. en supplément doit je une USB
Temperaturstick auswerten. Quelque chose comme ici: Ebay Artikelnummer: 380167386533
eh bien mon Frage, hat so quelque chose déjà quelqu'un gemacht?
Gibt es là spezielle Treiber, dlls, ou bien sonstige Hilfen?
je dois en supplément dire, cela qui Stick encore pas chez mir weilt et
daher ist es et avec ca dürftig avec qui Datenlage 
Grüße
Web |
|
| |
| |
| |
|
|
| |
| |
| - page 7 - |
|
Web
Scanner | Hi Georg,
cela peux on doch sous qui Systemverwaltung zuweisen?
Jedenfalls allez cela chez den virtuellen Comports comment chez dem Thermometer.
je peux sogar auswählen, sur welchen Comport je route.
Grüß
Web |
|
| |
| |
| |
|
|
GDL | Hi,
und dir à automatische Erkennung par cela Programme beim Anwender. |
|
| |
| |
| |
|
|
Web
Scanner | Okay, stimmt, c'est ne autre chantier - mais important,
si on cela Programme weitergeben voudrais.
suis maintenant seulement de meinem PC ausgegangen. 
Grüße
Web |
|
| |
| |
| |
|
|
Web
Scanner | Heyyyy c'est qui marteau, es venons maintenant données!
Doit je encore checken mais qui Stick meldet sich, qui LED blinkt!!!
Unglaublich - je suis platt 
So sieht es aus quoi de dem Stick venez:
[...]
maintenant doit es seulement dans un lesbares Format umgewandelt volonté...coool 
assez kryptisch??
Grüße
Web |
|
| |
| |
| |
|
|
 | comme ANSI-marque sicherlich kryptisch ^ ^, cela Protokoll ist wohin beschrieben?
Bestimmt quelque chose comme comment qui ersten Bytes: HiHo ici je suis Thermo! et ensuite "5 Bits la fois Dreissig Halbe" ergeben Grad Fahrenheit - irgend so un horror arrêt. ^ ^ |
|
| |
| |
| |
|
|
Web
Scanner | oui oui c'est ca,
Sending command: 24, 10, 05, 01, 01, 00, 32, 01, 55.
Then you veux lac :24, FE, 02, HH, LL, 88
seulement comment wandle Je l' kryptischen kram um? avec chr$ gehts pas...
Eigentlich devrait je plan cela bekommen: 24, FE, 02, HH, LL, 88
Wobei HH LL qui température beinhaltet. |
|
| |
| |
| |
|
|
| tu peux chaque Byte avec Ord beziehen z.B. ord(mid$(s$,byteNummer,1)) et senden per chr$($24) ou bien "x24". si Du 24 FE 02 HH LL 88 empfängst, ensuite arrêt Byte 4 et 5 pour qui Werte wobei Temp vlt. HH*256+LL ist.
tu peux mais aussi simple sur cela Byte zugreifen indem Du qui Adresse vom String utilise:
KompilierenMarqueSéparation
dans nativen Funktionen peux Du chez Cordes simple aussi per Arrayschreibweise (z.B. s$[4]) den Bytewert beziehen quoi speziell pour schnelles Abfragen konzipiert ist, hierbei mais wohl unnötig ist, si Du pas absolument z.B. une separaten Fil à cela hWnd regelmässig qui température comme Message senden veux. ^ ^ |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Web
Scanner | net iF -- und dir. merci Dir! 
je vois qui température oui c'est ca comment im richtigen Progamm vom Hersteller.
Jetz doit je seulement encore qui Synchronisation hinbekommen.
qui Stick sendet automatisch ca. alle halbe seconde automatisch qui température.
avec Sleep wir cela nix, là verheddert il sich toujours la fois.
je dois wahrscheinlich sur qui 24 FE 02 triggern et après qui Werte venir chercher...
So ist aussi déjà drin.
Werde cela Programme et avec ca aufhübschen, ensuite lieu je es zum angucken rein.
peut-être doit oui quelqu'un qui température per PC messen
qui cherche pour dem Comport hab je encore pas implementiert.
Wird mais sûrement sinnvoll son.
Doit je wieder pour 24 FE 02 chercher, si cela sur une Comport zurückkommt,
ist qui arrêt richtige.
Anbei qui Voir le texte source. peux on sûrement encore viel besser faire, mais es funktioniert erstemal:
KompilierenMarqueSéparationTemperaturmessung 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
@Closa> (f% )
Fin
|
|
| |
| |
| |
|
|
| | Juhu, s'il te plaît aussi comme Exe Poste avec (am besten Kauflink zum Tempfühler, runde l'affaire et je hole mir solch Tempfühler garantiert déjà alleine pour Moonbuggy. ^ ^ |
|
| |
| |
| |
|
|
Web
Scanner | tu peux Dir cet Thermometer chez Ebay bestellen:
USB xp linux thermometer,RS232 protocol,TEMPer232
Ebay Artikelnummer:220564891464
Herstellerseite:
[...]
cela Ding kostet 18États-Unis$ + 6$ Fracht.
cela Temper232 venez aus la Chine, dauert paire Tage.
Grüße
Web |
|
| |
| |
| |
|
| |
| |
| - page 8 - |
|
|
| |
| |
| |
| |
|
(1.108)
Deutsch
English
Français
Español
Italia