| |
| |
|
| - 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 3 - |
|
|
Web
Scanner | DLL avec Doku ist pas dabei..malheureusement.
So siehts installiert aus:
 |
|
| |
| |
| |
|
|
 | | Na qui 169KBer sieht doch Schonmal bien aus, exposition doch la fois rein - unten stehen souvent juste Exportnamen et schalt la fois dans Deinen Explorereinstellungen [X] bekannte Extensionen ausblenden ab - sieht on oui sonst nüscht. ^ ^ |
|
| |
| |
| |
|
|
Web
Scanner | im 169il steht unten cela drin:
E:xiaosongRDingHidHidFTDllDebugHidFTDll.pdb
Hilft cela 
maintenant hab je aussi encore cela trouvé: [...]
avec RS232 Ausgabe..... wäre wohl einfacher, quoi 
 |
|
| |
| |
| |
|
|
|
uses le communicating protocol and supports le RS232 4800bps standard, and this supplies convenience to le users who want to write programs themselves.
Na oui c'est ca, qui Treiber wird nen (virtuellen) COM-Port bereitstellen, alors OpenCom . |
|
| |
| |
| |
|
|
Web
Scanner | gibts seulement un aucun Problem, je hab NICHT den RS232 Typen ici liegen 
Spassenshalber habe je qui Software pour den RS232 Stick runtergeladen,
mais avec cela fonctionne mon Stick naturellement pas.
Gibt es chez USB offensichtlich différent Anbindungen:
1 x sur den Comport = RS232
1 x USB irgendwie anders
Werde alors besser versuchen cela RS232 Dingens trop bekommen?
ou bien wir trouver encore ne autre Solution.
je vois oui pas la fois sur welchem Comport je chercher sollte?
Gibst là ev. ne Auswertesoftware, ou bien quelque chose comme? |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
GDL | oui c'est ca cela mon je avec canal ermitteln.
cela sollte aussi avec XProfan aller et pas seulement sur den Gerätemanager.
je weis aussi pas comment qui mitgelieferten Software qui Kanäle ermitteln à quel COM numéro eh bien son Gerät liegt.sur alle Fälle findet qui mitgelieferte Software son Gerät sans cela qui Anwender Einstellungen faire muss,égal quel canal justement vergeben wurde.Irgendwie gibt es une Windowsinterne Übergabe.
- Gerätetreiber wird beim Anstecken à USB geladen
- Windows erkennt Hardware et teilt nächst freien USB canal trop. alors 4 si déjà 3 USB belegt sommes ou bien 2 si seulement 1 USB belegt ist
- Gerätetreiber richtet avec diesem canal virtuellen Port un
- Windows stellt Anwenderprogrammen den virtuellen Port einschliesslich canal et Kennung trop la disposition.
comment greife je eh bien avec XProfan sur alle virtuellen Port avec Namen(liefert Treiber) et Kanalnummer(liefert Fenêtre) trop et cherche meinen Port heraus.sans dass qui Anwender seulement sa Portnummer am Programmstart irgendwo chercher muss ? |
|
| |
| |
| |
|
|
| Comports listen, je n'en sais rien - devrait on vlt. ergoogeln. ^ ^ ici stehen déjà un paire Befehle: [...]
Internally le code provides 9 different ways (yes you read that right: Nine) of enumerating serial ports: Using CreateFile, QueryDosDevice, GetDefaultCommConfig, two ways using le Setup API, EnumPorts, WMI, Com Database & enumerating le values under le registry clé HKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM.
et ici: [...] |
|
| |
| |
| |
|
|
GDL | Hi,
maintenant sommes wir à dem Punkt, wohin je mir déjà plus dessus directe USB Unterstützung wünschte.
Den virtuellen Namen kenne je oui vom Treiber her.
Würde mir quelque chose comme présenter : canal%=find$(Portname$)
salut
Georg |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Detlef
Tussing | j'ai sous XProfan aussi avec USB experimentiert.
Habe cependant une DLL bekommen um 8 Aus et 2 Eingangskanäle trop steuern.
je vermute chez deiner Software ist une versteckte DLL
tiens comment je qui carte anspreche
declare a%,b%,c%,d%,e%
a%=0 Kartenadresse
b%=2Digitalkanaleingang
c%=1Analogkanaleingang
d%=3Digitalkanalausgang
e%=2Analogkanalausgang
def opendevice(1) !"k8055d.dll","OpenDevice"
def closedevice(0) !"k8055d.dll","CloseDevice"
def readdigi(1) !"k8055d.dll","ReadDigitalChannel"
def readanalog(1) !"k8055d.dll","ReadAnalogChannel"
def ClearAllDigital(0) !"K8055d.dll","ClearAllDigital"
def setdigi(1) !"K8055d.dll","SetDigitalChannel"
def analogout(1) !"K8055d.dll","SetAnalogChannel"
def clearallanalog(0) !"K8055d.dll","ClearAllAnalog"
declare dllh&
dllh&=usedll("k8055d.dll")
ifnot dllh&
messagebox "dll pas geladen error",»,0
end
endif
declare kartenadresse&,readdigi&,schreibdigi&,readanalog&,schreibanalog&
kartenadresse&=opendevice(a%)initialisation qui carte
tandis que readanalog&<125
readanalog&=readanalog(c%)
locate 10,10
imprimer "Analogkanaleingang",c%," = ",readanalog&
readdigi&=readdigi(b%)
locate 14,10
imprimer "Digitalkanaleinganggang",b%," = ",readdigi&
schreibdigi&=setdigi(d%)
locate 18,10
imprimer "Digitalkanalausgang",d%," = ",schreibdigi&
locate 22,10
imprimer "Kartenadresse:",kartenadresse&
waitinput
schreibanalog&=analogout(e%)
endwhile
waitinput
clearalldigital()
clearallanalog()
closedevice()
freedll dllh&
end
ca ist seulement un Testprogramm pour qui USB-carte.
sûrement wäre es joli une direkten zugriff de XProfan sur USB trop avons. |
|
| |
| |
| |
|
|
Frank
Abbing | | exposition la fois ici: [...] |
|
| |
| |
| |
|
(1.117)
Deutsch
English
Français
Español
Italia
