| |
| |
|
| - 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 4 - |
|
|
GDL | Hi Detlef,
et je vermute, cela deine dll rien d'autre pouvoir comme avec qui Windowsschnittstelle pour USB kommuniziert et cela ca genormt ist.Comme je le disais Vermutung.
cet Funktionen qui dll, si es so ist, gehörten dans XProfan incorporé.
Comme je le disais,je steige wieder sur Contribution/output Karten um.Viel plus rapide et leichter trop handhaben.
salut
Georg |
|
| |
| |
| |
|
|
Web
Scanner |
j'ai maintenant erstmal den Temperatursensor avec USB trop RS232 COM Schnittstelle
bestellt. Sooo teuer ist qui Amusement oui pas. 
qui ist le son Webseite direct pour eigene Softwareprojekte vorgesehen.
Grüße
Web |
|
| |
| |
| |
|
|
Web
Scanner | Juhu,
qui Temper232 Temperaturfühler ist aujourd'hui arrivé
eh bien doit je es seulement "noch" auslesen peut.
sur qui Webseite findet on folgende magere Info:
The communication protocol of TEMPer232 instruction:
a) When plug le TEMPer232 device into le ordinateur, please distinguish le corresponding serial port number dans your computer;
b) Baud taux is 4800;
c) There is 8 digit and no need to verify of odd or even number, le stop bit is 1bit;
d) After open le serial port, do as below:
Sending command: 24, 10, 05, 01, 01, 00, 32, 01, 55.
Then you veux lac :24, FE, 02, HH, LL, 88
The temperature Xtemp=256*HH+LL
Si Xtemp > &H4000 Then
XDtemp = -(&H4000 - (Xtemp / 4)) * 0.03125
D'autre
XDtemp = (Xtemp / 4) * 0.03125
Fin Si
cela zugehörige Programme des Herstellers gibt zumindest déjà la fois chez mir den Comport 12 aus...mais comment gehts eh bien plus 
je werde la fois quoi zusammenfummeln. 
Grüße
Web |
|
| |
| |
| |
|
|
Web
Scanner | allô Amis
hatte assez quoi à Ohren, maintenant ca va enfin plus.
malheureusement sagt mir cela Thermometer nix sur qui Schnittstelle.
Den Programmschnipsel hab je dans qui Aider trouvé et bissel
ajusté.
quoi pourrait je là essayer?
Über cela beigelegte Programme vois je cela es sur COMPORT 12 pour trouver ist...
Grüße
Web
KompilierenMarqueSéparationTemperaturmessung
über RS232 COMPORT 12
Declare a$, f%, ende%
Proc GetComInput
Parameters id%
Declare x$, y$
x$ = @ReadCom$(id%,1)
y$ = @ComError(id%)
Print x$;
WhileNot x$ = ""
x$=@ReadCom$(id%, 1)
@ComError(id%)
Print x$;
EndWhile
EndProc
Window 0, 0 - 400, 400
f% = @OpenCom("COM12", 1024, 1024)
@SetCom("COM12:4800,N,8,1")
@WriteCom(f%, "24,10,05,01,01,00,32,01,55") Thermometer initialisieren
@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
IfNot a$ = "" Zeichen ans Modem
@WriteCom(f%,a$)
Endif
GetComInput f% empfangene Zeichen lesen
Endif
EndWhile
@CloseCom(f%)
../../funktionsreferenzen/XProfan/end/'>Fin
|
|
| |
| |
| |
|
|
 | | qui Comportnummer peux imho toujours une autre son, peux qui User imho aussi festlegen. Worum gehts Dir eigentlich? ^ ^ |
|
| |
| |
| |
|
|
Web
Scanner | Ahsoo...
Tja je hab oui eh bien cela besagte USB Thermometer avec qui RS232 Emulation.
Im Beitrag par-dessus steht quoi on einstellen sollte,
à données auslesen trop peut.
malheureusement hab je cela wohl faux geproggt.. 
chez mir venez dans dem Programme nix à. aucun données simple gornix. **seufz**
y$ = @ComError(id%) gibt la valeur -1 aus. |
|
| |
| |
| |
|
|
| Ah, könntest Du plan manuel herausbekommen, sur welchem Port qui Treiber cela Termo gesetzt hat?
Vlt. hilft aussi: [...]  quoique par-dessus malheureusement seulement qui verfügbaren Ports, mais pas qui Portnamen abrufbar sommes. Vlt. pourrait on aussi alle verfügbaren Ports anrufen et befragen, si cet qui richtigen sommes. ^ ^ Vlt. hilft aussi: [...]
quoi ist
eigentlich pour un Gerät? Plotter? |
|
| |
| |
| |
|
|
| vois grad encore...:
Initialize with... 24, 10, 05, 01, 01, 00, 32, 01, 55
Du mais: WriteCom(f%, "24,10,05,01,01,00,32,01,55")
Richtiger wäre imho WriteCom(f%,chr$($24)+chr$($10)... Du sendest per "24, oui 50, 52, 44 ... |
|
| |
| |
| |
|
|
Web
Scanner | Okay, richtig, c'est drin.
qui Thermo veux encore pas.
Im Thermo ist ne kleine LED, qui devrait chez qui Anfrage angehen,
qui veux aussi pas. Bestimmt hängt cela à qui Comportadresse.... |
|
| |
| |
| |
|
|
Web
Scanner | c'est une selbstgebaute PC-gesteuerte CNC-Fräsmaschine.
avec cela peux on Holz, Kunststoffe et Aluminium Travailler.
Irgendwo J'ai eu ici la fois une Fred, là habe je avec einem Programme en supplément angefangen.
de main ging cela autrefois immerhin déjà cela procéder qui Achsen.
malheureusement aus Zeitgründen erstmal aussi Halde... |
|
| |
| |
| |
|
|
| une selbstgebaute PC-gesteuerte CNC-Fräsmaschine, gentil. ^ ^
peux Du den Comport übern Gerätemanager herausfinden? |
|
| |
| |
| |
|
|
Web
Scanner | 
cela isser |
|
| |
| |
| |
|
(1.117)
Deutsch
English
Français
Español
Italia