| |
|
|
- Página 1 - |
|
Web Scanner | Apéndice: Web Scanner, Beitrag=56582, Zeitpunkt=28.03.2010
Usted puede Usted dieses Thermometer en Ebay bestellen: USB xp linux thermometer,RS232 protocol,TEMPer232 Ebay Artikelnummer:220564891464 Herstellerseite: [...] Lo kostet 18US$ + 6$ Fracht. Das Temper232 kommt de China, dauert pocos Tage. Grüße Web
Web Scanner, Beitrag=56571, Zeitpunkt=28.03.2010
Anbei el Ver código fuente. Kann uno sicher todavía viel mejor hacer, pero funktioniert erstemal: KompilierenMarcaSeparaciónTemperaturmessung 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
¡Hola Programmierfreunde,
después de längerer Tiempo Yo otra vez una kleines Softwareprojekt. Lo va una Temperatursteuerung. Dazu muß Soy un USB Temperaturstick auswerten. Algo como hier: Ebay Artikelnummer: 380167386533
Nun mi Cuestión, ha así algo ya alguien gemacht? Gibt lo como spezielle Treiber, dlls, oder sonstige Hilfen? Yo muß dazu sagen, el el Stick todavía no en me weilt y por lo tanto es todavía algo dürftig con el Datenlage
Grüße
Web |
|
|
| |
|
|
| |
|
- Página 6 - |
|
|
| No entsorgen, algo übersehnwa - vlt. puede wir todavía una vez de vorn beginnen. -.- |
|
|
| |
|
|
|
Detlef Tussing | Wenn du el USB-Stick una mitgelieferte DLL Expediente anspricht podría lo más ir
z. B.
def cleardigi(1) !"c:RelaisK8055.dll","ClearDigitalChannel" def opendevice(1) !"c:RelaisK8055.dll","OpenDevice" def CloseDevice(0) !"c:RelaisK8055.dll","CloseDevice"
el son Befehle el una USB Relaiskarte anspricht
dllh&=usedll("c:RelaisK8055.dll")
karte2%=opendevice(2)Initialisierung el Karte ifnot karte2%=2 messagebox "Karte 2 defekt oder fehlt","",0 closedevice(1) freedll dllh& end
así podría lo en dir auch ir
welche DLL du nehmen musst kann Yo dir no sagen, du kannst sí veces todos DLL su Stick ansehen (con el EDITOR) hay wirst du entonces el entsprechenden Befehle encontrar(en el Regel al Ende el Expediente) oder schick veces todos DLL´s el Yo ellos me ansehen kann, lo währe una Intento wert |
|
|
| |
|
|
|
Web Scanner | Hi Zusammmen,
hier el einzige DLL el lo dazu son: [...]
Gracias
Grüße
Web |
|
|
| |
|
|
|
H.Brill | ¡Hola, Hab como auch veces una Cuestión. Yo como auch así una USB To Seriell Kabel de VIVANCO, el Yo veces testen quería. Desde que todavía una PC con echter COM habe, Tuve veces el Profilic-Treiber installiert. Dieser zeigt me auch en el Sistema COM6: a. Also fix el echte con el USB->Seriell Kabel verbunden. Wenn Yo nun con el echten COM (ellos Code) qué sende, kommt auch alles correcto a. Vertausche Yo nun (f% + f1%) en WriteCom y ReadCom$(), kommt auch qué a, aber scheinbar sólo una leerer String. Mache Yo como qué falso oder ha wer auch ya solche Erfahrung con el VIVANCO-Teil gemacht ? Sieht así de, como hätte el Profilic-Treiber beim Senden una Problema. KompilierenMarcaSeparación $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
End
|
|
|
| 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 | ¡Hola WEB
en el DLL podría Yo nichts encontrar aber vileicht hilft dir el gefunden en Google "usb rd" ================ Dim aComPort$() = TEMPer.Communication.TEMPerInterface.FindDevices() ================ Provided that Alex’s DLL has been linked en, this finds all the USB TEMPer devices and puts their names into a array
In my caso, these are: aComport$(0) = “COM17″ aComport$(1) = “COM18″
These can then be read individually ================ For i = 0 To n Dim 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 it down, for each COM port, “create” a object called “ti” (or “Fred” or “Rumplestiltskin”) if you prefer using: ================ Dim 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, it just works.
The next step is to read the device. This must of course be done for each device. ================ X = ti.ReadTEMP ================ |
|
|
| |
|
|
|
Web Scanner | Hi Detlef,
danke para el Listing, pero yo bin "nur" en Profano geeicht, Yo vengo ehrlich dijo así no wirklich más
Das en Profano a traducir, bekomme Yo no hin, ya wegen el seltsamen Sonderzeichen, Sorry...
Grüße
Web |
|
|
| |
|
|
|
| ¿Puede auch no con klarkommen, el Definition TEMPerInterface fehlt. :/ |
|
|
| |
|
|
|
Web Scanner | Hmmm, entonces gehts así also auch no...
Grüße
Webbi |
|
|
| |
|
|
|
| Also otra vez, el aktive Comport-Nummer des Gerätes es parat? |
|
|
| |
|
|
|
Web Scanner | Jo, Yo ahora veces en el virtuellen Comport No.2 umgestellt. Jetzt bekomme Yo en @Comerror immerhin ya una "284" zurück. Vorher wars ne -1 así podría Yo garnix anfangen.
heisst wohl:
$0200 - En Kommunikation con el parallelen Schnittstelle trat una Timeout en. $0080 - Receive-line-signal-detect-Unterbrechung. $0004 - El Hardware stellte una Parity-Fehler fest
Tja y nun?
Grüße
Web |
|
|
| |
|
|
|
| Yo simplemente no Concepto, son Mist...
Mit Gerät sería Yo wohl con obigen Apis testen, vlt. kommt uno así más. |
|
|
| |
|
|
|
Web Scanner | Yo schick Usted el Thermometer-Dingens gern veces rüber, si magst
Grüße
Web |
|
|
| |
|
|