[VB6] ListBox restituzione valori

[Magicolotto]

Spero di essere chiare,e compatitemise non lo sono, sono alle prime armi e sono autodidatta, ma questo credo che si sia capito....

allora nella mia list1 vengono restituiti i valori di 10 gruppi
non sempre o quasi mai ogni gruppo restituisce la condizione data
ma al max vengono restituiti 5 , 6 valori di raro...

mettendo caso che ci siano tre restituzioni quindi tre coppie di numeri, tutte e tre vengono immassi nella LIST1 con queste variabili
r1,r2 1° gruppo

r1,r2 2 gruppo

r1,r2 3° gruppo

eccoio dovrei sommare

i valori a due a due

ottenendo tre somme,

ma la mia difficolta è capire che funzioni di VB6 UTILIZZARE

grazie

[oregon]

Non e' questione di compatire ma di comprendere esattamente cosa vuoi fare ... se non si comprende, anche se capisco che sei un principiante, non potro' *mai* darti un suggerimento.

Ora, nella listbox, se ho capito, possono esserci dei valori.
Come sono visualizzati nella listbox? Fai un esempio ... che so

22
34
21
84
39
56

Se si', quali sono quelli da sommare?

[Magicolotto]

ecco come compaiono nella lista, cioè un testo e due numeri, r1,r2
per ogni riga


sono quelli a destra

dovrei sommare il 1 col 2° e via di seguito

dovrei trovare il modo di far restituire i numeri di ogni riga in questo caso 3
con nuovi valori
del tipo

cn= list1.r1
cn2=list.r2

e cosi via

per poi sommare
il tutto con semplici funzioni artimetiche

[oregon]

Qualcosa del genere

    Dim i As Integer
    Dim v() As String
    Dim r1 As Integer
    Dim r2 As Integer
    
    For i = 0 To List1.ListCount - 1
        v = Split(List1.List(i), " ")
        r1 = Val(v(1))
        r2 = Val(v(2))
        Print r1, r2, r1 + r2
    Next i

[Magicolotto]

ecco l'ho impostata cosi :

      Dim v() As String
    Dim r1 As Integer
    Dim r2 As Integer
    List2.Clear
    For i = 0 To List1.ListCount - 1
        v = Split(List1.List(i), " ")
        r1 = Val(r(1))
        r2 = Val(r(2))
        List2.AddItem CStr(r1) & " " & CStr(r2)
    Next i

per se le coppie sono 3

non mi restituisce i valori delle tre coppie , ma solo il valore dell'ultima coppia

dim i
l'ho tolta xchè gia esiste nella compilazine


il commando print mi restituica 0 0 0
poi di r1 e r2 ne ho 10

[Magicolotto]

ok l'ho impasta diversamente, xchè questa non andava e sono riuscitoa fare in modo di ottenere le 10 coppie
cioè queste
rb1 "" rb2
rc1 "" rc2
rf1 "" rf2
rg1 "" rg2
rm1 "" rm2
rn1 "" rn2
rp1 "" rp2
rr1 "" rr2
rt1 "" rt2
rv1 "" rv2

adesso devo riuscire a mettere tutto in un ciclo
e devo sommare a scalare le coppie prime con le coppie 2°
rb1 + rb2 + rc3 + rc4

rb1 + rb2 + rf1 + rf4

e cosi via

ovvio la dificolta' sta a calcolare solo le coppie true

[oregon]

Originariamente inviato da Magicolotto
ecco l'ho impostata cosi :

      Dim v() As String
    Dim r1 As Integer
    Dim r2 As Integer
    List2.Clear
    For i = 0 To List1.ListCount - 1
        v = Split(List1.List(i), " ")
        r1 = Val(r(1))
        r2 = Val(r(2))
        List2.AddItem CStr(r1) & " " & CStr(r2)
    Next i

per se le coppie sono 3

non mi restituisce i valori delle tre coppie , ma solo il valore dell'ultima coppia

dim i
l'ho tolta xchè gia esiste nella compilazine


il commando print mi restituica 0 0 0
poi di r1 e r2 ne ho 10

Se modifichi il codice che ti ho dato, devi stare attento a cio' che fai ... Io avevo scritto

r1 = Val(v(1))
r2 = Val(v(2))

usando l'array v !

[Magicolotto]

non va ergon da zero, ecco perche lo scritto in quella maniera

cmq sto procedendo con la via piu' lunga , cio cosi

        List3.Clear
        If rb1 & rb2 = True Then
        If rc1 & rc2 = True Then
        sb = rb1 + rb2
        sc = rc1 + rc2
        sbc = sb + sc
        List3.AddItem " bari " & " cagliari" & CStr(sbc)
        End If
        End If

questo lo ripeto per 45 , ciè incrociando tutti idieci valori
rb1 "" rb2
rc1 "" rc2
rf1 "" rf2
rg1 "" rg2
rm1 "" rm2
rn1 "" rn2
rp1 "" rp2
rr1 "" rr2
rt1 "" rt2
rv1 "" rv2



almeno funziona

[oregon]

Scusa ... ma non ti seguo assolutamente piu' ...

E se non capisco di cosa si sta parlando, preferisco non rispondere ...