AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

;test if INI file exist
If Not FileExists("parallelport.ini") Then
    IniWrite("parallelport.ini","PortAddress","PORT","0x378")
    IniWrite("parallelport.ini","DataRegister","DATA","0,0,1,1,1,1,1,1")
    IniWrite("parallelport.ini","ControlRegister","CONTROL","1,1,1,1,1,1,1,1")
EndIf

Dim $StatusRegisterAddress, $ControlRegisterAddress
$DLLFileAndPath = @ScriptDir & "/inpout32.dll"; remove the @ScriptDir & leading backslash if you prefer to keep the DLL in your system directory
$PortAddress = IniRead("parallelport.ini","PortAddress","PORT","")

ChildrenGui();lancement de la fenêtre fille

Func ChildrenGui()
    $Gui= GUICreate("Custom Manual Setup",286,200,-1,-1)
    $Annuler = GUICtrlCreateButton("CANCEL",220,160,60,30)
    $Ok = GUICtrlCreateButton("OK",150,160,40,30)
    GUICtrlCreateLabel("DATA <D0..D7>",90,5,150,30)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Led0 = GUICtrlCreatePic("", 15, 25, 10, 10)
    $Led1 = GUICtrlCreatePic("", 50, 25, 10, 10)
    $Led2 = GUICtrlCreatePic("", 85, 25, 10, 10)
    $Led3 = GUICtrlCreatePic("", 120, 25, 10, 10)
    $Led4 = GUICtrlCreatePic("", 155, 25, 10, 10)
    $Led5 = GUICtrlCreatePic("", 190, 25, 10, 10)
    $Led6 = GUICtrlCreatePic("", 225, 25, 10, 10)
    $Led7 = GUICtrlCreatePic("", 260, 25, 10, 10)
    $b0 = GUICtrlCreateButton("B0",5,40,30,30)
    $b1 = GUICtrlCreateButton("B1",40,40,30,30)
    $b2 = GUICtrlCreateButton("B2",75,40,30,30)
    $b3 = GUICtrlCreateButton("B3",110,40,30,30)
    $b4 = GUICtrlCreateButton("B4",145,40,30,30)
    $b5 = GUICtrlCreateButton("B5",180,40,30,30)
    $b6 = GUICtrlCreateButton("B6",215,40,30,30)
    $b7 = GUICtrlCreateButton("B7",250,40,30,30)
    GUICtrlCreateLabel("CONTROL <C0..C7>",75,80,150,30)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Ledc0 = GUICtrlCreatePic("", 15, 100, 10, 10)
    $Ledc1 = GUICtrlCreatePic("", 50, 100, 10, 10)
    $Ledc2 = GUICtrlCreatePic("", 85, 100, 10, 10)
    $Ledc3 = GUICtrlCreatePic("", 120, 100, 10, 10)
    $Ledc4 = GUICtrlCreatePic("", 155, 100, 10, 10)
    $Ledc5 = GUICtrlCreatePic("", 190, 100, 10, 10)
    $Ledc6 = GUICtrlCreatePic("", 225, 100, 10, 10)
    $Ledc7 = GUICtrlCreatePic("", 260, 100, 10, 10)
    $c0 = GUICtrlCreateButton("B0",5,115,30,30)
    $c1 = GUICtrlCreateButton("B1",40,115,30,30)
    $c2 = GUICtrlCreateButton("B2",75,115,30,30)
    $c3 = GUICtrlCreateButton("B3",110,115,30,30)
    $c4 = GUICtrlCreateButton("B4",145,115,30,30)
    $c5 = GUICtrlCreateButton("B5",180,115,30,30)
    $c6 = GUICtrlCreateButton("B6",215,115,30,30)
    $c7 = GUICtrlCreateButton("B7",250,115,30,30)
    GUISetState(@SW_SHOW)

;Read Data register
$DataRegisterArray = ReadPortStatus($PortAddress)
$dt0 = $DataRegisterArray[0]
$dt1 = $DataRegisterArray[1]
$dt2 = $DataRegisterArray[2]
$dt3 = $DataRegisterArray[3]
$dt4 = $DataRegisterArray[4]
$dt5 = $DataRegisterArray[5]
$dt6 = $DataRegisterArray[6]
$dt7 = $DataRegisterArray[7]

;Read Control register
$ControlRegisterArray = ReadPortStatus($ControlRegisterAddress)
;$ControlRegisterDisplayString = "Control Register @ " & $ControlRegisterAddress & @CRLF & " (BCD = " & $ControlRegisterArray[8] & ")" & @CRLF & "Bit0 = " & $ControlRegisterArray[0] & " (Pin 1, Strobe {Inverted})" & @CRLF & "Bit1 = " & $ControlRegisterArray[1] & " (Pin 14, Linefeed {Inverted})" & @CRLF & "Bit2 = " & $ControlRegisterArray[2] & " (Pin 16, nInitialise)" & @CRLF & "Bit3 = " & $ControlRegisterArray[3] & " (Pin 17, nSelectPrinter {Inverted})" & @CRLF & "Bit4 = " & $ControlRegisterArray[4] & " (No pin)" & @CRLF & "Bit5 = " & $ControlRegisterArray[5] & " (No pin, BiDirectional Mode)" & @CRLF & "Bit6 = " & $ControlRegisterArray[6] & " (No pin)" & @CRLF & "Bit7 = " & $ControlRegisterArray[7] & " (No pin)"

$ct0 = $ControlRegisterArray[0]
$ct1 = $ControlRegisterArray[1]
$ct2 = $ControlRegisterArray[2]
$ct3 = $ControlRegisterArray[3]
$ct4 = $ControlRegisterArray[4]
$ct5 = $ControlRegisterArray[5]
$ct6 = $ControlRegisterArray[6]
$ct7 = $ControlRegisterArray[7]

;set bidirectional flag
if $ControlRegisterArray[5] = 0 Then
    $BiDirectionalCommunication = "Off"
Else
    $BiDirectionalCommunication = "On"
EndIf


While 1 ; Boucle de message (voir la section création d'une GUI pour comprendre le fonctionnement)
    $nMsg = GUIGetMsg()
    Switch $nMsg
;       Case $nMsg = 0
;            ContinueLoop

        Case $GUI_EVENT_CLOSE, $Annuler ; Si la fenêtre est fermée ou si le bouton annulé est cliqué.
            GUIDelete($Gui)

        Case $b0
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[1] = 1 Then
            GUICtrlSetImage($Led0, "Green-on-16.jpg")
            $dt0 = 0
            Else
            GUICtrlSetImage($Led0, "Red-on-16.jpg")
            $dt0 = 1
        EndIf

        Case $b1
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[2] = 1 Then
            GUICtrlSetImage($Led1, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led1, "Red-on-16.jpg")
        EndIf

        Case $b2
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[3] = 1 Then
            GUICtrlSetImage($Led2, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led2, "Red-on-16.jpg")
        EndIf

        Case $b3
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[4] = 1 Then
            GUICtrlSetImage($Led3, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led3, "Red-on-16.jpg")
        EndIf

        Case $b4
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[5] = 1 Then
            GUICtrlSetImage($Led4, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led4, "Red-on-16.jpg")
        EndIf

        Case $b5
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[6] = 1 Then
            GUICtrlSetImage($Led5, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led5, "Red-on-16.jpg")
        EndIf

        Case $b6
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[7] = 1 Then
            GUICtrlSetImage($Led6, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led6, "Red-on-16.jpg")
        EndIf

        Case $b7
            $CustomSettings = IniRead("parallelport.ini","DataRegister","DATA","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[8] = 1 Then
            GUICtrlSetImage($Led7, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Led7, "Red-on-16.jpg")
        EndIf

        Case $c0
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[1] = 1 Then
            GUICtrlSetImage($Ledc0, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc0, "Red-on-16.jpg")
        EndIf

        Case $c1
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[2] = 1 Then
            GUICtrlSetImage($Ledc1, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc1, "Red-on-16.jpg")
        EndIf

        Case $c2
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[3] = 1 Then
            GUICtrlSetImage($Ledc2, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc2, "Red-on-16.jpg")
        EndIf

        Case $c3
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[4] = 1 Then
            GUICtrlSetImage($Ledc3, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc3, "Red-on-16.jpg")
        EndIf

        Case $c4
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[5] = 1 Then
            GUICtrlSetImage($Ledc4, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc4, "Red-on-16.jpg")
        EndIf

        Case $c5
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[6] = 1 Then
            GUICtrlSetImage($Ledc5, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc5, "Red-on-16.jpg")
        EndIf

        Case $c6
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[7] = 1 Then
            GUICtrlSetImage($Ledc6, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc6, "Red-on-16.jpg")
        EndIf

        Case $c7
            $CustomSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
            $BitArray = StringSplit($CustomSettings, ",")
            If  $BitArray[8] = 1 Then
            GUICtrlSetImage($Ledc7, "Green-on-16.jpg")
            Else
            GUICtrlSetImage($Ledc7, "Red-on-16.jpg")
        EndIf

        Case $Ok
            $CustomSettings = InputBox("Custom Bit Settings", "Enter data bit settings required" & @CRLF & @CRLF & "Bits are in order, Bit0 -> Bit 7" & @CRLF & @CRLF & "Enter values as 0 (Low) or 1 (High)", IniRead("parallelport.ini","DataRegister","DATA",""))
            $BitArray = StringSplit($CustomSettings, ",")
            SetLPTPortPins($PortAddress, $BitArray[1], $BitArray[2], $BitArray[3], $BitArray[4], $BitArray[5], $BitArray[6], $BitArray[7], $BitArray[8])
;           IniWrite("parallelport.ini","DataRegister","DATA",$CustomSettings)
;           IniWrite("parallelport.ini","DataRegister","DATA",$8datas)
;           IniWrite("parallelport.ini","ControlRegister","CONTROL",$8controls)

    EndSwitch
WEnd
EndFunc

Func ReadPortStatus($ReadAddress)
;Read the port register (returns a BCD value)
    $CurrentPortStatusArray = DllCall($DLLFileAndPath, "int", "Inp32", "int", $ReadAddress)
    $StatusToDecode = $CurrentPortStatusArray[0]
;convert to bit status & store in array
    Dim $BitsReadArray[9]; [0] -> [7] the decoded bits, [8] the raw BCD value
    $BitsReadArray[8] = $CurrentPortStatusArray[0]
    $CurrentBitValue = 128
    For $BitCounter = 7 To 0 Step - 1
        If $StatusToDecode >= $CurrentBitValue Then
            $BitsReadArray[$BitCounter] = 1
            $StatusToDecode = $StatusToDecode - $CurrentBitValue
        Else
            $BitsReadArray[$BitCounter] = 0
        EndIf
        $CurrentBitValue = $CurrentBitValue / 2
    Next
;test if good decode obtained
    If $StatusToDecode <> 0 Then
        MsgBox(0, "Decoding error", "Error in decoding port '" & $PortAddress & "' register '" & $ReadAddress & " status '" & $CurrentPortStatusArray[0] & "' to bits.  Do not rely on the results.")
    EndIf

    Return $BitsReadArray
EndFunc  ;==>ReadPortStatus

Func CalculateRegisterAddresses($BaseAddress)
;check for correct hex prefix
    If Not (StringLeft($BaseAddress, 2) = "0x" Or StringLeft($BaseAddress, 2) = "0X") Then
        MsgBox(0, "Invalid Hex Notation", "The port address  " & $BaseAddress & "' entered was not in valid Hexadecimal notation.  It must start with '0x'")
        Exit
    EndIf
;check for valid hex characters in suffix
    If StringIsXDigit(StringTrimLeft($BaseAddress, 2)) = 0 Then
        MsgBox(0, "Invalid Hex Notation", "The port address  " & $BaseAddress & "' entered was not in valid Hexadecimal notation.  The characters after the '0x' must be only 0-9 and A-F")
        Exit
    EndIf
;calculate status register address
;Msgbox (0,"Debug","$BaseAddress = "& $BaseAddress & @CRLF & "StringTrimLeft($BaseAddress, 2) = " & StringTrimLeft($BaseAddress, 2) & @CRLF & "Dec(StringTrimLeft($BaseAddress, 2)) = " & Dec(StringTrimLeft($BaseAddress, 2)) & @CRLF & "Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 1) = " & Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 1))
    $RawHex = Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 1)
;trim leading zeros
    While 1
        If StringLeft($RawHex, 1) = "0" Then
            $RawHex = StringTrimLeft($RawHex, 1)
        Else
            ExitLoop
        EndIf
    WEnd
    $StatusRegisterAddress = "0x" & $RawHex
;calculate control register address
    $RawHex = Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 2)
;trim leading zeros
    While 1
        If StringLeft($RawHex, 1) = "0" Then
            $RawHex = StringTrimLeft($RawHex, 1)
        Else
            ExitLoop
        EndIf
    WEnd
    $ControlRegisterAddress = "0x" & $RawHex

EndFunc  ;==>CalculateRegisterAddresses

;Functions -> where the action happens!
Func SetLPTPortPins($WriteAddress, $Bit0, $Bit1, $Bit2, $Bit3, $Bit4, $Bit5, $Bit6, $Bit7)
;Convert bits to BCD
    $BCD = 0
    If $Bit0 = 1 Then $BCD = $BCD + 1
    If $Bit1 = 1 Then $BCD = $BCD + 2
    If $Bit2 = 1 Then $BCD = $BCD + 4
    If $Bit3 = 1 Then $BCD = $BCD + 8
    If $Bit4 = 1 Then $BCD = $BCD + 16
    If $Bit5 = 1 Then $BCD = $BCD + 32
    If $Bit6 = 1 Then $BCD = $BCD + 64
    If $Bit7 = 1 Then $BCD = $BCD + 128
;pass the call to inpout32.dll
    DllCall( $DLLFileAndPath, "int", "Out32", "int", $WriteAddress, "int", $BCD)
EndFunc  ;==>SetLPTPortPins

Code : Tout sélectionner

;Read Data register
$DataRegisterArray = ReadPortStatus($PortAddress)
$dt0 = $DataRegisterArray[0]
$dt1 = $DataRegisterArray[1]
$dt2 = $DataRegisterArray[2]
$dt3 = $DataRegisterArray[3]
$dt4 = $DataRegisterArray[4]
$dt5 = $DataRegisterArray[5]
$dt6 = $DataRegisterArray[6]
$dt7 = $DataRegisterArray[7]

;Read Control register
$ControlRegisterArray = ReadPortStatus($ControlRegisterAddress)
;$ControlRegisterDisplayString = "Control Register @ " & $ControlRegisterAddress & @CRLF & " (BCD = " & $ControlRegisterArray[8] & ")" & @CRLF & "Bit0 = " & $ControlRegisterArray[0] & " (Pin 1, Strobe {Inverted})" & @CRLF & "Bit1 = " & $ControlRegisterArray[1] & " (Pin 14, Linefeed {Inverted})" & @CRLF & "Bit2 = " & $ControlRegisterArray[2] & " (Pin 16, nInitialise)" & @CRLF & "Bit3 = " & $ControlRegisterArray[3] & " (Pin 17, nSelectPrinter {Inverted})" & @CRLF & "Bit4 = " & $ControlRegisterArray[4] & " (No pin)" & @CRLF & "Bit5 = " & $ControlRegisterArray[5] & " (No pin, BiDirectional Mode)" & @CRLF & "Bit6 = " & $ControlRegisterArray[6] & " (No pin)" & @CRLF & "Bit7 = " & $ControlRegisterArray[7] & " (No pin)"

$ct0 = $ControlRegisterArray[0]
$ct1 = $ControlRegisterArray[1]
$ct2 = $ControlRegisterArray[2]
$ct3 = $ControlRegisterArray[3]
$ct4 = $ControlRegisterArray[4]
$ct5 = $ControlRegisterArray[5]
$ct6 = $ControlRegisterArray[6]
$ct7 = $ControlRegisterArray[7]

Code : Tout sélectionner

$CustomDataSettings = IniRead("parallelport.ini","DataRegister","DATA","")
$BitArrayD = StringSplit($CustomDataSettings, ",")
$dt0 = $BitArrayD[0]
    If $dt0 = 1 Then
        GUICtrlSetImage($Led0, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led0, "Red-on-16.jpg")
    EndIf
$dt1 = $BitArrayD[1]
    If $dt1 = 1 Then
        GUICtrlSetImage($Led1, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led1, "Red-on-16.jpg")
    EndIf
$dt2 = $BitArrayD[2]
    If $dt2 = 1 Then
        GUICtrlSetImage($Led2, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led2, "Red-on-16.jpg")
    EndIf
$dt3 = $BitArrayD[3]
    If $dt3 = 1 Then
        GUICtrlSetImage($Led3, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led3, "Red-on-16.jpg")
    EndIf
$dt4 = $BitArrayD[4]
    If $dt4 = 1 Then
        GUICtrlSetImage($Led4, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led4, "Red-on-16.jpg")
    EndIf
$dt5 = $BitArrayD[5]
    If $dt5 = 1 Then
        GUICtrlSetImage($Led5, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led5, "Red-on-16.jpg")
    EndIf
$dt6 = $BitArrayD[6]
    If $dt6 = 1 Then
        GUICtrlSetImage($Led6, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led6, "Red-on-16.jpg")
    EndIf
$dt7 = $BitArrayD[7]
    If $dt7 = 1 Then
        GUICtrlSetImage($Led7, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Led7, "Red-on-16.jpg")
    EndIf


;Read Control register
$CustomControlSettings = IniRead("parallelport.ini","ControlRegister","CONTROL","")
$BitArrayC = StringSplit($CustomControlSettings, ",")
$ct0 = $BitArrayC[0]
    If $ct0 = 1 Then
        GUICtrlSetImage($Ledc0, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc0, "Red-on-16.jpg")
    EndIf
$ct1 = $BitArrayC[1]
    If $ct1 = 1 Then
        GUICtrlSetImage($Ledc1, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc1, "Red-on-16.jpg")
    EndIf
$ct2 = $BitArrayC[2]
    If $ct2 = 1 Then
        GUICtrlSetImage($Ledc2, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc2, "Red-on-16.jpg")
    EndIf
$ct3 = $BitArrayC[3]
    If $ct3 = 1 Then
        GUICtrlSetImage($Ledc3, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc3, "Red-on-16.jpg")
    EndIf
$ct4 = $BitArrayC[4]
    If $ct4 = 1 Then
        GUICtrlSetImage($Ledc4, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc4, "Red-on-16.jpg")
    EndIf
$ct5 = $BitArrayC[5]
    If $ct5 = 1 Then
        GUICtrlSetImage($Ledc5, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc5, "Red-on-16.jpg")
    EndIf
$ct6 = $BitArrayC[6]
    If $ct6 = 1 Then
        GUICtrlSetImage($Ledc6, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc6, "Red-on-16.jpg")
    EndIf
$ct7 = $BitArrayC[7]
    If $ct7 = 1 Then
        GUICtrlSetImage($Ledc7, "Green-on-16.jpg")
    Else
        GUICtrlSetImage($Ledc7, "Red-on-16.jpg")
    EndIf

Code : Tout sélectionner

;Read Data register
$CustomDataSettings = IniRead("parallelport.ini", "DataRegister", "DATA", "")
_SetState(StringSplit($CustomDataSettings, ","))

;Read Control register
$CustomControlSettings = IniRead("parallelport.ini", "ControlRegister", "CONTROL", "")
_SetState(StringSplit($CustomControlSettings, ","))

Func _SetState($aBitArray)
    For $i = 0 To $aBitArray[0]
        If $aBitArray[$i] = 1 Then
            GUICtrlSetImage(Eval('Led' & $i), "Green-on-16.jpg")
        Else
            GUICtrlSetImage(Eval('Led' & $i), "Red-on-16.jpg")
        EndIf
    Next
EndFunc   ;==>_SetState

Code : Tout sélectionner

#include <array.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>


$DLLFileAndPath = @ScriptDir & "/inpout32.dll"; remove the @ScriptDir & leading backslash if you prefer to keep the DLL in your system directory
Dim $StatusRegisterAddress, $ControlRegisterAddress
Dim $DataRegisterArray, $ControlRegisterArray
Dim $On = "Green-on-16.jpg", $Off = "Red-on-16.jpg"
Dim $PortAddress = "0x378"
CalculateRegisterAddresses($PortAddress)

$Gui = GUICreate("Custom Manual Setup", 286, 200, -1, -1)
$Annuler = GUICtrlCreateButton("CANCEL", 220, 160, 60, 30)
$Ok = GUICtrlCreateButton("OK", 150, 160, 40, 30)
GUICtrlCreateLabel("DATA <D0..D7>", 90, 5, 150, 30)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Led0 = GUICtrlCreatePic("", 15, 25, 10, 10)
$Led1 = GUICtrlCreatePic("", 50, 25, 10, 10)
$Led2 = GUICtrlCreatePic("", 85, 25, 10, 10)
$Led3 = GUICtrlCreatePic("", 120, 25, 10, 10)
$Led4 = GUICtrlCreatePic("", 155, 25, 10, 10)
$Led5 = GUICtrlCreatePic("", 190, 25, 10, 10)
$Led6 = GUICtrlCreatePic("", 225, 25, 10, 10)
$Led7 = GUICtrlCreatePic("", 260, 25, 10, 10)
$b0 = GUICtrlCreateButton("B0", 5, 40, 30, 30)
$b1 = GUICtrlCreateButton("B1", 40, 40, 30, 30)
$b2 = GUICtrlCreateButton("B2", 75, 40, 30, 30)
$b3 = GUICtrlCreateButton("B3", 110, 40, 30, 30)
$b4 = GUICtrlCreateButton("B4", 145, 40, 30, 30)
$b5 = GUICtrlCreateButton("B5", 180, 40, 30, 30)
$b6 = GUICtrlCreateButton("B6", 215, 40, 30, 30)
$b7 = GUICtrlCreateButton("B7", 250, 40, 30, 30)
GUICtrlCreateLabel("CONTROL <C0..C7>", 75, 80, 150, 30)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Ledc0 = GUICtrlCreatePic("", 15, 100, 10, 10)
$Ledc1 = GUICtrlCreatePic("", 50, 100, 10, 10)
$Ledc2 = GUICtrlCreatePic("", 85, 100, 10, 10)
$Ledc3 = GUICtrlCreatePic("", 120, 100, 10, 10)
$Ledc4 = GUICtrlCreatePic("", 155, 100, 10, 10)
$Ledc5 = GUICtrlCreatePic("", 190, 100, 10, 10)
$Ledc6 = GUICtrlCreatePic("", 225, 100, 10, 10)
$Ledc7 = GUICtrlCreatePic("", 260, 100, 10, 10)
$c0 = GUICtrlCreateButton("B0", 5, 115, 30, 30)
$c1 = GUICtrlCreateButton("B1", 40, 115, 30, 30)
$c2 = GUICtrlCreateButton("B2", 75, 115, 30, 30)
$c3 = GUICtrlCreateButton("B3", 110, 115, 30, 30)
$c4 = GUICtrlCreateButton("B4", 145, 115, 30, 30)
$c5 = GUICtrlCreateButton("B5", 180, 115, 30, 30)
$c6 = GUICtrlCreateButton("B6", 215, 115, 30, 30)
$c7 = GUICtrlCreateButton("B7", 250, 115, 30, 30)
GUISetState(@SW_SHOW)

Global $dt0, $dt1, $dt2, $dt3, $dt4, $dt5, $dt6, $dt7
Global $ct0, $ct1, $ct2, $ct3, $ct4, $ct5, $ct6, $ct7
; Data register
$DataRegisterArray = ReadPortStatus($PortAddress)
$dt0 = $DataRegisterArray[0]
$dt1 = $DataRegisterArray[1]
$dt2 = $DataRegisterArray[2]
$dt3 = $DataRegisterArray[3]
$dt4 = $DataRegisterArray[4]
$dt5 = $DataRegisterArray[5]
$dt6 = $DataRegisterArray[6]
$dt7 = $DataRegisterArray[7]

;Read Control register
$ControlRegisterArray = ReadPortStatus($ControlRegisterAddress)
$ct0 = $ControlRegisterArray[0]
$ct1 = $ControlRegisterArray[1]
$ct2 = $ControlRegisterArray[2]
$ct3 = $ControlRegisterArray[3]
$ct4 = $ControlRegisterArray[4]
$ct5 = $ControlRegisterArray[5]
$ct6 = $ControlRegisterArray[6]
$ct7 = $ControlRegisterArray[7]

_SetState()

;set bidirectional flag
If $ControlRegisterArray[5] = 0 Then
    $BiDirectionalCommunication = "Off"
Else
    $BiDirectionalCommunication = "On"
EndIf

While 1 ; Boucle de message (voir la section création d'une GUI pour comprendre le fonctionnement)
    $nMsg = GUIGetMsg()
    Switch $nMsg

        Case $GUI_EVENT_CLOSE, $Annuler ; Si la fenêtre est fermée ou si le bouton annulé est cliqué.
            Exit

        Case $b0
            $dt0 = Number(Not($dt0))
            _SetState()

        Case $b1
            $dt1 = Number(Not($dt1))
            _SetState()

        Case $b2
            $dt2 = Number(Not($dt2))
            _SetState()

        Case $b3
            $dt3 = Number(Not($dt3))
            _SetState()

        Case $b4
            $dt4 = Number(Not($dt4))
            _SetState()

        Case $b5
            $dt5 = Number(Not($dt5))
            _SetState()

        Case $b6
            $dt6 = Number(Not($dt6))
            _SetState()

        Case $b7
            $dt7 = Number(Not($dt7))
            _SetState()

        Case $c0
            $ct0 = Number(Not($ct0))
            _SetState()

        Case $c1
            $ct1 = Number(Not($ct1))
            _SetState()

        Case $c2
            $ct2 = Number(Not($ct2))
            _SetState()

        Case $c3
            $ct3 = Number(Not($ct3))
            _SetState()

        Case $c4
            $ct4 = Number(Not($ct4))
            _SetState()

        Case $c5
            $ct5 = Number(Not($ct5))
            _SetState()

        Case $c6
            $ct6 = Number(Not($ct6))
            _SetState()

        Case $c7
            $ct7 = Number(Not($ct7))
            _SetState()

        Case $Ok
            $CustomSettings = InputBox("Custom Bit Settings", "Enter data bit settings required" & @CRLF & @CRLF & "Bits are in order, Bit0 -> Bit 7" & @CRLF & @CRLF & "Enter values as 0 (Low) or 1 (High)", $dt0 & ',' & $dt1 & ',' & $dt2 & ',' & $dt3 & ',' & $dt4 & ',' & $dt5 & ',' & $dt6 & ',' & $dt7)
            If $CustomSettings <> "" Then
                $BitArray = StringSplit($CustomSettings, ",")
                SetLPTPortPins($PortAddress, $BitArray[1], $BitArray[2], $BitArray[3], $BitArray[4], $BitArray[5], $BitArray[6], $BitArray[7], $BitArray[8])
            EndIf
    EndSwitch
WEnd

Func ReadPortStatus($ReadAddress)
    ;Read the port register (returns a BCD value)
    $CurrentPortStatusArray = DllCall($DLLFileAndPath, "int", "Inp32", "int", $ReadAddress)
    $StatusToDecode = $CurrentPortStatusArray[0]
    ;convert to bit status & store in array
    Dim $BitsReadArray[9]; [0] -> [7] the decoded bits, [8] the raw BCD value
    $BitsReadArray[8] = $CurrentPortStatusArray[0]
    $CurrentBitValue = 128
    For $BitCounter = 7 To 0 Step -1
        If $StatusToDecode >= $CurrentBitValue Then
            $BitsReadArray[$BitCounter] = 1
            $StatusToDecode = $StatusToDecode - $CurrentBitValue
        Else
            $BitsReadArray[$BitCounter] = 0
        EndIf
        $CurrentBitValue = $CurrentBitValue / 2
    Next
    ;test if good decode obtained
    If $StatusToDecode <> 0 Then
        MsgBox(0, "Decoding error", "Error in decoding port '" & $PortAddress & "' register '" & $ReadAddress & " status '" & $CurrentPortStatusArray[0] & "' to bits.  Do not rely on the results.")
    EndIf

    Return $BitsReadArray
EndFunc   ;==>ReadPortStatus

Func CalculateRegisterAddresses($BaseAddress)
    ;check for correct hex prefix
    If Not (StringLeft($BaseAddress, 2) = "0x" Or StringLeft($BaseAddress, 2) = "0X") Then
        MsgBox(0, "Invalid Hex Notation", "The port address  " & $BaseAddress & "' entered was not in valid Hexadecimal notation.  It must start with '0x'")
        Exit
    EndIf
    ;check for valid hex characters in suffix
    If StringIsXDigit(StringTrimLeft($BaseAddress, 2)) = 0 Then
        MsgBox(0, "Invalid Hex Notation", "The port address  " & $BaseAddress & "' entered was not in valid Hexadecimal notation.  The characters after the '0x' must be only 0-9 and A-F")
        Exit
    EndIf
    ;calculate status register address
    ;Msgbox (0,"Debug","$BaseAddress = "& $BaseAddress & @CRLF & "StringTrimLeft($BaseAddress, 2) = " & StringTrimLeft($BaseAddress, 2) & @CRLF & "Dec(StringTrimLeft($BaseAddress, 2)) = " & Dec(StringTrimLeft($BaseAddress, 2)) & @CRLF & "Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 1) = " & Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 1))
    $RawHex = Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 1)
    ;trim leading zeros
    While 1
        If StringLeft($RawHex, 1) = "0" Then
            $RawHex = StringTrimLeft($RawHex, 1)
        Else
            ExitLoop
        EndIf
    WEnd
    $StatusRegisterAddress = "0x" & $RawHex
    ;calculate control register address
    $RawHex = Hex(Dec(StringTrimLeft($BaseAddress, 2)) + 2)
    ;trim leading zeros
    While 1
        If StringLeft($RawHex, 1) = "0" Then
            $RawHex = StringTrimLeft($RawHex, 1)
        Else
            ExitLoop
        EndIf
    WEnd
    $ControlRegisterAddress = "0x" & $RawHex

EndFunc   ;==>CalculateRegisterAddresses

;Functions -> where the action happens!
Func SetLPTPortPins($WriteAddress, $Bit0, $Bit1, $Bit2, $Bit3, $Bit4, $Bit5, $Bit6, $Bit7)
    ;Convert bits to BCD
    $BCD = 0
    If $Bit0 = 1 Then $BCD = $BCD + 1
    If $Bit1 = 1 Then $BCD = $BCD + 2
    If $Bit2 = 1 Then $BCD = $BCD + 4
    If $Bit3 = 1 Then $BCD = $BCD + 8
    If $Bit4 = 1 Then $BCD = $BCD + 16
    If $Bit5 = 1 Then $BCD = $BCD + 32
    If $Bit6 = 1 Then $BCD = $BCD + 64
    If $Bit7 = 1 Then $BCD = $BCD + 128
    ;pass the call to inpout32.dll
    DllCall($DLLFileAndPath, "int", "Out32", "int", $WriteAddress, "int", $BCD)
EndFunc   ;==>SetLPTPortPins

Func _SetState()
        For $i = 0 To 7
            If Eval('dt' & $i) = 1 Then
                GUICtrlSetImage(Eval('led' & $i), $On)
            Else
                GUICtrlSetImage(Eval('led' & $i), $Off)
            EndIf
        Next
        For $i = 0 To 7
            If Eval('ct' & $i) = 1 Then
                GUICtrlSetImage(Eval('ledc' & $i), $On)
            Else
                GUICtrlSetImage(Eval('ledc' & $i), $Off)
            EndIf
        Next
EndFunc   ;==>_SetState

Code : Tout sélectionner

        Case $Ok
            $CustomDataSettings =  $dt0 & ',' & $dt1 & ',' & $dt2 & ',' & $dt3 & ',' & $dt4 & ',' & $dt5 & ',' & $dt6 & ',' & $dt7
            If $CustomDataSettings <> "" Then
                $BitArray = StringSplit($CustomDataSettings, ",")
                SetLPTPortPins($PortAddress, $BitArray[1], $BitArray[2], $BitArray[3], $BitArray[4], $BitArray[5], $BitArray[6], $BitArray[7], $BitArray[8])
                IniWrite("parallelport.ini","DataRegister","DATA",$CustomDataSettings)
            EndIf
            $CustomControlSettings =  $ct0 & ',' & $ct1 & ',' & $ct2 & ',' & $ct3 & ',' & $ct4 & ',' & $ct5 & ',' & $ct6 & ',' & $ct7
            If $CustomControlSettings <> "" Then
                $BitArray = StringSplit($CustomControlSettings, ",")
                SetLPTPortPins($ControlRegisterAddress, $BitArray[1], $BitArray[2], $BitArray[3], $BitArray[4], $BitArray[5], $BitArray[6], $BitArray[7], $BitArray[8])
                IniWrite("parallelport.ini","ControlRegister","CONTROL",$CustomControlSettings)
            EndIf