Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » Aplicaciones/Fragmentos de Código

Convertir SELECT CASE De Vb6 A Gambas?

Responder al tema

 

Agamenon
Citar
Mensajes: 36
Domingo, 22 Enero 2012, 09:45
Objetivo: 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.

Perfil MP  
jsbsan
Citar
Mensajes: 4175 Ubicación: dos hermanas, sevilla
Domingo, 22 Enero 2012, 09:57
Objetivo: 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

Perfil MP   Sitio web MSN
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Domingo, 22 Enero 2012, 10:05
Objetivo: 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.

Perfil MP   Sitio web
Responder al tema
 

Página 1 de 1


  
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

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.461s (PHP: -77% SQL: 177%)
Consultas SQL: 45 - Debug off - GZIP Activado