domingo, 3 de junio de 2012

Ejemplo con tipos de datos


En este ejemplo según el tipo de datos que contenga la variable datos,
nos devolverá que tipo de variable es.

 Vamos a usar el procedimiento principal ya sea
  1. Form_Load() o PUBLIC SUB Main()
  2. Un procedimiento para que nos muestre que tipo es
  3. Una función para que nos muestre una frase y no tengamos que escribirla varias veces

---código---

'Ejemplo con tipos de datos

Public Sub Form_Open()
    
Dim dato As Variant 'Almacenara cualquier tipo de datos.

'Almacenamos un tipo de valor en la variable con "identificador" dato
dato = 34
TipoDato(dato)

'¿Que tipo de variable es dato ?".Creamos un procedimiento que nos lo diga
'Le pasamos al procedimiento TipoDato el contenido de la variable dato
'y nos muestre que tipo es.
'Continuamos

dato = "Casa"
TipoDato(dato)
dato = 12.67
TipoDato(dato)
dato = 145674356274
TipoDato(dato)
dato = False
TipoDato(dato)
dato = Null
TipoDato(dato) 'El no conoce el tipo Nulo. No lo hemos incluido.

End

Public Sub TipoDato(valor As Variant)

Select Case TypeOf(valor)
    Case gb.Boolean
          Print frase() & "boolean." 'No muestra bien,verdadero o falso
    Case gb.Integer
          Print valor & frase() & "entero."
    Case gb.Long
          Print valor & frase() & "long"
    Case gb.Float
          Print valor & frase() & "float"
    Case gb.String
          Print valor & frase() & "string"
    Case Else
          Print "No se que tipo es"
End Select
'Lógicamente existen más tipos de datos
Print 'Dejamos un espacio en blanco cada vez que muestra un dato

End

Public Function frase() As String
      Return " es del tipo " 'Ejemplo de función que nos devuelve una frase
End

---código----

Como habéis observado no hemos pasado un valor o parámetro
a la función.Tan solo ha devuelto un valor al llamarla.
 
Para saber el tipo de datos hemos usado la función TypeOf que nos
devuelve un valor que es una “constante”.Tenemos también valores
que usa el propio Gambas que son constantes predefinidas.

gb.Boolean
gb.Integer
gb.Long

etc.

Mas información en:






No hay comentarios:

Publicar un comentario