Hi
Ich habe ein Spiel programmiert.
dabei habe ich die Punkte als Zeichen in ein Label schreiben lassen.(immer das gleiche Zeichen in zwei verschiedene Labels)
nun wollte ich das Programm automatisch den Sieger ermitteln lassen.
mein Frage ist nun: gibt es ein Befehl der mir das Zeichen auslesen möglich macht(bei einem Label)?
DAnkee

afroboard schrieb:

dabei habe ich die Punkte als Zeichen in ein Label schreiben lassen

Definiere "Zeichen".
Wieso Willst du mit den "Zeichen" rechnen, wenn du doch die Punkte in einer Variablen hast ?
Du kannst den Sieger doch besser direkt aus den Variablen holen.

Genau.
Trenne Daten und GUI.
Daten sind die Spielstände, die irgendwo als Integer-Werte vorliegen.
Diese werden dann mit Label1.Text = Value.ToString angezeigt.

Ich hab als ZEichen ein einfaches "I" genommen

Poste mal deinen Code. Wie Rod sagte: Trenne GUI und Daten.
Den Ansatz mit den Variablen haben wir dir schon gegeben. Bei mehreren Spielern bietet sich auch objektorientiertes Programmieren an, d.h. dass man Klassen verwendet.
Beispiel:

LaMiy schrieb:

Public Class Player

Unter VB2010 reduziert sich das zu

Okay
BTW: Du musst natürlich das Handling mit den Spielen dann anpassen z.B eine Liste(of Player)

Ich hab net viel wissen über die ganzen Strings und so
deshalb hab ich des mal so geschriben wie ich des gedacht hab ist aber glaub ich sehr umständlich und könnt man viel einfacher machen aber Egal
DEs Memorie arbeitet mit Liedern anstatt Bildern

Public Name1 As String = ""
Public Name2 As String = ""

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play(My.Resources.Lied, AudioPlayMode.Background)
Button1.Text = " "

Label1.Text = Label1.Text + " "
Call Pair()
End Sub
des erstmal für alle 36 Buttons

Private Sub Pair()
If Label1.Text = " " Then
Call übereinstimmung()
If Form2.Timer1.Enabled = True Then


If Label6.Text = "Am Zug:" Then
Label6.Text = "Am Zug:"
Label5.Text = ""

Else
Label5.Text = "Am Zug:"
Label6.Text = ""
End If
Else
If Label6.Text = "Am Zug:" Then
Label5.Text = "Am Zug:"
Label6.Text = ""
MsgBox(Name2 + " ist dran")

Else
Label6.Text = "Am Zug:"
Label5.Text = ""
MsgBox(Name1 + " ist dran")
End If
End If
End If

End Sub
um den Zug zu BEstimmen welcher Spieler grad dran ist und wer dann die Punkte bekommt

Private Sub übereinstimmung()
If Button1.Text = " " And Button3.Text = " " Then
Form2.Show()
Form2.Timer1.Enabled = True
My.Computer.Audio.Play(My.Resources.LeerSound, AudioPlayMode.Background)
Label1.Text = ""
Button1.Text = ""
Button3.Text = ""
Button1.Visible = False
Button3.Visible = False
If Label6.Text = "Am Zug:" Then
Label7.Text = Label7.Text + "I"
Label6.Text = "Am Zug:"
Else
Label8.Text = Label8.Text + "I"

End If
Else
Label1.Text = ""
Button1.Text = ""
Button3.Text = ""

End If
DAnn Hier die ganze chose mit den Zusammenhängenden Paaren
denn Code wieder vervielfältigt und die Paare Bestimmt

Private Sub übereinstimmung()
If Button1.Text = " " And Button3.Text = " " Then
Form2.Show() 'die Form hat eigentlich net viel mit der Funktion zu tun
Form2.Timer1.Enabled = True
My.Computer.Audio.Play(My.Resources.LeerSound, AudioPlayMode.Background)
Label1.Text = ""
Button1.Text = ""
Button3.Text = ""
Button1.Visible = False
Button3.Visible = False
If Label6.Text = "Am Zug:" Then
Label7.Text = Label7.Text + "I"
Label6.Text = "Am Zug:"
Else
Label8.Text = Label8.Text + "I"

End If
Else
Label1.Text = ""
Button1.Text = ""
Button3.Text = ""

End If

Wenn dann alle Buttons unsichtbar sind kommt dann die Form3
in der hab ich dann die Labels in TExtboxen rübergeschribene um des dann mit Text.Length auszulesen
des funktioniert aber iwie net so wie ich wollt
in den Pictureboxen sind einfache Bilder so nach dem Motto You WIn
aber des mit dem > und < funktioniert net so gibts da was
If TextBox1.TextLength > TextBox2.TextLength Then
PictureBox1.Visible = True
End If
If TextBox1.TextLength < TextBox2.TextLength Then
PictureBox2.Visible = True

End If

Dein Code kann man nicht lesen - Bitte VB-Tag benutzen - aber richtig

RodFromGermany schrieb:

Trenne Daten und GUI.
Daten sind die Spielstände, die irgendwo als Integer-Werte vorliegen.
Diese werden dann mit Label1.Text = Value.ToString angezeigt.

Bevor Du weiter machst, verstehe bitte, was da steht, sonst kommst Du in Teufels Küche.