3.2 Tipus de dades, Constants i Variables

 

Els tipus vàlids de dades són similars als definits en Access. Tindrem més facilitat per a definir-los, i tindrem un tipus molt interessant. Quasi tots els tipus tenen un caràcter que, seguint el nom de la variable, fa que siga d'aquest tipus. Així per a declarar una variable entera podem posar Dim nom AS Integer, o senzillament Dim nom%.

Tipus de Dades	Significat	Grandària	Caràcter identificador
Byte	Enter positiu	1 byte
Integer	Enter	2 bytes	%
Long	Enter llarg	4 bytes	&
Currency	Enter molt llarg	8 bytes	@
Single	Real simple precisió	4 bytes	!
Double	Real doble precisió	8 bytes	#
Boolean	True (-1) o False (0)	2 bytes
String	Cadena	1 byte per caràcter	$
Date	Data-Hora	8 bytes
Variant	Variable: qualsevol tipus	1 byte fins 64Kb

 

Especialment interessant és el tipus VARIANT, que pot guardar dades de qualsevol tipus. Millor dit, depenent del valor actual funciona com d'un tipus o d'un altre. El següent codi no donaria error:

Dim v As Variant
v = 4
v = v + 2
v = "Hola"

El que sí que donaria error seria després

v = v + 2

perquè en aquest instant la variable és alfanumèrica.

• Per a definir constants s'utilitza

[Global] Const nom = <expressió>

• Per a definir variables

Dim nom [AS tipus] (per defecte Variant)

• Per a definir vectors

Dim nom ([límit_interior TO] límit_superior) [AS tipus]

Així per exemple, DIM v(10) AS Integer crea un vector de 11 enters (el límit inferior és 0, a no ser que es diga expressament amb la sentència OPTION BASE 1, i aleshores l'índex inicial serà 1).

També es pot alterar l'índex inicial d'aquesta manera: DIM v(10 TO 20) AS Integer. També crea un vector de 11 posicions, però el subíndex ha d'anar entre 10 i 20 (sinó donarà un error d'estar fora de rang).

També es poden definir matrius de dos o més dimensions (fins 60 dimensions). S'hauran d'especificar els límits de cada dimensió separats per comes: DIM m(5,10)

• Per a definir variables globals (o vectors globals) poseu Global en compte de Dim. Aleshores es podrà accedir a la variable des de qualsevol lloc del mòdul. Recordem que hi havia una altra manera de crear una variable global, i que era posar-la dalt de tot, abans de la declaració de la primera funció o procediment. Si una variable no és global, serà local i només es pot accedir a ella des del procediment o funció on s'ha creat. La immensa majoria de les variables seran locals. Únicament haurem d'especificar variables globals en casos molt concrets.


• Per a variables estàtiques (són locals però no volem que es reinicialitzen cada vegada que s'executa el procediment on estan) poseu Static en compte de Dim.

Registres

Podem definir estructures pròpies de dades (registres), formades per unes quantes dades individuals que anomenarem camps:

TYPE nom_tipus
    nom_camp AS tipus
    ...
END TYPE

Aquestes estructures s'han de definir al principi del mòdul, en la zona de declaracions, i si estan en un mòdul de Formulari o d'Informe s'ha de posar davant Private.

La manera d'utilitzar una estructura d'aquestes és definir una variable del tipus, i després utilitzar-la seguida del nom del camp separada per un punt.

Dim v as nom_tipus

v.nom_camp = valor
...

 

Per exemple, podem definir el tipus anomenat Punt per a representar les coordenades x i y d'un pun en el pla. En una funció, primer demanarem les coordenades d'un punt, i després les mostrarem. Per a demanar les dades utilitzem la funció InputBox, que obre una finestra on es pot introduir una informació en un quadre de text, i després la funció torna aquesta informació. Recordeu que la definició del tipus (Type) ha d'anar dalt de tot.

Type Punt
    x As Integer
    y As Integer
End Type

Function Coordenades()
    Dim p As Punt

    p.x = InputBox("Coordenada x")
    p.y = InputBox("Coordenada y")
    MsgBox ("(" & p.x & "," & p.y & ")")
End Function