Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema con somma di matrici
Forum - Visual Basic 6 - Problema con somma di matrici

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
Security-007 (Ex-Member)
Rookie


Messaggi: 42
Iscritto: 12/11/2007

Segnala al moderatore
Postato alle 14:55
Giovedì, 24/01/2008
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

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 15:54
Giovedì, 24/01/2008
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:
Codice sorgente - presumibilmente Visual Basic 6

  1. text246.text=""
  2. for i = 1 to 35
  3. text246.text=val(arrayditext(i).text) + val(text246.text)
  4. next i


l'ho testato e funziona.
Spero di averti dato una mano. Ciao.

Ultima modifica effettuata da LuigiBiasi il 24/01/2008 alle 16:41
PM Quote
Avatar
Security-007 (Ex-Member)
Rookie


Messaggi: 42
Iscritto: 12/11/2007

Segnala al moderatore
Postato alle 15:57
Giovedì, 24/01/2008
text246 è un nome ke ho dato ad una text

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 16:09
Giovedì, 24/01/2008
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 il 24/01/2008 alle 16:12
PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 16:43
Giovedì, 24/01/2008
Testo quotato

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.

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 17:25
Giovedì, 24/01/2008
Codice sorgente - presumibilmente VB.NET

  1. On Error GoTo LocalErr
  2. Dim num(6) As Integer
  3. Dim i As Integer
  4.  
  5. num(1) = Text1(0)
  6. num(2) = Text1(1)
  7. num(3) = Text1(2)
  8. num(4) = Text1(3)
  9. num(5) = Text1(4)
  10.  
  11. For i = 0 To 5
  12.  
  13. numero = num(i)
  14. somma = somma + numero
  15. Text2.Text = somma
  16.  
  17.  
  18. Next i
  19. LocalErr:


PM Quote
Avatar
Overflow (Normal User)
Expert


Messaggi: 334
Iscritto: 11/01/2008

Segnala al moderatore
Postato alle 18:23
Giovedì, 24/01/2008
basta iterare in un ciclo for next sull'array di text
Codice sorgente - presumibilmente Visual Basic 6

  1. for i = 1 to 35
  2. text1.text = val(text1.text) + val(text2(i).text)
  3. next i



è molto banale la cosa...

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 0:29
Venerdì, 25/01/2008
no cosi non funziona come hai scritto

PM Quote
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 1:14
Venerdì, 25/01/2008
E perche' non dovrebbe funzionare magicolotto ?

E' un codice molto semplice ... non ci sono dubbi ...

PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo