🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #782

Re: Funzioni e procedure...potete spiegarmi....

#782
From: Cerberus
Date: Sat, 26 Mar 2005 08:58
67 lines
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-mail
References: <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]