XProfan

- 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

GDL

Hi,

lo va a automatische Erkennung por el Programa beim Anwender.

Windows7 Xprofan 8,9,10 [...]

[...]

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

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

Screenshot daten.jpg	87 kB

Hochgeladen:	28.03.2010

Ladeanzahl:
		Descargar

Xprofan X3.1

Win7 auf AMDX6

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

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

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:
Kompilieren Marca Separació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. ^ ^

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?

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:
Kompilieren Marca Separació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

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

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

- Página 8 -

Super, danke. ^ ^