| |
| |
|
| - 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é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
@Closa> (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 |
|
| |
| |
| |
|
| |
| |
| - page 6 - |
|
|
 | | pas entsorgen, irgendwas übersehnwa - vlt. peut wir encore einmal de vorn commencer. -.- |
|
| |
| |
| |
|
|
Detlef
Tussing | si du den USB-Stick sur une mitgelieferte DLL Dossier anspricht pourrait es plutôt aller
z. B.
def cleardigi(1) !"c:RelaisK8055.dll","ClearDigitalChannel"
def opendevice(1) !"c:RelaisK8055.dll","OpenDevice"
def CloseDevice(0) !"c:RelaisK8055.dll","CloseDevice"
ce sont Befehle qui une USB Relaiskarte anspricht
dllh&=usedll("c:RelaisK8055.dll")
carte2%=opendevice(2)initialisation qui carte
ifnot carte2%=2
messagebox "Karte 2 défaut ou bien fehlt",»,0
closedevice(1)
freedll dllh&
end
so pourrait es chez dir aussi aller
quelle DLL du prendre musst peux je dir pas dire, tu peux oui la fois alle DLL votre Stick regarder (avec dem EDITOR) là wirst du ensuite qui entsprechenden Befehle trouver(dans qui règle am Ende qui Dossier)
ou bien schick la fois alle DLL´s le moi vous mir regarder peux, es währe un Versuch wert |
|
| |
| |
| |
|
|
Web
Scanner | Hi Zusammmen,
ici qui einzige DLL qui es en supplément gibt: [...] 
merci
Grüße
Web |
|
| |
| |
| |
|
|
H.Brill | Salut,
Hab là aussi la fois une Frage.
je hab là aussi so une USB To Seriell
câble de VIVANCO, le moi la fois testen voulais.
là je encore une PC avec echter COM habe,
J'ai eu la fois den Profilic-Treiber installiert.
cette zeigt mir aussi im System COM6: à.
alors fix qui echte avec dem USB->Seriell câble
verbunden. si je eh bien avec qui echten COM
(vous Code) quoi sende, venez aussi alles richtig
à. Vertausche je eh bien (f% + f1%) chez WriteCom
et ReadCom$(), venez aussi quoi à, mais scheinbar
seulement un leerer String.
fais je là quoi faux ou bien hat qui aussi déjà
solche Erfahrung avec dem VIVANCO-partie gemacht ?
Sieht so aus, comme hätte qui Profilic-Treiber
beim Senden un Problem.
KompilierenMarqueSéparation $H windows.ph
Declare f%, f1%, flag%, flag1%, fehler%, sende$, empfang$
Declare GridBox%
sende$ = "D"
flag% = 0
flag1% = 0
Proc OpenComPort1
f% = @OpenCom("COM1", 1024, 1024)
SetCom("COM1: 1200, N, 8, 1")
SetComExt(f%,-1,-1,-1,$82,-1,-1)
If f% > 0
flag% = 1
Else
flag% = 0
Endif
EndProc
Proc OpenComPort6
f1% = @OpenCom("COM6", 1024, 1024)
SetCom("COM6: 1200, N, 8, 1")
SetComExt(f1%,-1,-1,-1,$82,-1,-1)
If f1% > 0
flag1% = 1
Else
flag1% = 0
Endif
EndProc
Proc Dialog
Declare hD%, hB%, opencom%, Edit1%, Label1%, OK%, send%, Name$
hD% = @Create("Dialog",%DeskTop,"Dialogfenster",100,100,600,400)
hB% = @Create("Button",hD%,"&ENDE",10,10,60,25)
opencom% = @Create("Button", hD%, "&Open Com", 100, 10, 100, 25)
send% = @Create("Button", hD%, "Send", 220, 10, 100, 25)
Label1% = @Create("Text", hD%, "Name : ", 10 ,50, 60, 20)
Edit1% = @Create("Edit", hD%, "Text", 70, 50, 240, 20)
GridBox% = @Create("Gridbox", hD%, "Spalte 1;0; 120;Spalte 2; 2; 100; Spalte 3; 1; 120; Spalte 4; 3; 120; Spalte 5; 3; 120", 2, 10, 80, 580, 320)
Clear OK% OK% auf 0 setzen
WhileNot Ok% solange OK% gleich 0 ist
WaitInput
If @Clicked(hB%)
Ok% = 1
ElseIf %Key = 2
OK% = 1
ElseIf @Clicked(opencom%)
OpenComport1
If flag% = 1
@MessageBox("Schnittstelle geöffnet !", "Info", 0)
Endif
OpenComport6
If flag1% = 1
@MessageBox("Schnittstelle geöffnet !", "Info", 0)
Endif
ElseIf @Clicked(send%)
If flag% = 1
sende$ = GetText$(Edit1%)
WriteCom(f%, sende$)
fehler% = @ComError(f%)
If fehler% <> 0
SetText Edit1%, Str$(fehler%)
Endif
Sleep 100
empfang$ = @ReadCom$(f1%, 14)
fehler% = @ComError(f1%)
If fehler% <> 0
SetText Edit1%, Str$(fehler%)
Else
SetText Edit1%, empfang$
@AddString(Gridbox%, empfang$ + "|" + empfang$ + "|" + empfang$ + "|" + empfang$ + "|" + empfang$)
EndIf
Endif
EndIf
EndWhile
@DestroyWindow(hD%)
EndProc
Dialog
If flag% = 1
CloseCom(f%)
EndIf
If flag1% = 1
CloseCom(f1%)
4 href='./../../funzione-riferimenti/XProfan/endif/'>EndIf
Fin
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 22.03.2010 ▲ |
|
| |
|
|
Detlef
Tussing | allô WEB
dans qui DLL konnte je rien trouver mais vileicht hilft dir cela
trouvé chez Google "usb rd"
================
Faible aComPort$() = TEMPer.Communication.TEMPerInterface.FindDevices()
================
Provided that Alex’s DLL has been linked dans, this finds espace le USB TEMPer devices and puts their names into à array
dans my cas, these sont:
aComport$(0) = “COM17″
aComport$(1) = “COM18″
These can then être read individually
================
For i = 0 To n
Faible ti As New TEMPer.Communication.TEMPerInterface(aComPort$(i))
TempC# = ti.ReadTEMP
MsgBox(��?i=��? + Str(i) + ��? aComport$=��? + aComPort$(i) + ��? Temp = ��? + Str(TempC))
Next
================
This is simply a vb “for loop”
Breaking il down, for each COM port, “create” à object called “ti” (or “Fred” or “Rumplestiltskin”) si you prefer using:
================
Faible ti As New TEMPer.Communication.TEMPerInterface(“COM17″)
================
I’m not sure exactly what this does (I’d like to), but provided that Alex’s DLL has been linked, il just works.
The next step is to read le device. This must of course être done for each device.
================
X = ti.ReadTEMP
================ |
|
| |
| |
| |
|
|
Web
Scanner | Hi Detlef,
merci pour cela Listing, mais je suis "nur" sur Profan geeicht,
je viens à vrai dire avec cela pas wirklich plus 
cela dans Profan trop traduire, bekomme je pas hin, déjà à cause de
qui seltsamen Sonderzeichen, Sorry...
Grüße
Web |
|
| |
| |
| |
|
|
| | peux aussi pas avec klarkommen, qui définition TEMPerInterface fehlt. :/ |
|
| |
| |
| |
|
|
Web
Scanner | Hmmm, ensuite gehts so alors aussi pas...
Grüße
Webbi |
|
| |
| |
| |
|
|
| | alors nochmal, qui aktive Comport-numéro des Gerätes ist prêt? |
|
| |
| |
| |
|
|
Web
Scanner | Jo, j'ai maintenant la fois sur den virtuellen Comport No.2 umgestellt.
maintenant bekomme je chez @Comerror immerhin déjà une "284" zurück.
auparavant wars ne -1 avec cela konnte je garnix anfangen.
heisst wohl:
$0200 - chez qui communication avec qui parallelen Schnittstelle trat un Timeout sur.
$0080 - Receive-line-signal-detect-Unterbrechung.
$0004 - qui Hardware stellte une Parity-faute fest
Tja et eh bien?
Grüße
Web |
|
| |
| |
| |
|
|
| je hab simple aucun concept, son Mist... 
avec Gerät serait je wohl avec obigen Apis testen, vlt. venez on avec cela plus. |
|
| |
| |
| |
|
|
Web
Scanner | je schick Dir cela Thermometer-Dingens gern la fois rüber, si Du magst 
Grüße
Web |
|
| |
| |
| |
|
(1.045)
Deutsch
English
Français
Español
Italia