XProfan

Français

GDL

Peter S. hat gefragt:

Frage: Funktioniert cet Schaltung [...]

eigentlich aussi encore avec XP-SP3 et XProfan11 ? si oui, fange je tout de suite avec dem Bau à...

Hi,

avec qui Win I/O Dll sollte es aller.seulement musst du chez qui PORTADRESSE très très VORSICHTIG son.
qui ewigen Jagdgründe qui PC Hardwarekommponenten sommes toujours ALLGEGENWÄRTIG ensuite.

salut
Georg

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

[...]

26.10.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

... et sans Optokoppler täte je lieber aussi nix faire. oui c'est ca pour ist qui Schaltung mais tauglich. qui WinIO.dll hätte je (je hoffe, c'est pas qui 16-bit-Version), mir fehlt mais une Include en supplément bzw. une Funktionsbeschreibung. Hat quelqu'un en supplément un Link pour mich, hab im Net nix trouvé...
Gruss, Specht

26.10.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

GDL

Hi,

indépendant de qui Aussenbeschaltung.Einmal ne falsche Portadresse et bof, chez mir étions es dans den Jahren 2 Graka et 1 Bildschirm.
Pfeift allerdings droite joli auparavant.tant pis était seulement, dass qui Netzstecker trop large weg était.

Gugge la fois pour, quoi je encore finde.Nutze qui dll selber nimmer.
Stricke maintenant alles sur FTDI USB um. Braucht on seulement qui Profaninternen RS232 Befehle, là FTDI nen virtuellen COM Port anlegt et sur USB ausgibt.

Nachtrag : mais s'il te plaît avec attention genießen !!
je n'en sais rien plus, wohin je qui Codeteile herhatte, mais cet gingen autrefois.
Kompilieren Marque Séparation

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