[VB.NET]Ricerca e visualizzare

[mat7e0]

Ciao ragà, scusate se vi "rompo" ancora,

Ho caricato nome di articoli, quanità e prezzo e visualizzati in 3 listbox diverse, ora devo ricercare per nome la quantità e il prezzo, e ho scritto cosi

  
Public Class Form1
    Dim Nome(100), Scelta, Ricerca As String, Prezzo(100), Quantità(100) As Decimal, I As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        I = 0
        Do
            Nome(I) = InputBox("Inserisci nome articolo")
            Quantità(I) = InputBox("inserisci quantità articolo")
            Prezzo(I) = InputBox("inserisci prezzo articolo")
            Scelta = InputBox("Inserire un altro articolo?(Si/No)", "Attenzione")
            ListBox1.Items.Add(Quantità(I))
            ListBox2.Items.Add(Nome(I))
            ListBox3.Items.Add(Prezzo(I))
        Loop Until Scelta = "No"
        

    End Sub

Private Sub BtnRicaercaQuant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRicaercaQuant.Click         
Do             
Ricerca = InputBox("inserisci nome articoli")             
If Ricerca = Nome(I) Then                
MsgBox(Quantità(I))             
End If             
Scelta = InputBox("inserire un altro articolo?(Si/No)")         
Loop Until Scelta = "No"      
End Sub

però quando provo mi dà solo la quantità dell'ultimo articolo inserito...cosa devo aggiungere o aggiustare?..

[Pirelli72]

La variabile I che cos'è ? Dove viene elaborata?

[mat7e0]

I infatit non sono sicuro che la devo inserire...
a me serve solo spaere come far apparire nell'msgbox qualunque quantità e non solo l'ultima inserita...

[Pirelli72]

Nel frattempo hai cambiato il codice.....
La variabile I non viene mai incrementata, te ne sei accorto?

Inoltre la tua dichiarazione multipla

Dim Nome(100), Scelta, Ricerca As String, Prezzo(100), Quantità(100) As Decimal, I As Integer

è alquanto strana.
Io scriverei per correttezza:

Dim Nome(100) , Scelta, Ricerca As String
Dim prezzo(100) as decimal
Dim Quantità(100), I as Integer

[mat7e0]

Originariamente inviato da Pirelli72
Nel frattempo hai cambiato il codice.....
La variabile I non viene mai incrementata, te ne sei accorto?

Inoltre la tua dichiarazione multipla

Dim Nome(100), Scelta, Ricerca As String, Prezzo(100), Quantità(100) As Decimal, I As Integer

è alquanto strana.
Io scriverei per correttezza:

Dim Nome(100) , Scelta, Ricerca As String
Dim prezzo(100) as decimal
Dim Quantità(100), I as Integer

ah ok ..pensavo fosse uguale cmq io ho messo I per fare con for e in effetti esce però solo se scrivo i nomi in ordine numerico, come è normale che sia usando for, quindi deov usare do no?

 For J = 0 To I - 1             
Ricerca = InputBox("ins. nome")            
 If Nome(J) = Ricerca Then                 
MsgBox(Quantità(J))             
End If          
Next      
End Sub

[Pirelli72]

Va bene anche il Do.....Until purchè incrementi la variabile I

Do
'...Tuo codice
If I >= 100 then Exit Do
I+=1
Until

[mat7e0]

Originariamente inviato da Pirelli72
Va bene anche il Do.....Until purchè incrementi la variabile I

Do
'...Tuo codice
If I >= 100 then Exit Do
I+=1
Until

questa parte non l'ho prorpio capita..perchè dovrei fare cosi?....

[Pirelli72]

Cosa non hai capito ?

I+=1

serve per incrementare di 1 la variabile I (sarebbe meglio i)

If I >= 100 then Exit Do

serve per uscire dal Do.....Until se la variabile I supera 100 visto che hai dichiarato la matrice con 101 elementi.

Ovviamente 100 presumo sia un esempio.....

[mat7e0]

Originariamente inviato da Pirelli72
Cosa non hai capito ?

I+=1

serve per incrementare di 1 la variabile I (sarebbe meglio i)

If I >= 100 then Exit Do

serve per uscire dal Do.....Until se la variabile I supera 100 visto che hai dichiarato la matrice con 101 elementi.

Ovviamente 100 presumo sia un esempio.....

ah ok.....ma cosa centra col fatto di visualizzare tramite msgbox con ricerca la quantità..?

[Pirelli72]

Che se non popoli correttamente la matrice come fai a ricercare i valori correttamente???