PDA

View Full Version : if per decidere il valore di una variabile.. ma non va

Beppe2hd
12-02-2003, 18:37
voglio che una variabile, in questo caso sex, assuma valori diversi in base all'optionbutton selezionato...
ho usato questo ciclo if... ma la variabile risulta (restituita da in msgbox) sempre 0 :confused:
perchè?

Private Sub Command1_Click()
If Option1.Value = True Then
sex = 30
ElseIf Option2.Value = True Then
sex = 2
ElseIf Option3.Value = True Then
sex = 0.5
Else
sex = 1
End If

che codice potrei usare in alternativa :D
leon84
12-02-2003, 19:04
Originally posted by "Beppe2hd"

voglio che una variabile, in questo caso sex, assuma valori diversi in base all'optionbutton selezionato...
ho usato questo ciclo if... ma la variabile risulta (restituita da in msgbox) sempre 0 :confused:
perchè?

Private Sub Command1_Click()
If Option1.Value = True Then
sex = 30
ElseIf Option2.Value = True Then
sex = 2
ElseIf Option3.Value = True Then
sex = 0.5
Else
sex = 1
End If

che codice potrei usare in alternativa :D

Scusa dove dichiari la variabile sex ?
Beppe2hd
12-02-2003, 21:56
la variabile l'ho dichiarata nella parte generale...nella speranzaa che fosse valida anche per gli altri cicli del programma...
vi mando il codice intero..? :p
matpez
13-02-2003, 00:50
L'ho provato da me...funziona!!!!

Non è sicuramente il codice sbagliato!!
Beppe2hd
13-02-2003, 11:23
Allora : il codice completo per questo form è il seguente

Private Sub Check1_Click()
If Check1.Value = 1 Then
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Else
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Else
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
End If
End Sub

Private Sub Command1_Click()
If Option1.Value = True Then
sex = 30
ElseIf Option2.Value = True Then
sex = 2
ElseIf Option3.Value = True Then
sex = 0.5
Else
sex = 1
End If

If Option4.Value = True Then
sterss = 30
ElseIf Option5.Value = True Then
stress = 2
ElseIf Option6.Value = True Then
stress = 0.5
Else
stress = 1
End If

End Sub

Private Sub Command2_Click()
MsgBox sex
End Sub



Private Sub Form_Load()
Dim stress As Integer
Dim sex As Integer
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
End Sub


La domanda è dove devo mettere le dichiarazioni delle variabili perchè siano lette in tutte le procedure...??? e in modo quindi che una volta cliccato il command 1 di seguito il clic del command 2 mi restituisca il mgsbox con la variabile???
leon84
13-02-2003, 13:23
Perché non facciamo una cosa . Inviami tutto il programma zippato che me lo vedo con calma . Chiaramente se ti va .
cionci
14-02-2003, 17:07
basta dichiarare "Dim sex As Double" in cima al codice...
Beppe2hd
14-02-2003, 18:31
bene così ma adsso il problema è fare leggere quelle variabili al form 1.
In pratica (allego il programma) mi servono nella procedura "special" del form 1
Beppe2hd
14-02-2003, 18:36
il file è di 2 Kb circa ma non me lo fa allegare... dice che la dimensione degli allegati è al limite.. come vi faccio avere il programma? :confused:
cionci
14-02-2003, 18:38
La devi dichiarare solo una volta per tutto il form in alto al di fuori delle sub...
leon84
14-02-2003, 19:05
Beppe guarda i tuoi PVT , ti ho inviato l'indirizzo email così potrai inviarmi il programma