| |
| |
|
| - Page 1 - |
|
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
@Closa> (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 |
|
| |
| |
| |
|
| |
| |
| - Page 5 - |
|
|
 | position the driver yet others/ further Comports ready? (sometimes 3-4...)
How lauten because really these Comport-Apis?
for that Moonbuggy I will a "Comport-Monitor" in a own Process or Thread turn off, Topic schad nüscht. |
|
| |
| |
| |
|
|
Web
Scanner | | where very find I The Comport APIs? |
|
| |
| |
| |
|
|
| already leg input of Comport [...]  become with .net zugemüllt. ^^ |
|
| |
| |
| |
|
|
| Ah [...] [...]
CreateFile - Öffnet a seriellen Port and supply a lever
SetupComm - setting The Parameter for Konfiguration
WaitCommEvent - helps at Implementieren of/ one Ereignisbehandlung
Writefile - writes on The interface
ReadFile - reads from the interface
[offtopic]These whole APIs need one with XPSE not at all self deklarieren, only write: CompileMarkSeparationits How, as would tappt im dunkeln to that Sprachschatz belong.[/offtopic] |
|
| |
| |
| |
|
|
Web
Scanner | hmmm
Why must the, I make wants - always so tricky his 
The command Gibts Yes so not XProfan? |
|
| |
| |
| |
|
|
| | very, could You by Header-Files (*.ph) integrate or by External Call or by DEF define or take xpse and then are you of House from How normal functions simply existent and schreibbar. |
|
| |
| |
| |
|
|
Web
Scanner | Schade, so far wealthy my Kenntnisse erstemal (yet) not.
Why are The XProfanbefehle not moreover useable?
The functions well only on direct physical available
Comports and not detoured USB Ports? |
|
| |
| |
| |
|
|
Web
Scanner | the Have I yet found, but sooner everything for VB.
shining everything directly for Temper232 To his.
[...]
here becomes The interface beackert. interestingly...
[...] |
|
| |
| |
| |
|
|
| | physical come we since NT (in the UserMode-Level) eh not ran, goes imho eh only around the of Treibern begot virtual Comports. These APIs there attend me not at all soo tricky, with opportunity once look at. I wanted to only know, which APIs there in question come, to see, which Options vlt. yet available stand, The the XProfan of House from Perhaps not bid. Codes in VB are still mostly useable. |
|
| |
| |
| |
|
|
Web
Scanner | is here the drin what You seek?
still a DLL.
[...] |
|
| |
| |
| |
|
|
| | Nene this is already ok, that are hold The Treiberdateien the Treibers the The Comports herstellt. the here [...] (I but not today More, plenty To late schonwieder) time try with CreateFile on "COM12", or. first at all CreateFile feedback look at. but I know now neither, what XProfan there differently make ought to - vlt. can Roland the trouble discern. |
|
| |
| |
| |
|
|
Web
Scanner | Hmm, means I Have already all sorts of things turned, but the biestige
USB Temperaturstick sacht not message.
has yet someone a zündende USB idea before I the into eternal
Jagdgründe entsorge? 
Regards
Web |
|
| |
| |
| |
|
(863)
Deutsch
English
Français
Español
Italia