Next ohne For Hilfe :>

[keNshi]

Hallo liebes Tutorials.de Team und User,

Ich bräuchte dringend Hilfe.

Hier:

For i = 0 To 1000 Step 1
    
    
    For n = 0 To 6 Step 1
 	
    
 	  
 	
  T(1) = 30
  T(2) = T(1) + increment
  T(3) = T(2) - increment
  T(4) = T(3) + increment
  T(5) = T(4) - increment
  T(6) = T(5) + increment
    
  
   
 'If - ElseIf definierung
 	
 	If n = 1 Then
 	   Label9 = T(1)
 	   'Label3 =
 	ElseIf n = 2 Then
 	   Label10 = T(2)
 	   'Label4 =
 	
 	If n = 3 Then
 	   Label11 = T(3)
 	   'Label5 =
 	ElseIf n = 4 Then
 	   Label12 = T(4)
 	   'Label6 =
 	
 	If n = 5 Then
 	   Label13 = T(5)
 	   'Label7 =
 	ElseIf n = 6 Then
 	   Label14 = T(6)
 	   'Label8 =
 	 
 End If
 
 'Ende For - Next
    
    Next n
    
 Next i

Habe ich die schleife.

nun zu meiner frage:

Wenn ich das programm ausführen will kommt die Fehlermeldung "Next ohne For"!

Das Problem ist ich möchte bei den "if - else" schleifen nur ein "end if" nutzen .

bitte heft mir weiter ich bin noch kein großer VB Crack use VB erst seid 1 Woche :>


thx im vorraus

Gruß Kenshi

 

[MCIglo]

Dann mach das statt mit IF mit nem SELECT CASE-Statement

 

[keNshi]

Thx für die schnelle antwort

aber muss ich Else if lassen?

 

[Shakie]

Du musst dann auch immer ElseIf schreiben und nicht nur manchmal:

If n = 1 Then
 	   Label9 = T(1)
 	   'Label3 =
 	ElseIf n = 2 Then
 	   Label10 = T(2)
 	   'Label4 =
 	
 	ElseIf n = 3 Then
 	   Label11 = T(3)
 	   'Label5 =
 	ElseIf n = 4 Then
 	   Label12 = T(4)
 	   'Label6 =
 	
 	ElseIf n = 5 Then
 	   Label13 = T(5)
 	   'Label7 =
 	ElseIf n = 6 Then
 	   Label14 = T(6)
 	   'Label8 =
 	 
 End If

 

[keNshi]

Danke es Funktioniert

eine frage noch wird hier immer so schnell geantwortet?


wenn ja very very nice support!

ihr seid spitze

 

[MCIglo]

Danke es Funktioniert

eine frage noch wird hier immer so schnell geantwortet?


wenn ja very very nice support!

ihr seid spitze

Im Normalfall sobald einer die Antwort weiß
Gibt aber durchaus auch Threads, die 'nie' beantwortet werden weil einfach keiner helfen kann

 

[keNshi]

So nochmal ne schnelle Frage

wie gehts richtig?

mit einem End Select

Select Case n = 1
  	 Case Label9 = T(1)
  'Label3 =
  	 Case n = 2
  	  Case Label10 = T(2)
  'Label4 =
  	 Case n = 3
  	  Case Label11 = T(3)
  'Label5 =
  	 Case n = 4
  	  Case Label12 = T(4)
  'Label6 =
  	 Case n = 5
  	  Case Label13 = T(5)
  'Label7 =
  	Case n = 6
  	  Case Label14 = T(6)
  'Label8 =
  	
  	End Select

Das Programm soll dann imer ins Label Die Variable(z.B. T(1) ) reinschrieben

Thx

 

[MCIglo]

Mit deinem Code komme ich nicht ganz zurecht, deswegen hier einmal die allgemeine Form:

Select Case variable
            Case variable = 1
                Label1.Text = "1"
            Case variable = 2
                Label1.Text = "2"
            Case Else
                Label1.Text = "was andres"
End Select

 

[keNshi]

thx für das beispiel ich habs schon geschafft...

hier vielleicht isses jetz besser erkennbar

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

gruß keN