Newsgroup: it.comp.lang.visual-basic
Titolo: Vettori

Ciao,
sono alle prime armi e sto cercando di realizzare una FORM contenente due
oggetti TextBox (Text1 e Text2)  e un oggetto Command Button.
Il programmino dovrebbe scrivere in ciascun elmento di una matrice i valori
che vengono inseriti nel TextBox (1) per un certo numero di inserimenti (Max
3). Al termine dell'operazione di inserimento il vettore deve essere
scansionato per visualizzare il contenuto nel Text2.
Ma non funziona molto bene di seguito il codice che ho pensato:
Public contatore As Integer
Sub Command1_Click()
    If (contatore = 0) Then
        Dim Vettore(3) As String
    End If
    If (contatore < 3) Then
        Vettore(contatore) = Text1.Text
        Text1.Text = ""
        contatore = contatore + 1
    Else
        MsgBox ("OK hai completato l'inserimento!!")
        For i = 0 To contatore Step 1
            Text2.Text = Text2.Text + " | " + Vettore(i)
        Next i
    End If
End Sub
Sub Form_Load()
    contatore = 0
    Text1.Text = ""
End Sub
Potreste essere cosě gentili da dirmi dove sto sbagliando!
Grazie mille
Carlo

 ha scritto nel messaggio
news:anu5cr$hc953$1...@ID-99251.news.dfncis.de...

magari se ci dici quale errore ti viene comunicato oppure cosa non
funziona...
prova cosě:
option explicit
dim contatore as integer
dim Vettore(2) as string
 Sub Command1_Click()
     If (contatore < 3) Then
         Vettore(contatore) = Text1.Text
         Text1.Text = ""
         contatore = contatore + 1
     Else
         MsgBox ("OK hai completato l'inserimento!!")
        For i = 0 To ubound(vettore)
             Text2.Text = Text2.Text & " | " & Vettore(i)
        Next i
    End If
 End Sub
--
bye BlackMagic
ICQ: 85485468

 >


 ha scritto nel messaggio
news:anu8vc$h7fm7$1...@ID-99251.news.dfncis.de...

scusa un pò, ma hai letto la risposta precedente?
1)non usare il + per concatenare le stringhe, usa &
2)hai provato a vedere cosa contiene vettore?
ovvero hai provato a fare un debug?
3)non credo altrimenti ti saresti accorto che vettore viene dichiarato
ogni volta che fai click sul pulsante e quindi il suo contenuto "cancellato"
SOLUTION:
leggiti la risposta precedente e vedrai che vettore deve essere dichiarato
fuori dalla routine click del command button


 ha scritto nel messaggio
news:anuc3t$hkgs6$1...@ID-150836.news.dfncis.de...


Ma non funziona molto bene di seguito il codice che ho pensato: Dim
contatore As Integer Dim Vettore(3) As String  Sub Command1_Click()    
Dim I as Integer     If contatore = 0 Then	     For I=1 to 3	
	vettore(I)=""		next	 End If     If contatore <= 3
Then	     Vettore(contatore) = Text1.Text	     Text1.Text = ""	
    contatore = contatore + 1	  Else	       MsgBox ("OK hai
completato l'inserimento!!")	     For i = 0 To contatore	       
Text2.Text = Text2.Text & " | " & Vettore(i)	     Next     End If End
Sub Sub Form_Load()	contatore = 0	  Text1.Text = "" End Sub Prova
cosě, dovrebbe funzionare. Semmai fammi sapere

Dovresti portare queste dichiarazioni in generale
Dim contatore As Integer
Dim Vettore(3) As String
e ricorda che un vettore dichiarato cosi e di 4 elementi e non 3
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG