PDA

View Full Version : [VB6] Problema con TextBox


Mikialba
28-08-2006, 17:16
Salve a tutti! Sono un ragazzo di 13 anni che ha appena cominciato a programmare col Visual Basic 6. Sto realizzando un applicazione che permette di risolvere problemi di geometria in modo semplice e veloce. Ecco il problema:
In pratica, bisogna immettere il dato nella Textbox, cliccare sul bottone Calcola! e il risultato viene calcolato automaticamente. Il problema avviene quando inserisco delle lettere, al posto di numeri. Mi compare una schermata con la scritta "Error 13: Type Mismatch". Vi posto il codice del form per il calcolo dell'area del quadrato come esempio:


'////////// 1. Calcolo dell'area \\\\\\\\\\
Private Sub Command2_Click()
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "Errore! Non è stato inserito nessun numero."
Else:
MsgBox Text1 ^ 2
End If
End Sub



Come vedete, il problema del form bianco l'ho risolto, ma per i caratteri non so come fare!
Lo so, può sembrare stupido, ma da un tocco in + di professionalità. Grazie per le eventuali risposte. Ciao!

okay
28-08-2006, 17:22
Salve a tutti! Sono un ragazzo di 13 anni che ha appena cominciato a programmare col Visual Basic 6. Sto realizzando un applicazione che permette di risolvere problemi di geometria in modo semplice e veloce. Ecco il problema:
In pratica, bisogna immettere il dato nella Textbox, cliccare sul bottone Calcola! e il risultato viene calcolato automaticamente. Il problema avviene quando inserisco delle lettere, al posto di numeri. Mi compare una schermata con la scritta "Error 13: Type Mismatch". Vi posto il codice del form per il calcolo dell'area del quadrato come esempio:


'////////// 1. Calcolo dell'area \\\\\\\\\\
Private Sub Command2_Click()
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "Errore! Non è stato inserito nessun numero."
Else:
MsgBox Text1 ^ 2
End If
End Sub



Come vedete, il problema del form bianco l'ho risolto, ma per i caratteri non so come fare!
Lo so, può sembrare stupido, ma da un tocco in + di professionalità. Grazie per le eventuali risposte. Ciao!

correggi con:
MsgBox val(Text1.text) ^ 2

se hai scritto solo lettere il val fà che si estragga solo 0 in quanto non ci sono numeri. Prova a scrivere, dopo la correzzione, ci12ao. Ti estrarrà 12.

Mikialba
28-08-2006, 17:34
correggi con:
MsgBox val(Text1.text) ^ 2

se hai scritto solo lettere il val fà che si estragga solo 0 in quanto non ci sono numeri. Prova a scrivere, dopo la correzzione, ci12ao. Ti estrarrà 12.

Grazie mille, funziona alla grande. Ciao! :)