Forum - Visual Basic 6 - Dubbio array
Roberto VB Member )Messaggi: 419Iscritto: 29/01/2007
Salve, ho un dubbio. Nel mio giochino Sparole, ho deciso di aumentare il lessico, ed ora l'array è formato fa 70 elementi... qual'è il limite?
Codice sorgente - presumibilmente Plain Text
parole = Array("gioco", "cane", "gatto", "Rossano", "gorilla", "yes", "no", "re", "Roberto", "Luca", "Alessandro", "Cosenza", "casa", "torre", "mare", "cielo", "inerme", "braccio", "USA", "Iran", "acquaio", "acquapark", "italiota", "mobile", "mnemotecnica", "eMule", "wagon-lit", "wafer", "vulcano", "violino", "vetro", "1234509876", "oscillografo", "oro", "orzo", "amico", "amichevole", "amorale", "ancella", "anatra", "Gigi", "Windows", "Linux", "pioggia", "Angelo", "wee", "ciao", "io", "cucù", "bho", "qwerty", "sale", "pane", "zana", "Napoli", "eresia", "monachesimo", "perchè?", "ah!", "google", "otrebor", "questura", "protezionismo", "protocollo", "ghigliottina", "ecco", "bellamente", "Carlo", "Filippo", "1+1=2", "10+19=29", "bye")
Randomize
lblL1.Caption = parole(Rnd() * 70)
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
Il limite nn lo so, ma penso ke se lo superi ti verrà il seguente messaggio:
Ultima modifica effettuata da GrG il 13/01/2008 alle 18:55
kryc Messaggi: 36Iscritto: 11/12/2007
Secondo me ti conviene fare così :
Codice sorgente - presumibilmente Plain Text
parole = ("ciao,ciao,ciao,ciao")
Limite :
Codice sorgente - presumibilmente Plain Text
x = Split(parola, ",")
limite = UBound(x)
MsgBox limite
Crei un unica stringa, e poi la splitti sul carattere della virgola. Ti divide la stringa in parole e tramite la funzione ubound ti trova l'indice dell'ultimo elemento.
Partendo da 0 quindi se ci sono 4 elementi , l'indice sarà 3.
l'indice minore sarà lbound(x) cioè 0
per scorrere tutte le parole basta fare un ciclo For
Codice sorgente - presumibilmente Visual Basic 6
For i = lbound(x) to ubound(x)
istruzioni
next
Roberto VB Member )Messaggi: 419Iscritto: 29/01/2007
Si, il tuo consiglio potrebbe funzionare
