[VB6]Le funzioni...e i return!?!

[Leo91]

Salve a tutti,
ho postato in questo livello solo perchè ho letto VBScript, perciò ho paura di aver sbagliato sia Sezione che Forum...però mi rivolgo a voi.

Quando, in visual basic dichiaro una funzione:

Private Function(file As String)

End Function

come faccio a prendere il suo risultato?
In PHP per esempio facevo:

function scrivi($chi) {
$var1 = "Ciao $cosa";
return $var1;
} 

Come faccio in VB6 a fare il Return di una variabile? Grazie !

CiaooooO!

VBscript non è VisualBasic!
Sposto in P&P.


Ciao!

intendi dire una cosa del genere (?):

Dim richiesta
richiesta = InputBox("Ciao, come ti chiami?", "Converse")
If richiesta = "" Or IsNull(richiesta) Then
MsgBox "Ciao amico!", 6, "Converse"
Else
MsgBox "Ciao " & richiesta, 6, "Risultato"
End If

è un piccolo script per farti salutare dal "computer"
Comunque è così la funzione...

Se invece devi farlo funzionare online, usa windows.alert
...byex!

[Leo91]

intendi dire una cosa del genere (?):

è un piccolo script per farti salutare dal "computer"
Comunque è così la funzione...

Se invece devi farlo funzionare online, usa windows.alert
...byex!

Purtoppo no...
Allora è così

Private Function estrai(file As String)
On Error GoTo fine
Close
f = FreeFile
Open App.Path & "\" & file For Input As #f
Input #f, a
Close
'Qui vorrei un return, cioè un qualcosa che sia il risultato della funzione, ovvero che io possa fare, all'esterno di questa, un variabile = estrai("file.txt")
Exit Sub
fine: MsgBox Err.Description
End Sub

Poi all'esterno della funzione, cioè nella routine form_load faccio una cosa del genere

Private Sub Form1_Load()
versione = estrai("file.txt")
Form.Caption = "Programma - V." & versione
End Sub

Grazie!!
Ciaoooo!

Se magari mi dici cosa stai macchinando () posso darti una mano (o anche 2 )
E' da molto che non tocco VBScript o VB (anche se lo sto riprendendo nell'ultimo periodo)
Fammi sapere e vediamo cosa se può fare

EDIT: forse questo > document.write "Il fattoriale di " & numero & " è " & risultato

[Leo91]

Se magari mi dici cosa stai macchinando () posso darti una mano (o anche 2 )
E' da molto che non tocco VBScript o VB (anche se lo sto riprendendo nell'ultimo periodo)
Fammi sapere e vediamo cosa se può fare

Benissimo! Rivelo tutte le assurdità che sto combinando!

Allora in pratica vorrei che questo programmino, come suo primo incarico, leggesse da un file (log.txt) la versione del programma (che praticamente è la prima riga del file..)

Siccome, per fare un pò di pratica, vorrei farlo tramite una funzione invece che scrivere tutto il codice in Form_Load allora ho creato quella funzione (estrai)

Quindi praticamente sarà così:

'Dichiaro la funzione
Private Function estrai(file As String)
On Error GoTo fine
Close
f = FreeFile
Open App.Path & "\" & file For Input As #f
Input #f, a
Close
'Qui mi servirebbe quella chiamata che restituisce il risultato della funzione (tipo in php return $variabile)
Exit Function
fine: MsgBox Err.Description
End Function

Private Sub Form_Load()
a = estrai("log.txt")
Form1.Caption = "Archivio Films V." & a
End Sub

Spero vivamente che tu abbia capito, altrimenti possiamo pure cominciare a parlare cinese

Grazie ancora!!!

Benissimo! Rivelo tutte le assurdità che sto combinando!

Allora in pratica vorrei che questo programmino, come suo primo incarico, leggesse da un file (log.txt) la versione del programma (che praticamente è la prima riga del file..)

Siccome, per fare un pò di pratica, vorrei farlo tramite una funzione invece che scrivere tutto il codice in Form_Load allora ho creato quella funzione (estrai)

Spero vivamente che tu abbia capito, altrimenti possiamo pure cominciare a parlare cinese

Grazie ancora!!!

Ma perchè fargli leggere il file log.txt? Scrivi tutto all'interno del file (come faccio io)... Fai un msgbox (all'inizio o alla fine) dove ci metti tutto il resto!
Hai letto qualcosa del link che ti ho postato?
Per questi giorni (Giovedì-Venerdì e Sabato) non posso collaborare
Fatti ricerche su zio Guggolo (nel frattempo)... A presto cercherò di aiutarti!
...byex!

[Leo91]

Ma perchè fargli leggere il file log.txt? Scrivi tutto all'interno del file (come faccio io)... Fai un msgbox (all'inizio o alla fine) dove ci metti tutto il resto!
Hai letto qualcosa del link che ti ho postato?
Per questi giorni (Giovedì-Venerdì e Sabato) non posso collaborare
Fatti ricerche su zio Guggolo (nel frattempo)... A presto cercherò di aiutarti!
...byex!

Sisi lo so che dovrei mettere tutto all'interno del progetto1.vbp ()
però...era x fare una prova!!! Adesso guardo i due links!

EDIT: GRANDISSIMO!!!!! Il VBSCRIPT, essendo simile al vb, MI HA FATTO VEDERE QUESTO:

private function prova()
a = "Ciao come stai?"
prova = a ' PRATICAMENTE QUESTO E' CIò DI CUI PARLAVO!!!
end function

Grazie, grazie, grazie, grazie e ancora grazie!!!
Spero di fare ancora affari con te

Ciaooooo!!!!

guarda qui: http://programmazione.html.it/guide/...e-le-funzioni/ è tutto spiegato

[Leo91]

guarda qui: http://programmazione.html.it/guide/...e-le-funzioni/ è tutto spiegato

Wow grazie mi serviva una guida del genere!

Grazie ! Ciaoooo!

Sisi lo so che dovrei mettere tutto all'interno del progetto1.vbp ()
però...era x fare una prova!!! Adesso guardo i due links!

EDIT: GRANDISSIMO!!!!! Il VBSCRIPT, essendo simile al vb, MI HA FATTO VEDERE QUESTO:

private function prova()
a = "Ciao come stai?"
prova = a ' PRATICAMENTE QUESTO E' CIò DI CUI PARLAVO!!!
end function

Grazie, grazie, grazie, grazie e ancora grazie!!!
Spero di fare ancora affari con te

Ciaooooo!!!!

Avevo immaginato che era una cosa del genere... Voglio il 50% delle vendite sul progetto!
Cmq, se in futuro avrai problemi con VBScript, puoi chiedermi info senza crearti problemi...
...byex!