Jump to content

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
Link to comment
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

Link to comment
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
 Share

×
×
  • Create New...