guida nn mia fonte
ho voluto iserire questa guida x introdurre un nuovo argomento a ki ancora nn sapesse questo linguaggio
guida nn finita x mancanza di tempo ma assicuro ke entro oggi verra resa publica la versione ultimata
Guida al Visual Basic: Progetto
Il nostro primo progetto in vb6
Prima di elencare in dettaglio le principali basi teoriche per l'uso di vb6, prendiamo un po' di confidenza con l'ambiente di sviluppo e su come accedervi. Lanciamo quindi Microsoft Visual Basic 6.0 e dalla finestra nuovo progetto scegliamo �EXEstandard�; verrà creata in automatico una form d'avvio e ci troveremo in questa situazione: il pulsante che manda in avvio il programma è stato cerchiato di rosso)
Sulla sinistra notiamo la casella degli strumenti, al centro il form;a destra la finestra delle proprietà
( se la casella delle proprietà non appare, fare click col pulsante destro del mouse su form1 e scegliere proprietà). Ma cosè unaform? È una semplice finestra di windows dove possiamo inserire i campi di testo, i pulsanti per far interagire l'utente con la nostra applicazione ; tali pulsanti li troviamo nella casella degli strumenti. Sulla finestra delle proprietà cambiamo subito la caption evidenziata, che sarà il titolo della applicazione .
Ma proviamo ora a costruire una applicazione che mi visualizzi il risultato di una operazione matematica per esempio il prodotto di due numeri (a,b) che andrò ad inserire in due campi di testo.
Allora facciamo click sulla casella degli strumenti su
[/URL][/IMG]spostiamo il muose sul form; il puntatore assumerà l'aspetto di una croce; facciamo click trascinando fino a visualizzare sul form una casella di testo.
[/URL][/IMG]
andiamo sulla proprietà text di text1 e cancelliamone il contenuto, perché la casella di input deve essere libera per l'inserimento;
analogamente inseriamo una casella text2 e un bottoncino
[/URL][/IMG](command1) facendo doppio click sul bottoncino mi si aprirà la finestra del codice relativa al controllo;
Private Sub Command1_Click()
End Sub
Cosa fa la sub? Esegue le istruzioni che ci scriveremo dentro quando faremo click sul bottoncino. Aggiungiamo allora un terzo campo di testo (text3) che conterrà il nostro risultato, poi su command1_click scriviamo:
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub
Provate ora a premere "F5" per avviare il programma e vedrete il programma in esecuzione. Inserite dei valori e verificate il risultato.
Guida al Visual Basic: Varibili
Le variabili in visual basic
Passiamo ora ad un cenno noioso ma indispensabile per chi si accinge alla programmazione ;le variabili e i tipi di dati. Anche se non è strettamente necessario dichiarare le variabili e il tipo di dato lo consiglio a chi si accinge ad imparare il VB; infatti se lo prende di buona norma ora lo farà sempre e il linguaggio strutturato lo aiuterà ad evitare errori oscuri. Nell' esempio precedente abbiamo preso due valori da campi di testo e li abbiamo moltiplicati fra loro; il risultato è esatto ma se invece di fare il prodotto avessimo fatto la somma:
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
Mettendo 3 e 5 nei campi di testo otterremmo 35! Perché? Perché non dichiarando le variabili a cui associamo il campo di testo il visual le interpreta come Stringhe (cioè sequenze di caratteri alfanumerici)
E le concatena. Se invece sostituite questo codice:
Dim a As Integer
Dim b As Integer
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
Vedrete che avrete il valore esatto
Per ricordarsi di dichiarare le variabili, nella sezione generale del form, sotto dichiarazioni aggiungere:
Option Explicit
se non dichiarate le variabili il debug vi segnalerà errore.
P rincipali Tipi di variabili in visual basic
String: Caratteri alfanumerici
Integer: Intero
Long: Intero lungo
Double: Decimali
Boolean: Vero/Falso
Guida al Visual Basic: Operatori
Gli operatori in visual basic
Quando scrivete codice di programmazione, potete eseguire delle operazioni sulle variabili con i seguenti operatori:
O peratori matematici
Somma ( + )
Prodotto ( * )
Sottrazione ( - )
Divisione ( / )
Operatori su stringhe
Concatenazione: & ; a & b
se
a="Roma"
b=" è bella"
a & b restituisce "Roma è bella"
Operatori Logici
Vengono usati sulle variabili di tipo booleano (Vero/Falso)
And (restituisce vero se entrambi le variabili sono impostate a Vero, altrimenti Falso)
Or (restituisce vero se almeno una delle variabili è Vero)
NOT (restituisce Vero se la variabile è Falso e viceversa)
Ma ora basta con la teoria; serviamoci degli operatori per costruire l'esempio "calcolatrice":
Costruiamo prima il form usando un campo di testo e i bottoncini (command):
[/URL][/IMG]
Usando la finestra proprietà mettiamo nella caption numeri e simboli Successivamente in ogni bottoncino numerico inseriamo il codice:
Private Sub Command2_Click()
Text1.Text = Text1.Text & "7"
End Sub
In questo modo scriviamo dei valori numerici nel display della calcolatrice
(Per scrivere il codice nel bottoncino basta fare doppio click su di esso; si apre in tal modo la finestra del codice; per passare da un bottoncino all'altro dal menù visualizza scegliere"oggetto", verrà rivisualizzato il form)
dichiariamo poi nella sezione generale del form le seguenti variabili:
(fate prima click su "Visualizza"---->"codice", poi con la casella a discesa di sinistra selezionate "generale", su quella di destra "dichiarazioni")
Dim a, b As Double
Dim op As String
a e b saranno I valori processati, mentre op è il tipo di operazione (+,-,*,/)
(le variabili dichiarate nella sezione generale della form mantengono il loro valore per tutte le sub eseguite)
ora nei bottoni rossi che contengono gli operatori / + * - inseriamo il codice:
a = CDbl(Text1.Text)
op = "/"
Text1.Text = ""
Questo per il bottoncino "/" ; negli altri dobbiamo mettere il simbolo corrispondente. In tal modo resta memorizzata nella variabile "op" l'operazione che si desidera fare.
Prima di analizzare il risultato finale facciamo un pò il punto della situazione:abbiamo memorizzato il primo dei valori che dobbiamo processare in a e in "op" abbiamo l'operazione da eseguire. A seconda del valore di op dobbiamo eseguire istruzioni differenti; ci viene in aiuto l'istruzione condizionale (che anticipiamo):
Select case <condizione>
case <"Condizione1">
case <"Condizione2">
.......
end select
questa istruzione a seconda del valore di una variabile seleziona azioni differenti; la mettiamo allora nel bottoncino "="
b = CDbl(Text1.Text)
Select Case op
Case "/"
Text1.Text = a / b
Case "*"
Text1.Text = a * b
Case "+"
Text1.Text = a + b
Case "-"
Text1.Text = a - b
End Select
Guida al Visual Basic: Costrutti
Il costrutto condizionale If .. then permette eseguire delle istruzioni a seconda delle condizioni la sua sintassi è la seguente;
if condizione1 then
istruzione1
elseif condizione2 then
istruzione2
end if
cioè se è vera la condizione1 si esegue l'istruzione1, se è vera la condizione2 si esegue l'istruzione2
se non è vera nessuna delle due non succede niente.
Usiamo questa istruzione per costruire un programma che a seconda dell'input dell'utente gli restituisca una risposta:
Nel bottoncino (evento click) inseriamo il seguente codice:
[/URL][/IMG]
If List1.Text = "Sole" Then
Label1.Caption = "prendi il cappello"
ElseIf List1.Text = "Pioggia" Then
Label1.Caption = "prendi l'ombrello"
End If
Abbiamo inoltre usato il controllo listbox
[/URL][/IMG] e inserito dalla finestra proprietà sotto la voce list le due domande (Sole, Pioggia)
Guida al Visual Basic: Cicli
I cicli iterativi.
I cicli che analizzeremo sono il ciclo for�next e il ciclo do..loop
per farlo dobbiamo avere bene in mente il concetto di vettore (array)
L' array è un nuovo tipo di variabile, che associa ad un indice (un numero intero) un valore, che può essere anche una stringa. Ma procediamo con un esempio. Supponiamo di associare un identificativo ad un nome in una tabella:
Identificativo Valore
1 Umberto
2 Marco
3 Lucia
4 Donatella
Vogliamo scorrere tutti i dati di questa tabella e visualizzarne il contenuto in un campo di testo.
Allora definiamo l'array:
Dim tabella(1 To 4) As String
(questo nella nella sezione generale della form in dichiarazioni)
riempiamo ora l'array nell'evento load del form (questo evento si verifica quando lanciamo il programma)
[/URL][/IMG]
Private Sub Form_Load()
tabella(1) = "umberto"
tabella(2) = "marco"
tabella(3) = "lucia"
tabella(4) = "donatella"
End Sub
nel bottoncino (evento click) mettiamo il seguente codice:
For i = 1 To 4
Text1.Text = Text1.Text & tabella(i) & vbCrLf
Next i
il valore "i" viene incrementato ogni volta fino al valore 4 ; il carattere vbCrLf è stato aggiunto per andare a capo; le propietà di text1 multiline è stata impostata a true
ora facciamo la stessa cosa col ciclo do .. loop
la sua sintassi è questa:
do
<istruzione1>
loop until <condizione>
L'istruzione viene ripetuta finchè non è verificata la condizione
Attenzione a non creare dei cicli infiniti; ciò succede perché la condizione non viene mai verificata ;ma torniamo al nostro esempio
Dim i
i = 1
Do
Text1.Text = Text1.Text & tabella(i) & vbCrLf
i = i + 1
Loop Until i = 5
Guida al Visual Basic: Timer
Il controllo timer e le funzioni data/ora
Principale funzioni Del visual Basic su data e ora
La funzione:
Now( ) restituisce data e ora di sistema in formato esteso tipo :
07/05/05 10.13.20
Time restituisce solo 10.13.20
Date restituisce solo 07/05/05
Le funzioni
Day giorno
Month mese
Year anno
Vanno applicate a Date o a NOW
Mentre le funzioni
Hour Ora
Minute Minuti
Second Secondi
Vanno applicate a Time o a NOW
Aggiungiamo il controllo timer ad un progetto per creare un orologio con la data:
Dopo averlo aggiunto, andiamo sulla proprietà interval e gli assegniamo il valore
1000 ? cos'è? E l'intervallo in millisecondi dopo il quale il timer
ci restituirà l'evento timer, cioè scatterà il secondo (1000ms=1 s)
mettiamo in questo evento
Private Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Date
Label3.Caption = "sono le ore " & Hour(Time) & " ," & Minute(Time) & _
" minuti" & " e " & Second(Time) & " secondi"
Label4.Caption = "Del " & Day(Date) & " " & mese(Month(Date)) & _ " " & Year(Date)
End Sub
La funzione mese è stata aggiunta nella sezione generale del form:
Public Function mese(x) As String
Select Case x
Case 1
mese = "Gennaio"
Case 2
mese = "Febbraio"
Case 3
mese = "Marzo"
Case 4
mese = "Aprile"
Case 5
mese = "Maggio"
Case 6
mese = "Giugno"
Case 7
mese = "luglio"
Case 8
mese = "Agosto"
Case 9
mese = "Settembre"
Case 10
mese = "Ottobre"
Case 11
mese = "Novenbre"
Case 12
mese = "Dicembre"
End Select
End Function
ma adesso mi direte : ma cosa è una funzione?
Le funzioni possono essere inserite nella parte generale del form ed essere richiamate da qualsiasi evento.Per inserire una funzione, dal menu strumenti---> inserisci routine.. apparirà la seguente finestra:
spuntare ora su function e scrivere il nome della funzione
Come vediamo sopra, quando richiamiamo la funzione dobbiamo passargli l'argomento "x" che nel nostro caso è Month(Date) che è la funzione del visual basic che restituisce il mese; poi trasformiamo il numero nel nome del mese. Questo esempio è solamente a scopo didattico; ci sono infatti dei metodi più immediati per raggiungere questo risultato.
Guida al Visual Basic: I controlli drive,dir ,file, picture
In questo esempio vogliamo usare i quattro componenti della casella degli strumenti per realizzare una applicazione che mi permetta di sfogliare i file dal nostro computer e, in caso siano immagini, visualizzarli in una picture:
[/URL][/IMG]
Trasciniamo a tal scopo i controlli nel form fino a fargli assumere l'aspetto di sopra
Il componente DriveListBox
[/URL][/IMG] ci permette di sfogliare fra i drive del nostro computer, DirListBox
[/URL][/IMG] fra le cartelle (directory) di tali drive, FileListBox
[/URL][/IMG] fra i file delle cartelle. Se cambiamo il drive,dobbiamo dire al programma di aggiornare il contenuto delle cartelle e conseguentemente dei file. Per far ciò usiamo l'evento change:
Private Sub Drive1_Change()
On Error GoTo fine
Dir1.Path = Drive1.Drive
Exit Sub
fine:
MsgBox Err.Description
End Sub
Con questa istruzione cambio la radice pricipale ; Dir1.Path mi restituisce tutte le cartelle del nuovo drive (ad esempio D:\)
Ho però inserito anche delle nuove istruzioni per gestire un eventuale errore
On Error GoTo fine
.......
Exit Sub
fine:
MsgBox Err.Description
Se il drive non è pronto, per esempio il disco "a:\" non è inserito nel Floppy VB mi restituirebbe un errore è il programma sparirebbe dal video del nostro PC con grossa delusione da parte dell'utente. L'istruzione on error intercetta invece l'errore e se c'è me ne dà anche la descrizione con la funzione Msgbox (messaggio) e err.description (valore). Ora dobbiamo però anche visualizzare i file della directory:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Per completare l'esempio, voglio visualizzare i file di tipo immagine (attenzione, la Picture di VB supporta solo i file di estensione *.gif, *.bmp,*.jpg,*.wmf). Per far ciò mi basta l'evento click del FileListBox:
Private Sub File1_Click()
On Error GoTo fine
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Exit Sub
fine:
MsgBox Err.Description
End Sub
La funzione LoadPicture (percorsoimmagine) carica nella picture
[/URL][/IMG] l'immagine del percorso specificato: abbiamo dovuto concatenare la stringa con "\" perchè Dir1.Path restituisce ad esempio "C:\immagini", File1.FileName restituisce "img.jpg".
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
ho voluto iserire questa guida x introdurre un nuovo argomento a ki ancora nn sapesse questo linguaggio
guida nn finita x mancanza di tempo ma assicuro ke entro oggi verra resa publica la versione ultimata
Guida al Visual Basic: Progetto
Il nostro primo progetto in vb6
Prima di elencare in dettaglio le principali basi teoriche per l'uso di vb6, prendiamo un po' di confidenza con l'ambiente di sviluppo e su come accedervi. Lanciamo quindi Microsoft Visual Basic 6.0 e dalla finestra nuovo progetto scegliamo �EXEstandard�; verrà creata in automatico una form d'avvio e ci troveremo in questa situazione: il pulsante che manda in avvio il programma è stato cerchiato di rosso)
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Sulla sinistra notiamo la casella degli strumenti, al centro il form;a destra la finestra delle proprietà
( se la casella delle proprietà non appare, fare click col pulsante destro del mouse su form1 e scegliere proprietà). Ma cosè unaform? È una semplice finestra di windows dove possiamo inserire i campi di testo, i pulsanti per far interagire l'utente con la nostra applicazione ; tali pulsanti li troviamo nella casella degli strumenti. Sulla finestra delle proprietà cambiamo subito la caption evidenziata, che sarà il titolo della applicazione .
Ma proviamo ora a costruire una applicazione che mi visualizzi il risultato di una operazione matematica per esempio il prodotto di due numeri (a,b) che andrò ad inserire in due campi di testo.
Allora facciamo click sulla casella degli strumenti su
andiamo sulla proprietà text di text1 e cancelliamone il contenuto, perché la casella di input deve essere libera per l'inserimento;
analogamente inseriamo una casella text2 e un bottoncino
Private Sub Command1_Click()
End Sub
Cosa fa la sub? Esegue le istruzioni che ci scriveremo dentro quando faremo click sul bottoncino. Aggiungiamo allora un terzo campo di testo (text3) che conterrà il nostro risultato, poi su command1_click scriviamo:
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub
Provate ora a premere "F5" per avviare il programma e vedrete il programma in esecuzione. Inserite dei valori e verificate il risultato.
Guida al Visual Basic: Varibili
Le variabili in visual basic
Passiamo ora ad un cenno noioso ma indispensabile per chi si accinge alla programmazione ;le variabili e i tipi di dati. Anche se non è strettamente necessario dichiarare le variabili e il tipo di dato lo consiglio a chi si accinge ad imparare il VB; infatti se lo prende di buona norma ora lo farà sempre e il linguaggio strutturato lo aiuterà ad evitare errori oscuri. Nell' esempio precedente abbiamo preso due valori da campi di testo e li abbiamo moltiplicati fra loro; il risultato è esatto ma se invece di fare il prodotto avessimo fatto la somma:
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
Mettendo 3 e 5 nei campi di testo otterremmo 35! Perché? Perché non dichiarando le variabili a cui associamo il campo di testo il visual le interpreta come Stringhe (cioè sequenze di caratteri alfanumerici)
E le concatena. Se invece sostituite questo codice:
Dim a As Integer
Dim b As Integer
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
Vedrete che avrete il valore esatto
Per ricordarsi di dichiarare le variabili, nella sezione generale del form, sotto dichiarazioni aggiungere:
Option Explicit
se non dichiarate le variabili il debug vi segnalerà errore.
P rincipali Tipi di variabili in visual basic
String: Caratteri alfanumerici
Integer: Intero
Long: Intero lungo
Double: Decimali
Boolean: Vero/Falso
Guida al Visual Basic: Operatori
Gli operatori in visual basic
Quando scrivete codice di programmazione, potete eseguire delle operazioni sulle variabili con i seguenti operatori:
O peratori matematici
Somma ( + )
Prodotto ( * )
Sottrazione ( - )
Divisione ( / )
Operatori su stringhe
Concatenazione: & ; a & b
se
a="Roma"
b=" è bella"
a & b restituisce "Roma è bella"
Operatori Logici
Vengono usati sulle variabili di tipo booleano (Vero/Falso)
And (restituisce vero se entrambi le variabili sono impostate a Vero, altrimenti Falso)
Or (restituisce vero se almeno una delle variabili è Vero)
NOT (restituisce Vero se la variabile è Falso e viceversa)
Ma ora basta con la teoria; serviamoci degli operatori per costruire l'esempio "calcolatrice":
Costruiamo prima il form usando un campo di testo e i bottoncini (command):
Usando la finestra proprietà mettiamo nella caption numeri e simboli Successivamente in ogni bottoncino numerico inseriamo il codice:
Private Sub Command2_Click()
Text1.Text = Text1.Text & "7"
End Sub
In questo modo scriviamo dei valori numerici nel display della calcolatrice
(Per scrivere il codice nel bottoncino basta fare doppio click su di esso; si apre in tal modo la finestra del codice; per passare da un bottoncino all'altro dal menù visualizza scegliere"oggetto", verrà rivisualizzato il form)
dichiariamo poi nella sezione generale del form le seguenti variabili:
(fate prima click su "Visualizza"---->"codice", poi con la casella a discesa di sinistra selezionate "generale", su quella di destra "dichiarazioni")
Dim a, b As Double
Dim op As String
a e b saranno I valori processati, mentre op è il tipo di operazione (+,-,*,/)
(le variabili dichiarate nella sezione generale della form mantengono il loro valore per tutte le sub eseguite)
ora nei bottoni rossi che contengono gli operatori / + * - inseriamo il codice:
a = CDbl(Text1.Text)
op = "/"
Text1.Text = ""
Questo per il bottoncino "/" ; negli altri dobbiamo mettere il simbolo corrispondente. In tal modo resta memorizzata nella variabile "op" l'operazione che si desidera fare.
Prima di analizzare il risultato finale facciamo un pò il punto della situazione:abbiamo memorizzato il primo dei valori che dobbiamo processare in a e in "op" abbiamo l'operazione da eseguire. A seconda del valore di op dobbiamo eseguire istruzioni differenti; ci viene in aiuto l'istruzione condizionale (che anticipiamo):
Select case <condizione>
case <"Condizione1">
case <"Condizione2">
.......
end select
questa istruzione a seconda del valore di una variabile seleziona azioni differenti; la mettiamo allora nel bottoncino "="
b = CDbl(Text1.Text)
Select Case op
Case "/"
Text1.Text = a / b
Case "*"
Text1.Text = a * b
Case "+"
Text1.Text = a + b
Case "-"
Text1.Text = a - b
End Select
Guida al Visual Basic: Costrutti
Il costrutto condizionale If .. then permette eseguire delle istruzioni a seconda delle condizioni la sua sintassi è la seguente;
if condizione1 then
istruzione1
elseif condizione2 then
istruzione2
end if
cioè se è vera la condizione1 si esegue l'istruzione1, se è vera la condizione2 si esegue l'istruzione2
se non è vera nessuna delle due non succede niente.
Usiamo questa istruzione per costruire un programma che a seconda dell'input dell'utente gli restituisca una risposta:
Nel bottoncino (evento click) inseriamo il seguente codice:
If List1.Text = "Sole" Then
Label1.Caption = "prendi il cappello"
ElseIf List1.Text = "Pioggia" Then
Label1.Caption = "prendi l'ombrello"
End If
Abbiamo inoltre usato il controllo listbox
Guida al Visual Basic: Cicli
I cicli iterativi.
I cicli che analizzeremo sono il ciclo for�next e il ciclo do..loop
per farlo dobbiamo avere bene in mente il concetto di vettore (array)
L' array è un nuovo tipo di variabile, che associa ad un indice (un numero intero) un valore, che può essere anche una stringa. Ma procediamo con un esempio. Supponiamo di associare un identificativo ad un nome in una tabella:
Identificativo Valore
1 Umberto
2 Marco
3 Lucia
4 Donatella
Vogliamo scorrere tutti i dati di questa tabella e visualizzarne il contenuto in un campo di testo.
Allora definiamo l'array:
Dim tabella(1 To 4) As String
(questo nella nella sezione generale della form in dichiarazioni)
riempiamo ora l'array nell'evento load del form (questo evento si verifica quando lanciamo il programma)
Private Sub Form_Load()
tabella(1) = "umberto"
tabella(2) = "marco"
tabella(3) = "lucia"
tabella(4) = "donatella"
End Sub
nel bottoncino (evento click) mettiamo il seguente codice:
For i = 1 To 4
Text1.Text = Text1.Text & tabella(i) & vbCrLf
Next i
il valore "i" viene incrementato ogni volta fino al valore 4 ; il carattere vbCrLf è stato aggiunto per andare a capo; le propietà di text1 multiline è stata impostata a true
ora facciamo la stessa cosa col ciclo do .. loop
la sua sintassi è questa:
do
<istruzione1>
loop until <condizione>
L'istruzione viene ripetuta finchè non è verificata la condizione
Attenzione a non creare dei cicli infiniti; ciò succede perché la condizione non viene mai verificata ;ma torniamo al nostro esempio
Dim i
i = 1
Do
Text1.Text = Text1.Text & tabella(i) & vbCrLf
i = i + 1
Loop Until i = 5
Guida al Visual Basic: Timer
Il controllo timer e le funzioni data/ora
Principale funzioni Del visual Basic su data e ora
La funzione:
Now( ) restituisce data e ora di sistema in formato esteso tipo :
07/05/05 10.13.20
Time restituisce solo 10.13.20
Date restituisce solo 07/05/05
Le funzioni
Day giorno
Month mese
Year anno
Vanno applicate a Date o a NOW
Mentre le funzioni
Hour Ora
Minute Minuti
Second Secondi
Vanno applicate a Time o a NOW
Aggiungiamo il controllo timer ad un progetto per creare un orologio con la data:
Dopo averlo aggiunto, andiamo sulla proprietà interval e gli assegniamo il valore
1000 ? cos'è? E l'intervallo in millisecondi dopo il quale il timer
ci restituirà l'evento timer, cioè scatterà il secondo (1000ms=1 s)
mettiamo in questo evento
Private Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Date
Label3.Caption = "sono le ore " & Hour(Time) & " ," & Minute(Time) & _
" minuti" & " e " & Second(Time) & " secondi"
Label4.Caption = "Del " & Day(Date) & " " & mese(Month(Date)) & _ " " & Year(Date)
End Sub
La funzione mese è stata aggiunta nella sezione generale del form:
Public Function mese(x) As String
Select Case x
Case 1
mese = "Gennaio"
Case 2
mese = "Febbraio"
Case 3
mese = "Marzo"
Case 4
mese = "Aprile"
Case 5
mese = "Maggio"
Case 6
mese = "Giugno"
Case 7
mese = "luglio"
Case 8
mese = "Agosto"
Case 9
mese = "Settembre"
Case 10
mese = "Ottobre"
Case 11
mese = "Novenbre"
Case 12
mese = "Dicembre"
End Select
End Function
ma adesso mi direte : ma cosa è una funzione?
Le funzioni possono essere inserite nella parte generale del form ed essere richiamate da qualsiasi evento.Per inserire una funzione, dal menu strumenti---> inserisci routine.. apparirà la seguente finestra:
spuntare ora su function e scrivere il nome della funzione
Come vediamo sopra, quando richiamiamo la funzione dobbiamo passargli l'argomento "x" che nel nostro caso è Month(Date) che è la funzione del visual basic che restituisce il mese; poi trasformiamo il numero nel nome del mese. Questo esempio è solamente a scopo didattico; ci sono infatti dei metodi più immediati per raggiungere questo risultato.
Guida al Visual Basic: I controlli drive,dir ,file, picture
In questo esempio vogliamo usare i quattro componenti della casella degli strumenti per realizzare una applicazione che mi permetta di sfogliare i file dal nostro computer e, in caso siano immagini, visualizzarli in una picture:
Trasciniamo a tal scopo i controlli nel form fino a fargli assumere l'aspetto di sopra
Il componente DriveListBox
Private Sub Drive1_Change()
On Error GoTo fine
Dir1.Path = Drive1.Drive
Exit Sub
fine:
MsgBox Err.Description
End Sub
Con questa istruzione cambio la radice pricipale ; Dir1.Path mi restituisce tutte le cartelle del nuovo drive (ad esempio D:\)
Ho però inserito anche delle nuove istruzioni per gestire un eventuale errore
On Error GoTo fine
.......
Exit Sub
fine:
MsgBox Err.Description
Se il drive non è pronto, per esempio il disco "a:\" non è inserito nel Floppy VB mi restituirebbe un errore è il programma sparirebbe dal video del nostro PC con grossa delusione da parte dell'utente. L'istruzione on error intercetta invece l'errore e se c'è me ne dà anche la descrizione con la funzione Msgbox (messaggio) e err.description (valore). Ora dobbiamo però anche visualizzare i file della directory:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Per completare l'esempio, voglio visualizzare i file di tipo immagine (attenzione, la Picture di VB supporta solo i file di estensione *.gif, *.bmp,*.jpg,*.wmf). Per far ciò mi basta l'evento click del FileListBox:
Private Sub File1_Click()
On Error GoTo fine
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Exit Sub
fine:
MsgBox Err.Description
End Sub
La funzione LoadPicture (percorsoimmagine) carica nella picture
Ultima modifica: