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

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

Veure el llistat del codi del programa, m6p4.

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

Aprenent a dibuixar funcions

En aquesta activitat fareu un dibuix com el de la figura (sense les etiquetes de color vermell).

La característica principal d'aquest dibuix és que el podeu dibuixar amb un sol traç, sense separar el llapis del paper. Per fer el dibuix utilitzareu el següent algoritme

Aquesta situació la podeu reproduir molt bé amb els mètodes de dibuix que incorpora Visual Basic.

Aquest projecte el desareu a C:\VBCurs\VBActivi\m6\p4 amb el nom m6p4.

Fase de disseny de la interfície d’usuari

Només teniu dos objectes, el formulari anomenat frmtor i un quadre de dibuix

que anomenareu picDibuix.

Fase de programació de respostes a events

Definició i declaració de variables d'àmbit tot el formulari:

Dim VèrtexAX As Single
Dim VèrtexAY As Single
Dim VèrtexBx As Single
Dim VèrtexBY As Single

Procediments d'àmbit tot el formulari:

Procediment d'àmbit tot el formulari que crearà un sistema d'eixos de coordenades centrat i en centímetres en el quadre de dibuix picDibuix:

Sub PosaEscala ()								
  Dim MidaX As Single
  Dim MidaY As Single
  Dim ConversióTwipsCentímetres As Single

  ConversióTwipsCentímetres = 1 / 567
  MidaX = picDibuix.Width * ConversióTwipsCentímetres
  MidaY = picDibuix.Height * ConversióTwipsCentímetres
  VèrtexAX = -MidaX / 2
  VèrtexAY = MidaY / 2
  VèrtexBx = MidaX / 2
  VèrtexBY = -MidaY / 2
  picDibuix.Scale (VèrtexAX, VèrtexAY)-(VèrtexBx, VèrtexBY)
End Sub

Mètodes associats a l'event Load

Per al formulari:

En obrir-se el formulari principal s'executa el procediment PosaEscala.

Sub Form_Load ()
  PosaEscala 
End Sub

Mètodes associats a l'event Click

El dibuix apareixerà en l'objecte picDibuix com a resposta de l'event Click. Aquí cal posar l'algorisme explicat abans per tal de fer el dibuix de línies:

Sub picDibuix_Click ()
  ' Posar el llapis al vèrtex A(-2,-2).
  picDibuix.CurrentX = -2
  picDibuix.CurrentY = -2
  ' Dibuixar una línia fins al punt B(2,-2).
  picDibuix.Line -(2, -2)
  'Dibuixar una línia fins al punt (2,2).
  picDibuix.Line -(2, 2)
  picDibuix.Line -(-2, 2)
  picDibuix.Line -(0, 4)
  picDibuix.Line -(2, 2)
  picDibuix.Line -(-2, -2)
  picDibuix.Line -(-2, 2)
  picDibuix.Line -(2, -2)
End Sub

Exercicis

No n'hi ha