🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: be.comp.programming
4 messages
4 total messages Started by Christian Sun, 13 Oct 2002 17:30
Xor
#7116
Author: Christian
Date: Sun, 13 Oct 2002 17:30
50 lines
2271 bytes
Dag iedereen,

Ik ben een zelfstudie cursus VB.Net aan het leren en zit met een code die
niet wil werken.
Kan er mij aub iemand vertellen waar mijn fout ligd.

Op mijn blad staat het volgende:
Bouw een selectie-structuur (naar analogie met de XOR operator, maar zonder
die te gebruiken) die slechts indien 1 van de 2 ingelezen getallen
verschillend van 0 de som gaat afdrukken.

Het groene gedeelte heb ik als voorbeeld gekregen, maar helaas heeft deze
ook niet het gewenste resultaat.

Alvast bedankt.
Christian.

Sub Main()

Dim intGetal1, intGetal2, intResultaat As Integer



Console.WriteLine("Voer getal 1 in :")

intGetal1 = Console.ReadLine()

Console.WriteLine("Voer getal 2 in :")

intGetal2 = Console.ReadLine()

'If intGetal1 <> 0 Xor intGetal2 <> 0 Then

' Console.WriteLine("De som is : " & intGetal1 + intGetal2)

'End If

If (intGetal1 <> 0 And intGetal2 = 0) Or _

(intGetal1 = 0 And intGetal2 <> 0) Then

intResultaat = intGetal1 * intGetal2

Console.WriteLine("De som is : " & intResultaat)

End If

Console.ReadLine()

End Sub
Re: Xor
#7125
Author: Jack D
Date: Mon, 14 Oct 2002 10:46
24 lines
1707 bytes
Christian wrote on 13-10-2002 19:30:

> Dag iedereen,
> 
> Ik ben een zelfstudie cursus VB.Net aan het leren en zit met een code die
> niet wil werken.
> Kan er mij aub iemand vertellen waar mijn fout ligd.
> 
> Op mijn blad staat het volgende:
> Bouw een selectie-structuur (naar analogie met de XOR operator, maar zonder
> die te gebruiken) die slechts indien 1 van de 2 ingelezen getallen
> verschillend van 0 de som gaat afdrukken.
> 
> Het groene gedeelte heb ik als voorbeeld gekregen, maar helaas heeft deze
> ook niet het gewenste resultaat.
> 
> Alvast bedankt.
> Christian.
> 
> intResultaat = intGetal1 * intGetal2

IntResultaat = inGetal1 + inGetal2

Dit zal misschien beter werken...
Re: Xor
#7128
Author: MisterJ
Date: Mon, 14 Oct 2002 13:42
9 lines
1179 bytes
Christian wrote:

> Kan er mij aub iemand vertellen waar mijn fout ligd.

hierboven, een joekel van een fout.

-- 
groeten,
MisterJ
Re: Xor
#7130
Author: Christian
Date: Mon, 14 Oct 2002 18:06
10 lines
1318 bytes
Bedankt Jack.


> >
> > intResultaat = intGetal1 * intGetal2
>
> IntResultaat = inGetal1 + inGetal2
>
> Dit zal misschien beter werken...
>
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads