XProfan

- Page 7 -

Web
Scanner

Hi Georg,

the can still under the Systemverwaltung allocate?
anyway does it with whom virtual Comports How with the thermometer.
I can even select, on whom Comport I route.

Grüß

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

it's about The automatic recognition by the Program at users.

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

[...]

Web
Scanner

Okay, is correct, this is ne others Construction site - but important,
if to the Program transmit would like.
be now only of my PC gone out.

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

Web
Scanner

Heyyyy its the gavel, it come now data!
mandatory I yet checken but the Stick reports itself, The LED blinkt!!!
unbelievable - i'm stunned

so see it from of what the Stick comes:

[...]

now must it only into lesbares stature transformed go...coool

quite kryptisch??

Regards

Web

Screenshot daten.jpg	87 kB

Hochgeladen:	03/28/10

Downloadcounter:
		Download

Xprofan X3.1

Win7 auf AMDX6

as ANSI-characters sure kryptisch ^^, the log is where described?

certainly something like as first Bytes: HiHo here i'm Thermo! and then "5 Bits time Dreissig Halbe" yield strain fahrenheit - ever so one horror hold. ^^

Web
Scanner

Yes very,

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

only How wandle I the kryptischen kram circa? with chr$ GEHTS not...

really should I even the get: 24, FE, 02, HH, LL, 88

where HH LL The temperature contain.

Xprofan X3.1

Win7 auf AMDX6

You can each byte with Ord relating z.B. ord(mid$(s$,byteNummer,1)) and Send by chr$($24) or "x24". If you 24 FE 02 HH LL 88 empfängst, then hold byte 4 and 5 for values where Temp vlt. HH*256+LL is.

You can but too simply the byte grab because You The address of String uses:
Compile Mark Separation

var a&=addr(s$)
print "temp:",word(a&,3)e>

In nativen functions can You with Strings simply too by Arrayschreibweise (z.B. s$[4]) whom Bytewert relating what Specifically for fast inquire konzipiert is, hierbei but well unnecessary is, if you not absolutely z.B. a self-contained Thread on the hWnd regelmässig The temperature as Message Send want. ^^

GDL, Beitrag=56559, Zeitpunkt=28.03.2010

Hi,

it's about The automatic recognition by the Program at users.

Can because not simply any Comports durchschauen?

Web
Scanner

tidy iF -- It's all right. thanks you!

I see The temperature very How in the right Progamm of manufacturers.

Jetz must I only yet The Synchronisation hinbekommen.
The Stick sends automatically ca. any half-way second automatically The temperature.
with Sleep we the nix, there verheddert it itself always time.
I must probably on The 24 FE 02 triggern and thereafter The values call for...

so is already drin.

will be the program yet something aufhübschen, then place I it to that angucken mere.
Perhaps must Yes someone The temperature by PC Is it Unikode

The Search to the Comport Have I not yet implementiert.
becomes but sure meaningfully his.
mandatory I again to 24 FE 02 search, if the on a Comport zurückkommt,
is the hold right.

enclosed the View source. Can sure yet much better make, but it functions erstemal:
Compile Mark Separation

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, Please too as Exe Post with (best

Kauflink to that Tempfühler, round thing what about me fetch me such Tempfühler guaranteeing already on my own for Moonbuggy. ^^

Web
Scanner

You can you this thermometer with Ebay order:

USB xp linux thermometer,RS232 protocol,TEMPer232
Ebay Artikelnummer:220564891464

Herstellerseite:
[...]

The thing cost 18US$ + 6$ Fracht.
the Temper232 comes from China, lasts couple days.

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

- Page 8 -

super, thanks. ^^