Français
Source/ Codesnippets

Lecture Temperaturfühler Usb

 

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  
 



Pour un Strommessgerät hatten wir letztens, Temperatorfühler ist mais aussi intéressant.
 
13.10.2009  
 




Web
Scanner

Werde je attendre doit, jusqu'à cela Dingens chez mir aus Hongkong eintrifft.
j'ai déjà überlegt, eventuell peux qui zugelieferte USB Software
parallèle courir et je peux qui données aus einem irgendwo abgelegeten
"Temperaturfile"übernehmen?

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
13.10.2009  
 



si qui Treiber en supplément trop bewegen ist, z.B. ne CSV anzulegen, ensuite bestimmt. Andernfalls peux je mir aussi bien présenter, dass Du per Com-Port à Informationen viens.
 
13.10.2009  
 




GDL
allô Roland

je serait mir pour qui prochain XProfan Version directe USB Unterstützung désirer.merci.
ensuite pourrait je qui neuen Atmels sans FTDI Bausteine et sans virtuellen COM-Port le détour ansprechen.

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



 
13.10.2009  
 




RGH
Salut,
comment oui c'est ca sollte so une Unterstützung air? là je selber ne...aucune Hardware-Bastler (plus) suis, peux je mir momentan ne...aucune so rechtes Bild en faire, quoi car à Funktionalitäten nécessaire serait.

Salut
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
13.10.2009  
 



allô Roland, "was" hattest Du car gebastelt?
 
13.10.2009  
 




RGH
iF, Beitrag=54433, Zeitpunkt=13.10.2009
allô Roland, "was" hattest Du car gebastelt?


Unterschiedliches. avant meinem ersten "richtigen" ordinateur (einem ZX81 im Sommer 1981) J'ai eu mich avec Elektronik-Bastel befasst et quelques KOSMOS-Experimentierkästen jusqu'à hin trop einem einfachen 4-Bit-ordinateur-Bausatz de SHARP. Viele Jahre J'ai eu comme étudiant et dans den ersten Berufsjahren une selbstgebauten Stereo-Vollverstärker avec selbstgebauten Boxen im Einsatz, à den je quelquefois encore avec Wehmut zurückdenke. qui Bässe étions quelque chose comme de exakt et trocken ...
Beim ZX81 kam on aus dem bricoler aussi pas heraus: Einen Speicherchip (1 kB) einbauen, um Userdefinierte Ueichen trop erlauben, une Parallelport pour une richtigen Drucker anbauen et cela Ganze dans un schönes Gehäuse mir richtiger Tatstatur et Anschluß pour Joysticks ...
Später habe je ensuite z.B. la fois une Aufsatz pour den Nintendo64, avec dem on NES- et SNES-Jeux abspielen konnte par Einbau eines zuusätzlich Oszilatorkristalls so umgebaut, dass il pas seulement NTSC-, mais aussi PAL-Ausgabe beherrschte ou bien einem DVD-/Laserdiskplayer beigebracht, regionfree trop son.
seulement letztlich habe je mir im Urlaub aus Jux et Tollerei une kleinen Retro-Radiobausatz gegönnt, um la fois wieder den Lötkolben schwingen trop peut ...

Salut
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
13.10.2009  
 



Hehe, verstehe!
 
13.10.2009  
 




Web
Scanner
Oha

comment so une USB Unterstüzung im Betriebssystem air soll,
sais je malheureusement aussi pas. Gibt es là pas une entsprechende Normung?
peux on cela ensuite comment une normalen LPT Port ansprechen?

comment viens je sur qui Com-Ports à qui USB données ran?
je hab oui déjà qui LPT Schnittstelle avec un- et Ausgaben
ansprechen peut, mais den COM Port...

dans welchem Thema finde je ici quoi passendes?

Grüße
Web
 
Xprofan X3.1
Win7 auf AMDX6
13.10.2009  
 



Na qui Treiber realisieren souvent une virtuellen COM-Port [...]  , Befehle hierzu simple qui XProfan-Aider entnehmen.
 
13.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

56.231 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