Newsgroup: it.comp.lang.visual-basic
Titolo: Primi passi in Vb

 Salve ragazzi č la prima volta che posto in questo forum, č da poco che ho
iniziato a programmare in Visual Basic, ho sempre programmato in C/C++ e mi
trovo spaesato nell'ambiente visuale. Premetto che ho la versione 6.0, la
quale spero che mi possa essere utile, visto che so che ormai č considerata
superata, dalla nuova e piů potente versione NET. Devo fare un semplice
programma che inserisca 5 volte dei numeri interi, li sommi tra di loro e
poi mi dia come risultato questa somma, tutto qui, vi posto il codice con la
speranza che qualcuno mi aiuti a capire gli errori che ho fatto. :-)
Public Sub Command1_Click()
    Dim a As Integer, somma As Integer, i As Integer
    somma = 0
    For i = 0 To 4
        a = Text1
        somma = (a + somma)
        Text1 = ""
    Next i
    Label1.Caption = somma
End Sub
Private Sub Label1_Click()
End Sub
Public Sub Text1_Change()
End Sub

> Salve ragazzi è la prima volta che posto in questo forum,
Ehm... prima? e i post del 23/3 e 26/3? ;-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 Ehm... prima? e i post del 23/3 e 26/3? ;-)
Hai ragione me ne ero dimenticato, ma ti assicuro che  non sono un Troll che
scrive post solo per dare fastidio, puoi aiutarmi a far funzionare il mio
programma? ;-)

 ha scritto nel messaggio
news:nbicc.109249$Kc3.3...@twister2.libero.it...

Forse:
Private Sub Command1_Click()
 Dim a As Integer, somma As Integer, i As Integer
    somma = 0
a = Text1
    For i = 0 To 4
        somma = somma + a
    Next i
    Label1.Caption = somma
End Sub
Ave
giuseppeD

 End Sub
Il problema sono le due righe che con il for creano questa condizione:
a = Text1
Text1 = ""
a = Text1    'Errore!
non puoi assegnare ad "a" un valore nullo.


 End Sub
Salvo salti mortali, vedo solo due soluzioni: 5 textbox e un bottone che
esegue la somma (non come hai fatto tu, perň...) o un unico textbox e un
bottone che serva a sommare (in una variabile di comodo) il valore dello
stesso. Serve anche un contatore per stabilire quando fermarsi o un altro
bottone allo stesso scopo. Meglio una label che a ogni nuovo addendo ne
esponga il risultato. La guida di VB l'hai? Ecco, leggila un po' e fidati
abbastanza .

 End Sub
Ehhh?! <eg>

 non puoi assegnare ad "a" un valore nullo.
Ok, stasera han bevuto in molti. Mi faccio un doppio W... <eg>

 bye
Perchè valore nullo? Text1 prende il valore del numero immesso, o no?

> Ok, stasera han bevuto in molti. Mi faccio un doppio W... <eg>
Perchč? C'č un errore in quello che ho detto?
Non puň assegnare ad "a" un valore nullo e poi sommarlo.
Oppure intendevi qualcos'altro?


 Oppure intendevi qualcos'altro?
Sě, anche. Volevo dire che la logica di quel codice non esiste.

 textbox è Text) di lunghezza zero.

 ha scritto nel messaggio
news:rcjcc.109405$Kc3.3...@twister2.libero.it...

Il mio funziona.
Quel
Text1 = ""
come lo hai posizionato, rende la variabile una stringa nulla.
Ave
giuseppeD

 textbox č Text)
Il codice č completamente errato concettualmente, perň funziona.
La routine č:
Private Sub Command1_Click()
    Dim a As Integer, somma As Integer, i As Integer
    somma = 0
    a = Text1
    For i = 0 To 4
        somma = (a + somma)
    Next i
    Label1.Caption = somma
End Sub
Metti un pulsante, una label e una textbox in un form e vedi che funziona (č
charo che devi inserire un numero nella textbox).


 La routine č:
...
Sě questo sopra funziona, ma la richiesta era:
"...Devo fare un semplice
programma che inserisca 5 volte dei numeri interi, li sommi tra di loro e
poi mi dia come risultato questa somma..."
Si nota la differenza?

 Si nota la differenza?
Ah, questo mi era sfuggito. Quindi lui vuole inserire 5 numeri...
Però sarebbe bello poter fare in VB quello che si faceva col Basic (o
comunque dai progr. in DOS).
Un bel ciclo for e la domanda: "Inserire il " + numero + "° numero"....
Aaaah bei tempi...
bye


 numero".... Aaaah bei tempi...
Evviva i Variant!
    s = 0
    Do
        n = InputBox("La somma corrente è: " & s & vbCrLf & vbCrLf &
"Imposta un altro addendo" & vbCrLf & vbCrLf & "(Campo vuoto o Bottone
annulla per finire):")
        If n = "" Then Exit Do
        s = s + Val(Replace(n, ",", "."))
    Loop