Visual Basic 6 - Conteggio numeri in una listbox

Forum - Visual Basic 6 - Conteggio numeri in una listbox

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 20:48
Mercoledì, 22/10/2008

Ciao ragazzi

in una  listbox ho una sequenza di numeri posti
nella lista in righe diferse in questo modo :
25 26 27
27 28 29
45 46 47
25 26 27

ect ect

allora  io dovrei conteggiare  i numeri  e vedere quante volte sono presenti nella lista

PROCEDO IN QUESTO MODO  :

Codice sorgente - presumibilmente VB.NET

Dim i As Integer
Dim conteggio(49), ix As Long
Dim Matrice() As String
 
For i = 0 To List2.ListCount - 1
  numeri = List2.List(i)
   Matrice = Split(numeri, " ", -1, vbTextCompare)
    For N = 0 To UBound(Matrice)
 
    conteggio(Matrice(N)) = conteggio(Matrice(N)) + 1
 
For ix = 1 To 49
 
List8.AddItem " Il numero " & " " & ix & " è stato ritrovato per  : " & conteggio(ix) & " " & " volte"
 
End If
Next ix
    Next N
Next i

I RISULTATI OTTENUTI vengono scritti nela list8

pero' ce qualcosa che no va
nella lista mi scrive valori non validi e per di piu li scrive + volte

mi aiutate?

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 21:38
Mercoledì, 22/10/2008

risolto

scusate x il post inutile

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:51
Mercoledì, 22/10/2008

Testo quotato

Postato originariamente da magicolotto:

risolto

scusate x il post inutile

LoL
avevo fatto un miscuglio di cicli for e contava i numeri, solo che più volte del tipo usciva:
il 45 è presente 1 volta
il 27 è presente 3 volte
il 27 è presente 3 volte
...

per risolvere sto probl mi sono regolato con delle msgbox ma provando il programma mi sono fot*uto da solo perchè mi venivano maree di msgbox, quindi sono stato costretto a terminare il processo di vb perdendo tutti i cicli ke avevo fatto, allora mi ci sono rimesso a farli e alla fine ci sono riuscito, dopo circa 20 minuti avevo risolto il problema, peccato che poi ho visto ke avevi già risolto...
:asd:

Comunque sia (forse tu hai fatto meglio di me, se si posta pure) per chiunque servisse posto sto miscuglio xD (aggiungete list1 e list2 un command1 e nel command mettete:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
Dim i As Integer, j As Integer, cont As Integer, x As Integer, k As Integer, num() As String, uscito As Boolean
 
For x = 0 To List1.ListCount - 1
num = Split(List1.List(x), " ")
   For i = 0 To UBound(num())
   cont = 0
     For j = 0 To List1.ListCount - 1
     If InStr(1, List1.List(j), num(i)) > 0 Then
     cont = cont + 1
     End If
     DoEvents
     Next j
        If List2.ListCount = 0 Then
        List2.AddItem num(i) & " è uscito: " & cont & " volte."
        Else
        uscito = False
          For k = 0 To List2.ListCount - 1
           If InStr(1, List2.List(k), num(i)) > 0 Then
           uscito = True
           End If
           DoEvents
          Next k
        If uscito = False Then
        List2.AddItem num(i) & " è uscito: " & cont & " volte."
        Else
        uscito = False
        End If
        End If
        DoEvents
   Next i
   DoEvents
Next x
End Sub

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 22:00
Mercoledì, 22/10/2008

Codice sorgente - presumibilmente VB.NET

For i = 0 To List6.ListCount - 1
  numeri = List6.List(i)
   Matrice = Split(numeri, " ", -1, vbTextCompare)
    For N = 0 To UBound(Matrice)
    conteggio(Matrice(N)) = conteggio(Matrice(N)) + 1
    Next N
Next i
 For ix = 1 To 49
  If conteggio(ix) >= 1 Then
'List8.AddItem " Il numero " & " " & ix & " è stato ritrovato per  : " & conteggio(ix) & " " & " volte"
  List8.AddItem conteggio(ix) & " " & "Frequenza del" & " " & ix
  End If
Next ix

Ultima modifica effettuata da magicolotto il 22/10/2008 alle 22:00