| |
|
|
Web Scanner | Nachtrag: Web Scanner, Beitrag=56582, Zeitpunkt=28.03.2010
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
Web Scanner, Beitrag=56571, Zeitpunkt=28.03.2010
enclosed the View source. Can sure yet much better make, but it functions erstemal: CompileMarkSeparationTemperaturmessung 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
Hello Programmierfreunde,
to längerer Time have I again small Softwareprojekt. it's about a Temperatursteuerung. moreover must I a USB Temperaturstick evaluate. Something like here: Ebay Artikelnummer: 380167386533
now my question, has such a thing already someone made? gives it there Special driver, dlls, or other Aids? I must moreover say, the the Stick not yet by me weilt and therefore is it yet something dürftig with the Datenlage
Regards
Web |
|
|
| |
|
|
|
| for a Strommessgerät had we recently, Temperatorfühler is too interestingly. |
|
|
| |
|
|
|
Web Scanner | will be I Waiting must, To the Dingens by me from Hong Kong eintrifft. I have already consider, possible can The zugelieferte USB software parallel walk what about me can The Data from one somewhere abgelegeten "Temperaturfile"übernehmen?
Regards
Web |
|
|
| |
|
|
|
| If the driver moreover To moving is, z.B. ne CSV anzulegen, then certainly. otherwise can I me too well present, that You by com-Port on Information come. |
|
|
| |
|
|
|
GDL | Hello Roland
i'd me for next XProfan Version direct USB Support wish.thanks. then could I The new Atmels without FTDI Bausteine and without virtual COM-Port detour address.
Hello Georg |
|
|
| |
|
|
|
| |
|
| |
|
|
|
RGH | Hi, How very ought to so a Support looks? Since I yourself no hardware-handyman (More) be, can I me momentarily no so right Image of it make, whatever on Funktionalitäten needed would.
Greeting 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 | 10/13/09 ▲ |
|
|
|
|
| Hello Roland, "was" had Thou gebastelt? |
|
|
| |
|
|
|
RGH | iF, Beitrag=54433, Zeitpunkt=13.10.2009
Hello Roland, "was" had Thou gebastelt?
Unterschiedliches. to my first "richtigen" computer (one ZX81 in the summer 1981) I had me with electronics-Bastel befasst and some KOSMOS-Experimentierkästen To there to a einfachen 4-bit-computer-Bausatz of SHARP. many years I had as student and whom first Berufsjahren a selbstgebauten stereo-Vollverstärker with selbstgebauten boxing in use, on whom I sometimes yet with Wehmut zurückdenke. The Bässe were something like of exakt and dry ... at that ZX81 coming one from the Basteln neither out: a Speicherchip (1 kB) install, circa Userdefinierte Ueichen To permit, a Parallelport for a right printer raise and the Whole in one nice case me richtiger Tatstatur and Connection for Joysticks ... Later have I then z.B. time a essay for Nintendo64, the one with NES- and SNES-Games Play could through installation one zuusätzlich Oszilatorkristalls so rebuilt, that it not only NTSC-, separate too PAL-spending beherrschte or one DVD-/Laserdiskplayer beigebracht, regionfree To his. first letztlich have I me in the leave from Jux and Tollerei a small Retro-Radiobausatz gegönnt, circa time again whom Lötkolben swing to ...
Greeting 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 | 10/13/09 ▲ |
|
|
|
|
| Hehe, understand! |
|
|
| |
|
|
|
Web Scanner | Oha
How so a USB Unterstüzung in the Betriebssystem looks should, white I unfortunately neither. gives it there not a suitable Normung? Can the then How a normalen LPT Port address?
How do I get over The com-Ports on The USB data ran? I Have already The LPT interface with One- and expenses address can, but whom COM Port...
In welchem Topic find I here something suitable?
Regards Web |
|
|
| |
|
|
|
| well The driver release often a virtual COM-Port [...] , command to simply the XProfan-Help entnehmen. |
|
|
| |
|
|