Jump to content

Can someone help me with this code?


kiko298
 Share

Recommended Posts

This code i've made but it isn't completed. The console says this: "(41) : ==> "Case" statement with no matching "Select"or "Switch" statement.:

Case $Button4 "

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Conversor", 615, 438, 194, 125)
$Button1 = GUICtrlCreateButton("Partners: TugaMOV", 184, 328, 211, 73)
$Button2 = GUICtrlCreateButton("Créditos", 488, 328, 73, 73)
$Input1 = GUICtrlCreateInput("Escreva aqui o número", 232, 248, 121, 21)
$Radio1 = GUICtrlCreateRadio("mm cúbicos", 464, 224, 113, 17)
$Radio2 = GUICtrlCreateRadio("cm cúbicos", 464, 240, 113, 17)
$Radio3 = GUICtrlCreateRadio("dm cúbicos", 464, 256, 113, 17)
$Radio4 = GUICtrlCreateRadio("m cúbicos", 464, 272, 113, 17)
$Label1 = GUICtrlCreateLabel("O número que escreveu está em:", 424, 200, 161, 17)
$Button3 = GUICtrlCreateButton("cm cúbicos", 56, 96, 91, 41)
$Button4 = GUICtrlCreateButton("mm cúbicos", 56, 48, 91, 41)
$Button5 = GUICtrlCreateButton("dm cúbicos", 56, 144, 91, 41)
$Button6 = GUICtrlCreateButton("dm cúbicos", 56, 192, 91, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Form1
  Case $Button1
   _IECreate("www.Tugamov.blogspot.com", 1, 1, 0)
  Case $Button2
   MsgBox ( 64, "Créditos", "Desenvolvido por TheWebs ©™" )
  Case $Button3
   $n = GUICtrlGetState ( $Radio1 )
   if $n = 1 then
   $x = GUICtrlRead ( $input1 )
   $l = $x*1000
   MsgBox ( 64, "ola", "é " & $l)
  Case $Button4
  Case $Button5
  Case $Button6
EndSwitch
WEnd

How to solve this prob?

Link to comment
Share on other sites

You're missing an EndIf statement in your $Button3 case section, put the endif in there and it should work.

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

  • Moderators

kiko298,

You are missing an EndIf: ;)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Form1
        Case $Button1
            _IECreate("www.Tugamov.blogspot.com", 1, 1, 0)
        Case $Button2
            MsgBox(64, "Créditos", "Desenvolvido por TheWebs ©™")
        Case $Button3
            $n = GUICtrlGetState($Radio1)
            If $n = 1 Then
                $x = GUICtrlRead($Input1)
                $l = $x * 1000
                MsgBox(64, "ola", "é " & $l)
            EndIf ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Case $Button4
        Case $Button5
        Case $Button6
    EndSwitch
WEnd

See how easy it is to spot if you indent the code? Try downloading the full SciTE4AutoIt3 editor package from here - it includes a utility called Tidy which will indent and check your code (that is how I found the problem so quickly). ;)

M23

Edit: Welcome to the AutoIt forum, by the way. :)

Edited by Melba23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

The "EndIf" is missing:

Case $Button3
    $n = GUICtrlGetState($Radio1)
    If $n = 1 Then
        $x = GUICtrlRead($Input1)
        $l = $x * 1000
        MsgBox(64, "ola", "é " & $l)
    EndIf ; <== This one

Edit: Too late!

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

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

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...