D57. Mòdul 2. Pràctica 3. Programació d'aplicacions educatives amb Visual Basic

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

Veure el llistat del codi del programa, m2p3.

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

Rellotge

El rellotge digital que heu de crear serà semblant al següent:

Aquest formulari utilitza un control Timer, que de manera genèrica i en cas d'estar activat (pot estar també desactivat) executa el codi de programa que té associat cada cert interval de temps i que en aquest cas està descrit més avall. També utilitza una caixa de text per a contenir l'hora en format textual.

El formulari se semblarà finalment al següent:

Fase de disseny de la interfície d’usuari

Creeu un directori nou: C:\VBCurs\VBActivi\m2\p3 i un nou projecte, en aquest directori, que anomenareu m2p3. En ell, desareu tots els fitxers d'aquesta activitat i, una vegada creat el formulari d'aquesta petita aplicació, incorporeu-hi un control Timer i una caixa de text. Les propietats del formulari i d'aquest objecte són:

Objecte	Propietat	Valor
Formulari	Caption	Rellotge
	(Nombre)	frmRellotge
	BorderStyle	1 - Fixed single
	MaxButtom	False
	MinButtom	False
Timer	(Nombre)	tmrRellotge
	Interval	100
Caixa de text	(Nombre)	txtHora
	BorderStyle	0-none
	Text
	Enabled	False

La propietat Interval de l'objecte Timer, que en aquest cas val 100, implica que les instruccions associades a aquest control s'executaran cada 100 milisegons. La propietat Enabled de la caixa de text té el valor False per tal que l'usuari no pugui modificar el seu contingut (l'hora).

Tema: Timer Subtema: Timer Control

Fase de programació de respostes a events

La fase de programació consisteix a definir quin és el codi de programa que s'executarà cada 100 milisegons, és a dir:

Procediments associats a l'event Timer

Recordeu que aquest mètode s'executa cada interval de temps definit en el control Timer:

Sub tmrRellotge_Timer ()
  txtHora.Text = Format(Now, "hh:mm:ss")
End Sub

Aquest procediment s'executa cada 100 milisegons perquè la propietat Interval de l'objecte Timer té aquest valor. Llegeix l'hora del sistema i l'assigna a la caixa de text txtHora.

Tema: Format Subtema: Format, format$ functions

Finalment, deseu el projecte amb el nom m2p3.

Exercicis

Per enviar al professor tutor. (Directori C:\VBCurs\VBExerci\m2\p3 )

E1. Feu que el rellotge anterior mostri cada 5 segons un missatge per pantalla, al cap de 5 segons desapareix, al cap de 5 segons més apareix, de nou, al cap de 5 segons més torna a aparèixer i així succesivament. Recordeu la instrucció Second. Pot servir-vos d'ajuda la següent instrucció del Basic:

Tema: Mod Subtema: Mod operator

La finestra principal del programa ha de quedar més o menys així:

Cal enviar els següents fitxers:

m2p3e1.vbp

m2p3e1.frm

m2p3e1.exe