[vb6] problema con funzione

[ciro78]

salve

Private Sub Command1_Click()
stringa = Text1.Text
parola = Text2.Text
conteggio(stringa, parola) = conto
End Sub

Private Sub Command2_Click()
 End
End Sub

Public Function conteggio(stringa$, parola$) As Integer
 lunghezza = Len(stringa)
 For i = 1 To lunghezza
  If Mid(stringa, i, 1) = parola Then
   conto = conto + 1
  Else
   conto = conto
  End If
 Next i
 conteggio = conto
 Text3.Text = conto
End Function

mi genera un errore e mi dice che devo impostare conteggio uguale a qualcosa(questo nella routine command) se lo faccio mi dice che aspettava uno oggetto...se notate nella funzione conteggio il manuale mi dice di porlo uguale al risultato cioè conto....
non nè spiega il motivo

ciao e grazie

[vonkranz]

Fondamentalmente hai fatto un po' di casino con la chiamata alla funzione

Private Sub Command1_Click()
stringa = Text1.Text
parola = Text2.Text
risultato =conteggio(stringa, parola)
 Text3.Text = cstr(risultato)


End Sub

Private Sub Command2_Click()
 End
End Sub

Public Function conteggio(stringa$, parola$) As Integer
 dim conto as As Integer
 lunghezza = Len(stringa)
 For i = 1 To lunghezza
  If Mid(stringa, i, 1) = parola Then
   conto = conto + 1
  Else
   conto = conto
  End If
 Next i
 conteggio = conto
End Function

[ciro78]

a parte che mi da errore tipo nella variabile ma poi scusa io ho sempre chiamo le funzioni in quel modo

function(variabile)

forse è perchè ci sono due variabili?

[vonkranz]

basta che dimensioni la variabile risultato

Private Sub Command1_Click()
dim risultato as integer
stringa = Text1.Text
parola = Text2.Text
risultato =conteggio(stringa, parola)
 Text3.Text = cstr(risultato)

.....

..no, tu hai sempre chiamato le SUB in quel modo...le funzioni sono diverse.
...e poi una chiamata come fai tu conteggio(stringa, parola) = conto e' un controsenso perche' e' la funzione che deve ritornare il valore da attribuire alla variabile e non viceversa.

[ciro78]

beh credimi ho fatto un programmino in cui richiamo la funzione semplicemente inserendo tra parentesi il valore della variabile

cmq no mi funziona ancora!
ancora con lo stesso problema

[vonkranz]

Ma non hai fatto un'assegnazione come stai provando a fare nel pezzo di programma che hai postato

cmq, continua a non funzionarti perche' non hai dichiarato le due variabili che gli passi come parametri alla funzione:

Private Sub Command1_Click()
dim risultato as integer
dim stringa$ 
dim parola$
....

[ciro78]

funziona grazie ma sta toria delle funzioni non mi è chiara

[i'mshady]

Originariamente inviato da ciro78
funziona grazie ma sta toria delle funzioni non mi è chiara

esempio: invece che fare

mid(stringa1,2,4)=stringa2

devi fare

stringa2=mid(stringa1,2,4)

ok?

[ciro78]