Ungerade Zahlen von Geraden unterscheiden!

[keNshi]

Hallo Leute,

Wie is der Befehl um ungerade Zahlen von geraden zu unterscheiden...

wäre sehr sehr wichtig danke

:>

MfG Domi

 

[MCIglo]

Habe schon lange nichts mehr in VB gemacht, aber Syntax sollte in etwa so sein:

IF mod(i/2)=0 then
 Text1.Text="gerade"
ELSE
 Text1.Text = "ungerade"
END IF

 

[keNshi]

Ich probiere es THX

MfG

 

[keNshi]

mh...

iF mod(i/2)=0 then

Hier bringt er mir immer die Meldung "erwartet ausdruck" und zwar bei "mod"


thx im vorraus

 

[keNshi]

Also hier nochmal der ganze code...

Dim T(6) As Double
     Dim i As Integer
     Dim n As Integer
     Dim erwährumg As Double
     Dim abkühlung As Double
     
     erwährmung = 1.2
     abkühlung = 0.5
  'For - Next Schleife
     
  For i = 0 To 1000 Step 1
     
     
     For n = 0 To 6 Step 1
  	
     
  	If mod(0/2) = abkühlung Then
  	 Label10.Caption = T(2)
  	Else
  	 Label9.Caption = T(1)
  	End If
  	  
  	  T(1) = T(1) + erwährmung
  	  T(2) = T(2) - abkühlung
  	  T(3) = T(3) + erwährmung
  	  T(4) = T(4) - abkühlung
  	  T(5) = T(5) + erwährmung
  	  T(6) = T(6) - abkühlung
  
  'Select Case definierung
  		
  	  Select Case n
  	  Case 1
  	  Label9.Caption = T(1)
  'Label3 =
  	  Case 2
  	  Label10.Caption = T(2)
  'Label4 =
  	  Case 3
  	  Label11.Caption = T(3)
  'Label5 =
  	  Case 4
  	  Label12.Caption = T(4)
  'Label6 =
  	  Case 5
  	  Label13.Caption = T(5)
  'Label7 =
  	  Case 6
  	  Label14.Caption = T(6)
  'Label8 =
  	
  	  End Select
  		
     Next n
     
  Next i
  
  
  
  End Sub

1. Ich möchte die T(1) = T(1) + blababla alle nur in 5 sätzen schreiben und nich in 6!

2. Möchte ich mit der anweisung "If mod ...." bewirken das das programm die ungeraden zahlen von den geraden unterscheidet ! ( bei abkühlung sind die zahlen gerade bei erwährmung ungerade)

Bitte Helft mir es ist von großer Wichtigkeit thx...


MfG Domi

 

[Filone]

Der Modulo-Operator ist aber der richtige, vielleicht übergibst Du kein 'i' ? Auf jeden Fall stimmt was McIglo gepostet hat.

 

[keNshi]

wie übergebe ich das "i"kannst du mir vielleicht ein beispiel machen`?

das wäre echt super

mfg

 

[NRFi]

If i mod 2 =0 then

End If

...

 

[keNshi]

es kommt immer Fehlermeldung " Erwartung: Ausdruck"

 

[NRFi]

vielleicht liegt es an was anderem?
so läufts garantiert:

Private Sub Command1_Click()
    Dim i As Integer
    i = 4
    
    If i Mod 2 = 0 Then
        MsgBox "gerade"
    Else
        MsgBox "ungerade"
    End If
End Sub