Hallo zusammen,
In ein DGV sollen Daten in ein Array eingelesen werden. Mit diesem Array sollen die verschiedene Summen berechnet und in einer Messagebox angezeigt werden. Bei folgender Summe komme ich nicht weiter:
Summe aller Zahlen für die folgendes gilt
• Sobald in der Reihe die Zahl 10 auftaucht, wird die aktuelle Zahl und die nächsten zwei Zahlen zu der Summe hinzuaddiert
• Keine Zahl darf zu der Summe doppelt hinzugefügt werden
Den ersten Teil kriege ich hin, nur weiß ich nicht, wie ich Duplikate in der Summe verhindere
Ich hoffe jemand kann mir hier weiterhelfen
Vielen Dank und liebe Grüße
Sabine
In ein DGV sollen Daten in ein Array eingelesen werden. Mit diesem Array sollen die verschiedene Summen berechnet und in einer Messagebox angezeigt werden. Bei folgender Summe komme ich nicht weiter:
Summe aller Zahlen für die folgendes gilt
• Sobald in der Reihe die Zahl 10 auftaucht, wird die aktuelle Zahl und die nächsten zwei Zahlen zu der Summe hinzuaddiert
• Keine Zahl darf zu der Summe doppelt hinzugefügt werden
Den ersten Teil kriege ich hin, nur weiß ich nicht, wie ich Duplikate in der Summe verhindere
VB.NET-Quellcode
- Private Sub BTN_Click(sender As Object, e As EventArgs) Handles BTN.Click
- Dim Anzahlzeilen As Integer
- Anzahlzeilen = DGVData.RowCount
- Dim Zeile() As Double = New Double(Anzahlzeilen - 1) {}
- For i As Integer = 0 To Anzahlzeilen - 1
- Zeile(i) = CDbl(DGVData.Rows(i).Cells(0).Value)
- Next i
- Dim Ergebnis4 As Double
- Ergebnis4 = 0
- For i As Integer = 0 To Anzahlzeilen - 1
- If Zeile(i) = 10 Then
- Ergebnis4 += Zeile(i) + Zeile(i + 1) + Zeile(i + 2)
- End If
- Next i
Ich hoffe jemand kann mir hier weiterhelfen
Vielen Dank und liebe Grüße
Sabine