Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Methods, functions (Opgelost)

Jimbo - 22/11/2009 21:50 (laatste wijziging 22/11/2009 21:55)

Lid

Ik zou graag hulp hebben bij het aanvullen van methods en functions bij een bestaande programma code:

Opgave gaat als volgt:
Vul onderstaande programmacode aan met de nodige methods om alle gecodeerde testen te doen slagen. Aan de meegegeven code mag je niets veranderen.

Method IndexOf zal de positie ( index ) van een bepaald karakter ( eerste argument ) in de verzameling-van-karakters/String opleveren. Een String kan je net als een Char array benaderen, zie onderstaand voorbeeld :

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Module StringAsCharArrayExample
    Sub Main()

        Dim text As String = "Hello"
        Console.WriteLine(text(0))         ' "H"c
        Console.WriteLine(text(1))         ' "e"c
        Console.WriteLine(text(2))         ' "l"c
        Console.WriteLine(text(3))         ' "l"c
        Console.WriteLine(text(4))         ' "o"c
        'Console.WriteLine(text(5) = "o"c) ' IndexOutOfRangeException
    End Sub
End Module

            
Module StringAsCharArrayExample
    Sub Main()
 
        Dim text As String = "Hello"
        Console.WriteLine(text(0))         ' "H"c
        Console.WriteLine(text(1))         ' "e"c
        Console.WriteLine(text(2))         ' "l"c
        Console.WriteLine(text(3))         ' "l"c
        Console.WriteLine(text(4))         ' "o"c
        'Console.WriteLine(text(5) = "o"c) ' IndexOutOfRangeException
    End Sub
End Module
 

Nagaan of een objectexpressie van een reference type gelijk is aan Nothing doet men via de Is of IsNot operatoren :

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Module ComparingReferencesExample
    Sub Main()
        Dim text As String
        Console.WriteLine(text Is Nothing)    ' True

        text = "Hello"
        Console.WriteLine(text IsNot Nothing) ' True
    End Sub
End Module

            
Module ComparingReferencesExample
    Sub Main()
        Dim text As String
        Console.WriteLine(text Is Nothing)    ' True
 
        text = "Hello"
        Console.WriteLine(text IsNot Nothing) ' True
    End Sub
End Module
 

Programma-code :

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Module GequoteerdeOefening06

    Sub Main()
        Console.WriteLine(IndexOf("a"c, "abc") = 0)        ' True
        Console.WriteLine(IndexOf("b"c, "abc") = 1)        ' True
        Console.WriteLine(IndexOf("c"c, "abc") = 2)        ' True
        Console.WriteLine(IndexOf("d"c, "abc") = -1)       ' True
        Console.WriteLine(IndexOf("a"c, Nothing) = -1)     ' True
        '
        Console.ReadLine()
    End Sub
End Module

            
Module GequoteerdeOefening06
 
    Sub Main()
        Console.WriteLine(IndexOf("a"c, "abc") = 0)        ' True
        Console.WriteLine(IndexOf("b"c, "abc") = 1)        ' True
        Console.WriteLine(IndexOf("c"c, "abc") = 2)        ' True
        Console.WriteLine(IndexOf("d"c, "abc") = -1)       ' True
        Console.WriteLine(IndexOf("a"c, Nothing) = -1)     ' True
        '
        Console.ReadLine()
    End Sub
End Module
 

Momenteel heb ik verschillende notaties van functions gebruikt maar geraak hier niet direct wijs uit. Kan iemand hierbij helpen om dezelfde output te bekomen?

10 antwoorden

Gesponsorde links

Abbas - 22/11/2009 21:57
Crew .NET		En wat is het dat je wil bereiken? Wat moeten we aanvullen? Ik zie nergens een function of methode om een "test te doen slagen"...

Jimbo - 25/11/2009 20:17
Lid		Met bovenstaande oefening is een voorgestelde oefening. De programmacode zelf mag niet gewijzigd worden. Dit moeten we zelf aanvullen met functions. Maar ik zie niet direct in hoe je elk stuk aan elkaar kunt linken en zorgen dat alles ineen past. Dit is gewoon een oefening, en niet om iets "belangrijks" te bekomen(geen doel).

Abbas - 25/11/2009 20:47
Crew .NET		Wat moeten de functies dan allemaal doen?

Jimbo - 25/11/2009 21:20
Lid		Zoals de taak vermeld, moeten hier berekeningen gedaan worden via functions om tot het andere te bekomen. Als je de code invoerd zie je dat er missende declaraties zijn. Die moeten gelinkt worden via functions. Alleen aan de programma code zelf mag niets gewijzigd worden.

Abbas - 25/11/2009 21:39
Crew .NET		WAT moeten de functies doen? Een substring nemen en terugsturen, een som berekenen en het resultaat terugsturen, ... Dat bedoel ik!

Jimbo - 26/11/2009 22:01
Lid		Het stukje van "programma code" blijkt de "testen" in de vraag te zijn. Het 1ste stuk zou zoals de taak, zou de "method index of" de plaats van een karakter bepalen in een string. Nadien bij het volgende stuk is het: nagaan of een objectexpressie van een reference type gelijk is aan Nothing(default value van een string) doet men via de Is of IsNot operatoren.

Abbas - 26/11/2009 22:15
Crew .NET		Waarom zou je dat in een functie moeten gooien als .NET dat allemaal heeft voorzien? Voorbeeld zou dan kunnen zijn voor die IndexOf: vbnet code - Bekijk de code zonder highlighting - Klap code in Private Function GetIndexOf(ByVal inChar As Char) As Integer Return someString.IndexOf(inChar) End Function Private Function GetIndexOf(ByVal inChar As Char) As Integer Return someString.IndexOf(inChar) End Function En de andere functie kan je op een gelijkaardige manier doen!

Jimbo - 27/11/2009 20:41
Lid		Ik pas dit toe inderdaad, met die "someString" in je code was ik aan het testen op "Hello" en op "string" maar die herkend het niet (Hello.indexof is not declared OF string.indexof error "reference to a non shared memeber requires an object reference"). Het blijft fouten weergeven. Eerst had ik de codering boven de module geplakt dus zover had ik mijn fout al ondervonden.

Abbas - 28/11/2009 15:43

Crew .NET

Duh! Dit gaat alleen werken als je dit hebt:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim someString As String = "titjes"
Dim x As Integer = GetIndexOf("j")

Private Function GetIndexOf(ByVal inChar As Char) As Integer
    Return someString.IndexOf(inChar)
End Function

            
Dim someString As String = "titjes"
Dim x As Integer = GetIndexOf("j")
 
Private Function GetIndexOf(ByVal inChar As Char) As Integer
    Return someString.IndexOf(inChar)
End Function
 

En anders doe je het zo en dat is misschien nog beter:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Function GetIndexOf(ByVal input As String, ByVal charToFind As Char) As Integer
    Return input.IndexOf(charToFind)
End Function

'En dan zet je volgende regel in je Main ofzo
Dim index As Integer = GetIndexOf("titjes", "j")

            
Private Function GetIndexOf(ByVal input As String, ByVal charToFind As Char) As Integer
    Return input.IndexOf(charToFind)
End Function
 
'En dan zet je volgende regel in je Main ofzo
Dim index As Integer = GetIndexOf("titjes", "j")
 

Succes!

Jimbo - 29/11/2009 22:30 (laatste wijziging 01/12/2009 07:13)

Lid

Het volgende ik heb is
code:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Module StringAsCharArrayExample
    Sub Main()
        Dim text As String = "Hello"
        Console.WriteLine(text(0))         ' "H"c
        Console.WriteLine(text(1))         ' "e"c
        Console.WriteLine(text(2))         ' "l"c
        Console.WriteLine(text(3))         ' "l"c
        Console.WriteLine(text(4))         ' "o"c
        'Console.WriteLine(text(5) = "o"c) ' IndexOutOfRangeException
    End Sub
    Private Function GetIndexOf(ByVal input As String, ByVal charToFind As Char) As Integer
        Return input.IndexOf(charToFind)
    End Function

'Nagaan of een objectexpressie van een reference type gelijk is 'aan Nothing doet men via de Is of IsNot operatoren :

Module ComparingReferencesExample
        Sub Main()
            Dim text As String
            Console.WriteLine(text Is Nothing)    ' True
            text = "Hello"

            Console.WriteLine(text IsNot Nothing) ' True
        End Sub
    End Module
            
Module StringAsCharArrayExample
    Sub Main()
        Dim text As String = "Hello"
        Console.WriteLine(text(0))         ' "H"c
        Console.WriteLine(text(1))         ' "e"c
        Console.WriteLine(text(2))         ' "l"c
        Console.WriteLine(text(3))         ' "l"c
        Console.WriteLine(text(4))         ' "o"c
        'Console.WriteLine(text(5) = "o"c) ' IndexOutOfRangeException
    End Sub
    Private Function GetIndexOf(ByVal input As String, ByVal charToFind As Char) As Integer
        Return input.IndexOf(charToFind)
    End Function
 
'Nagaan of een objectexpressie van een reference type gelijk is 'aan Nothing doet men via de Is of IsNot operatoren :
 
Module ComparingReferencesExample
        Sub Main()
            Dim text As String
            Console.WriteLine(text Is Nothing)    ' True
            text = "Hello"
 
            Console.WriteLine(text IsNot Nothing) ' True
        End Sub
    End Module
 

Programma-code :

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Module GequoteerdeOefening06
        Sub Main()
            Console.WriteLine(IndexOf("a"c, "abc") = 0)        ' True
            Console.WriteLine(IndexOf("b"c, "abc") = 1)        ' True
            Console.WriteLine(IndexOf("c"c, "abc") = 2)        ' True
            Console.WriteLine(IndexOf("d"c, "abc") = -1)       ' True
            Console.WriteLine(IndexOf("a"c, Nothing) = -1)     ' True
            '
            Console.ReadLine()
        End Sub
    End Module
            
Module GequoteerdeOefening06
        Sub Main()
            Console.WriteLine(IndexOf("a"c, "abc") = 0)        ' True
            Console.WriteLine(IndexOf("b"c, "abc") = 1)        ' True
            Console.WriteLine(IndexOf("c"c, "abc") = 2)        ' True
            Console.WriteLine(IndexOf("d"c, "abc") = -1)       ' True
            Console.WriteLine(IndexOf("a"c, Nothing) = -1)     ' True
            '
            Console.ReadLine()
        End Sub
    End Module
 

Hiervan krijg ik de index niet gekoppeld aan de letter. zoals het stukje hierin bovenaan. alsook moet het volgende nagegaan worden of dit een object of referencetype is

Citaat:

Code tags gebruiken aub!

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten