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

de array waarden veranderen plaats. (Opgelost)

verhaba - 03/11/2008 19:13 (laatste wijziging 03/11/2008 22:41)

Lid

Hallo

Ik heb een vraagje: Ik moet een array maken. Eens die array gemaakt is (of gegenereerd is) moet ik via een switch de waarden veranderen in de array twee aan twee.

De waarde op index 0 moet op index 1 komen.
De waarde op index 1 moet index 0 komen.
De waarde op index 2 moet op index 1 komen
de waarde op index 3 moet op index 2 komen
etc
Dit zou het verloop moeten zijn.:
---------------------------------------
Array BEFORE switch : 10 20 30 40 50
Array AFTER switch : 20 10 40 30 50
---------------------------------------
Het schoentje knelt gedeeltelijk bij de switch, ik geraak er maar niet uit. Voornamelijk het opslagen in een backup. Dit is mijn code:

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

                Module Module1

    Sub Main()
        Console.WriteLine("Count ?")
        Dim count As Integer = Console.ReadLine()

        Dim value(count) As Integer
      
        ' de array opbouwen
        Dim index As Integer
        For index = 0 To count - 1
            Console.WriteLine("Number " & index + 1 & " ?")
            value(index) = Console.ReadLine()
        Next

        ' de array uitschrijven:
        Console.WriteLine("----------------------------------------")
        Console.Write("Array BEFORE Switch : ")
        For index = 0 To count - 1
            Console.Write(value(index) & " ")
        Next

        Dim backup As Integer
        'de waarden in de array veranderen; de switch toepassen!
        For index = 0 To count - 1 Step 2
            value(index) = backup
            If index Mod 2 = 0 Then
                value(index) = value(index + 1)
            Else
                value(index) = backup
            End If

        Next

        ' de array uitschrijven:
        Console.WriteLine()
        Console.Write("Array AFTER Switch: ")

        For index = 0 To count - 1
            Console.Write(value(index) & " ")
        Next
        Console.WriteLine()
        Console.WriteLine("----------------------------------------")

        'de console laten wachten op input om af te sluiten.
        Console.ReadLine()

    End Sub

End Module

            
Module Module1
 
    Sub Main()
        Console.WriteLine("Count ?")
        Dim count As Integer = Console.ReadLine()
 
        Dim value(count) As Integer
 
        ' de array opbouwen
        Dim index As Integer
        For index = 0 To count - 1
            Console.WriteLine("Number " & index + 1 & " ?")
            value(index) = Console.ReadLine()
        Next
 
        ' de array uitschrijven:
        Console.WriteLine("----------------------------------------")
        Console.Write("Array BEFORE Switch : ")
        For index = 0 To count - 1
            Console.Write(value(index) & " ")
        Next
 
        Dim backup As Integer
        'de waarden in de array veranderen; de switch toepassen!
        For index = 0 To count - 1 Step 2
            value(index) = backup
            If index Mod 2 = 0 Then
                value(index) = value(index + 1)
            Else
                value(index) = backup
            End If
 
        Next
 
        ' de array uitschrijven:
        Console.WriteLine()
        Console.Write("Array AFTER Switch: ")
 
        For index = 0 To count - 1
            Console.Write(value(index) & " ")
        Next
        Console.WriteLine()
        Console.WriteLine("----------------------------------------")
 
        'de console laten wachten op input om af te sluiten.
        Console.ReadLine()
 
    End Sub
 
End Module
 

4 antwoorden

Gesponsorde links

Stijn - 03/11/2008 22:46 (laatste wijziging 03/11/2008 22:46)
PHP expert		vb code - Bekijk de code zonder highlighting - Klap code in value(index) = backup value(index) = backup Je moet die twee omwisselen .

verhaba - 03/11/2008 23:33 (laatste wijziging 03/11/2008 23:36)

Lid

Ik ben er bijna...

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

                 Dim backup As Integer
        'de waarden in de array veranderen; de switch toepassen!
        For index = 0 To count - 1 Step 2
            backup = value(index)
            If index Mod 2 = 0 Then
                value(index) = value(index + 1)
                value(index + 1) = backup
            End If

            
Dim backup As Integer
        'de waarden in de array veranderen; de switch toepassen!
        For index = 0 To count - 1 Step 2
            backup = value(index)
            If index Mod 2 = 0 Then
                value(index) = value(index + 1)
                value(index + 1) = backup
            End If
 

Bij de laatste index mag de waarde niet nul zijn.

Stijn - 03/11/2008 23:38
PHP expert		En wat als "index Mod 2" niet gelijk is aan 0? Je moet dus nog een else blokje schrijven.

verhaba - 04/11/2008 00:17 (laatste wijziging 04/11/2008 00:33)
Lid		je hebt gelijk die lijn mag geschrapt worden. Ik ben er bijna. Als de count oneven is, is volgens bovenstaande code de waarde van de laatste index 0, wat niet mag. De waarde moet dan wel behouden worden. dit is de code... vbnet code - Bekijk de code zonder highlighting - Klap code in Dim backup As Integer 'de waarden in de array veranderen; de switch toepassen! For index = 0 To count - 2 Step 2 backup = value(index) value(index) = value(index + 1) value(index + 1) = backup Dim backup As Integer 'de waarden in de array veranderen; de switch toepassen! For index = 0 To count - 2 Step 2 backup = value(index) value(index) = value(index + 1) value(index + 1) = backup Voila, damned dit is verschrikkelijk boeiend, maar heeft iedereen zo veel tijd nodig als ik? Ben wel nog maar een paar weekjes bezig les aant volgen. En pas van verleden week deftig aan het oefenen... Alvast bedankt voor jullie hulp.

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten