Español
Fuente/ Codesnippets

Auslesen Temperaturfühler Usb

 
- 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ón
Temperaturmessung 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
 
Xprofan X3.1
Win7 auf AMDX6
12.10.2009  
 



 
- Página 3 -



Web
Scanner
DLL con Doku es no esta..desafortunadamente.
So siehts installiert de:


114 kB
Hochgeladen:20.10.2009
Ladeanzahl127
Descargar
 
Xprofan X3.1
Win7 auf AMDX6
20.10.2009  
 



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. ^ ^
 
20.10.2009  
 




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é


115 kB
Hochgeladen:20.10.2009
Ladeanzahl111
Descargar
 
Xprofan X3.1
Win7 auf AMDX6
20.10.2009  
 




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 .
 
20.10.2009  
 




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?
 
Xprofan X3.1
Win7 auf AMDX6
20.10.2009  
 



Gerätemanager. ^ ^
 
21.10.2009  
 




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 ?
 
Windows7 Xprofan 8,9,10 [...]  [...] 
21.10.2009  
 



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: [...] 
 
21.10.2009  
 




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
 
Windows7 Xprofan 8,9,10 [...]  [...] 
21.10.2009  
 



Verstehe Yo no. -.-
 
21.10.2009  
 




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.
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.10.2009  
 




Frank
Abbing
Schau veces hier: [...] 
 
21.10.2009  
 




Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

56.552 Views

Untitledvor 0 min.
H.Brill09.05.2023
Erasmus.Herold30.04.2019
E.T.25.02.2018
Tango03.09.2017
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie