Oppure

Loading
24/01/08 13:55
Security-007
Salve a tutti volevo chiedervi se si può farela somma di 35 matrici. Ora vi spiego meglio ho un text246 e un controllbutton1 e 35 matrici quindi text1(0) fino a text1(35) ora nel momento che clicco su controllbutton1 in text246 mi deve uscire il risultato di tutte le matrici...grazie anticipato a tutti
aaa
24/01/08 14:54
LuigiBiasi
Ok...
Allora hai una text chiamata text246 e poi hai un array di text di 35 elementi?
Basta fare un ciclo.
Nel codice di un commandbutton scrivi:
text246.text=""
for i = 1 to 35
text246.text=val(arrayditext(i).text) + val(text246.text)
next i

l'ho testato e funziona.
Spero di averti dato una mano. Ciao.
Ultima modifica effettuata da LuigiBiasi 24/01/08 15:41
aaa
24/01/08 14:57
Security-007
text246 è un nome ke ho dato ad una text
aaa
24/01/08 15:09
GrG
Dim text1(1 To 100)
Dim I As Integer
Dim x As Integer
Dim Somma
Private Sub Command1_Click()
text1(1) = 3
text1(2) = 6
text1(3) = 7
x = 3
For I = 1 To x
Somma = Somma + text1(I)
Next I
txt = Somma
End Sub

Questo è un'esempio poi te lo devi adattare tu..:k:
Ultima modifica effettuata da GrG 24/01/08 15:12
aaa
24/01/08 15:43
LuigiBiasi
Postato originariamente da GrG:
txt = Somma
End Sub

Questo è un'esempio poi te lo devi adattare tu..:k:


va usata la proprietà Text:
txt.text.
Ciao.
aaa
24/01/08 16:25
magicolotto
On Error GoTo LocalErr
Dim num(6) As Integer
Dim i As Integer

num(1) = Text1(0)
num(2) = Text1(1)
num(3) = Text1(2)
num(4) = Text1(3)
num(5) = Text1(4)

For i = 0 To 5

numero = num(i)
somma = somma + numero
Text2.Text = somma


Next i
LocalErr:
aaa
24/01/08 17:23
Overflow
basta iterare in un ciclo for next sull'array di text
for i = 1 to 35
text1.text = val(text1.text) + val(text2(i).text)
next i


è molto banale la cosa...
aaa
24/01/08 23:29
magicolotto
no cosi non funziona come hai scritto
aaa