Function,msgbox, sub form litigano

[qazaz]

Salve,qualcuno saprebbe dirmi perchè la segunete routien non funziona?

dovrebbe visualizzare una msgbox con riportato l'area del cerchio in base al valore del raggio 5,3

Function AreaCerchio(Raggio As Double)
AreaCerchio = Raggio * Raggio * 3.14
Dim Area1 As Double
Area1 = AreaCerchio(5, 4)
MsgBox Area1
End Function

quando lo mando in esecuzione si vede il form vuoto ma nessun msgbox,
ho notato ceh msgbox funziona solo qundo + inserityo nella procedura form, ma se provo a spostare l'intero codice al suo interno

mi da errore ebd sub viene trasformato in end function



ma la proprietà function mi sta facendo impazzire sub form non l'accetta fuori da questa ottengo un form vuota xchè msgbox
da quanto ho visto funziona solo all'interno della routine sub form

Help me qazaz Function,msgbox, sub form litigano Function,msgbox, sub form litigano

[giuSp]

Originariamente inviato da qazaz

Function AreaCerchio(Raggio As Double)
    AreaCerchio = Raggio * Raggio * 3.14
    Dim Area1 As Double
    Area1 = AreaCerchio(5, 4)
    MsgBox Area1
End Function

hai sbalgiato il passagio di argomenti alla funzione!se vuoi passare un numero non intero(con la virgola), devi usare il punto e non la virgola!!]:gren:
poi scrivici public/private davanti alla funzione!!

e poi non ci ho capito niente!!
Scrivi in ITALIANO!

[Wild78]

HEY!!!

Guarda bene il codice...

Non arrivi mai ad eseguire il msgbxo, poiche' fai una recursione dalla riga precedente il msgbox tornando alla testa della funzione...

E' sempre meglio tenere la tua fuinzione staccata dal resto, e richiamarla da un'altra parte nel form!

[steno12]

Il tuo codice è giusto, il problema è:
....digita così per l'msgbox vuota:
MsgBox (Area1)

per concludere........... areacerchio non è bidimensionata (quindi l'errore.......)
riscrivila così:

Raggio = 2
AreaCerchio (Raggio)

Function AreaCerchio(Raggio As Double)
AreaCerchio = Raggio * Raggio * 3.14
Dim Area1 As Double
Area1 = AreaCerchio
MsgBox Area1
End Function





link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[giuSp]

Originariamente inviato da steno12
Il tuo codice è giusto, il problema è:
....digita così:
MsgBox (Area1)

mi sa proprio di no!!

coma ha detto il moderatore, è utilizzata una funzione ricorsiva, che quando arriva all' istruzione

Area1 = AreaCerchio(5, 4)

la funzione riesegue se stessa, per un loop infinito!!

basta tagliare le righe

    Dim Area1 As Double
    Area1 = AreaCerchio(5, 4)
    MsgBox Area1

ed inserirle in un command nell'evento click!!


-------------------------->>

Originariamente inviato da steno12
MsgBox (Area1)

poi se utilizzi le parentesi per gli argomenti della msgbox,(utilizzi msgbox come function) commetti un grave errore, se non utilizzi un variabile che contenga il valore di ritorno!!

RetVal=MsgBox("ma va?")

------------------------->>

[Wild78]

Eh!

Ascoltate il moderatore...

[xit]

qazaz ha preso questo esempio di codice dal capitolo 3 dove spiega le
funzioni e le sub del manuale online di visual basic che offre html.it

Credo che a lui non sia molto chiaro come sistemare il codice: cioè
dove andare a richiamare la funzione:infatti nel capitolo non ti dice
ovviamente perchè tratta delle funzioni dove devi andare a richiamarle

Questa è la funzione
----------------------------------------------------------------------
Function AreaCerchio(Raggio As Double) As Double
AreaCerchio = Raggio * Raggio * 3.14
End Function
----------------------------------------------------------------------
Questo codice che tu hai visto non fa parte della funzione,ma ti dice come richiamare la funzione

Dim Area1 As Double ------> dichiara una variabile
Area1 = AreaCerchio(5.4)------->assegna a questa variabile la funzione cioè area cerchio con il parametro cioè Raggio che
assume il valore che vuoi tu in questo caso 5.4.
Quindi area cerchio= raggio(5.4) * raggio(5.4) * 3.14
MsgBox Area1 --------> ti dà il risultato di questo calcolo

Quindi prova a creare un bottone e nell'evento click del
tuo bottone metti questo codice,clicca e vedi che ti apparirà il
tuo messagebox

Dim Area1 As Double
Area1 = AreaCerchio(5.4)
MsgBox Area1

[darkblOOd]

Originariamente inviato da steno12
Il tuo codice è giusto

:quote: :quote: :quote: :quote:

ma che dici?

[xit]

Function AreaCerchio(Raggio As Double)
AreaCerchio = Raggio * Raggio * 3.14
Dim Area1 As Double
Area1 = AreaCerchio(5, 4)
MsgBox Area1
End Function

Questo codice non è corretto non fa niente se uno lo prova ad
eseguire.
Bisogna fare come ha detto Wild78

[steno12]

Dico che ho dimenticato il .......NON
capita..............