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:

Tipos de datos

Función TypeOf

Constantes predefinidas