Article View: free.it.visual-basic
Article #782Re: Funzioni e procedure...potete spiegarmi....
From: Cerberus
Date: Sat, 26 Mar 2005 08:58
Date: Sat, 26 Mar 2005 08:58
67 lines
3086 bytes
3086 bytes
"Brostin" <brostin@inwind.it> ha scritto nel messaggio
news:ZJnYd.646441$b5.29373935@news3.tin.it...
> Salve a tutti,
Ciao
> sono ai mie primi passi nel modo di VB6 e ho assoluta necessit� di
> chiarire alcuni concetti. Il mio primo vero ostacolo si � presentato con
> le funzioni...ma mi spiego meglio. Mi sembra di aver capito che funzioni e
> procedure eseguono praticamente le solite operazioni ma, a differenza
> delle procedure, le funzioni restituiscono un valore.
esatto
> Quello che non mi � chiaro � come utilizzare le une al posto delle altre e
> soprattutto quando usarle.
l'hai detto prima, quando hai bisogno di un determinato valore, usi una
function, quando in vece devi far far solamente delle procedure (ovvero non
ti occorre alcun "parametro" allora usi una sub.
> Insomma avrei bisogno di un esempio .... se possibile commentato...
nella parte finale ti ho messo un esempino, copia sul form e crea una label,
una textbox e due command button
> Scusatemi se posso sembrare esigente ma sono diversi giorni che mi scontro
> con questi concetti che leggo e rileggo ma che non vogliono chiarirsi.
� successo anche a me, e loro mi hanno aiutato.
oggi tocca a te.
> Vi ringrazio e ...datemi una mano
di nulla, facci sapere
> Ciao a tutti
Ciao
Cerberus
option explicit
private sub form_load()
text1.text="2"
label1.caption=""
command1.caption="&Funzione"
command2.caption="&Procedura"
end sub
private sub command1_click()
'chiama la funzione poich� gli occorre un valore'
label1.caption=chiamafunzione
end sub
private function ChiamaFunzione()
'chiamafunzione restituisce il valore di text1.text elevato alla
seconda'
chiamafunzione=val(text1.text)^2
end function
private sub command2_click()
'azzera tramite la procedura, qui non serve che restituisca un
parametro, quindi si usa una procedura anzich� una funzione'
chiamaprocedura
end sub
private sub ChiamaProcedura()
'come vedi il sub chiama procedura non restituisce alcun valore'
label1.caption = ""
end sub
Technical Details
Message-ID:
<4v91e.11497$IN.258225@twister2.libero.it>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!tiscali!newsfeed1.ip.tiscali.net!inn1.libero.it!twister2.libero.it.POSTED!not-for-mailReferences:
<ZJnYd.646441$b5.29373935@news3.tin.it>Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,7c4ae2482ef6b14f X-Google-Attributes: gidf94ee,public X-Google-Language: ITALIAN,ASCII Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!tiscali!newsfeed1.ip.tiscali.net!inn1.libero.it!twister2.libero.it.POSTED!not-for-mail From: "Cerberus" <cerberus1981@hotmail.com> Newsgroups: free.it.visual-basic References: <ZJnYd.646441$b5.29373935@news3.tin.it> Subject: Re: Funzioni e procedure...potete spiegarmi.... Lines: 69 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.2180 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 X-RFC2646: Format=Flowed; Response Message-ID: <4v91e.11497$IN.258225@twister2.libero.it> Date: Sat, 26 Mar 2005 08:58:40 GMT NNTP-Posting-Host: 151.80.1.103 X-Complaints-To: abuse@libero.it X-Trace: twister2.libero.it 1111827520 151.80.1.103 (Sat, 26 Mar 2005 09:58:40 MET) NNTP-Posting-Date: Sat, 26 Mar 2005 09:58:40 MET Organization: [Infostrada]