[VB6] Contatore per ogni click

[error 404]

Sera a tutti,
stavo provando a creare un contatore che si incrementi ad ogni click di un tasto.
Il codice che ho scritto è questo:
Private Sub cmdClick_Click()

Dim a As Double

a = a + 1

lblContatore.Caption = a

End Sub
il problema è che se clicco una volta diventa 1, poi se continuo a cliccare rimane 1... ho pensato che sia una questione di variabile: cioè ogni volta che ha stampato il numero, la variabile "a" torna a essere vuota senza accumulare i precedenti click.

Come posso ovviare?

Grazie ciao

[MarcoGG]

Private Sub cmdClick_Click()

Dim a As Double

a = a + 1

lblContatore.Caption = a

End Sub


Eh, per forza ! :D
Se tutte le volte che fai Click gli fai creare la variabile il povero VB non ha colpe. Quando inizializzi a è 0. Perciò a=a+1 darà 1 all'infinito.
C'è chi ama usare Static in questi casi. Io no.
Fatti un modulo di codice e dichiara una bella :
Public a As Double

E al Click del pulsante lasci :
a = a + 1
lblContatore.Caption = a
;)

[banryu79]

Non mi intendo di VB6, ma si capisce che la variabile 'a' essendo locale alla funzione cmClick_Click() verrà inizializzata ogni volta che la suddetta funzione viene chiamata.

Non ti basta inizializzare il valore di 'a' al corrispondente valore castato a Double contenuto in 'lblContatore.Caption'?

@EDIT: sorry, postato in quasi contemporanea col mitico MarcoGG, ignora il mio post :)

[MarcoGG]

Non mi intendo di VB6, ma si capisce che la variabile 'a' essendo locale alla funzione cmClick_Click() verrà inizializzata ogni volta che la suddetta funzione viene chiamata.

Non ti basta inizializzare il valore di 'a' al corrispondente valore castato a Double contenuto in 'lblContatore.Caption'?

@EDIT: sorry, postato in quasi contemporanea col mitico MarcoGG, ignora il mio post :)


Beh, ma è corretto ciò che hai detto, perchè ignorarlo ? ( grazie per il "mitico" :D ).
In effetti c'è sempre la scappatoia di prendere il valore precedente dalla label , castarlo, incrementarlo e reimmetterlo. Una pratica non certo incoraggiata da chi insegna programmazione, ma pur sempre fattibile.
In questo caso la routine del Click sarebbe :

Dim a As Double
a = CDbl(lblContatore.Caption) + 1
lblContatore.Caption = a
avendo l'accortezza di mettere 0 alla Caption iniziale.

[banryu79]

In effetti c'è sempre la scappatoia di prendere il valore precedente dalla label , castarlo, incrementarlo e reimmetterlo. Una pratica non certo incoraggiata da chi insegna programmazione, ma pur sempre fattibile.

In effetti sarebbe una soluzione piuttosto :Puke:
Concordo molto meglio staticizzare il counter o avere una variabile "esterna".

[error 404]

Eh, per forza ! :D
Se tutte le volte che fai Click gli fai creare la variabile il povero VB non ha colpe. Quando inizializzi a è 0. Perciò a=a+1 darà 1 all'infinito.
C'è chi ama usare Static in questi casi. Io no.
Fatti un modulo di codice e dichiara una bella :
Public a As Double

E al Click del pulsante lasci :
a = a + 1
lblContatore.Caption = a
;)Che fico, funziona! :D

Il fatto è che ho iniziato da poco col VB. Quindi qualsiasi variabile che dichiaro in un modulo, è poi possibile utilizzarla in qualsiasi altro form mantenendone il suo valore?

A cosa serve CDbl di preciso?

[MarcoGG]

Quindi qualsiasi variabile che dichiaro in un modulo, è poi possibile utilizzarla in qualsiasi altro form mantenendone il suo valore?

Mettiamola così, se dichiari una variabile Public in un modulo di un'applicazione con tutte le Form che vuoi, quella variabile sarà visibile da ogni punto del progetto e manterrà l'ultimo valore assegnatogli per tutta la durata del runtime. ;)

[banryu79]

A cosa serve CDbl di preciso?
Quello appunto dovrebbe essere il cast a Double.