Prüfen ob Wert gerade oder ungerade

Yogibär · 30. Juni 2016, 14:48

Hallo zusammen,

ich bin dabei eine Abfrage zu schreiben, die ermittelt, ob es sich um eine gerade oder ungerade Zahl handelt.

ich bin das folgendermaßen angegangen:

Quellcode

Select Case Indikator
Case (Indikator Mod 2 = 0 ) = True 'Wenn True, dann ist Indikator gerade
'Mach was
Case Else
'Mach was anderes
End Select

Er springt immer in Case Else.

Hat jemand eine Ahnung warum?
Wo liegt mein Denkfehler?

Freundliche Grüße und danke
Yogibär

Trade · 30. Juni 2016, 15:01

Wofür hier überhaupt ein switch-case? Eine If-Abfrage halte ich hier für sinnvoller.

Grüße

RodFromGermany · 30. Juni 2016, 15:04

@Yogibär Probier mal

Visual Basic-Quellcode

If (Indikator And 1) = 0 Then ' Hier solltest Du unbedingt Klammern setzen
' gerade
Else
' ungerade
End If

xtts02 · 30. Juni 2016, 15:06

VB.NET-Quellcode

If zahl Mod 2 = 0 Then
' gerade
Else
' ungerade
End If

Niko Ortner · 30. Juni 2016, 15:35

Langsam wirds langweilig.

Wie oft wurde das schon erklärt?

Pasta · 30. Juni 2016, 16:09

Sich das ganze als Extension anzulegen, finde ich persönlich, sehr praktisch.

VB.NET-Quellcode

Module Extensions
''' <summary>
''' Check if Integer is even or odd
''' </summary>
''' <param name="input">integer.contains(",")</param>
''' <returns>boolean</returns>
<System.Runtime.CompilerServices.Extension()> _
Public Function IsEven(input As Integer) As Boolean
Return (input And 1) = 0
End Function
End Module

Mal was anderes.: Bist du dir sicher, daß du VB6 verwenden willst ? VB6 ist vollkommen veraltet !

EaranMaleasi · 30. Juni 2016, 16:27

@xtts02, @Pasta und @Niko Ortner :
Soll das VB6 sein?

xtts02 · 30. Juni 2016, 16:36

EaranMaleasi schrieb:

@xtts02 :
Soll das VB6 sein?

Warum soll das in VB6 nicht funktionieren?

Niko Ortner · 30. Juni 2016, 19:23

@EaranMaleasi
Aha! Hab ich überlesen.

@Yogibär
Das Problem bleibt das gleiche, aber ich erklärs mal:

VB.NET-Quellcode

Select Case Indikator 'Indikator ist wohl ein Integer oder ein anderer, ganzzahliger Typ.
'Das heißt, alle Case-Labels müssen Integer-Werte haben.
Case 1 'Das geht
Case 1 + 4 'Das geht auch
'Indikator Mod 2 = 0 ist aber ein Boolean. Und das (unsinnigerweise) mit True zu vergleichen, ergibt ebenfalls einen Boolean.
Case (Indikator Mod 2 = 0 ) = True 'Das dürfte also eigentlich garnicht funktionieren, denn das Case-Label erwartet einen Integer, Du gibst aber einen Boolean.

Option Strict Off (oder in Deinem Fall vermutlich VB6, wenn das wirklich der Fall ist) konvertiert den Boolean hinter den Kulissen zu Integer. Da kommt dann entweder 0 oder 1 raus (bei VB6 glaub ich -1 statt 1). Da Indikator wohl in den seltensten Fällen 0 und 1 (oder -1) ist, wird da auch in den seltensten Fällen in den oberen Codeteil gesprungen.

Yogibär · 1. Juli 2016, 06:18

Hallo zusammen,

danke für eure Antworten, haben mir sehr geholfen

.

Pasta schrieb:

Mal was anderes.: Bist du dir sicher, daß du VB6 verwenden willst ? VB6 ist vollkommen veraltet !

Habe leider keine andere Wahl

.

Freundliche Grüße
Yogibär

Prüfen ob Wert gerade oder ungerade

Prüfen ob Wert gerade oder ungerade

Quellcode

Visual Basic-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

EaranMaleasi schrieb:

VB.NET-Quellcode

Pasta schrieb:

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben