Jump to content
Sign in to follow this  
GodForsakenSoul

can't understand errors

Recommended Posts

GodForsakenSoul

#include "Include\GUIConstants.au3"

Func GUIMAINGUI()
    GUICreate("Basic Japanes Training",550,250)
    Opt("GuiCoordMode", 0)
    $button1=GUICtrlCreateButton("Practice Conjugation", 20,20,200,20,$BS_CENTER)
    $Button2=GUICtrlCreateButton("Practice Kana", 0,20,200,20,$BS_CENTER)
    $button3=GUICtrlCreateButton("Options",0,20,200,20,$BS_CENTER)
    $button4=GUICtrlCreateButton("Exit",0,100,200,20,$BS_CENTER)
    GUISetState()

    while 1=1
        $msg=GUIGetMsg()
        Select
            Case $msg=$button1
                IniWrite("Data\OPT.INI", "MAINGUI", "BUTTON", "1")
                Sleep(10)
                Exitloop
            Case $msg=$Button2
                IniWrite("Data\OPT.INI", "MAINGUI", "BUTTON", "2")
                Sleep(10)
                Exitloop
            Case $msg=$button3
                IniWrite("Data\OPT.INI", "MAINGUI", "BUTTON", "3")
                Sleep(10)
                ExitLoop
            Case $msg=$button4
                IniWrite("Data\OPT.INI", "MAINGUI", "BUTTON", "4")
                Sleep(10)
                Exitloop
            case $msg=$GUI_EVENT_CLOSE
                ExitLoop
        EndSelect
    WEnd
EndFunc

Func GUIPCON()
    GUICreate("Basic Japanese Training: Conjugation", 250, 200)

    Opt("GuiCoordMode",0)
    GUISetState()
EndFunc

Func GUIPKAN()
    GUICreate("Basic Japanese Training: Kana parctice", 250,250)
    Opt("GuiCoordMode",0)
    GUIStartGroup()
    $radiok1=GUICtrlCreateRadio("Hiragana only",20,20,150,15)
    $radiok2=GUICtrlCreateRadio("Katakana only",0,20,150,15)
    $radiok3=GUICtrlCreateRadio("Hiragana and katakana",0,20,150,15)
    GUIStartGroup()
    $labelk1=GUICtrlCreateLabel("Insert number of letters for training",10,20,100,50)
    $inputk1=GUICtrlCreateInput("",0,50,100,20)
    $buttonk1=GUICtrlCreateButton("Begin Training",10,20,80,20)
    $buttonkb=GUICtrlCreateButton("Back",0,20,150,20)
    GUISetState()
    GUICtrlSetState($radiok3,$GUI_CHECKED)

    while 1=1
        $msgkan=GUIGetMsg()
        Select
            Case $msgkan=$buttonk1
                $inputk1r=GUICtrlRead($inputk1)
                IniWrite("Data\OPT.INI","TRAINING","LOOPSNUMBER",$inputk1r)
                $ctrlkr1=GUICtrlRead($radiok1)
                $ctrlkr2=GUICtrlRead($radiok2)
                $ctrlkr3=GUICtrlRead($radiok3)
                Select
                    Case $ctrlkr1=$GUI_CHECKED
                        IniWrite("OPT.ini","TRAINING","TRAINSTATE","1")
                    Case $ctrlkr2=$GUI_CHECKED
                        IniWrite("OPT.ini","TRAINING","TRAINSTATE","2")
                    Case $ctrlkr3=$GUI_CHECKED
                        IniWrite("OPT.ini","TRAINING","TRAINSTATE","3")
                EndSelect

            Case $msgkan=$buttonkb

            Case $msgkan=$GUI_EVENT_CLOSE
                ExitLoop
        EndSelect
    WEnd
EndFunc

Func GUIPKANSTART()
    $pkanstate=IniRead("OPT.ini","TRAINING","TRAINSTATE","0")
    Select
        Case $pkanstate=1
            IniWrite("OPT.ini","TRAINING","KANASTATE","1")
        Case $pkanstate=2
            IniWrite("OPT.ini","TRAINING","KANASTATE","2")
        case $pkanstate=3
            IniWrite("OPT.ini","TRAINING","KANASTATE","3")
    EndSelect
    $pkanstater=IniRead("OPT.ini","TRAINING","KANASTATE","0")
    Select
        Case $pkanstater=1
            IniWrite("OPT.ini","TRAINING","RANKAN","H")
        Case $pkanstater=2
            IniWrite("OPT.ini","TRAINING","RANKAN","K")
        Case $pkanstater=3
            $rankanget=Random(1,2,1)
            Select
                Case $rankanget=1
                    IniWrite("OPT.ini","TRAINING","RANKAN","H")
                Case $rankanget=2
                    IniWrite("OPT.ini","TRAINING","RANKAN","K")
            EndSelect
    EndSelect
    $pkanrankan=IniRead("OPT.ini","TRAINING","RANKAN","0")
    $pkanransel=Random(1,46,1)
    $pkankansel=IniRead("KanaSelect.ini","KANA",$pkanransle,"0")

    $GUIPKANSTART=GUICreate("Basic Japanese Trainig: Kana Practice",200,400)
    GUICtrlCreatePic("Data\Graphics\"&$pkanrankan&$pkanransel&".bmp",25,25,150,150)
EndFunc

Func GUIOPT()
    $GUIOPT=GUICreate("Basic Japanese Training: Options", 550, 250)
    GUICtrlCreateLabel("Kana training options",20,20,150,20)
    $chkboxo1=GUICtrlCreateCheckbox("Show Images in Kana training",0,20,100,20)

    Opt("GuiCoordMode",0)
    GuiSetState()
    while 1=1
        $msgopt=GUIGetMsg()
        Select
            Case $msgopt=$GUI_EVENT_CLOSE
                ExitLoop
        EndSelect
    WEnd
EndFunc

three minutes ago it worked fine. okay, maybe more....

also, there's a typo in here somewhere. i fixed it in the original file because i actually had the compiler pipoint me to it. i can't find it here though. the typo is not important.

what important is that i get tons of error about consts...

i have absolutely no idea what i did wrong.

help! lots of it! PLEASE!

i'll mail you beer?

edit: example of "const error": D:\Autoit Work\Autoit Japanese Training\Data\Include\GUIDefaultConstants.au3(16,52) : ERROR: $GUI_SS_DEFAULT_AVI previously declared as a 'Const'

Global Const $GUI_SS_DEFAULT_AVI = $ACS_TRANSPARENT

Edited by GodForsakenSoul

Share this post


Link to post
Share on other sites
Yashied

Share this post


Link to post
Share on other sites
exodius

Don't you mean...

And add

#Include <ButtonConstants.au3>
#Include <GUIConstantsEx.au3>

Share this post


Link to post
Share on other sites
GodForsakenSoul

i DO have a system for all of my variables. it's all complicated, but i can understand it easily.

my autoit isn't that old actually. i just copied all the include folder into Data\Include.

$pkanransle is actually the typo XD

Edited by GodForsakenSoul

Share this post


Link to post
Share on other sites
llewxam

Don't you mean...

Ver 3.3.2.0 switches to quotes

My projects:

  • IP Scanner - Multi-threaded ping tool to scan your available networks for used and available IP addresses, shows ping times, resolves IPs in to host names, and allows individual IPs to be pinged.
  • INFSniff - Great technicians tool - a tool which scans DriverPacks archives for INF files and parses out the HWIDs to a database file, and rapidly scans the local machine's HWIDs, searches the database for matches, and installs them.
  • PPK3 (Persistent Process Killer V3) - Another for the techs - suppress running processes that you need to keep away, helpful when fighting spyware/viruses.
  • Sync Tool - Folder sync tool with lots of real time information and several checking methods.
  • USMT Front End - Front End for Microsoft's User State Migration Tool, including all files needed for USMT 3.01 and 4.01, 32 bit and 64 bit versions.
  • Audit Tool - Computer audit tool to gather vital hardware, Windows, and Office information for IT managers and field techs. Capabilities include creating a customized site agent.
  • CSV Viewer - Displays CSV files with automatic column sizing and font selection. Lines can also be copied to the clipboard for data extraction.
  • MyDirStat - Lists number and size of files on a drive or specified path, allows for deletion within the app.
  • 2048 Game - My version of 2048, fun tile game.
  • Juice Lab - Ecigarette liquid making calculator.
  • Data Protector - Secure notes to save sensitive information.
  • VHD Footer - Add a footer to a forensic hard drive image to allow it to be mounted or used as a virtual machine hard drive.
  • Find in File - Searches files containing a specified phrase.

Share this post


Link to post
Share on other sites
exodius

Ver 3.3.2.0 switches to quotes

I would say you're partially right, it looks like with 3.3.2.0 they've actually made the "..." and <...> interchangeable...

Unless you've seen a place where the devs have professed to planning to remove the <...> functionality?

*Edit - Although if he's still running an older version, the <...> would be the most backwards-compatible format

Edited by exodius

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
Sign in to follow this  

×