[Gambas-user] (no subject)

[Charlie Reinl]

Am Mittwoch, den 01.04.2009, 17:06 +0300 schrieb vlahonick vlahonick:
> Thanks you all for your replies....
> For those that they propuse me to put "end if" at the end of the code of course i did that!!!!
> In the screenshot i send you all it was just a part of the code,the theme of the screenshot was to show u the error.
> If i didnt close the code with as many end if were needed the language itself would give me other error that end if are needed.
> The code i wrote was completely correct,i double-triple checked it...
> In the screenshot i repeat is just a very small part of my code because i want u to see the error and not the code...
> Anyway i tried to rewrite my code with the Select Case expression but is more difficult because there are many cases and ONLY
> one have to be triggered per time and which case should be triggered depends from what the user will wirte...
> I didnt really succeded to do that with the Select Case expression.
> So here i give u an example and if someone could help me by writing the same example with the select case expression it will be very helpful.
> 
> PUBLIC SUB Button1_Click
> 
> if textbox1.text = "a" then
> textbox2.text = "b"
> else
> if textbox1.text = "b" then
> textbox2.text = "g"
> end if
> end if
> 
> END
> 
> (like the example is my program's code-and the events are triggered when the user press the OK button)
> 
> ty in advance again...:D

Salut,

first: tell us what version of Gambas you are using.
second: am I right, you are writing a kind of CONVERTER ?
	
if so this is what I would write quickly.

FUNCTION myConvert(sInChar AS String) AS String
DIM sRetChar AS String = sInChar  ' makes the return value to the given
value
   ' now make you changes
  IF sInChar = "a" THEN sRetChar = "0"
  IF sInChar = "b" THEN sRetChar = "1"
  IF sInChar = "c" THEN sRetChar = "2"
  IF sInChar = "d" THEN sRetChar = "3"
  IF sInChar = "e" THEN sRetChar = "4"
  IF sInChar = "f" THEN sRetChar = "5"
  IF sInChar = "g" THEN sRetChar = "6"
  IF sInChar = "h" THEN sRetChar = "7"
  IF sInChar = "i" THEN sRetChar = "8"
  IF sInChar = "j" THEN sRetChar = "9"
  IF sInChar = "0" THEN sRetChar = "a"
  IF sInChar = "1" THEN sRetChar = "b"
  IF sInChar = "2" THEN sRetChar = "c"
  IF sInChar = "3" THEN sRetChar = "d"
  IF sInChar = "4" THEN sRetChar = "e"
  IF sInChar = "5" THEN sRetChar = "f"
  IF sInChar = "6" THEN sRetChar = "g"
  IF sInChar = "7" THEN sRetChar = "h"
  IF sInChar = "8" THEN sRetChar = "i"
  IF sInChar = "9" THEN sRetChar = "j"
  RETURN sRetChar
END

I attached you a test.

-- 
Amicalment
Charlie
-------------- next part --------------
A non-text attachment was scrubbed...
Name: TEST-0.0.1.tar.gz
Type: application/x-compressed-tar
Size: 7882 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20090401/ff1d28d4/attachment.bin>