Mòdul 6. Pràctica 5. PROGRAMACIÓ D'APLICACIONS EDUCATIVES AMB VISUAL BASIC

Executar el programa m6p5a.exe per conèixer el seu comportament.

Veure el llistat del codi del programa, m6p5a.

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

Dibuix d'una paràbola

Aquesta activitat és molt semblant a l'anterior. El dibuix serà en aquest cas una paràbola traçada amb punts. El formulari que creareu serà semblant al mostrat aquí a sota:

La funció que dibuixareu és: y = x² -2.

Assignareu els punts de coordenades (x,x*x-2) fent variar x entre -2 i 2 a intervals d'1 centímetre. Aquesta activitat té dos apartats (dibuix de la paràbola a punts o amb traç continu). El projecte esmentat al primer apartat l'anomenareu m6p5a i el desareu al directori C:\VBCurs\VBActivi\m6\p5. Anàlogament, el segon projecte el desareu amb el nom m6p5b al mateix directori.

Fase de disseny de la interfície d’usuari

Creeu un formulari que anomenareu frmPara, establiu el valor "Funció y=x*x-2" per a la propietat Caption i un quadre de dibuix que anomenareu picDibuix:

Fase de programació de respostes a events

Els mètodes són els mateixos que a l'activitat anterior. Recordeu afegir, doncs, la definició de les variables VèrtexAX,VèrtexAY,VèrtexBX,VèrtexBY, el procediment PosaEscala i el procediment d'event Form_Load. Només canvia el procediment associat a l'event Click i per a l'objecte picDibuix:

Dibuix de la paràbola a punts:

Sub picDibuix_Click ()
  Dim x As Single

  x = -2
  Do While x < 2
    picDibuix.PSet (x, x * x - 2)
    x = x + .1
  Loop
End Sub

Si voleu que la paràbola es dibuixi en un traç heu d'unir els punts anteriors per tal de fer una línia continua. El procediment anterior l'heu de modificar de la forma següent:

Dibuix de la paràbola amb traç continu:

Sub picDibuix_Click ()
  Dim x As Single

  x = -2
  picDibuix.CurrentX = x
  picDibuix.CurrentY = x * x - 2
  Do While x < 2
    picDibuix.Line -(x, x * x - 2)
    x = x + .1
  Loop
End Sub

Executar el programa m6p5b.exe per conèixer el seu comportament.

Veure el llistat del codi del programa, m6p5b.

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

Exercicis

Per enviar al professor tutor. (Directori C:\VBCurs\VBExerci\m6\p5 )

E1. Feu un programa semblant a l'anterior, però que dibuixi una funció de tercer grau x³ i també els eixos. Hauria de sortir semblant a la figura següent:

Cal enviar els següents fitxers:

m6p5e1.vbp

m6p5e1.frm

m6p5e1.exe

Per no haver de començar de nou tot el projecte:

Copieu els fitxers del directori C:\VBCurs\VBHtml\vibam6\m6p5, m6p5b.vbp i m6p5b.frm en el directori on feu l'exercici: C:\VBCurs\VBExerci\m6\p5.
Cliqueu damunt el fitxer m6p5b.vbp perquè es carregui Visual Basic amb aquest projecte.
Deseu el fitxer m6p5b.frm amb el nom m6p5e1.frm (Guardar archivo como...).
Deseu el projecte m6p5b.vbp amb el nom m6p5e1.vbp (Guardar proyecto como...).
Després podeu esborrar el fitxers , m6p5b.vbp i m6p5b.frm del directori on feu l'exercici: C:\VBCurs\VBExerci\m6\p5.
A continuació podeu fer les modificacions del codi necessàries perquè dibuixi una funció de tercer grau i els eixos. Només cal modificar el mètode Sub picDibuix_Click ().