XProfan

Español

GDL

Peter S. ha gefragt:

Cuestión: Funktioniert esta Schaltung [...]

eigentlich auch todavía con XP-SP3 y XProfan11 ? Wenn sí, fange Yo inmediatamente con el Bau a...

Hi,

con el Win I/O Dll debería lo ir.Nur musst du en PORTADRESSE muy muy VORSICHTIG ser.
El ewigen Jagdgründe el PC Hardwarekommponenten siempre ALLGEGENWÄRTIG entonces.

Servus
Georg

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

[...]

26.10.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

... y sin Optokoppler täte Yo más bien auch nix hacer. Exactamente dafür Es el Schaltung aber tauglich. El WinIO.dll hätte Yo (Yo hoffe, es no el 16-bit-Versión), me fehlt aber una Incluir dazu o. una Funktionsbeschreibung. Sombrero alguien a una Link para mich, tener en el Net nix gefunden...
Gruss, Pájaro carpintero

26.10.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hi,

unabhängig de el Aussenbeschaltung.Einmal ne falsche Portadresse y naja, en me waren lo en el Jahren 2 Graka y 1 Bildschirm.
Pfeift allerdings bastante schön vorher.Schade war sólo, dass el Netzstecker a weit weg war.

Gugge veces después de, Yo todavía finde.Nutze el dll selber nimmer.
Stricke ahora alles en FTDI USB en. Braucht uno sólo el Profaninternen RS232 Befehle, como FTDI nen virtuellen COM Port anlegt y en USB ausgibt.

Apéndice : aber Por favor, con Vorsicht genießen !!
Keine Idea mehr, wo Yo el Codeteile herhatte, aber esta gingen damals.
Kompilieren Marca Separación

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