Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Convertir SELECT CASE De Vb6 A Gambas?
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Convertir SELECT CASE De Vb6 A Gambas? 
 
buenas otra ves, hoy estaba haciendo un programa para un amigo, tenemos un combobox, que en el cargamos un montón de cosas al principio. luego el usuario cuando se para en algún lugar del combobox, se tiene que visualizar la información en los labels, es como una base de datos, sin bd.

Bueno para verificar constantemente el combobox, si cambia o no en vb6 use un SELECT CASE.

Private Sub cbodisp_Click()
Select Case cbodisp.Text
Case "Memoria RAM K128"
        Label1.Caption = "Memoria RAM Kingstone"
        Label2.Caption = "128MB"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "DDR1"
        Label6.Caption = "Muy buena calidad."
        Picture1.Picture = LoadPicture(".\img\kigtone128.jpg")
        ..............muchos mas..................
End Select
End Sub


bien al pasarlo a gambas, según la wiki seria algo así:

Private Sub cbodisp_Click()
SELECT CASE ("cbodisp.Text")
CASE ("Memoria RAM K128")
        Label1.Caption = ("Memoria RAM Kingstone")
        Label2.Caption = ("128MB")
        Label3.Caption = ("SI")
        Label4.Caption = ("SI")
        Label5.Caption = ("DDR1")
        Label6.Caption = ("54SD8F1E3F.")
        Picture1.Picture = LoadPicture(".\img\kigtone128.jpg")
        ..............muchos mas..................
ELSE SELECT CASE
-------
END SELECT
END SUB


pero no logro hacerlo andar. me dice q tengo un error en la sintaxis.
 



 
Agamenon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Convertir SELECT CASE De Vb6 A Gambas? 
 
Visita la pagina de documentacion de Select Case: Enlace GambasDoc Select Case, alli puedes ver un ejemplo de como usarlo en gambas

SELECT CASE w
    CASE 1
      a = a + 1
    CASE 2
      b = b + 1
    CASE 3
      c = c + 1
    CASE 4
      d = d + 1
    CASE 5
      e = e + 1
    CASE 6
      f = f + 1
    CASE ELSE
      PRINT "¡Esto es imposible!"
  END SELECT


Saludos

Nota:
La documentación de gambas, es muy útil, visitala cuando tengas alguna duda de sintaxis Enlace GambasDoc
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Convertir SELECT CASE De Vb6 A Gambas? 
 
Que raro que en la wiki estuviese mal escrito la instrucción.  

Si es "casi" calcada a la de VB.

La diferencia que vi era cuando son un rango de valores,"1..10" .
Pero gambas también la admite de otra forma.

Saludos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron