File.Bas Questo Emerito Sconosciuto!!!

di il
18 risposte

18 Risposte - Pagina 2

  • Re: File.Bas Questo Emerito Sconosciuto!!!

    Prova a vedere qui http://www.mrwebmaster.it/visual-basic/funzioni-sub_9588.html
    Attenzione che il file .bas devi averlo aggiunto al progetto
  • Re: File.Bas Questo Emerito Sconosciuto!!!

    Ma non ho capito una cosa....(in verità un concetto)..Esempio:

    ho creato questa funzione all'interno di un file bas:

    Option Explicit

    Public Function SlopeFriction(ByVal NManning As Double, ByVal h As Double, ByVal U As Double, ByVal epsilonh As Double) As Double

    If h > epsilonh Then
    SlopeFriction = NManning * NManning * U * Abs(U) / h ^ (4 / 3)
    Else
    SlopeFriction = NManning * NManning * U * Abs(U) / epsilonh ^ (4 / 3)
    End If

    End Function


    Adesso ho costruito un form, ed ho dimensionato un tasto esegui con questo codice in modo che quando vado a lanciare il run mi calcola il parametro SlopeFriction

    Option Explicit

    Public Sub Command1_Click()

    Dim NManning As Double
    Dim h As Double
    Dim U As Double
    Dim Sf As Double

    Dim epsilonh As Double
    epsilonh = 0.0005
    NManning = Text1.Text
    h = Text2.Text
    U = Text3.Text

    Sf = SlopeFriction(NManning, h, U)


    Label4.Caption = Sf

    'MsgBox (Sf)


    End Sub



    però se pur banale che sia mi lancia un messaggio di errore del tipo:


    ERRORE DI COMPILAZIONE ARGOMENTO NON FACOLTATIVO.
    mi evidenzia la parola SlopeFriction.


    DOVE SBAGLIO???

    GRAZIE
  • Re: File.Bas Questo Emerito Sconosciuto!!!

    La funzione si aspetta 4 argomenti, tu gliene passi 3. Forse ti manca epsilonh
  • Re: File.Bas Questo Emerito Sconosciuto!!!

    Come ti è stato suggerito, deve essere

    Sf = SlopeFriction(NManning, h, U, epsilonh)
Devi accedere o registrarti per scrivere nel forum
18 risposte