PROGRAMACIÓ D'APLICACIONS EDUCATIVES AMB VISUAL BASICMÒDUL 3ENRERA
PRÀCTICA 1 2 3 4 5
 
Executar el programa m3p1.exe per conèixer el seu comportament.

Veure el llistat del codi del programa, m3p1.

Executar Visual Basic per editar el projecte (acabat): m3p1.vbp.


Arrays

Aquesta activitat, de la qual es mostra el formulari principal,


té la finalitat de treballar els conceptes bàsics de l'ús d'una variable del tipus array que en aquesta activitat és un array amb un sol índex (en aquest cas, els arrays s'anomenen vectors).

Creeu un directori nou: C:\VBCurs\VBActivi\m3\p1 i un nou projecte, en aquest directori, que anomenareu m3p1 en el qual heu de:

    a) Declarar un vector de 6 elements.

    b) Assignar valor als sis elements.

    c) Mostrar l'element requerit per l'usuari.


Fase de disseny de la interfície d’usuari

En el formulari principal hi ha tres etiquetes i dos quadres de text, txtLloc i txtDada. Les tres etiquetes contenen els textos mostrats en el formulari anterior.

Objecte

Propietat

Valor

Formulari principal

Caption

Vector

Etiqueta 1

Caption

Aquest.....elements

Etiqueta 2

Caption

Element número:

Etiqueta 3

Caption

Té com a dada:

Caixa de text número

(Nombre)

txtLloc
 

Text

""

Caixa de text dada

(Nombre)

txtDada
 

Text

""



Fase de programació de respostes a events

Declaracions generals d'àmbit el formulari

    Declaració de variables 
    Dim VectorProva(6) As Integer
Tema: Dim Subtema: Redim


Mètodes associats a l'event Load

Per al formulari principal: 
    Sub Form_Load ()
  VectorProva(1) = 10
  VectorProva(2) = 20
  VectorProva(3) = 30
  VectorProva(4) = 40
  VectorProva(5) = 50
  VectorProva(6) = 60
End Sub
 Aquest procediment inicialitza els valors dels components de la variable VectorProva


Mètodes associats a l'event Change

En canviar el valor de la caixa de text txtLloc el mètode txtLloc_Change troba el valor de l'element corresponent de la variable VectorProva i es presenta en la caixa de text txtDada: 
    Sub txtLloc_Change ()
  Dim i As Integer

  i = Val(txtLloc)
  If i > 0 And i < 7 Then
    txtDada = Str(VectorProva(i))
  else
    txtDada = ""
  End If
End Sub
 Observeu els canvis de tipus de dades per a obtenir el valor de les variables i i txtDada perquè aquestes variables són numèriques i les caixes de text contenen text.


Exercicis

No n'hi ha.