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



Web
Scanner
Hi Georg,

el puede ser doch bajo el Systemverwaltung zuweisen?
Jedenfalls va en el el virtuellen Comports como en el Thermometer.
Puedo incluso auswählen, en welchen Comport Yo route.

Grüß

Web
 
Xprofan X3.1
Win7 auf AMDX6
28.03.2010  
 




GDL
Hi,

lo va a automatische Erkennung por el Programa beim Anwender.
 
Windows7 Xprofan 8,9,10 [...]  [...] 
28.03.2010  
 




Web
Scanner
Okay, stimmt, el es ne otro Baustelle - aber wichtig,
si al Programa weitergeben möchte.
Bin ahora sólo de mi PC ausgegangen.

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
28.03.2010  
 




Web
Scanner
Heyyyy es el Hammer, lo kommen ahora Daten!
¿Es todavía checken pero la Stick meldet se, el LED blinkt!!!
Unglaublich - Yo bin platt

So sieht lo de de lo que el Stick kommt:

[...] 

Jetzt muß lo sólo en una lesbares Formato umgewandelt voluntad...coool
Ziemlich kryptisch??

Grüße

Web

87 kB
Hochgeladen:28.03.2010
Ladeanzahl213
Descargar
 
Xprofan X3.1
Win7 auf AMDX6
28.03.2010  
 



Als ANSI-Signo sicherlich kryptisch ^ ^, el Protokoll es wo beschrieben?

Bestimmt algo como como ersten Bytes: HiHo hier Yo bin Thermo! y luego "5 Bits veces Dreissig Halbe" ergeben Grad Fahrenheit - irgend así una horror sólo. ^ ^
 
28.03.2010  
 




Web
Scanner
Sí genau,

Sending command: 24, 10, 05, 01, 01, 00, 32, 01, 55.
Then you voluntad see :24, FE, 02, HH, LL, 88

Nur como wandle Yo, el kryptischen kram en? Mit chr$ gehts no...

Eigentlich debería Yo eben el bekommen: 24, FE, 02, HH, LL, 88

Wobei HH LL el Temperatur beinhaltet.
 
Xprofan X3.1
Win7 auf AMDX6
28.03.2010  
 



Usted puede cada Byte con Ord beziehen z.B. ord(mid$(s$,byteNummer,1)) y senden por chr$($24) oder "x24". Si usted 24 FE 02 HH LL 88 empfängst, entonces sólo Byte 4 y 5 para el Werte wobei Temp vlt. HH*256+LL es.

Usted puede aber auch simplemente el Byte zugreifen indem Usted el Adresse vom String nutzt:
KompilierenMarcaSeparación
var a&=addr(s$)
print "temp:",word(a&,3)e>

In nativen Características kannst Usted en Cuerdas simplemente auch por Arrayschreibweise (z.B. s$[4]) el Bytewert beziehen qué específicamente para schnelles Abfragen konzipiert es, hierbei pero probablemente unnötig es, si no necesariamente z.B. una separaten Hilo a el hWnd regelmässig el Temperatur como Message senden willst. ^ ^
 
28.03.2010  
 



GDL, Beitrag=56559, Zeitpunkt=28.03.2010
Hi,

lo va a automatische Erkennung por el Programa beim Anwender.


Kann uno porque no simplemente todos Comports durchschauen?
 
28.03.2010  
 




Web
Scanner
Sauber IF -- lo va. Gracias Usted!
Yo sehe el Temperatur genau como en el richtigen Progamm vom Hersteller.

Jetz muß Yo sólo todavía el Synchronisation hinbekommen.
Der Stick envía automáticamente ca. todos halbe Sekunde automáticamente el Temperatur.
Mit Sleep wir el nix, como verheddert él se siempre veces.
Yo muß wahrscheinlich en el 24 FE 02 triggern y danach el Werte abholen...

So es auch ya drin.
Werde el Programa todavía algo aufhübschen, entonces lugar Yo para angucken rein.
Tal vez muß sí alguien el Temperatur por PC messen

El Búsqueda después de el Comport tener Todavía no implementiert.
Pero sicher sinnvoll ser.
¿Es otra vez después de 24 FE 02 suchen, si el en una Comport zurückkommt,
es el sólo richtige.

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



Juhu, Por favor, auch como Exe Puesto con (al besten Kauflink para Tempfühler, runde Sache y yo hole me solch Tempfühler garantiert ya alleine fürs Mondauto. ^ ^
 
28.03.2010  
 




Web
Scanner
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
 
Xprofan X3.1
Win7 auf AMDX6
28.03.2010  
 



 
- Página 8 -


Super, danke. ^ ^
 
28.03.2010  
 




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