OpenEuphoria

Dan MoyerRe: return statement

• Posted by sixs at ida.net Apr 16, 2002
• 542 views

Dan Moyer,
This is the coding I'm doing . I set the number of edit fields to display,
and edit and then compare. Is this good or bad ? I would like to have the
choice to limit the text from 2 to 10 characters but ?
jim smiley

procedure onClick_startBtn()
 if isChecked(try15RB)  or  isChecked(try12RB) or  isChecked(try9RB)
  or  isChecked(try6RB)
  then
  setvisiblenumbers()
  setText(ERROR,"Enter  Your numbers!!!!")
     setVisible(ERROR, True)
  setFocus(mfEditText1)
 else
  setText(ERROR,"Select number report!!!!")
     setVisible(ERROR, True)
  return
 end if
-- trace(1)
 wmfEditText1 = getText(mfEditText1)
 if length(wmfEditText1) = 0 then
   setText(ERROR,"enter first number !!!!")
       setVisible(ERROR, True)
   setFocus(mfEditText1)
  return
  else
    setText(ERROR,"Ok !!!!")
       setVisible(ERROR, True)
    end if

 wmfEditText2 = getText(mfEditText2)
 if length(wmfEditText2) = 0 then
  setText(ERROR,"enter second number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText2)
  return
 else
  setText(ERROR,"Ok !!!!")
     setVisible(ERROR, True)
    end if

  wmfEditText3 = getText(mfEditText3)
 if length(wmfEditText3) = 0 then
  setText(ERROR,"enter third number !!!!")
     setVisible(ERROR, True)
  setFocus(mfEditText3)
  return
 else
  setText(ERROR,"Ok !!!!")
     setVisible(ERROR, True)
    end if
 wmfEditText4 = getText(mfEditText4)
 if length(wmfEditText4) = 0 then
  setText(ERROR,"enter fourth number !!!!")
     setVisible(ERROR, True)
  setFocus(mfEditText4)
  return
 else
  setText(ERROR,"Ok !!!!")
     setVisible(ERROR, True)
    end if
 wmfEditText5 = getText(mfEditText5)
 if length(wmfEditText5) = 0 then
  setText(ERROR,"enter fifth number !!!!")
     setVisible(ERROR, True)
  setFocus(mfEditText5)
  return
 else
  setText(ERROR,"Ok !!!!")
    setVisible(ERROR, True)
    end if
 wmfEditText6 = getText(mfEditText6)
 if length(wmfEditText6) = 0 then
  setText(ERROR,"enter sixth number !!!!")
     setVisible(ERROR, True)
   setFocus(mfEditText6)
  return
 else
  setText(ERROR,"Ok !!!!")
     setVisible(ERROR, True)
    end if
 wmfEditText7 = getText(mfEditText7)
 if isChecked(try15RB)  or  isChecked(try12RB) or  isChecked(try9RB)
    then
  if length(wmfEditText7) = 0 then
   setText(ERROR,"enter seventh number !!!!")
      setVisible(ERROR, True)
   return
  else
   setText(ERROR,"Ok !!!!")
       setVisible(ERROR, True)
    setFocus(mfEditText7)
  end if
    end if
  if isChecked(try15RB)  or  isChecked(try12RB) or  isChecked(try9RB)
  then
  wmfEditText8 = getText(mfEditText8)
  if length(wmfEditText8) = 0 then
   setText(ERROR,"enter eighth number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText8)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB)  or  isChecked(try12RB) or  isChecked(try9RB)
   then
   wmfEditText9 = getText(mfEditText9)
  if length(wmfEditText9) = 0 then
   setText(ERROR,"enter ninth number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText9)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB)  or  isChecked(try12RB)
   then
  wmfEditText10 = getText(mfEditText10)
  if length(wmfEditText10) = 0 then
   setText(ERROR,"enter tenth number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText10)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB)  or  isChecked(try12RB) then
  wmfEditText11 = getText(mfEditText11)
  if length(wmfEditText11) = 0 then
   setText(ERROR,"enter eleventh number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText11)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB)  or  isChecked(try12RB) then
  wmfEditText12 = getText(mfEditText12)
  if length(wmfEditText12) = 0 then
   setText(ERROR,"enter twelveth number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText12)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB) then
  wmfEditText13 = getText(mfEditText13)
  if length(wmfEditText13) = 0 then
   setText(ERROR,"enter 13th number !!!!")
      setVisible(ERROR, True)
   setFocus(mfEditText13)
  return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB)  then
  wmfEditText14 = getText(mfEditText14)
  if length(wmfEditText14) = 0 then
   setText(ERROR,"enter 14th number !!!!")
      setVisible(ERROR, True)
    setFocus(mfEditText14)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if
 if isChecked(try15RB) then
    wmfEditText15 = getText(mfEditText15)
  if length(wmfEditText15) = 0 then
   setText(ERROR,"enter 15th number !!!!")
      setVisible(ERROR, True)
    setFocus(mfEditText15)
   return
  else
   setText(ERROR,"Ok !!!!")
      setVisible(ERROR, True)
     end if
 end if

 setinvisiblenumbers()
 clearguess()
 setvisibleguess()
 end procedure
----- Original Message -----
From: Dan Moyer <DANIELMOYER at prodigy.net>
To: EUforum <EUforum at topica.com>
Sent: Tuesday, April 16, 2002 7:11 AM
Subject: Re: return statement


>
> jvandal,
>
> The following demo isn't exactly what you specified, but it's close &
maybe
> a start:
>
> -- CODE STARTS:
> --  code generated by Win32Lib IDE v0.10.6
>
> include Win32Lib.ew
> without warning
>
--
> ----
> --  Window Window1
> global constant Window1 = create( Window, "Enter info into each field,
press
> finished", 0, Default, Default, 400, 300, 0 )
> global constant StatusBar9 = create( StatusBar, "StatusBar9", Window1, 0,
0,
> 0, 0, 0 )
> global constant EditText2 = create( EditText, "", Window1, 24, 20, 50, 20,
> 0 )
> global constant EditText3 = create( EditText, "", Window1, 120, 20, 50,
20,
> 0 )
> global constant EditText4 = create( EditText, "", Window1, 212, 20, 50,
20,
> 0 )
> global constant EditText5 = create( EditText, "", Window1, 28, 68, 50, 20,
> 0 )
> global constant EditText6 = create( EditText, "", Window1, 124, 68, 50,
20,
> 0 )
> global constant EditText7 = create( EditText, "", Window1, 216, 68, 50,
20,
> 0 )
> global constant PushButton8 = create( PushButton, "Finished", Window1,
104,
> 116, 90, 30, 0 )
> ----
> procedure PushButton8_onClick ()
> if length(getText(EditText2)) = 0 or
>    length(getText(EditText3)) = 0 or
>    length(getText(EditText4)) = 0 or
>    length(getText(EditText5)) = 0 or
>    length(getText(EditText6)) = 0 or
>    length(getText(EditText7)) = 0 then
>         setText(StatusBar9, "Please enter data into all fields")
> else
>   setText(StatusBar9, "ok")
> end if
> end procedure
> onClick[PushButton8] = routine_id("PushButton8_onClick")
>
>
> WinMain( Window1, Normal )
>
> -- CODE ENDS
>
> ----- Original Message -----
> From: <sixs at ida.net>
> To: "EUforum" <EUforum at topica.com>
> Sent: Monday, April 15, 2002 11:15 PM
> Subject: return statement
>
>
> I have a Windows program where I am checking several fields and if the
> fields are not entered, I want to tell the user to input the data in the
> field and then proceed to the next field. If the user does not like what
he
> has entered he can change it and leave the other fields as entered. I have
> these several input statements in a procedure. If the field needs to be
> entered the program seems to return to the starting point  at the
beginning
> of the procedure, and does not return just to the statement being
executed.
> Is this is what is happening, or is there a way to force it to return to
the
> statement?
>
> jvandal
>
>
>
>