Jump to content
Sign in to follow this  
junichironakashima

Select Statement Not working

Recommended Posts

I have a windows 10 pc and Im trying to create an automatic solving in calculator with a simple worded question (example: What is 45 x 53 ?). thou I cant make the select...Case...EndSelect statement work, here is my code

#include <AutoItConstants.au3>


HotKeySet("{F4}", "ExitProg")

Func ExitProg()
   Exit 0
EndFunc

MouseClick($MOUSE_CLICK_LEFT, 417, 659, 2, 1)
Send("^c")

Func valData()
   $Chek = "What "
   If ClipGet() == $Chek Then
      Check()
      Else
      Do
         MouseClick($MOUSE_CLICK_LEFT, 417, 659, 2, 3)
         Send("^c")
         Sleep(500)
      Until ClipGet() == $Chek

   EndIf
EndFunc

Func Check()
   $Chek2 = "?"
   c1()
   c2()
   c3()
   c4()
   c5()
   c6()
   c7()

   Select
      Case c1() = $Chek2
      ;two
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 474, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case c2() = $Chek2
      ;three
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 482, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case c3() = $Chek2
      ;four
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 487, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case c4() = $Chek2
      ;five
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 495, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case c5() = $Chek2
      ;six
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 495, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case c6() = $Chek2
      ;seven
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 509, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case c7() = $Chek2
      ;eight
         MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("^v")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 509, 645, 2, 1)
         Send("^c")
         Sleep(150)
         MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
         Send("*")
         Send("^v")
         Send("{NUMPADENTER}")
      Case Else
         Exit
   EndSelect
EndFunc

Func c1()
   MouseClick($MOUSE_CLICK_LEFT, 485, 643, 2, 1)
   Send("^c")
EndFunc

Func c2()
   MouseClick($MOUSE_CLICK_LEFT, 493, 644, 2, 1)
   Send("^c")
EndFunc

Func c3()
   MouseClick($MOUSE_CLICK_LEFT, 498, 645, 2, 1)
   Send("^c")
EndFunc

Func c4()
   MouseClick($MOUSE_CLICK_LEFT, 508, 647, 2, 1)
   Send("^c")
EndFunc

Func c5()
   MouseClick($MOUSE_CLICK_LEFT, 514, 645, 2, 1)
   Send("^c")
EndFunc

Func c6()
    MouseClick($MOUSE_CLICK_LEFT, 523, 645, 2, 1)
    Send("^c")
EndFunc

Func c7()
   MouseClick($MOUSE_CLICK_LEFT, 530, 645, 2, 1)
   Send("^c")
EndFunc

valData()
MouseClick($MOUSE_CLICK_LEFT, 1349, 196, 1, 1) ;clicking the answer in calc
Send("^c")
Send("{DEL}")
MouseClick($MOUSE_CLICK_LEFT, 499, 706, 1, 1)
Send("^v")
Exit

 

Edited by Melba23
Added code tags

Share this post


Link to post
Share on other sites

None of your functions have a return value, so none of your Select cases are valid. Working as intended, use some type of Return value from the functions and see if it works then.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By DJ143
      I have a autoit exe file which is used in upload/browse file functionality.  This has been integrated with selenium framework and I am invoking the autoit exe using Java process and runtime. 
      Now the issue is when I run the scripts and invoke the autoit exe in local it works perfectly.  But when I use selenium grid or jenkins to run the scripts in another windows server it is not working.
      Can anyone please suggest any solution for this?
    • By meety
      My au3 script program needs administrator privileges on win10 to be executed correctly, because it needs to be added to the boot---Script code:RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName, "REG_SZ", @ScriptFullPath)
      I need to let the program automatically get administrator privileges, so I use a function of #RequireAdmin. Although the program can be added to the boot, but does not execute after system boot up? why is that?
      What should I do?
      --------------------------------------------------------------------
      Update:
      I found that after using the #RequireAdmin function, the program cannot be executed after system boot up.
      An example is given below. after it is compiled, it will not be executed after system boot up in the following two ways.
      1. C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\
      2. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName, "REG_SZ", @ScriptFullPath)
      why is that?
      example
      #include <MsgBoxConstants.au3>
      #RequireAdmin
      Func test()
          MsgBox(0, "", "this is test message")
      EndFunc   ;==>test
      test()
       
       
    • By meety
      Hello everyone
      I found some problems when using au3info to get the visible text: as shown in the attachment.
      Why is that? What do I need to do to get the visible text content?
       
       
    • By PeterVerbeek
      This topic give you access to an AutoIt functions library I maintain which is called PAL, Peter's AutoIt Library. The latest version 1.25 contains 212 functions divided into these topics:
      window, desktop and monitor GUI, mouse and color GUI controls including graphical buttons (jpg, png) logics and mathematics include constants string, xml string and file string dialogues and progress bars data lists: lists, stacks, shift registers and key maps (a.ka. dictionaries) miscellaneous: logging/debugging, process and system info Change log and files section  on the PAL website (SourceForge).
      A lot of these functions were created in the development of Peace, Peter's Equalizer APO Configuration Extension, which is a user interface for the system-wide audio driver called Equalizer APO.
    • By MiKa666
      Hi all,
      I'm developing a tool for exploratively testing another software. For that I wanna cover all the GUI functionality from that software and verify everything works as intended. But now I've a problem which I couldnt solve so far.
      One thing that software I'm testing does, is to load up either a single picture or a series of pictures. Depending on how much pictures got loaded, further actions will be proceeded...
      This loaded pictures are schon within a ToolbarWindow and they're clickable. What I need to know is, how much pictures are in this ToolbarWindow...
      Can anybody provide me a tip on how to achive this?
      Would be amazing!!
      BR,
      Mic
×
×
  • Create New...