| |
|
|
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éparationTemperaturmessung 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 |
|
|
| |
|
|
|
| Pour un Strommessgerät hatten wir letztens, Temperatorfühler ist mais aussi intéressant. |
|
|
| |
|
|
|
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 |
|
|
| |
|
|
|
| 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. |
|
|
| |
|
|
|
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 |
|
|
| |
|
|
|
| |
|
| |
|
|
|
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? |
|
|
| |
|
|
|
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! |
|
|
| |
|
|
|
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 |
|
|
| |
|
|
|
| Na qui Treiber realisieren souvent une virtuellen COM-Port [...] , Befehle hierzu simple qui XProfan-Aider entnehmen. |
|
|
| |
|
|