Sign in to follow this  
Followers 0
GodForsakenSoul

can't understand errors

6 posts in this topic

#1 ·  Posted (edited)

#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



Share this post


Link to post
Share on other sites

Don't you mean...

And add

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

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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

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

#6 ·  Posted (edited)

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  
Followers 0