| |
| |
|
| - 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
@Closa> (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 4 - |
|
|
GDL | Hi Detlef,
y yo vermute, el deine dll nichts más macht como con el Windowsschnittstelle después de USB kommuniziert y el dies genormt es.Como ya he dicho Vermutung.
Diese Características el dll, si así es, gehörten en XProfan instalado.
Como ya he dicho,Yo steige otra vez en Entrada/output Karten en.Viel más rápido y leichter a handhaben.
Servus
Georg |
|
| |
| |
| |
|
|
Web
Scanner |
Yo habe ahora primero el Temperatursensor con USB a RS232 COM Schnittstelle
bestellt. Sooo teuer es el Spaß sí no. 
Der es laut Webseite direkt para propio Softwareprojekte vorgesehen.
Grüße
Web |
|
| |
| |
| |
|
|
Web
Scanner | Juhu,
el Temper232 Temperaturfühler es heute angekommen
Nun muß Yo sólo "noch" auslesen puede.
Auf el Webseite findet uno folgende magere Info:
The communication protocol of TEMPer232 instruction:
a) When plug the TEMPer232 device into the computer, please distinguish the corresponding serial port number en your computer;
b) Baud rate is 4800;
c) There is 8 digit and no need to verify of odd or even number, the stop bit is 1bit;
d) After open the serial port, do as below:
Sending command: 24, 10, 05, 01, 01, 00, 32, 01, 55.
Then you voluntad see :24, FE, 02, HH, LL, 88
The temperature Xtemp=256*HH+LL
If Xtemp > &H4000 Then
XDtemp = -(&H4000 - (Xtemp / 4)) * 0.03125
Más
XDtemp = (Xtemp / 4) * 0.03125
End If
Das zugehörige Programa des Herstellers son zumindest ya veces en me el Comport 12 de...aber como gehts nun más 
Yo voluntad algo zusammenfummeln. 
Grüße
Web |
|
| |
| |
| |
|
|
Web
Scanner | ¡Hola Amigos
hatte bastante qué a Ohren, ahora es endlich más.
Leider sagt me Thermometer nix en Schnittstelle.
Den Programmschnipsel tener Yo en el Ayuda gefunden y bissel
adaptado.
Was podría Yo como probieren?
Über el beigelegte Programa Veo el lo encima COMPORT 12 para encontrar es...
Grüße
Web
KompilierenMarcaSeparaciónTemperaturmessung
ü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/'>End
|
|
| |
| |
| |
|
|
 | | El Comportnummer kann imho siempre una otro ser, kann el User imho auch festlegen. Worum gehts Usted eigentlich? ^ ^ |
|
| |
| |
| |
|
|
Web
Scanner | Ahsoo...
Tja Yo tener sí nun el besagte USB Thermometer con el RS232 Emulation.
Im Contribución darüber es qué einstellen debería,
a Daten auslesen a puede.
Leider tener Yo el wohl falso geproggt.. 
En me kommt en el Programa nix a. Keine Daten simplemente gornix. **seufz**
y$ = @ComError(id%) son valor -1 de. |
|
| |
| |
| |
|
|
| Ah, könntest Usted eben manuell herausbekommen, en welchem Port el Treiber el Termo gesetzt ha?
Vlt. hilft auch: [...]  obwohl darüber desafortunadamente sólo el verfügbaren Ports, pero no el Portnamen abrufbar son. Vlt. podría uno auch todos verfügbaren Ports anrufen y befragen, si esta el richtigen son. ^ ^ Vlt. hilft auch: [...]
Was es
eigentlich para una Gerät? Plotter? |
|
| |
| |
| |
|
|
| Sehe grad todavía...:
Initialize with... 24, 10, 05, 01, 01, 00, 32, 01, 55
Usted aber: WriteCom(f%, "24,10,05,01,01,00,32,01,55")
Richtiger wäre imho WriteCom(f%,chr$($24)+chr$($10)... Usted sendest por "24, sí 50, 52, 44 ... |
|
| |
| |
| |
|
|
Web
Scanner | Okay, correcto, el es drin.
Der Thermo voluntad todavía no.
Im Thermo es ne poco LED, el debería en Anfrage angehen,
el voluntad auch no. Bestimmt hängt el a el Comportadresse.... |
|
| |
| |
| |
|
|
Web
Scanner | Es una selbstgebaute PC-gesteuerte CNC-Fräsmaschine.
Damit puede ser Holz, Kunststoffe y Aluminium bearbeiten.
Irgendwo Tuve hier veces a la Fred, como Yo con un Programa dazu angefangen.
Von Hand ging el damals immerhin ya el Verfahren el Achsen.
Leider de Zeitgründen primero auch Halde... |
|
| |
| |
| |
|
|
| Un selbstgebaute PC-gesteuerte CNC-Fräsmaschine, nett. ^ ^
¿Puede Usted el Comport übern Gerätemanager herausfinden? |
|
| |
| |
| |
|
|
Web
Scanner | 
Das isser |
|
| |
| |
| |
|
(277)
Deutsch
English
Français
Español
Italia