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

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:

Codice:

---

Private Function(file As String)

End Function

---

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

Codice PHP:

---

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


---

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

CiaooooO!http://forum.altervista.org/images/icons/icon10.gif

VBscript non è VisualBasic!
Sposto in P&P.


Ciao!

intendi dire una cosa del genere (?):

Citazione:

---

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!

Citazione:

---

Originalmente inviato da TurkoSoft

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ì

Codice:

---

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

Codice:

---

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

---

Grazie!!
Ciaoooo!

Se magari mi dici cosa stai macchinando (:mrgreen:) posso darti una mano (o anche 2 :lol:)
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 :wink:

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

Citazione:

---

Originalmente inviato da TurkoSoft

Se magari mi dici cosa stai macchinando (:mrgreen:) posso darti una mano (o anche 2 :lol:)
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 :wink:

---

Benissimo! :mrgreen: Rivelo tutte le assurdità che sto combinando! :mrgreen:

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ì:

Codice:

---

'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 :mrgreen: :mrgreen:

Grazie ancora!!!

Citazione:

---

Originalmente inviato da Leo91

Benissimo! :mrgreen: Rivelo tutte le assurdità che sto combinando! :mrgreen:

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 :mrgreen: :mrgreen:

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! :wink:

Citazione:

---

Originalmente inviato da TurkoSoft

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! :wink:

---

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

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

Codice:

---

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 :mrgreen: http://forum.altervista.org/images/icons/icon10.gif

Ciaooooo!!!!

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

Citazione:

---

Originalmente inviato da jostock

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

---

Wow grazie mi serviva una guida del genere! :wink:

Grazie ! Ciaoooo!

Citazione:

---

Originalmente inviato da Leo91

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

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

Codice:

---

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 :mrgreen: http://forum.altervista.org/images/icons/icon10.gif

Ciaooooo!!!!

---

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