'*' is not declared. It may be inaccessible due to its protection level.

[cboetens]

Hallo,
Het is nu al een tijdje dat ik een error krijg als ik volgende functie programmeer in VS 2010:

Module mdlMFuncties

   Public Function Keerom(ByVal strTekst As String) As String

        Dim intTeller As Integer
        Dim strResultaat As String

        'strResultaat instellen op lege string
        strResultaat = ""

        'strTekst met een for lus teken per teken doorlopen
        For intTeller = 0 To strTekst.Length - 1
            strResultaat = strTekst.Substring(intTeller, 1) & strResultaat
        Next

        'functie moet een resultaat teruggeven!!!
        Keerom = strResultaat

    End Function
    Public Function BerekenBMI(ByVal intGrootte As Decimal, intGewicht As Decimal) As Decimal
        'Variabelen declareren
        '---------------------
        Dim decBMI As Decimal
        'Bewerkingen 
        '--------------
        decBMI = intGewicht / (intGrootte * intGrootte)
        'Functie gelijkstellen aan decBMI
        '---------------------------------
        BerekenBMI = decBMI
    End Function

End Module

Beide functies die hierin staan werken niet wegens de foutmelding die beschreven staat in bovenvermeld onderwerp. Iemand enig idee?
Alvast bedankt !

Mvg,
Cédric Boetens

 

[JoZ1]

'keerom' kan ook met de StrReverse-functie.

En de BMI-functie kan korter:

[cpp]Public Function BerekenBMI(ByVal intGrootte As Decimal, ByVal intGewicht As Decimal) As Decimal
Return intGewicht / intGrootte * intGrootte
End Function[/cpp]

Bij mij levert dit geen problemen op...

 

[cboetens]

..

Hallo,
Ik weet dat het met strReverse ook kan, maar dit is een functie die ik moest maken in mijn cursus oefeningen.
Maar zeker bedankt voor de verkorting de BMI functie ! Ondertussen werkt alles weer netjes en wel, had een klein stom foutje van mijzelf gemaakt.

Deze mag dus gesloten worden

Groetjes,
Cédric B.

 

[JoZ1]

OK! :thumb:

Klik dan op 'Zet status opgelost' in je eerste post.