XProfan

English

GDL

Peter s. has demand:

question: functions these Circuit [...]

really too yet with XP-SP3 and XProfan11 ? if so, catch I immediate with the building on...

Hi,

with the Win I/O Dll ought to it weg.only must You with the PORTADRESSE very very VORSICHTIG his.
The eternal Jagdgründe PC Hardwarekommponenten are always ALLGEGENWÄRTIG then.

Hello
Georg

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

[...]

10/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

... and without Optokoppler täte I rather too nothing make. very for is the Circuit but tauglich. The WinIO.dll had I (I hope, it is not The 16-bit-Version), me missing but a Include moreover or. a Funktionsbeschreibung. has someone to a Link for me, Have in the Net nothing found...
greeting, woodpecker

10/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

Hi,

independent of the Aussenbeschaltung.once ne incorrect Portadresse and naja, by me were it into years 2 Graka and 1 screen.
Pfeift though right beautiful before.Schade was only, that the plug To far away was.

Gugge time to, I yet find.Nutze The dll yourself never.
cords now everything on FTDI USB circa. need one only The Profaninternen RS232 command, there FTDI NEN virtual COM Port anlegt and on USB outputs.

Nachtrag : but Please with caution enjoy !!
in a More, where I The Codeteile herhatte, but these went then.
Compile Mark Separation

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