Also erst mal mein Programm:
(Anhang: app.jpg)
In diesem Programm kann man einen Trainingsverlauf für Counterstrike Source speichern und sich Statistiken anzeigen lassen z.B. Wie oft hab ich die Karte de_dust2 gespielt
An der Stelle:
...möchte ich die Filtereinstellungen wirken lassen. (Anhang: Stats.jpg)
Wie oft hab ich de_dust2 gespielt? -> ist kein Problem das in einem Label (in diesem Fall Label9.Text) wiederzugeben
Wie oft habe ich 3on3 gespielt? -> auch kein Problem darzustellen...
... damit komme ich zu meinem Problem:
Ich will mir anzeigen lassen wie oft ich die Karte "de_dust2" als Spieltyp: "3on3" gespielt hab...
...sprich das Programm muss erkennen ob die Karte und die Spielart zutrifft um den "wie oft gespielt" Wert zu ermitteln.
Ich habe stundenlang rumprobiert, wüsste auch nicht wie ich das googlen soll...
...Bitte helft mir
VB.NET-Quellcode
- Public Class Form1
- Dim label As New Label
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'alle Für comboStatKarte und comboStatSpieltyp
- comboStatKarte.Items.Add("Alle Karten...")
- comboStatKarte.SelectedItem = "Alle Karten..."
- comboStatSpiel.Items.Add("Alle Spieltypen...")
- comboStatSpiel.SelectedItem = "Alle Spieltypen..."
- 'Laden
- LadenKarte()
- LadenDatumList()
- LadenKarteList()
- LadenSpielList()
- LadenComboStatKarte()
- 'comboKarte
- Combokarte.Text = " select..."
- 'comboSpiel
- comboSpiel.Items.Add(CStr("1on1"))
- comboSpiel.Items.Add(CStr("2on2"))
- comboSpiel.Items.Add(CStr("3on3"))
- comboSpiel.Items.Add(CStr("4on4"))
- comboSpiel.Items.Add(CStr("5on5"))
- comboSpiel.Items.Add(CStr("GunGame"))
- comboSpiel.Items.Add(CStr("DeathMatch"))
- comboSpiel.Items.Add(CStr("ScoutSknife"))
- comboSpiel.Items.Add(CStr("BunnyHop"))
- comboSpiel.Items.Add(CStr("Positionen"))
- 'comboStatSpiel
- comboStatSpiel.Items.Add(CStr("1on1"))
- comboStatSpiel.Items.Add(CStr("2on2"))
- comboStatSpiel.Items.Add(CStr("3on3"))
- comboStatSpiel.Items.Add(CStr("4on4"))
- comboStatSpiel.Items.Add(CStr("5on5"))
- comboStatSpiel.Items.Add(CStr("GunGame"))
- comboStatSpiel.Items.Add(CStr("DeathMatch"))
- comboStatSpiel.Items.Add(CStr("ScoutSknife"))
- comboStatSpiel.Items.Add(CStr("BunnyHop"))
- comboStatSpiel.Items.Add(CStr("Positionen"))
- 'comboTag / comboMonat / comboJahr
- With comboTag
- .Items.Add(1)
- .Items.Add(2)
- .Items.Add(3)
- .Items.Add(4)
- .Items.Add(5)
- .Items.Add(6)
- .Items.Add(7)
- .Items.Add(8)
- .Items.Add(9)
- .Items.Add(10)
- .Items.Add(11)
- .Items.Add(12)
- .Items.Add(13)
- .Items.Add(14)
- .Items.Add(15)
- .Items.Add(16)
- .Items.Add(17)
- .Items.Add(18)
- .Items.Add(19)
- .Items.Add(20)
- .Items.Add(21)
- .Items.Add(22)
- .Items.Add(23)
- .Items.Add(24)
- .Items.Add(25)
- .Items.Add(26)
- .Items.Add(27)
- .Items.Add(28)
- .Items.Add(29)
- .Items.Add(30)
- .Items.Add(31)
- End With
- With comboMonat
- .Items.Add("Januar")
- .Items.Add("Februar")
- .Items.Add("März")
- .Items.Add("April")
- .Items.Add("Mai")
- .Items.Add("Juni")
- .Items.Add("Juli")
- .Items.Add("August")
- .Items.Add("September")
- .Items.Add("Oktober")
- .Items.Add("November")
- .Items.Add("Dezember")
- End With
- With comboJahr
- .Items.Add(2011)
- .Items.Add(2012)
- End With
- '______________________________________________________________________________________
- End Sub
- 'Karte Hinzufügen
- Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
- If Combokarte.Items.Contains(Combokarte.Text) = False Then
- If Combokarte.Text <> " select..." Then
- Combokarte.Items.Add(CStr(Combokarte.Text))
- speichernKarte()
- End If
- End If
- Combokarte.SelectedItem = Combokarte.Text
- End Sub
- '______________________________________________________________________________________
- 'Speichern
- Private Sub speichernKarte()
- Dim sw As New System.IO.StreamWriter(Application.StartupPath & "\Karte.txt")
- For Each item As String In Combokarte.Items
- sw.WriteLine(item)
- Next
- sw.Close()
- End Sub
- Private Sub speichernDatumList()
- Dim sw As New System.IO.StreamWriter(Application.StartupPath & "\DatumList.txt")
- For Each item As String In ListDatum.Items
- sw.WriteLine(item)
- Next
- sw.Close()
- End Sub
- Private Sub speichernKarteList()
- Dim sw As New System.IO.StreamWriter(Application.StartupPath & "\KarteList.txt")
- For Each item As String In ListKarte.Items
- sw.WriteLine(item)
- Next
- sw.Close()
- End Sub
- Private Sub speichernSpielList()
- Dim sw As New System.IO.StreamWriter(Application.StartupPath & "\SpielList.txt")
- For Each item As String In ListSpiel.Items
- sw.WriteLine(item)
- Next
- sw.Close()
- End Sub
- '______________________________________________________________________________________
- 'Laden
- Private Sub LadenDatumList()
- If System.IO.File.Exists(Application.StartupPath & "\DatumList.txt") Then
- Dim SR As New System.IO.StreamReader(Application.StartupPath & "\DatumList.txt")
- Do Until SR.EndOfStream
- ListDatum.Items.Add(SR.ReadLine)
- Loop
- SR.Close()
- End If
- End Sub
- Private Sub LadenKarte()
- If System.IO.File.Exists(Application.StartupPath & "\Karte.txt") Then
- Dim SR As New System.IO.StreamReader(Application.StartupPath & "\Karte.txt")
- Do Until SR.EndOfStream
- Combokarte.Items.Add(SR.ReadLine)
- Loop
- SR.Close()
- End If
- End Sub
- Private Sub LadenKarteList()
- If System.IO.File.Exists(Application.StartupPath & "\KarteList.txt") Then
- Dim SR As New System.IO.StreamReader(Application.StartupPath & "\KarteList.txt")
- Do Until SR.EndOfStream
- ListKarte.Items.Add(SR.ReadLine)
- Loop
- SR.Close()
- End If
- End Sub
- Private Sub LadenSpielList()
- If System.IO.File.Exists(Application.StartupPath & "\SpielList.txt") Then
- Dim SR As New System.IO.StreamReader(Application.StartupPath & "\SpielList.txt")
- Do Until SR.EndOfStream
- ListSpiel.Items.Add(SR.ReadLine)
- Loop
- SR.Close()
- End If
- End Sub
- Private Sub LadenComboStatKarte()
- If System.IO.File.Exists(Application.StartupPath & "\Karte.txt") Then
- Dim SR As New System.IO.StreamReader(Application.StartupPath & "\Karte.txt")
- Do Until SR.EndOfStream
- comboStatKarte.Items.Add(SR.ReadLine)
- Loop
- SR.Close()
- End If
- End Sub
- 'Map löschen
- Private Sub cmdDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel.Click
- Combokarte.Items.Remove(Combokarte.SelectedItem)
- Combokarte.Text = " select..."
- speichernKarte()
- End Sub
- 'Training hinzufügen
- Private Sub StartTrain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartTrain.Click
- If comboTag.Text <> "" Then
- If comboMonat.Text <> "" Then
- If comboJahr.Text <> "" Then
- If Combokarte.Text <> "" Then
- If Combokarte.Text <> " select..." Then
- If comboSpiel.Text <> "" Then
- 'Karte hinzufügen
- If Combokarte.Text <> " select..." Then
- ListKarte.Items.Insert(0, Combokarte.SelectedItem)
- End If
- 'Spielart hinzufügen
- ListSpiel.Items.Insert(0, comboSpiel.SelectedItem)
- 'Datum hinzufügen
- ListDatum.Items.Insert(0, CStr(comboTag.SelectedItem & ". " & comboMonat.SelectedItem & " " & comboJahr.SelectedItem))
- speichernDatumList()
- speichernKarteList()
- speichernSpielList()
- Else
- MsgBox("Geb alle Werte richtig ein")
- End If
- Else
- MsgBox("Geb alle Werte richtig ein")
- End If
- Else
- MsgBox("Geb alle Werte richtig ein")
- End If
- Else
- MsgBox("Geb alle Werte richtig ein")
- End If
- Else
- MsgBox("Geb alle Werte richtig ein")
- End If
- Else
- MsgBox("Geb alle Werte richtig ein")
- End If
- End Sub
- '______________________________________________________________________________________
- 'Auswahl
- Private Sub ListDatum_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListDatum.SelectedIndexChanged
- Dim Auswahl As Integer
- Auswahl = ListDatum.SelectedIndex
- If Auswahl > -1 Then
- ListKarte.SelectedIndex = Auswahl
- ListSpiel.SelectedIndex = Auswahl
- End If
- End Sub
- Private Sub ListKarte_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListKarte.SelectedIndexChanged
- Dim Auswahl As Integer
- Auswahl = ListKarte.SelectedIndex
- If Auswahl > -1 Then
- ListDatum.SelectedIndex = Auswahl
- ListSpiel.SelectedIndex = Auswahl
- End If
- End Sub
- Private Sub ListSpiel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListSpiel.SelectedIndexChanged
- Dim Auswahl As Integer
- Auswahl = ListSpiel.SelectedIndex
- If Auswahl > -1 Then
- ListKarte.SelectedIndex = Auswahl
- ListDatum.SelectedIndex = Auswahl
- End If
- End Sub
- '______________________________________________________________________________________
- 'Training löschen
- Private Sub cmdTrainingLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTrainingLoeschen.Click
- Dim Auswahl As Integer
- Auswahl = ListDatum.SelectedIndex
- ListKarte.SelectedIndex = Auswahl
- ListKarte.Items.Remove(ListKarte.SelectedItem)
- ListDatum.SelectedIndex = Auswahl
- ListDatum.Items.Remove(ListDatum.SelectedItem)
- ListSpiel.SelectedIndex = Auswahl
- ListSpiel.Items.Remove(ListSpiel.SelectedItem)
- speichernDatumList()
- speichernKarteList()
- speichernSpielList()
- End Sub
- 'Statistik anzeigen
- Private Sub cmdStatistik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStatistik.Click
- If GroupBox1.Visible = True Then
- GroupBox1.Visible = False
- GroupBox3.Visible = True
- cmdStatistik.Text = "Verlauf"
- Else
- GroupBox1.Visible = True
- GroupBox3.Visible = False
- cmdStatistik.Text = "Statistik"
- End If
- End Sub
- '_______________________________________________________________________________________
- Private Sub cmdErstellen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdErstellen.Click
- End Sub
- 'HeuteButton
- Private Sub cmdHeute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHeute.Click
- comboTag.Text = CInt(My.Computer.Clock.GmtTime.Day)
- comboJahr.Text = CInt(My.Computer.Clock.GmtTime.Year)
- If CStr(My.Computer.Clock.GmtTime.Month) = 1 Then
- comboMonat.Text = "Januar"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 2 Then
- comboMonat.Text = "Februar"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 3 Then
- comboMonat.Text = "März"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 4 Then
- comboMonat.Text = "April"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 5 Then
- comboMonat.Text = "Mai"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 6 Then
- comboMonat.Text = "Juni"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 7 Then
- comboMonat.Text = "Juli"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 8 Then
- comboMonat.Text = "August"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 9 Then
- comboMonat.Text = "September"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 10 Then
- comboMonat.Text = "Oktober"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 11 Then
- comboMonat.Text = "November"
- ElseIf CStr(My.Computer.Clock.GmtTime.Month) = 12 Then
- comboMonat.Text = "Dezember"
- End If
- End Sub
- End Class
(Anhang: app.jpg)
In diesem Programm kann man einen Trainingsverlauf für Counterstrike Source speichern und sich Statistiken anzeigen lassen z.B. Wie oft hab ich die Karte de_dust2 gespielt
An der Stelle:
...möchte ich die Filtereinstellungen wirken lassen. (Anhang: Stats.jpg)
Wie oft hab ich de_dust2 gespielt? -> ist kein Problem das in einem Label (in diesem Fall Label9.Text) wiederzugeben
Wie oft habe ich 3on3 gespielt? -> auch kein Problem darzustellen...
... damit komme ich zu meinem Problem:
Ich will mir anzeigen lassen wie oft ich die Karte "de_dust2" als Spieltyp: "3on3" gespielt hab...
...sprich das Programm muss erkennen ob die Karte und die Spielart zutrifft um den "wie oft gespielt" Wert zu ermitteln.
Ich habe stundenlang rumprobiert, wüsste auch nicht wie ich das googlen soll...
...Bitte helft mir