Syxguns

Adding Folders and Images

4 posts in this topic

First I would like to thank all of the great programmers here on the AutoIt forums.  Your examples are extremely helpful because sometimes the help files don't give quite enough information.

My problem is I just finished a program and wanted to compile it so I could let a few friends have a copy of it for beta testing.  I've searched the forums, and there just doesn't seem to be enough information that I fully understand.  The help files are also of little use if you are not 100% sure what you are searching for.

What I would like to do:

  • I want the compiled program to have an install, so that I can tell it where the program is to be located on the user computer.
  • I would like to include folders that contain images and or other files that are in the program such as an INI.

I am pretty new to programming, but did my best to keep the code clean as well as documented.  I maybe didn't need to insert the entire code which is over 800 lines of code, but if you want to see how it works It's now available.  Well, the code is  There are 6 images not included.

#cs

    ======================================================================================================================

    Built with Autoit v3.6.0

    Program Name: Swing Calculator WGT
    Version v0.0.0.2 Beta
    Design Date: March 20, 2016

    Author: Larry Whaley
    Company: Integral Dezign

    Contributions: AutoIt Forums, and all of the great post by so many talented programers!


    Program Overview:
    This program is to only be used to help you figure out shot distance on WGT.  All formulas are free for download
    and available in the ABOUT page on the website.  Use the Unknown feature when you find yourself coming up short or
    long.  More information will be available soon.
    ============================================================================================================================

#ce

;  For some reason even though my script is saved in the "To Work With Folder" @ScriptDir, and @WorkingDir do not work! I've got to use full path.
;  Trying to include images in my exe after compile, but can't seem to get it to work.  Need HELP!!
Local $aFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\cross_dn_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $bFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\cross_up_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $cFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\dn_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $dFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\side_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $eFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\up_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $fFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\Golf_flag.ico", "c:\Program Files (86)\Swing Bot Calc\images", 1)



#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>



Global $Form1 = GUICreate("Distance Calculator WGT", 533, 460, 579, 488)
GUISetIcon("c:\AutoIt3 Test Programs\To Work With\swing calculator\images\Golf_flag.ico", -1)

;~ Create Group for radio buttons wind direction
Global $WRadioGroup = GUICtrlCreateGroup("", 77, 60, 55, 165)

;~ Picture that reads a message
Local $MsgEdit = GUICtrlCreateLabel("", 303, 70, 210, 150, BitOR($GUI_SS_DEFAULT_EDIT, $ES_CENTER))
GUICtrlSetData(-1, "This Program Is For The Purpose Of Assisting You In Making Different Shots. We Make No Claim To Have 100% Accuracy.  Use the Unknown Box For Roll Out Or Where the Lie Plays Longer." & _
        @CRLF & @CRLF & "WGT Distance Calculator" & @CRLF & "Ver. 0.0.0.2 Beta")
GUICtrlSetState(-1, $GUI_ENABLE)


;~ wind direction images with radio buttons
Local $PicAU = GUICtrlCreatePic("c:\AutoIt3 Test Programs\To Work With\swing calculator\images\up_arrow.bmp", 79, 70, 25, 25)
GUICtrlSetGraphic($PicAU, "")
Global $RadioAU = GUICtrlCreateRadio("", 110, 75, 17, 17, BitOR($GUI_SS_DEFAULT_RADIO, $BS_RIGHTBUTTON))

Local $PicAD = GUICtrlCreatePic("c:\AutoIt3 Test Programs\To Work With\swing calculator\images\dn_arrow.bmp", 79, 100, 25, 25)
GUICtrlSetGraphic($PicAD, "")
Global $RadioAD = GUICtrlCreateRadio("", 110, 105, 17, 17, BitOR($GUI_SS_DEFAULT_RADIO, $BS_RIGHTBUTTON))

Local $PicAS = GUICtrlCreatePic("c:\AutoIt3 Test Programs\To Work With\swing calculator\images\side_arrow.bmp", 79, 130, 25, 25)
GUICtrlSetGraphic($PicAS, "")
Global $RadioAS = GUICtrlCreateRadio("", 110, 135, 17, 17, BitOR($GUI_SS_DEFAULT_RADIO, $BS_RIGHTBUTTON))

Local $PicACU = GUICtrlCreatePic("c:\AutoIt3 Test Programs\To Work With\swing calculator\images\cross_up_arrow.bmp", 79, 160, 25, 25)
GUICtrlSetGraphic($PicACU, "")
Global $RadioACU = GUICtrlCreateRadio("", 110, 165, 17, 17, BitOR($GUI_SS_DEFAULT_RADIO, $BS_RIGHTBUTTON))

Local $PicACD = GUICtrlCreatePic("c:\AutoIt3 Test Programs\To Work With\swing calculator\images\cross_dn_arrow.bmp", 79, 190, 25, 25)
GUICtrlSetGraphic($PicACD, "")
Global $RadioACD = GUICtrlCreateRadio("", 110, 195, 17, 17, BitOR($GUI_SS_DEFAULT_RADIO, $BS_RIGHTBUTTON))
GUICtrlCreateGroup("", -99, -99, 1, 1)
;~ end wind directions with images

;~ Inputs
Global $InputDistance = GUICtrlCreateInput("", 16, 38, 40, 21)
Global $InputWind = GUICtrlCreateInput("", 78, 38, 40, 21)
Global $InputHeightFtU = GUICtrlCreateInput("", 159, 38, 40, 21)
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $InputHeightFtD = GUICtrlCreateInput("", 159, 64, 40, 21)
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $InputHeightInU = GUICtrlCreateInput("", 231, 38, 40, 21)
Global $InputHeightInD = GUICtrlCreateInput("", 231, 64, 40, 21)
Global $InputUnknown = GUICtrlCreateInput("", 465, 38, 40, 21)

;~ Combo box additionals
Global $ComboRough = GUICtrlCreateCombo("Fairway", 303, 38, 60, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($ComboRough, "10-20%|20-25%|30-40%|40-50%|50-60%|60-70%|70-80%", "Fairway")

Global $ComboSand = GUICtrlCreateCombo("None", 384, 38, 60, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($ComboSand, "10-20%|20-25%|30-40%|40-50%|50-60%|60-70%|70-80%", "None")


;~ Labels
Global $HeightFtUpLabel = GUICtrlCreateLabel("UP", 140, 42, 20, 21)
Global $HeightFtDnLabel = GUICtrlCreateLabel("DN", 140, 68, 20, 21)
Global $HeightInUpLabel = GUICtrlCreateLabel("UP", 212, 42, 20, 21)
Global $HeightInDnLabel = GUICtrlCreateLabel("DN", 212, 68, 20, 21)
Global $DistanceLabel = GUICtrlCreateLabel("Distance", 15, 16, 46, 17)
Global $WindLabel = GUICtrlCreateLabel("Wind", 85, 16, 29, 17)
Global $HeightFtLabel = GUICtrlCreateLabel("Elev. FT.", 159, 16, 50, 17)
Global $HeightInLabel = GUICtrlCreateLabel("Elev. IN.", 231, 16, 50, 17)
Global $RoughtLabel = GUICtrlCreateLabel("Rough", 315, 16, 36, 17)
Global $SandLabel = GUICtrlCreateLabel("Sand", 400, 16, 29, 17)
Global $UnknownLabel = GUICtrlCreateLabel("Unknown", 462, 16, 50, 17)

Global $FullLabel = GUICtrlCreateLabel("Full:", 32, 233, 23, 17)
Global $PunchLabel = GUICtrlCreateLabel("Punch:", 17, 267, 38, 17)
Global $PitchLabel = GUICtrlCreateLabel("Pitch:", 24, 302, 31, 17)
Global $FlopLabel = GUICtrlCreateLabel("Flop:", 28, 337, 27, 17)
Global $ChipLabel = GUICtrlCreateLabel("Chip:", 27, 370, 28, 17)

;~ Output
Global $ChipOutLabel = GUICtrlCreateLabel("", 69, 370, 50, 17)
Global $FlopOutLabel = GUICtrlCreateLabel("", 69, 337, 50, 17)
Global $PitchOutLabel = GUICtrlCreateLabel("", 69, 302, 50, 17)
Global $PunchOutLabel = GUICtrlCreateLabel("", 69, 267, 50, 17)
Global $FullOutLabel = GUICtrlCreateLabel("", 69, 233, 50, 17)

;~ Putting Group Labels
Global $PuttingGroup = GUICtrlCreateGroup("Putting", 143, 220, 375, 195)
Global $PDistanceLabel = GUICtrlCreateLabel("Distance", 167, 240, 46, 17)
Global $PVerySlowLabel = GUICtrlCreateLabel("Very Slow:", 180, 317, 54, 17)
Global $PUnknownLabel = GUICtrlCreateLabel("Unknown", 439, 240, 50, 17)
Global $PSlowLabel = GUICtrlCreateLabel("Slow:", 180, 340, 30, 17)
Global $PStandardLabel = GUICtrlCreateLabel("Standard:", 180, 364, 50, 17)
Global $PFastLabel = GUICtrlCreateLabel("Fast:", 180, 387, 27, 17)
Global $PHeightInLabel = GUICtrlCreateLabel("Elev. IN.", 257, 240, 50, 17)
Global $PHeightFtLabel = GUICtrlCreateLabel("Elev. FT.", 349, 240, 50, 17)
Global $PVeryFastLabel = GUICtrlCreateLabel("Very Fast:", 343, 317, 51, 17)
Global $PT11Label = GUICtrlCreateLabel("Tournament 11:", 343, 340, 76, 17)
Global $PT12Label = GUICtrlCreateLabel("Tournament 12:", 343, 364, 76, 17)
Global $PT13Label = GUICtrlCreateLabel("Tournament 13:", 343, 387, 76, 17)
Global $PHeightInULabel = GUICtrlCreateLabel("UP", 237, 264, 20, 21)
Global $PHeightInDLabel = GUICtrlCreateLabel("DN", 237, 292, 20, 21)
Global $PHeightFtULabel = GUICtrlCreateLabel("UP", 330, 264, 20, 21)
Global $PHeightFtDLabel = GUICtrlCreateLabel("DN", 330, 292, 20, 21)

;~ Output
Global $PVerySlowOutLabel = GUICtrlCreateLabel("", 243, 317, 50, 17)
Global $PSlowOutLabel = GUICtrlCreateLabel("", 243, 340, 50, 17)
Global $PFastOutLabel = GUICtrlCreateLabel("", 243, 387, 50, 17)
Global $PStandardOutLabel = GUICtrlCreateLabel("", 243, 364, 50, 17)
Global $PT11OutLabel = GUICtrlCreateLabel("", 434, 340, 50, 17)
Global $PVeryFastOutLabel = GUICtrlCreateLabel("", 434, 317, 50, 17)
Global $PT13OutLabel = GUICtrlCreateLabel("", 434, 387, 50, 17)
Global $PT12OutLabel = GUICtrlCreateLabel("", 434, 364, 50, 17)

;~ Input
Global $PDistanceInput = GUICtrlCreateInput("", 167, 262, 40, 21)
Global $PHeightInUInput = GUICtrlCreateInput("", 257, 262, 40, 21)
Global $PHeightInDInput = GUICtrlCreateInput("", 257, 290, 40, 21)
Global $PHeightFtUInput = GUICtrlCreateInput("", 350, 262, 40, 21)
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $PHeightFtDInput = GUICtrlCreateInput("", 350, 290, 40, 21)
GUICtrlSetBkColor(-1, 0xFFFF00)
Global $PUnknownInput = GUICtrlCreateInput("", 442, 262, 40, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;~ Reset Button
Global $ResetButton = GUICtrlCreateButton("RESET", 270, 427, 250, 21)
;~ Calculate Button
Global $CalButton = GUICtrlCreateButton("Calculate", 16, 427, 250, 21)


;~ New Command for Function
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
;~ End New Command

GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $ResetButton
            GUICtrlSetData($PDistanceInput, "")
            GUICtrlSetData($PHeightFtUInput, "")
            GUICtrlSetData($PHeightFtDInput, "")
            GUICtrlSetData($PHeightInUInput, "")
            GUICtrlSetData($PHeightInDInput, "")
            GUICtrlSetData($PUnknownInput, "")
            GUICtrlSetData($ComboRough, "Fairway")
            GUICtrlSetData($ComboSand, "None")
            GUICtrlSetData($InputHeightFtU, "")
            GUICtrlSetData($InputHeightFtD, "")
            GUICtrlSetData($InputDistance, "")
            GUICtrlSetData($InputHeightInU, "")
            GUICtrlSetData($InputHeightInD, "")
            GUICtrlSetData($InputUnknown, "")
            GUICtrlSetData($InputWind, "")
            GUICtrlSetState($ComboRough, $GUI_ENABLE)
            GUICtrlSetState($ComboSand, $GUI_ENABLE)
            GUICtrlSetState($InputHeightInU, $GUI_ENABLE)
            GUICtrlSetState($InputHeightInD, $GUI_ENABLE)
            GUICtrlSetState($InputHeightFtU, $GUI_ENABLE)
            GUICtrlSetState($InputHeightFtD, $GUI_ENABLE)
            GUICtrlSetState($PHeightFtUInput, $GUI_ENABLE)
            GUICtrlSetState($PHeightFtDInput, $GUI_ENABLE)
            GUICtrlSetState($PHeightInUInput, $GUI_ENABLE)
            GUICtrlSetState($PHeightInDInput, $GUI_ENABLE)

;~          Label Resets

            GUICtrlSetData($ChipOutLabel, "")
            GUICtrlSetData($FlopOutLabel, "")
            GUICtrlSetData($PitchOutLabel, "")
            GUICtrlSetData($PunchOutLabel, "")
            GUICtrlSetData($FullOutLabel, "")
            GUICtrlSetData($PVerySlowOutLabel, "")
            GUICtrlSetData($PSlowOutLabel, "")
            GUICtrlSetData($PFastOutLabel, "")
            GUICtrlSetData($PStandardOutLabel, "")
            GUICtrlSetData($PT11OutLabel, "")
            GUICtrlSetData($PVeryFastOutLabel, "")
            GUICtrlSetData($PT13OutLabel, "")
            GUICtrlSetData($PT12OutLabel, "")

;~          radio buttResets

            GUICtrlSetState($RadioAU, $GUI_UNCHECKED)
            GUICtrlSetState($RadioAD, $GUI_UNCHECKED)
            GUICtrlSetState($RadioAS, $GUI_UNCHECKED)
            GUICtrlSetState($RadioACU, $GUI_UNCHECKED)
            GUICtrlSetState($RadioACD, $GUI_UNCHECKED)

;~          Check to see if an area has been set and disable or enable

        Case $ComboRough
            If GUICtrlRead($ComboRough) <> "Fairway" Then
                GUICtrlSetState($ComboSand, $GUI_DISABLE)
            ElseIf GUICtrlRead($ComboRough) = "Fairway" Then
                GUICtrlSetState($ComboSand, $GUI_ENABLE)
            EndIf

        Case $ComboSand
            If GUICtrlRead($ComboSand) <> "None" Then
                GUICtrlSetState($ComboRough, $GUI_DISABLE)
            ElseIf GUICtrlRead($ComboSand) = "None" Then
                GUICtrlSetState($ComboRough, $GUI_ENABLE)
            EndIf

        Case $InputHeightFtU
            If GUICtrlRead($InputHeightFtU) <> 0 Then
                GUICtrlSetState($InputHeightInU, $GUI_DISABLE)
                GUICtrlSetState($InputHeightFtD, $GUI_DISABLE)
                GUICtrlSetState($InputHeightInD, $GUI_DISABLE)
            ElseIf GUICtrlRead($InputHeightFtU) = 0 Then
                GUICtrlSetState($InputHeightInU, $GUI_ENABLE)
                GUICtrlSetState($InputHeightFtD, $GUI_ENABLE)
                GUICtrlSetState($InputHeightInD, $GUI_ENABLE)
            EndIf

        Case $InputHeightFtD
            If GUICtrlRead($InputHeightFtD) <> 0 Then
                GUICtrlSetState($InputHeightInU, $GUI_DISABLE)
                GUICtrlSetState($InputHeightFtU, $GUI_DISABLE)
                GUICtrlSetState($InputHeightInD, $GUI_DISABLE)
            ElseIf GUICtrlRead($InputHeightFtD) = 0 Then
                GUICtrlSetState($InputHeightInU, $GUI_ENABLE)
                GUICtrlSetState($InputHeightFtU, $GUI_ENABLE)
                GUICtrlSetState($InputHeightInD, $GUI_ENABLE)
            EndIf

        Case $InputHeightInU
            If GUICtrlRead($InputHeightInU) <> 0 Then
                GUICtrlSetState($InputHeightFtU, $GUI_DISABLE)
                GUICtrlSetState($InputHeightFtD, $GUI_DISABLE)
                GUICtrlSetState($InputHeightInD, $GUI_DISABLE)
            ElseIf GUICtrlRead($InputHeightInU) = 0 Then
                GUICtrlSetState($InputHeightFtU, $GUI_ENABLE)
                GUICtrlSetState($InputHeightFtD, $GUI_ENABLE)
                GUICtrlSetState($InputHeightInD, $GUI_ENABLE)
            EndIf

        Case $InputHeightInD
            If GUICtrlRead($InputHeightInD) <> 0 Then
                GUICtrlSetState($InputHeightFtU, $GUI_DISABLE)
                GUICtrlSetState($InputHeightFtD, $GUI_DISABLE)
                GUICtrlSetState($InputHeightInU, $GUI_DISABLE)
            ElseIf GUICtrlRead($InputHeightInD) = 0 Then
                GUICtrlSetState($InputHeightFtU, $GUI_ENABLE)
                GUICtrlSetState($InputHeightFtD, $GUI_ENABLE)
                GUICtrlSetState($InputHeightInU, $GUI_ENABLE)
            EndIf

        Case $PHeightInUInput
            If GUICtrlRead($PHeightInUInput) <> 0 Then
                GUICtrlSetState($PHeightFtUInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightFtDInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightInDInput, $GUI_DISABLE)
            ElseIf GUICtrlRead($PHeightInUInput) = 0 Then
                GUICtrlSetState($PHeightFtUInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightFtDInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightInDInput, $GUI_ENABLE)
            EndIf

        Case $PHeightInDInput
            If GUICtrlRead($PHeightInDInput) <> 0 Then
                GUICtrlSetState($PHeightFtUInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightFtDInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightInUInput, $GUI_DISABLE)
            ElseIf GUICtrlRead($PHeightInDInput) = 0 Then
                GUICtrlSetState($PHeightFtUInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightFtDInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightInUInput, $GUI_ENABLE)
            EndIf

        Case $PHeightFtUInput
            If GUICtrlRead($PHeightFtUInput) <> 0 Then
                GUICtrlSetState($PHeightInUInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightInDInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightFtDInput, $GUI_DISABLE)
            ElseIf GUICtrlRead($PHeightFtUInput) = 0 Then
                GUICtrlSetState($PHeightInUInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightInDInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightFtDInput, $GUI_ENABLE)
            EndIf

        Case $PHeightFtDInput
            If GUICtrlRead($PHeightFtDInput) <> 0 Then
                GUICtrlSetState($PHeightInUInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightInDInput, $GUI_DISABLE)
                GUICtrlSetState($PHeightFtUInput, $GUI_DISABLE)
            ElseIf GUICtrlRead($PHeightFtDInput) = 0 Then
                GUICtrlSetState($PHeightInUInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightInDInput, $GUI_ENABLE)
                GUICtrlSetState($PHeightFtUInput, $GUI_ENABLE)
            EndIf

        Case $CalButton
;~           Call Functions
            _full()
            _punch()
            _Pitch()
            _flop()
            _chip()
            _putt()


    EndSwitch
WEnd

;~ Special Thanks to Melba23 for this peice of script!  Removing the ability to anything but numbers and still allow negatives
GUIRegisterMsg($WM_COMMAND, "")

Func MY_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)

    Local $Form1 = BitAND($wParam, 0xFFFF);LoWord
    Local $iCode = BitShift($wParam, 16) ;HiWord



    If $iCode = $EN_CHANGE Then
        Switch $Form1
            Case $InputDistance
                $Read_InputDistance = GUICtrlRead($InputDistance)
                If StringRegExp($Read_InputDistance, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputDistance = StringRegExpReplace($Read_InputDistance, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputDistance, $Read_InputDistance)

            Case $InputHeightFtU
                $Read_InputHeightFt = GUICtrlRead($InputHeightFtU)
                If StringRegExp($Read_InputHeightFt, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputHeightFt = StringRegExpReplace($Read_InputHeightFt, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputHeightFtU, $Read_InputHeightFt)

            Case $InputHeightFtD
                $Read_InputHeightFtD = GUICtrlRead($InputHeightFtD)
                If StringRegExp($Read_InputHeightFtD, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputHeightFtD = StringRegExpReplace($Read_InputHeightFtD, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputHeightFtD, $Read_InputHeightFtD)

            Case $InputHeightInU
                $Read_InputHeightIn = GUICtrlRead($InputHeightInU)
                If StringRegExp($Read_InputHeightIn, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputHeightIn = StringRegExpReplace($Read_InputHeightIn, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputHeightInU, $Read_InputHeightIn)

            Case $InputHeightInD
                $Read_InputHeightInD = GUICtrlRead($InputHeightInD)
                If StringRegExp($Read_InputHeightInD, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputHeightInD = StringRegExpReplace($Read_InputHeightInD, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputHeightInD, $Read_InputHeightInD)

            Case $InputUnknown
                $Read_InputUnknown = GUICtrlRead($InputUnknown)
                If StringRegExp($Read_InputUnknown, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputUnknown = StringRegExpReplace($Read_InputUnknown, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputUnknown, $Read_InputUnknown)

            Case $InputWind
                $Read_InputWind = GUICtrlRead($InputWind)
                If StringRegExp($Read_InputWind, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_InputWind = StringRegExpReplace($Read_InputWind, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($InputWind, $Read_InputWind)

            Case $PDistanceInput
                $Read_PDistanceInput = GUICtrlRead($PDistanceInput)
                If StringRegExp($Read_PDistanceInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_PDistanceInput = StringRegExpReplace($Read_PDistanceInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($PDistanceInput, $Read_PDistanceInput)

            Case $PHeightFtUInput
                $Read_PHeightFtInput = GUICtrlRead($PHeightFtUInput)
                If StringRegExp($Read_PHeightFtInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_PHeightFtInput = StringRegExpReplace($Read_PHeightFtInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($PHeightFtUInput, $Read_PHeightFtInput)

            Case $PHeightFtDInput
                $Read_PHeightFtDInput = GUICtrlRead($PHeightFtDInput)
                If StringRegExp($Read_PHeightFtDInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_PHeightFtDInput = StringRegExpReplace($Read_PHeightFtDInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($PHeightFtDInput, $Read_PHeightFtDInput)

            Case $PHeightInUInput
                $Read_PHeightInInput = GUICtrlRead($PHeightInUInput)
                If StringRegExp($Read_PHeightInInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_PHeightInInput = StringRegExpReplace($Read_PHeightInInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($PHeightInUInput, $Read_PHeightInInput)

            Case $PHeightInDInput
                $Read_PHeightInDInput = GUICtrlRead($PHeightInDInput)
                If StringRegExp($Read_PHeightInDInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_PHeightInDInput = StringRegExpReplace($Read_PHeightInDInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($PHeightInDInput, $Read_PHeightInDInput)

            Case $PUnknownInput
                $Read_PUnknownInput = GUICtrlRead($PUnknownInput)
                If StringRegExp($Read_PUnknownInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_PUnknownInput = StringRegExpReplace($Read_PUnknownInput, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
                GUICtrlSetData($PUnknownInput, $Read_PUnknownInput)

        EndSwitch
    EndIf

EndFunc   ;==>MY_WM_COMMAND

; Full Shot Calculations

Func _full()

    Local $Df = GUICtrlRead($InputDistance)
    Local $Wf = GUICtrlRead($InputWind)
    Local $HFUf = GUICtrlRead($InputHeightFtU) / 2
    Local $HFDf = GUICtrlRead($InputHeightFtD) / 3 * -1
    Local $HIUf = GUICtrlRead($InputHeightInU) / 12
    Local $HIDf = GUICtrlRead($InputHeightInD) / 12 * -1
    Local $Rf = GUICtrlRead($ComboRough)
    Local $Sf = GUICtrlRead($ComboSand)
    Local $Uf = GUICtrlRead($InputUnknown)
    Local $Wdf = 0

;~  Get Wind
    If GUICtrlRead($RadioAU) = $GUI_CHECKED Then $Wdf = $Wf / 2 * -1
    If GUICtrlRead($RadioAD) = $GUI_CHECKED Then $Wdf = $Wf / 2
    If GUICtrlRead($RadioAS) = $GUI_CHECKED Then $Wdf = 0
    If GUICtrlRead($RadioACU) = $GUI_CHECKED Then $Wdf = $Wf / 3 * -1
    If GUICtrlRead($RadioACD) = $GUI_CHECKED Then $Wdf = $Wf / 3

;~  If for rough
    If $Rf = "Fairway" Then $Rf = 0
    If $Rf = "10-20%" Then $Rf = 2
    If $Rf = "20-25%" Then $Rf = 5
    If $Rf = "30-40%" Then $Rf = 10
    If $Rf = "40-50%" Then $Rf = 20
    If $Rf = "50-60%" Then $Rf = 60
    If $Rf = "60-70%" Then $Rf = 70
    If $Rf = "70-80%" Then $Rf = 80

;~  If for Sand
    If $Sf = "None" Then $Sf = 0
    If $Sf = "10-20%" Then $Sf = 5
    If $Sf = "20-25%" Then $Sf = 10
    If $Sf = "30-40%" Then $Sf = 16
    If $Sf = "40-50%" Then $Sf = 25
    If $Sf = "50-60%" Then $Sf = 35
    If $Sf = "60-70%" Then $Sf = 50
    If $Sf = "70-80%" Then $Sf = 80


    If $Sf > 0 Then
        $Cal_Full = Round($Df + $HFUf + $HFDf + $HIUf + $HIDf + $Uf + $Wdf + $Sf, 1)
        $Cal_FullOutLabel = $Cal_Full
        GUICtrlSetData($FullOutLabel, $Cal_FullOutLabel)
        GUISetState()
    Else
        $Cal_Full = Round($Df + $HFUf + $HFDf + $HIUf + $HIDf + $Uf + +$Wdf + $Rf, 1)
        $Cal_FullOutLabel = $Cal_Full
        ConsoleWrite($Df & @CRLF)
        ConsoleWrite($HFUf & @CRLF)
        ConsoleWrite($HFDf & @CRLF)
        ConsoleWrite($HIUf & @CRLF)
        ConsoleWrite($HIDf & @CRLF)
        ConsoleWrite($Uf & @CRLF)
        ConsoleWrite($Rf)
        GUICtrlSetData($FullOutLabel, $Cal_FullOutLabel)
        GUISetState()
    EndIf


EndFunc   ;==>_full

;Punch Shot Calculations

Func _punch()

    Local $Dp = GUICtrlRead($InputDistance)
    Local $Wp = GUICtrlRead($InputWind)
    Local $HFUp = GUICtrlRead($InputHeightFtU) / 2
    Local $HFDp = GUICtrlRead($InputHeightFtD) / 3 * -1
    Local $HIUp = GUICtrlRead($InputHeightInU) / 12
    Local $HIDp = GUICtrlRead($InputHeightInD) / 12 * -1
    Local $Rp = GUICtrlRead($ComboRough)
    Local $Sp = GUICtrlRead($ComboSand)
    Local $Up = GUICtrlRead($InputUnknown)
    Local $Wdpf = 0
    Local $Wdps = 0
    Local $Rpf = 0
    Local $Rps = 0
    Local $Spf = 0
    Local $Sps = 0


;~  Get Wind Standard Shot
    If GUICtrlRead($RadioAU) = $GUI_CHECKED Then $Wdpf = $Wp / 2 * -1
    If GUICtrlRead($RadioAD) = $GUI_CHECKED Then $Wdpf = $Wp / 2
    If GUICtrlRead($RadioAS) = $GUI_CHECKED Then $Wdpf = 0
    If GUICtrlRead($RadioACU) = $GUI_CHECKED Then $Wdpf = $Wp / 3 * -1
    If GUICtrlRead($RadioACD) = $GUI_CHECKED Then $Wdpf = $Wp / 3

;~  Get Wind Short Shots
    If GUICtrlRead($RadioAU) = $GUI_CHECKED Then $Wdps = $Wp / 12 * -1
    If GUICtrlRead($RadioAD) = $GUI_CHECKED Then $Wdps = $Wp / 12
    If GUICtrlRead($RadioAS) = $GUI_CHECKED Then $Wdps = 0
    If GUICtrlRead($RadioACU) = $GUI_CHECKED Then $Wdps = $Wp / 12 * -1
    If GUICtrlRead($RadioACD) = $GUI_CHECKED Then $Wdps = $Wp / 12

;~  If for rough Standard Shot
    If $Rp = "Fairway" Then $Rpf = 0
    If $Rp = "10-20%" Then $Rpf = 2
    If $Rp = "20-25%" Then $Rpf = 5
    If $Rp = "30-40%" Then $Rpf = 10
    If $Rp = "40-50%" Then $Rpf = 20
    If $Rp = "50-60%" Then $Rpf = 60
    If $Rp = "60-70%" Then $Rpf = 70
    If $Rp = "70-80%" Then $Rpf = 80

;~  If for rough Short Shot
    If $Rp = "Fairway" Then $Rps = 0
    If $Rp = "10-20%" Then $Rps = 2
    If $Rp = "20-25%" Then $Rps = 3
    If $Rp = "30-40%" Then $Rps = 4
    If $Rp = "40-50%" Then $Rps = 5
    If $Rp = "50-60%" Then $Rps = 6
    If $Rp = "60-70%" Then $Rps = 7
    If $Rp = "70-80%" Then $Rps = 8

;~  If for Sand Standard Shot
    If $Sp = "None" Then $Spf = 0
    If $Sp = "10-20%" Then $Spf = 4
    If $Sp = "20-25%" Then $Spf = 6
    If $Sp = "30-40%" Then $Spf = 10
    If $Sp = "40-50%" Then $Spf = 20
    If $Sp = "50-60%" Then $Spf = 30
    If $Sp = "60-70%" Then $Spf = 40
    If $Sp = "70-80%" Then $Spf = 60

;~  If for Sand Short Shot
    If $Sp = "None" Then $Sps = 0
    If $Sp = "10-20%" Then $Sps = 4
    If $Sp = "20-25%" Then $Sps = 5
    If $Sp = "30-40%" Then $Sps = 8
    If $Sp = "40-50%" Then $Sps = 10
    If $Sp = "50-60%" Then $Sps = 12
    If $Sp = "60-70%" Then $Sps = 14
    If $Sp = "70-80%" Then $Sps = 16

;~ Formula

    If $Dp > 100 Then
        $Cal_Punch = Round($Dp + $HFUp + $HFDp + $HIUp + $HIDp + $Up + $Spf + $Rpf + $Wdpf, 1)
        $Cal_PunchOutLabel = $Cal_Punch
        GUICtrlSetData($PunchOutLabel, $Cal_PunchOutLabel)
        GUISetState()

    Else
        $Cal_Punch = Round($Dp + $HFUp + $HFDp + $HIUp + $HIDp + $Up + $Sps + $Rps + $Wdps, 1)
        $Cal_PunchOutLabel = $Cal_Punch
        GUICtrlSetData($PunchOutLabel, $Cal_PunchOutLabel)
        GUISetState()
    EndIf

EndFunc   ;==>_punch

; Pitch Shot Calculations

Func _Pitch()

    Local $Dpi = GUICtrlRead($InputDistance)
    Local $Wpi = GUICtrlRead($InputWind)
    Local $HFUpi = GUICtrlRead($InputHeightFtU) / 2
    Local $HFDpi = GUICtrlRead($InputHeightFtD) / 3 * -1
    Local $HIUpi = GUICtrlRead($InputHeightInU) / 12
    Local $HIDpi = GUICtrlRead($InputHeightInD) / 12 * -1
    Local $Spi = GUICtrlRead($ComboSand)
    Local $Upi = GUICtrlRead($InputUnknown)
    Local $Wdpi = 0

;~  If for Sand
    If $Spi = "None" Then $Spi = 0
    If $Spi = "10-20%" Then $Spi = 2
    If $Spi = "20-25%" Then $Spi = 4
    If $Spi = "30-40%" Then $Spi = 8
    If $Spi = "40-50%" Then $Spi = 10
    If $Spi = "50-60%" Then $Spi = 12
    If $Spi = "60-70%" Then $Spi = 14
    If $Spi = "70-80%" Then $Spi = 16

;~ Get Wind
    If GUICtrlRead($RadioAU) = $GUI_CHECKED Then $Wdpi = $Wpi / 12 * -1
    If GUICtrlRead($RadioAD) = $GUI_CHECKED Then $Wdpi = $Wpi / 12
    If GUICtrlRead($RadioAS) = $GUI_CHECKED Then $Wdpi = 0
    If GUICtrlRead($RadioACU) = $GUI_CHECKED Then $Wdpi = $Wpi / 12 * -1
    If GUICtrlRead($RadioACD) = $GUI_CHECKED Then $Wdpi = $Wpi / 12


    If $Dpi > 30 Then
        $Cal_PitchOutLabel = ""
        GUICtrlSetData($PitchOutLabel, $Cal_PitchOutLabel)
        GUISetState()
    EndIf

    If $Dpi <= 30 Then
        $Cal_Pitch = Round($Dpi + $Wdpi + $HFUpi + $HFDpi + $HIUpi + $HIDpi + $Spi + $Upi)
        $Cal_PitchOutLabel = $Cal_Pitch
        GUICtrlSetData($PitchOutLabel, $Cal_PitchOutLabel)
    EndIf

EndFunc   ;==>_Pitch

; Flop Shot Calculations

Func _flop()

    Local $Dfl = GUICtrlRead($InputDistance)
    Local $Wfl = GUICtrlRead($InputWind)
    Local $HFUfl = GUICtrlRead($InputHeightFtU) / 3
    Local $HFDfl = GUICtrlRead($InputHeightFtD) / 3 * -1
    Local $Rfl = GUICtrlRead($ComboRough)
    Local $Sfl = GUICtrlRead($ComboSand)
    Local $Ufl = GUICtrlRead($InputUnknown)
    Local $Wdfl = 0

;~ Get Wind
    If GUICtrlRead($RadioAU) = $GUI_CHECKED Then $Wdfl = $Wfl / 12 * -1
    If GUICtrlRead($RadioAD) = $GUI_CHECKED Then $Wdfl = $Wfl / 12
    If GUICtrlRead($RadioAS) = $GUI_CHECKED Then $Wdfl = 0
    If GUICtrlRead($RadioACU) = $GUI_CHECKED Then $Wdfl = $Wfl / 12 * -1
    If GUICtrlRead($RadioACD) = $GUI_CHECKED Then $Wdfl = $Wfl / 12

;~  If for Rough
    If $Rfl = "Fairway" Then $Rfl = 0
    If $Rfl = "10-20%" Then $Rfl = 1
    If $Rfl = "20-25%" Then $Rfl = 2
    If $Rfl = "30-40%" Then $Rfl = 4
    If $Rfl = "40-50%" Then $Rfl = 5
    If $Rfl = "50-60%" Then $Rfl = 6
    If $Rfl = "60-70%" Then $Rfl = 7
    If $Rfl = "70-80%" Then $Rfl = 8



;~  If for Sand
    If $Sfl = "None" Then $Sfl = 0
    If $Sfl = "10-20%" Then $Sfl = 1
    If $Sfl = "20-25%" Then $Sfl = 2
    If $Sfl = "30-40%" Then $Sfl = 4
    If $Sfl = "40-50%" Then $Sfl = 5
    If $Sfl = "50-60%" Then $Sfl = 6
    If $Sfl = "60-70%" Then $Sfl = 7
    If $Sfl = "70-80%" Then $Sfl = 8


    If $Dfl > 30 Then
        $Cal_FlopOutLabel = ""
        GUICtrlSetData($FlopOutLabel, $Cal_FlopOutLabel)
        GUISetState()
    EndIf

    If $Sfl > 4 Then
        $Cal_FlopOutLabel = ""
        GUICtrlSetData($FlopOutLabel, $Cal_FlopOutLabel)
        GUISetState()
    EndIf

    If $Dfl <= 30 Then
        $Cal_Flop = Round($Dfl + $Wdfl + $HFUfl + $HFDfl + $Sfl + $Rfl + $Ufl, 1)
        $Cal_FlopOutLabel = $Cal_Flop
        GUICtrlSetData($FlopOutLabel, $Cal_FlopOutLabel)
    EndIf


EndFunc   ;==>_flop

; Chip Shot Calculations

Func _chip()

    Local $Dc = GUICtrlRead($InputDistance)
    Local $Wc = GUICtrlRead($InputWind)
    Local $HFUc = GUICtrlRead($InputHeightFtU) / 3
    Local $HFDc = GUICtrlRead($InputHeightFtD) / 3 * -1
    Local $HIUc = GUICtrlRead($InputHeightFtU) / 3
    Local $HIDc = GUICtrlRead($InputHeightFtD) / 3 * -1
    Local $Rc = GUICtrlRead($ComboRough)
    Local $Sc = GUICtrlRead($ComboSand)
    Local $Uc = GUICtrlRead($InputUnknown)
    Local $Wdc = 0

;~ Get Wind
    If GUICtrlRead($RadioAU) = $GUI_CHECKED Then $Wdc = $Wc / 12 * -1
    If GUICtrlRead($RadioAD) = $GUI_CHECKED Then $Wdc = $Wc / 12
    If GUICtrlRead($RadioAS) = $GUI_CHECKED Then $Wdc = 0
    If GUICtrlRead($RadioACU) = $GUI_CHECKED Then $Wdc = $Wc / 12 * -1
    If GUICtrlRead($RadioACD) = $GUI_CHECKED Then $Wdc = $Wc / 12



;~  If for rough ignore it
    If $Rc = "Fairway" Then $Rc = 0
    If $Rc = "5-10%" Then $Rc = 0
    If $Rc = "10-20%" Then $Rc = 0
    If $Rc = "20-30%" Then $Rc = 0
    If $Rc = "30-40%" Then $Rc = 0
    If $Rc = "40-50%" Then $Rc = 0
    If $Rc = "50-60%" Then $Rc = 0
    If $Rc = "70-80%" Then $Rc = 0



;~  If for Sand
    If $Sc = "None" Then $Sc = 0
    If $Sc = "5-10%" Then $Sc = 0
    If $Sc = "10-20%" Then $Sc = 0
    If $Sc = "20-30%" Then $Sc = 0
    If $Sc = "30-40%" Then $Sc = 0
    If $Sc = "40-50%" Then $Sc = 0
    If $Sc = "50-60%" Then $Sc = 0
    If $Sc = "70-80%" Then $Sc = 0


    If $Dc > 10 Then
        $Cal_ChipOutLabel = ""
        GUICtrlSetData($ChipOutLabel, $Cal_ChipOutLabel)
        GUISetState()
    EndIf

    If $Dc <= 10 Then
        $Cal_Chip = Round($Dc + $Wdc + $HFUc + $HFDc + $HIUc + $HIDc + $Uc, 1)
        $Cal_ChipOutLabel = $Cal_Chip
        GUICtrlSetData($ChipOutLabel, $Cal_ChipOutLabel)
        GUISetState()
    EndIf

    If $Sc > 0 Then
        $Cal_ChipOutLabel = ""
        GUICtrlSetData($ChipOutLabel, $Cal_ChipOutLabel)
        GUISetState()
    EndIf


EndFunc   ;==>_chip

; Putting calculations

Func _putt()

    Local $PD = GUICtrlRead($PDistanceInput)
    Local $PHFU = GUICtrlRead($PHeightFtUInput) * 12
    Local $PHFD = GUICtrlRead($PHeightFtDInput) * 12 * -1
    Local $PHIU = GUICtrlRead($PHeightInUInput)
    Local $PHID = GUICtrlRead($PHeightInDInput) * -1
    Local $PU = GUICtrlRead($PUnknownInput)

    $Cal_PVerySlow = Round(($PD * .15) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PVerySlowOutLabel = $Cal_PVerySlow
    GUICtrlSetData($PVerySlowOutLabel, $Cal_PVerySlowOutLabel)
    GUISetState()

    $Cal_PSlow = Round(($PD * .1) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PSlowOutLabel = $Cal_PSlow
    GUICtrlSetData($PSlowOutLabel, $Cal_PSlowOutLabel)
    GUISetState()

    $Cal_PStandard = Round($PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PStandardOutLabel = $Cal_PStandard
    GUICtrlSetData($PStandardOutLabel, $Cal_PStandardOutLabel)
    GUISetState()

    $Cal_PFast = Round(($PD * -.1) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PFastOutLabel = $Cal_PFast
    GUICtrlSetData($PFastOutLabel, $Cal_PFastOutLabel)
    GUISetState()

    $Cal_PVeryFast = Round(($PD * -.2) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PVeryFastOutLabel = $Cal_PVeryFast
    GUICtrlSetData($PVeryFastOutLabel, $Cal_PVeryFastOutLabel)
    GUISetState()

    $Cal_PT11 = Round(($PD * -.3) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PT11OutLabel = $Cal_PT11
    GUICtrlSetData($PT11OutLabel, $Cal_PT11OutLabel)
    GUISetState()

    $Cal_PT12 = Round(($PD * -.35) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PT12OutLabel = $Cal_PT12
    GUICtrlSetData($PT12OutLabel, $Cal_PT12OutLabel)
    GUISetState()

    $Cal_PT13 = Round(($PD * -.4) + $PD + $PHFU + $PHFD + $PHIU + $PHID + $PU, 1)
    $Cal_PT13OutLabel = $Cal_PT13
    GUICtrlSetData($PT13OutLabel, $Cal_PT13OutLabel)
    GUISetState()

EndFunc   ;==>_putt

I will be very thankful if you can assist me with this.  I'm also having issue's with using @ScriptDir, and @WorkingDir, and I'm not sure why.  If I use those in the file path the images will not display, so I have to use the entire directory listing.

 

Thank you!

Syx

1 person likes this

Share this post


Link to post
Share on other sites



Regarding the @WorkingDir issue,

Local $aFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\cross_dn_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $bFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\cross_up_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $cFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\dn_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $dFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\side_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $eFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\up_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $fFileInstall = FileInstall("C:\AutoIt3 Test Programs\To Work With\swing calculator\images\Golf_flag.ico", "c:\Program Files (86)\Swing Bot Calc\images", 1)

If the directory of the EXE that is being run is located in

Quote

C:\AutoIt3 Test Programs\To Work With\swing calculator

Then the Fileinstall location would be

Local $aFileInstall = FileInstall(@WorkingDir & "\images\cross_dn_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $bFileInstall = FileInstall(@WorkingDir & "\images\cross_up_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $cFileInstall = FileInstall(@WorkingDir & "\images\dn_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $dFileInstall = FileInstall(@WorkingDir & "\images\side_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $eFileInstall = FileInstall(@WorkingDir & "\images\up_arrow.bmp", "c:\Program Files (86)\Swing Bot Calc\images", 1)
Local $fFileInstall = FileInstall(@WorkingDir & "\images\Golf_flag.ico", "c:\Program Files (86)\Swing Bot Calc\images", 1)

 

 

Share this post


Link to post
Share on other sites

@syxguns,

although your script is an accessory utility for a game - which may fire up a few red lights in this community, as you are well aware - it seemingly does not violate the forum rules per-se, as it does not involve "Launching, automation or script interaction" with the game. you are walking a thin line here, so bare in mind not to cross over to the dark side.

that said, what you need to understand is that AutoIt scripts rarely require "installation". they are by nature portable. this means that what you need to do is simple: compile your script to exe as usual, create a zip archive with the exe and all resources, and distribute the archive.

this way all resources are included, and the end users are able to extract the archive to any folder of their choice - so both your concerns are addressed:

9 hours ago, Syxguns said:

What I would like to do:

  • I want the compiled program to have an install, so that I can tell it where the program is to be located on the user computer.
  • I would like to include folders that contain images and or other files that are in the program such as an INI.

and should you ask - yes, you can do it all inside your script, and quite easily. but that will only complicate things, without any added value.

Share this post


Link to post
Share on other sites

Thank you both for the answers I will give the @WorkingDir another shot.  I will need to change the links on all images.  According to Orbs I don't need to use the FileInstall since that is not needed if I create a zip of all folders and attachments with the use of @WorkingDir all should do as expected.

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now