Hallo, ich habe ein Problem mit dieser Schleife:
Wo habe ich den Denkfehler?
VB.NET-Quellcode
- Dim zähler3 As Integer
- Dim zähler4 As Integer
- Dim na As String
- Dim Nachricht As String
- Private Sub test(bin As String)
- If bin = test1.ToString Then
- If zähler3 = 0 Then
- na = na & bin
- zähler3 = 3
- zähler4 = 1
- Else
- na = na & bin
- zähler3 = zähler3 - 1
- zähler4 = 1
- End If
- End If
- If bin = test2.ToString Then
- If zähler3 <> 3 Then
- na = na & bin
- zähler3 = zähler3 - 1
- zähler4 = 1
- Else
- na = na & bin
- zähler3 = 3
- zähler4 = 1
- End If
- End If
- If Not zähler4 = 1 Then
- na = na & bin
- zähler3 = zähler3 - 1
- If zähler3 = 2 OrElse zähler3 < 2 Then
- MessageBox.Show(na)
- 'zähler3 = 0
- 'na = ""
- End If
- End If
- zähler4 = 0
- End Sub
Wo habe ich den Denkfehler?