dichiarare le variabili in visual basic

[LuPellox85]

non mi ricordo più come si faceva.. tipo, io ho questo programmino


If Option1 = True Then
Label1.Caption = 32 + (9 / 5 * Text1.Text)
Label3.Caption = "Temperatura °F"
Else
If Option2 = True Then
Label1.Caption = Text1.Text + 273.15
Label3.Caption = "Temperatura °K"
Else
If Option1 = False And Option2 = False Then
MsgBox "Devi selezionare almeno un'opzione"

End If
End If
End If


un convertitore puttanissimo, che in teoria non avrebbe neanche bisogno di variabili perchè funziona benissimo così, ma il prof è pignolo e vuole che dichiari le variabili... che ne so, tipo


declare ingresso as integer


mi dice "previsto sub oppure function"

argh, perchè? come si faceva?

[Fenomeno85]

dim a as integer ;)

~§~ Sempre E Solo Lei ~§~

[LuPellox85]

Originariamente inviato da Fenomeno85
dim a as integer ;)

~§~ Sempre E Solo Lei ~§~

e se invece è un numero reale?

[LuPellox85]

devo anche dire a una label che mi deve far vedere al massimo 2 numeri dopo la virgola :muro:

ps: ho gia provato a impostare il data format ma se ne frega

[LuPellox85]

dovrei anche impedire che vengano immesse lettere al posto dei numeri... cioè, se uno ci mette una lettera il programma manda fuori un msgbox che dice di metterci i numeri

[RaouL_BennetH]

Originariamente inviato da LuPellox85
dovrei anche impedire che vengano immesse lettere al posto dei numeri... cioè, se uno ci mette una lettera il programma manda fuori un msgbox che dice di metterci i numeri

in maniera molto rozza (sono anche io agli inizi), credo che potresti fare così per controllare che ciò che viene inserito sia limitato solo ai numeri ed escluda le lettere:


'controllo command1
Private Sub Command1_Click()

i = Val(Text1.Text)

'se tutto è ok stampo il numero
MsgBox "Il numero inserito è: " & Val(Text1.Text), vbOKOnly




End Sub

--------------------------------------------------------------------------------------------

'caricamento del form
Private Sub form_load()

Dim i As Integer ' dichiaro una variabile di nome "i" di tipo intero

End Sub

--------------------------------------------------------------------------------------------
'evento keypress che mi controlla i caratteri inseriti da tastiera

Private Sub text1_KeyPress(KeyAscii As Integer)


'creo la condizione che se inserisco un carattere non me lo accetti e me lo dica
If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

MsgBox "Inserire solo numeri Grazie!! ", vbOKOnly

KeyAscii = 0


End If


End Sub

[LuPellox85]

grazie Raoul, è una bomba :D

[RaouL_BennetH]

Originariamente inviato da LuPellox85
grazie Raoul, è una bomba :D

nel senso che ti è esploso il computer? :mbe:



:D