01/12/10 19:04
dante
salve a tutti, oggi volevo creare un programma che dicesse: se a = v fai apparire nella label lblRisultato: "è vero", se invece no, controlla b --> se b = v allora fai apparire nella label lblRisultato: "è vero", se invece no, fai apparire nella label lblRisultato: "è falso"
siccome ho sempre lavorato coi numeri, non so come assegnare ad a la LETTERA contenuta in una text box, ovvero: ho sempre fatto: a = Val(txtValore1)
b = Val(txtValore2)
e con questi comandi ho assegnato ad a e b (dopo averle naturalmente dichiarate sotto option explicit)
valori numerici, ma non so come assegnargli valori letterari.
questa è la stringa:
Option Explicit
Dim a, b As Double
Private Sub cmdCalcola_Click()
a = txtValore1
b = txtValore2
If txtValore1 = "v" Then
lblRisultato.Caption = "è vero"
Else: GoTo if2
if2:
If txtValore2 = "v" Then
lblRisultato.Caption = "è vero"
Else: lblRisultato.Caption = "è falso"
End If
End If
End Sub
voglio specificare che poi inserirò l'if destinato a controllare che i valori nelle due caselle siano per forza o "v" o "f" attraverso un altro OR.
Grazie in anticipo
siccome ho sempre lavorato coi numeri, non so come assegnare ad a la LETTERA contenuta in una text box, ovvero: ho sempre fatto: a = Val(txtValore1)
b = Val(txtValore2)
e con questi comandi ho assegnato ad a e b (dopo averle naturalmente dichiarate sotto option explicit)
valori numerici, ma non so come assegnargli valori letterari.
questa è la stringa:
Option Explicit
Dim a, b As Double
Private Sub cmdCalcola_Click()
a = txtValore1
b = txtValore2
If txtValore1 = "v" Then
lblRisultato.Caption = "è vero"
Else: GoTo if2
if2:
If txtValore2 = "v" Then
lblRisultato.Caption = "è vero"
Else: lblRisultato.Caption = "è falso"
End If
End If
End Sub
voglio specificare che poi inserirò l'if destinato a controllare che i valori nelle due caselle siano per forza o "v" o "f" attraverso un altro OR.
Grazie in anticipo
aaa