classe di concorso A042 - INFORMATICA
O.O.P.
Costruiamo la prima classe
in VISUAL BASIC
Corso abilitante
riservato ad abilitati in altra classe
Obiettivo
• costruire una classe di nome clsMiaClasse
costituita da una proprietà MiaProprietà di tipo
intero, ed un metodo MioMetodo che ne
attribuisce un valore casuale
clsMiaClasse
• MiaProprietà è resa
accessibile dalle procedure MiaProprietà as integer
MioMetodo as integer
Let e Get
Property Let (integer)
Property Get as integer
Applicazione
l’applicazione principale, costruita attorno ad un form
frmMioForm, deve istanziare un oggetto
objMioOggetto di questa classe, e poter leggere e
scrivere il valore della proprietà MiaProprietà tramite
due pulsanti abbinati a due caselle di testo
valore da scrivere nella proprietà
valore letto nella proprietà
Passi da seguire (1)
• lanciare VisualBasic
• Nuovo Progetto =>
EXE standard [Apri]
• Progetto =>
Inserisci modulo di classe =>
Creazione guidata classe VB [Apri]
• click su
Aggiungi nuova classe
• nella finestra Creazione modulo di classe, cartella
Proprietà, casella Nome scrivere il nome della
classe “clsMiaClasse”, [OK]
Passi da seguire (2)
• click su
Aggiungi nuova proprietà alla classe
• nella finestra Creazione proprietà, cartella
Proprietà, nella casella Nome scrivere il nome della
proprietà “MiaProprietà”, e nella casella Tipo di dati
selezionare “Integer”, e poi [OK]
• click su
Aggiungi nuovo metodo alla classe
• nella finestra Creazione metodi, cartella Proprietà,
nella casella Nome scrivere il nome della proprietà
“MioMetodo” , e poi [OK]
Passi da seguire (3)
• File =>
Aggiorna progetto
• chiudere la finestra Creazione guidata classi e
controllare la finestra Progetto - clsMiaClasse (codice)
• aggiornare a mano il codice del metodo:
Public Sub MioMetodo()
Randomize
Proprietà = Int (Rnd * 100)
End Sub
Passi da seguire (4)
Predisponiamo i seguenti controlli sul form frmMioForm
(Name)
Caption
Height
Width
frmMioForm
Prima Classe
2055
4800
(Name)
Height
Left
Text
Top
Width
txtOutput
375
360
--vuoto-240
1095
(Name)
Height
Left
Text
Top
Width
txtInput
375
3120
--vuoto-240
1095
Passi da seguire (5)
aggiungere anche i seguenti controlli CommandButton:
(Name)
Caption
Height
Left
Top
Width
cmdLeggi
LEGGI
495
360
840
1095
(Name)
Caption
Height
Left
Top
Width
cmdTermina
TERMINA
495
1560
840
1455
(Name)
Caption
Height
Left
Top
Width
cmdScrivi
SCRIVI
495
3120
840
1095
Passi da seguire (6)
aggiungere il codice dell’applicazione nel form:
• selezionare il form, Visualizza => codice e digitare:
Dim MioOggetto As New clsMiaClasse
istanza dell’oggetto con
visibilità a livello di modulo
Private Sub cmdLeggi_Click()
txtOutput = MioOggetto.Proprietà
procedura di gestione dell’evento
End Sub
click del bottone cmdLeggi
segue
Passi da seguire (7)
Private Sub cmdScrivi_Click()
MioOggetto.Proprietà = txtInput.Text
End Sub
Private Sub cmdTermina_Click()
Unload Me
End Sub
Private Sub Form_Load()
MioOggetto.ACaso
End Sub
metodo standard per
terminare l’applicazione
procedura standard richiamata
dall’evento apertura del form
Possibili modifiche
• aggiungere un controllo per evitare l’errore
di SCRIVI con la casella di testo vuota
• inizializzare ad un valore casuale la
proprietà dell’oggetto
• aggiungere due metodi Incrementa e
Decrementa collegati a due bottoni
opportuni