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


No entsorgen, algo übersehnwa - vlt. puede wir todavía una vez de vorn beginnen. -.-
 
20.03.2010  
 




Detlef
Tussing
Wenn du el USB-Stick una mitgelieferte DLL Expediente anspricht podría lo más ir

z. B.

def cleardigi(1) !"c:RelaisK8055.dll","ClearDigitalChannel"
def opendevice(1) !"c:RelaisK8055.dll","OpenDevice"
def CloseDevice(0) !"c:RelaisK8055.dll","CloseDevice"

el son Befehle el una USB Relaiskarte anspricht

dllh&=usedll("c:RelaisK8055.dll")

karte2%=opendevice(2)Initialisierung el Karte
ifnot karte2%=2
messagebox "Karte 2 defekt oder fehlt","",0
closedevice(1)
freedll dllh&
end

así podría lo en dir auch ir

welche DLL du nehmen musst kann Yo dir no sagen, du kannst sí veces todos DLL su Stick ansehen (con el EDITOR) hay wirst du entonces el entsprechenden Befehle encontrar(en el Regel al Ende el Expediente)
oder schick veces todos DLL´s el Yo ellos me ansehen kann, lo währe una Intento wert
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2010  
 




Web
Scanner
Hi Zusammmen,

hier el einzige DLL el lo dazu son: [...] 

Gracias

Grüße

Web

7 kB
Hochgeladen:21.03.2010
Ladeanzahl105
Descargar
 
Xprofan X3.1
Win7 auf AMDX6
21.03.2010  
 




H.Brill
¡Hola,
Hab como auch veces una Cuestión.
Yo como auch así una USB To Seriell
Kabel de VIVANCO, el Yo veces testen quería.
Desde que todavía una PC con echter COM habe,
Tuve veces el Profilic-Treiber installiert.
Dieser zeigt me auch en el Sistema COM6: a.
Also fix el echte con el USB->Seriell Kabel
verbunden. Wenn Yo nun con el echten COM
(ellos Code) qué sende, kommt auch alles correcto
a. Vertausche Yo nun (f% + f1%) en WriteCom
y ReadCom$(), kommt auch qué a, aber scheinbar
sólo una leerer String.
Mache Yo como qué falso oder ha wer auch ya
solche Erfahrung con el VIVANCO-Teil gemacht ?
Sieht así de, como hätte el Profilic-Treiber
beim Senden una Problema.
KompilierenMarcaSeparación
 $H windows.ph
Declare f%, f1%, flag%, flag1%, fehler%, sende$, empfang$
Declare GridBox%
sende$ = "D"
flag% = 0
flag1% = 0

Proc OpenComPort1

    f% = @OpenCom("COM1", 1024, 1024)
    SetCom("COM1: 1200, N, 8, 1")
    SetComExt(f%,-1,-1,-1,$82,-1,-1)

    If f% > 0

        flag% = 1

    Else

        flag% = 0

    Endif

EndProc

Proc OpenComPort6

    f1% = @OpenCom("COM6", 1024, 1024)
    SetCom("COM6: 1200, N, 8, 1")
    SetComExt(f1%,-1,-1,-1,$82,-1,-1)

    If f1% > 0

        flag1% = 1

    Else

        flag1% = 0

    Endif

EndProc

Proc Dialog

    Declare hD%, hB%, opencom%, Edit1%, Label1%, OK%, send%, Name$
    hD% = @Create("Dialog",%DeskTop,"Dialogfenster",100,100,600,400)
    hB% = @Create("Button",hD%,"&ENDE",10,10,60,25)
    opencom% = @Create("Button", hD%, "&Open Com", 100, 10, 100, 25)
    send% = @Create("Button", hD%, "Send", 220, 10, 100, 25)
    Label1% = @Create("Text", hD%, "Name : ", 10 ,50, 60, 20)
    Edit1% = @Create("Edit", hD%, "Text", 70, 50, 240, 20)
    GridBox% = @Create("Gridbox", hD%, "Spalte 1;0; 120;Spalte 2; 2; 100; Spalte 3; 1; 120; Spalte 4; 3; 120; Spalte 5; 3; 120", 2, 10, 80, 580, 320)
    Clear OK%   OK% auf 0 setzen

    WhileNot Ok%   solange OK% gleich 0 ist

        WaitInput

        If @Clicked(hB%)

            Ok% = 1

        ElseIf %Key = 2

            OK% = 1

        ElseIf @Clicked(opencom%)

            OpenComport1

            If flag% = 1

                @MessageBox("Schnittstelle geöffnet !", "Info", 0)

            Endif

            OpenComport6

            If flag1% = 1

                @MessageBox("Schnittstelle geöffnet !", "Info", 0)

            Endif

        ElseIf @Clicked(send%)

            If flag% = 1

                sende$ = GetText$(Edit1%)
                WriteCom(f%, sende$)
                fehler% = @ComError(f%)

                If fehler% <> 0

                    SetText Edit1%, Str$(fehler%)

                Endif

                Sleep 100
                empfang$ = @ReadCom$(f1%, 14)
                fehler% = @ComError(f1%)

                If fehler% <> 0

                    SetText Edit1%, Str$(fehler%)

                Else

                    SetText Edit1%, empfang$
                    @AddString(Gridbox%, empfang$ + "|" + empfang$ + "|" + empfang$ + "|" + empfang$ + "|" + empfang$)

                EndIf

            Endif

        EndIf

    EndWhile

    @DestroyWindow(hD%)

EndProc

Dialog

If flag% = 1

    CloseCom(f%)

EndIf

If flag1% = 1

    CloseCom(f1%)

4 href='./../../funzione-riferimenti/XProfan/endif/'>EndIf

End
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
22.03.2010  
 




Detlef
Tussing
¡Hola WEB

en el DLL podría Yo nichts encontrar aber vileicht hilft dir el
gefunden en Google "usb rd"
================
Dim aComPort$() = TEMPer.Communication.TEMPerInterface.FindDevices()
================
Provided that Alex’s DLL has been linked en, this finds all the USB TEMPer devices and puts their names into a array

In my caso, these are:
aComport$(0) = “COM17″
aComport$(1) = “COM18″

These can then be read individually
================
For i = 0 To n
Dim ti As New TEMPer.Communication.TEMPerInterface(aComPort$(i))
TempC# = ti.ReadTEMP
MsgBox(��?i=��? + Str(i) + ��? aComport$=��? + aComPort$(i) + ��? Temp = ��? + Str(TempC))
Next
================

This is simply a vb “for loop”
Breaking it down, for each COM port, “create” a object called “ti” (or “Fred” or “Rumplestiltskin”) if you prefer using:
================
Dim ti As New TEMPer.Communication.TEMPerInterface(“COM17″)
================

I’m not sure exactly what this does (I’d like to), but provided that Alex’s DLL has been linked, it just works.

The next step is to read the device. This must of course be done for each device.
================
X = ti.ReadTEMP
================
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2010  
 




Web
Scanner
Hi Detlef,

danke para el Listing, pero yo bin "nur" en Profano geeicht,
Yo vengo ehrlich dijo así no wirklich más

Das en Profano a traducir, bekomme Yo no hin, ya wegen
el seltsamen Sonderzeichen, Sorry...

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
24.03.2010  
 



¿Puede auch no con klarkommen, el Definition TEMPerInterface fehlt. :/
 
25.03.2010  
 




Web
Scanner
Hmmm, entonces gehts así also auch no...

Grüße

Webbi
 
Xprofan X3.1
Win7 auf AMDX6
27.03.2010  
 



Also otra vez, el aktive Comport-Nummer des Gerätes es parat?
 
27.03.2010  
 




Web
Scanner
Jo, Yo ahora veces en el virtuellen Comport No.2 umgestellt.
Jetzt bekomme Yo en @Comerror immerhin ya una "284" zurück.
Vorher wars ne -1 así podría Yo garnix anfangen.

heisst wohl:

$0200 - En Kommunikation con el parallelen Schnittstelle trat una Timeout en.
$0080 - Receive-line-signal-detect-Unterbrechung.
$0004 - El Hardware stellte una Parity-Fehler fest

Tja y nun?

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
27.03.2010  
 



Yo simplemente no Concepto, son Mist...

Mit Gerät sería Yo wohl con obigen Apis testen, vlt. kommt uno así más.
 
27.03.2010  
 




Web
Scanner
Yo schick Usted el Thermometer-Dingens gern veces rüber, si magst

Grüße

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