XProfan

Deutsch

GDL

Peter S. hat gefragt:

Frage: Funktioniert diese Schaltung [...]

eigentlich auch noch mit XP-SP3 und XProfan11 ? Wenn ja, fange ich sofort mit dem Bau an...

Hi,

mit der Win I/O Dll sollte es gehen.Nur musst du bei der PORTADRESSE sehr sehr VORSICHTIG sein.
Die ewigen Jagdgründe der PC Hardwarekommponenten sind immer ALLGEGENWÄRTIG dann.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

26.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

... und ohne Optokoppler täte ich lieber auch nix machen. Genau dafür ist die Schaltung aber tauglich. Die WinIO.dll hätte ich (ich hoffe, es ist nicht die 16-bit-Version), mir fehlt aber eine Include dazu bzw. eine Funktionsbeschreibung. Hat jemand dazu ein Link für mich, hab im Net nix gefunden...
Gruss, Specht

26.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

GDL

Hi,

unabhängig von der Aussenbeschaltung.Einmal ne falsche Portadresse und naja, bei mir waren es in den Jahren 2 Graka und 1 Bildschirm.
Pfeift allerdings recht schön vorher.Schade war nur, dass der Netzstecker zu weit weg war.

Gugge mal nach, was ich noch finde.Nutze die dll selber nimmer.
Stricke jetzt alles auf FTDI USB um. Braucht man nur die Profaninternen RS232 Befehle, da FTDI nen virtuellen COM Port anlegt und auf USB ausgibt.

Nachtrag : aber bitte mit Vorsicht genießen !!
Keine Ahnung mehr, wo ich die Codeteile herhatte, aber diese gingen damals.
Kompilieren Markieren Separieren

def InitIO(0) !"winio.dll","InitializeWinIo"
def FreeIO(0) !"winio.dll","ShutdownWinIo"
def GetPort(3) !"winio.dll","GetPortVal"
def SetPort(3) !"winio.dll","SetPortVal"
declare dll&,ioBuffer#,wert&
dll& = UseDLL("winio.dll")
cls

proc ioINP

    parameters adr&
    declare byte&, v&
    dim ioBuffer#,4
    v& = GetPort(adr&,ioBuffer#,1)
    byte& = byte(ioBuffer#,0)
    dispose ioBuffer#
    Return byte&

endproc

proc ioOut

    parameters adr&,Bits&
    SetPort(adr&,Bits&,1)

endproc

If initIO() <> 1

    messageBox("Konnte Treiber nit Instalieren !!!","Fehler bei Init",48)
    FreeIo()
    end

endif

Anwendung:
auf Adresse schreiben:  ioOut adresse, bits    /bsp:  ioOut 888,7
von Adresse lesen    :  ioInp adresse          /bsp:  ioInp 889
unter Profan 7.5 kann auch zum lesen die Procedurer als Funktion
angesprochen erden.
wert& = ioImp(adresse)
wert&=ioinp($0300)
print wert&
waitinput