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

Code editing with byval byref (Opgelost)

Jimbo - 13/11/2009 21:04 (laatste wijziging 14/11/2009 10:05)

Lid

Wij moeten een oefening maken betreffede byval en byref's.

Ik zou deze output moeten bekomen zonder de voorgestelde code te mogen veranderen:
Programma-verloop :

'First Value ? : 4
'Second Value ? : 5
'First Entered Value : 4
'Second Entered Value : 5
'Highest Value : 5
'Doubled First Entered Value : 8
'Doubled Second Entered Value : 10
'Highest Value : 10

Dit is de code die niet gewijzigd mag worden:

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

                Sub Main()
                    Dim value1, value2 As Integer
                    '
                    AskForValue(value1, "First Value")
                    AskForValue(value2, "Second Value")
                    '
                    PrintValue(value1, "First Entered Value")
                   PrintValue(value2, "Second Entered Value")
                    '
                    PrintHighestValue(value1, value2)
                    '
                    DoubleValue(value1)
                   DoubleValue(value2)
                   '
                   PrintValue(value1, "Doubled First Entered Value")
                   PrintValue(value2, "Doubled Second Entered Value")
                    '
                   PrintHighestValue(value1, value2)
                   '
                  Console.ReadLine()
              End Sub
         ...
        End Module
            
Sub Main()
                    Dim value1, value2 As Integer
                    '
                    AskForValue(value1, "First Value")
                    AskForValue(value2, "Second Value")
                    '
                    PrintValue(value1, "First Entered Value")
                   PrintValue(value2, "Second Entered Value")
                    '
                    PrintHighestValue(value1, value2)
                    '
                    DoubleValue(value1)
                   DoubleValue(value2)
                   '
                   PrintValue(value1, "Doubled First Entered Value")
                   PrintValue(value2, "Doubled Second Entered Value")
                    '
                   PrintHighestValue(value1, value2)
                   '
                  Console.ReadLine()
              End Sub
         ...
        End Module
 

=========================

Taak was:
Werk enkel ByRef met doorgegeven argumentwaarden indien noodzakelijk.

Hierbij heb ik verschillende pogingen ondernomen maar geraak er niet aan uit. In een klein stuk lukt een byref maar hier niet.

Kan iemand hiermee helpen?

Koen schreef:

Code tags!

2 antwoorden

Gesponsorde links

kurohyou - 14/11/2009 03:22 (laatste wijziging 14/11/2009 10:06)

Oud lid

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

                Module voorbeeld
    Sub Main()
        Dim value1, value2 As Integer
        Console.Write("Value 1 ? ")
        value1 = Console.ReadLine()
        Console.Write("Value 2 ? ")
        value2 = Console.ReadLine()
        Console.WriteLine("first entered value : " & value1)
        Console.WriteLine("second entered value : " & value2)
        If value1 > value2 Then
            Console.WriteLine("highest value is : " & value1)
        Else
            Console.WriteLine("highest value is : " & value2)
        End If

        verdubbel(value1, value2)
        Console.WriteLine("doubled first value : " & value1)
        Console.WriteLine("doubled second value : " & value2)
        If value1 > value2 Then
            Console.WriteLine("highest value is : " & value1)
        Else
            Console.WriteLine("highest value is : " & value2)
        End If
        Console.ReadLine()

    End Sub

    Sub verdubbel(ByRef value1 As Integer, ByRef value2 As Integer)
        value1 *= 2
        value2 *= 2
    End Sub
End Module
            
Module voorbeeld
    Sub Main()
        Dim value1, value2 As Integer
        Console.Write("Value 1 ? ")
        value1 = Console.ReadLine()
        Console.Write("Value 2 ? ")
        value2 = Console.ReadLine()
        Console.WriteLine("first entered value : " & value1)
        Console.WriteLine("second entered value : " & value2)
        If value1 > value2 Then
            Console.WriteLine("highest value is : " & value1)
        Else
            Console.WriteLine("highest value is : " & value2)
        End If
 
        verdubbel(value1, value2)
        Console.WriteLine("doubled first value : " & value1)
        Console.WriteLine("doubled second value : " & value2)
        If value1 > value2 Then
            Console.WriteLine("highest value is : " & value1)
        Else
            Console.WriteLine("highest value is : " & value2)
        End If
        Console.ReadLine()
 
    End Sub
 
    Sub verdubbel(ByRef value1 As Integer, ByRef value2 As Integer)
        value1 *= 2
        value2 *= 2
    End Sub
End Module
 

Koen schreef:

C-o-d-e-t-a-g-s-!

Jimbo - 16/11/2009 10:26
Lid		Bedankt voor de info hiervoor, dit is zéér bruikbaar. Alleen mocht de code aangepast worden tussen de "..."(line22). Dus de sub(main) - end sub moest blijven wat het was. Hiertussen had ik problemen met mijn byval/byref.

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten