Français
Source/ Codesnippets

Lecture Temperaturfühler Usb

 
- page 1 -



Web
Scanner
Nachtrag:
Web Scanner, Beitrag=56582, Zeitpunkt=28.03.2010
tu peux Dir cet Thermometer chez Ebay bestellen:

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

Herstellerseite:
[...] 

cela Ding kostet 18États-Unis$ + 6$ Fracht.
cela Temper232 venez aus la Chine, dauert paire Tage.

Grüße

Web


Web Scanner, Beitrag=56571, Zeitpunkt=28.03.2010
Anbei qui Voir le texte source. peux on sûrement encore viel besser faire, mais es funktioniert erstemal:
KompilierenMarqueSéparation
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%) Fin


allô Programmierfreunde,

pour längerer Zeit habe je wieder un kleines Softwareprojekt.
und dir um une Temperatursteuerung. en supplément doit je une USB
Temperaturstick auswerten. Quelque chose comme ici: Ebay Artikelnummer: 380167386533

eh bien mon Frage, hat so quelque chose déjà quelqu'un gemacht?
Gibt es là spezielle Treiber, dlls, ou bien sonstige Hilfen?
je dois en supplément dire, cela qui Stick encore pas chez mir weilt et
daher ist es et avec ca dürftig avec qui Datenlage

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
12.10.2009  
 



 
- page 2 -



GDL
allô Roland,

genauso comment du qui serielle Schnittstelle eingebettet la hâte.
cela dein XProfan qui Windowseigene USB Übergabe anspricht.

Kenne mich avec USB im WinBereich pas du tout aus.
Könnte mir quelque chose comme présenter
- Dialog qui qui angeschlossenen USB Geräte avec canal anzeigt
- open usb pour canal
- read vom canal
- write sur den canal
- close canal

Problem ist arrêt, dass chez USB qui Portnummern pas fest vergeben sommes.homme muss toujours seulement alle USB Geräte ermitteln et qui Portnummer de seiner angesteckten Hardware ermitteln.

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
13.10.2009  
 



Schaut la fois [...]  .
 
13.10.2009  
 




Web
Scanner
Ohh je,
cela sieht mais pas justement très trivial aus
là suis je la fois quelque chose niedergeschlagen...
Hoffentlich habe je mir là pas zuviel vorgenommen?

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
13.10.2009  
 




GDL
allô iF,

là besorge je mir lieber paire vieille calculateur avec RS232 et sur longtemps Sicht progge je mon Programme wieder sur inp et out um.
si qui Industrieboards encore günstiger volonté, steige je um, là cet heutigen Multimediakisten pour mich eh nimmer brauchbar sommes.

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
14.10.2009  
 



wohin oui c'est ca liegt car cela Problem chez solch USB-RS232-Port?

je frag à cause de dem Moonbuggy.
 
15.10.2009  
 




GDL
@iF,

cela Problem ist chez Atmel pas qui USB Mikrocontrollertreiber.
qui avons qui neuen Atmel déjà Onboard.

cela Problem ist, comment greife je aus XProfan heraus mittels Windows sur qui geladenen Treiber trop.
qui Probleme attraper déjà avec qui USB Kanalnummerermittlung à.
si qui Treiber une virtuellen ComPort erschafft isses oui ne...aucune Problem.seulement créer alle Treiber une virtuellen ComPort?
mais comment dit,USB ist pour mich aussi Neuland.

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
15.10.2009  
 




GDL
@ Moonbuggy

cela Moonbuggy peut son déjà avec USB et den FTDI RLE245 ou bien RLE235 betreiben.
qui FTDI Bausteine annoncer sich avec dem mitgelieferten Treibern automatisch chez Windows à.
là erzeugen vous une virtuellen COMPORT qui avec den XPofan Befehlen angesprochen volonté peux.
Ausgangsseitig erzeugen qui Bausteine 8bit parallèle ou bien seriel avec Handshaking.

Diesen le détour fais je oui déjà.
je wünsche mir mais direkten Zugriff de XProfan sur qui windowsinterne USB Übergabeschnittstelle.
So comme chez den Druckern aussi allez.je melde qui USB-Drucker oui aussi chez Windows à et pas chez chaque Programme quoi drucken peux.

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
16.10.2009  
 




E.T.
je denke, qui angemeldete Drucker wird aussi pas anders comme une COM angesprochen, si je mir cela chez meinem Drucker so anschaue, quoi cette installé hat:



ca wird wohl seule qui Treiber faire peut.

4 kB
Hochgeladen:16.10.2009
Downloadcounter109
Download
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
16.10.2009  
 




Web
Scanner
So, qui USB Temperaturfühler ist là.

Soweit funktioniert qui aussi avec qui mitgelieferten Software.
qui données volonté sur un Excelfile ausgegeben.
Wahrscheinlich qui einfachste variante sur cela File zuzugreifen et qui données einzulesen?

je hätte es mais gern anders, direct avec Profan dans mon Programme ausgelesen.
comment peux je là anfangen, suis quelque chose perplexe...
suis pour chacun Aider reconnaissant.

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
20.10.2009  
 



Gibt es une mitgelieferte Software qui qui _aktuelle température anzeigt?

Link zum Produkt?
 
20.10.2009  
 




Web
Scanner
Produktlink ist ici:

[...] 

Aktuelle température wird dans un Excelfile abgelegt et aktuell angezeigt.


130 kB
Hochgeladen:20.10.2009
Downloadcounter114
Download
 
Xprofan X3.1
Win7 auf AMDX6
20.10.2009  
 



Liegt ne DLL avec Doku chez?

Andernfalls ne EMail à den Progger de dem Programme là...
 
20.10.2009  
 




Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

54.620 Views

Untitledvor 0 min.
H.Brill09.05.2023
Erasmus.Herold30.04.2019
E.T.25.02.2018
Tango03.09.2017
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie