| |
|
|
- 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 3 - |
|
|
Web Scanner | DLL con Doku es no esta..desafortunadamente. So siehts installiert de:
|
|
|
| |
|
|
|
| Na el 169KBer sieht doch schonmal bien de, mostrar doch veces rein - unten posición oft igual Exportnamen y schalt veces en Su Explorereinstellungen [X] bekannte Extensionen ausblenden de - sieht uno sí sonst nüscht. ^ ^ |
|
|
| |
|
|
|
Web Scanner | en el 169él es unten el drin:
E:xiaosongRDingHidHidFTDllDebugHidFTDll.pdb
Hilft el
Jetzt tener Yo auch todavía el gefunden: [...]
Mit RS232 Edición..... wäre wohl einfacher, qué
|
|
|
| |
|
|
|
|
uses the communicating protocol and supports the RS232 4800bps standard, and this supplies convenience to the users who want to write programs themselves. Na genau, el Treiber se nen (virtuellen) COM-Port bereitstellen, also OpenCom . |
|
|
| |
|
|
|
Web Scanner | gibts sólo una keines Problema, Yo tener NICHT el RS232 Typen hier mentira
Spassenshalber Yo el Software para el RS232 Stick runtergeladen, aber así se ejecuta mein Stick natürlich no.
Gibt lo en USB offensichtlich diferente Anbindungen:
1 x encima el Comport = RS232 1 x USB irgendwie anders
Werde also mejor versuchen el RS232 Dingens a bekommen? Oder wir encontrar o ne- otro Solución. Yo sehe sí no veces en welchem Comport Yo suchen debería? Gibst como ev. ne Auswertesoftware, oder algo como? |
|
|
| |
|
|
|
| |
|
| |
|
|
|
GDL | Exactamente el mi I, con Kanal ermitteln. Das debería auch con XProfan ir y no sólo encima el Gerätemanager.
Yo weis auch no como mitgelieferten Software el Kanäle ermitteln a welcher COM Nummer nun ihr Gerät liegt.Auf todos Fälle findet el mitgelieferte Software ihr Gerät sin el el Anwender Einstellungen hacer muss,egal welcher Kanal gerade vergeben wurde.Irgendwie hay una Windowsinterne Übergabe.
- Gerätetreiber se beim Anstecken a USB geladen - Windows erkennt Hardware y teilt nächst freien USB Kanal a. Also 4 si ya 3 USB belegt son oder 2 si solamente 1 USB belegt es - Gerätetreiber richtet con diesem Kanal virtuellen Port una - Windows stellt Anwenderprogrammen el virtuellen Port einschliesslich Kanal y Kennung a verfügung.
Como greife Yo nun con XProfan en todos virtuellen Port con Namen(liefert Treiber) y Kanalnummer(liefert Ventana) a y búsqueda media Port heraus.Ohne dass el Anwender sólo seine Portnummer al Programmstart irgendwo suchen muss ? |
|
|
| |
|
|
|
| Comports listen, ni idea - debería uno vlt. ergoogeln. ^ ^ Hier posición ya unos pocos Befehle: [...]
Internally the code provides 9 different ways (yes you read that right: Nine) of enumerating serial ports: Using CreateFile, QueryDosDevice, GetDefaultCommConfig, two ways using the Setup API, EnumPorts, WMI, Com Database & enumerating the values under the registry key HKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM.
Und hier: [...] |
|
|
| |
|
|
|
GDL | Hi,
ahora son wir a el Punkt, wo Yo ya más oben direkte USB Unterstützung wünschte.
Den virtuellen Namen saber Yo sí vom Treiber her.
Würde me algo como vorstellen : kanal%=find$(Portname$)
Servus Georg |
|
|
| |
|
|
|
| |
|
| |
|
|
|
Detlef Tussing | Yo habe bajo XProfan auch con USB experimentiert.
Posesiones sin embargo una DLL bekommen en 8 Aus y 2 Eingangskanäle a steuern.
Yo vermute en deiner Software es una versteckte DLL
Mirar Yo el Karte anspreche
declarar a%,b%,c%,d%,e% a%=0 Kartenadresse b%=2Digitalkanaleingang c%=1Analogkanaleingang d%=3Digitalkanalausgang e%=2Analogkanalausgang def opendevice(1) !"k8055d.dll","OpenDevice" def closedevice(0) !"k8055d.dll","CloseDevice" def readdigi(1) !"k8055d.dll","ReadDigitalChannel" def readanalog(1) !"k8055d.dll","ReadAnalogChannel" def ClearAllDigital(0) !K8055d.dll","ClearAllDigital" def setdigi(1) !K8055d.dll","SetDigitalChannel" def analogout(1) !K8055d.dll","SetAnalogChannel" def clearallanalog(0) !K8055d.dll","ClearAllAnalog" declarar dllh& dllh&=usedll("k8055d.dll")
ifnot dllh&
messagebox "dll no geladen error","",0 end
endif
declarar kartenadresse&,readdigi&,schreibdigi&,readanalog&,schreibanalog& kartenadresse&=opendevice(a%)Initialisierung el Karte
mientras que readanalog&<125
readanalog&=readanalog(c%) locate 10,10 imprimir "Analogkanaleingang",c%," = ",readanalog& readdigi&=readdigi(b%) locate 14,10 imprimir "Digitalkanaleinganggang",b%," = ",readdigi& schreibdigi&=setdigi(d%) locate 18,10 imprimir "Digitalkanalausgang",d%," = ",schreibdigi& locate 22,10 imprimir "Kartenadresse:",kartenadresse& waitinput schreibanalog&=analogout(e%)
endwhile
waitinput clearalldigital() clearallanalog() closedevice() freedll dllh& end
Dies es sólo una Testprogramm para el USB-Karte. sicher wäre lo schön una direkten zugriff de XProfan en USB a haben. |
|
|
| |
|
|
|
Frank Abbing | |
|
| |
|
|