| |
|
|
- 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 2 - |
|
|
GDL | Hola Roland,
genauso como du el serielle Schnittstelle eingebettet hast. Das dein XProfan el Windowseigene USB Übergabe anspricht.
Kenne mich con USB en el WinBereich überhaupt no de. Könnte me algo como vorstellen - Diálogo el el angeschlossenen USB Geräte con Kanal anzeigt - open usb para Kanal - read vom Kanal - write en el Kanal - close Kanal
Problema es sólo, dass en USB el Portnummern no fest vergeben son.Mann muss siempre sólo todos USB Geräte ermitteln y el Portnummer de su angesteckten Hardware ermitteln.
Servus Georg |
|
|
| |
|
|
|
| |
|
| |
|
|
|
Web Scanner | Ohh je, el sieht pero no gerade muy trivial de Como bin Yo veces algo niedergeschlagen... Hoffentlich Yo me como no zuviel vorgenommen?
Grüße
Web |
|
|
| |
|
|
|
GDL | Hola si,
como besorge Yo más bien pocos alte Rechner con RS232 y en largo Sicht progge Yo mein Programa otra vez en inp y out en. Wenn el Industrieboards todavía günstiger voluntad, steige Yo en, como esta heutigen Multimediakisten para mich eh nimmer brauchbar son.
Servus Georg |
|
|
| |
|
|
|
| Wo genau liegt porque el problema en solch USB-RS232-Port?
Yo frag wegen el Mondauto. |
|
|
| |
|
|
|
GDL | @IF,
el problema es en Atmel no el USB Mikrocontrollertreiber. El haben el neuen Atmel ya Onboard.
Das Problema es, como greife Hice XProfan heraus mittels Windows en el geladenen Treiber a. El Problemas fangen ya con el USB Kanalnummerermittlung a. Wenn el Treiber una virtuellen ComPort erschafft isses sí kein Problema.Nur schaffen todos Treiber una virtuellen ComPort? Aber como dijo,USB es para mich auch Neuland.
Servus Georg |
|
|
| |
|
|
|
GDL | @ Mondauto
Das Mondauto könnt ihr ya con USB y el FTDI RLE245 oder RLE235 betreiben. El FTDI Bausteine informe se con el mitgelieferten Treibern automáticamente en Windows a. Dort erzeugen ellos una virtuellen COMPORT el con el XPofan Befehlen angesprochen voluntad kann. Ausgangsseitig erzeugen el Bausteine 8bit Parallel oder seriel con Handshaking.
Diesen Umweg mache Yo sí ya. Yo wünsche me aber direkten Zugriff de XProfan en el windowsinterne USB Übergabeschnittstelle. So como en el Druckern auch va.Yo melde el USB-Drucker en efecto en Windows a y no cada Programa qué drucken kann.
Servus Georg |
|
|
| |
|
|
|
E.T. | Yo denke, el angemeldete Drucker se auch no anders como una COM angesprochen, si yo me en mi Drucker así anschaue, qué dieser eingerichtet ha:
Dies probablemente einzig el Treiber hacer puede. |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 16.10.2009 ▲ |
|
|
|
|
Web Scanner | So, el USB Temperaturfühler es como.
Soweit funktioniert el auch con el mitgelieferten Software. El Daten voluntad en una Excelfile ausgegeben. Wahrscheinlich el einfachste Variante el File zuzugreifen y el Daten einzulesen?
Yo hätte lo aber gern anders, direkt con Profano en mein Programa ausgelesen. ¿Cómo se puede Yo como anfangen, bin algo ratlos... Bin para jede Ayuda dankbar.
Grüße
Web |
|
|
| |
|
|
|
| Gibt lo una mitgelieferte Software el el _aktuelle Temperatur anzeigt?
Link para Produkt? |
|
|
| |
|
|
|
Web Scanner | Produktlink es hier:
[...]
Aktuelle Temperatur se en una Excelfile abgelegt y aktuell adecuado.
|
|
|
| |
|
|
|
| Liegt ne DLL con Doku en?
Andernfalls ne EMail a el Progger de el Programa como... |
|
|
| |
|
|