miércoles, 23 de abril de 2014

Usando choose

' Gambas class file
'Valor = Choose ( Elección , Resultado #1 , Resultado #2 [ , ... ] )
'Esta función devuelve el valor de uno de sus argumentos Resultado #i , de acuerdo con el valor de Elección.

Public Sub Form_Open()

  Me.Center

End

Public Sub btnTraducir_Click()

  Dim NumeroX As Integer 'declaro variable de tipo numérico
  Dim NumeroXtraducido As String 'declaro variable de tipo cadena o palabras

  btnCartel.Text = "" 'dejo en blanco el boton para poder visualizar correctamente el próximo resultado
  NumeroX = TextBox1.Text 'cargo el valor numerico del cuadro de texto en la variable NumeroX que estaba sin valor
 
  'aqui guardamos el resultado de choose en la variable NumeroXtraducido de tipo string
  'choose evaluara NumeroX y si es 1 devolvera el primer resultado "one" si es 2 devolvera "Two" y asi sucesivamente
  'mas info en : http://gambasdoc.org/help/lang/choose?es&v3
  NumeroXtraducido = Choose(NumeroX, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
 
  'muestro el contenido de la variable NumeroXtraducido en el boton Cartel
  btnCartel.Text = NumeroXtraducido
End

Código fuente:  Usando_choose-0.0.1.tar.gz

No hay comentarios.:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...

Facebook

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.