Visual Basic 2 Fragen

[Str33tWalk3r]

Hi ich hab 2 Probleme und zwar

Ich will etwas Programmieren udn weis nicht wie man der MessagesBox einen Namen gibt wie der Code dafür heist?

2.Problem
Wie kann ich machen das wenn Checkbox nicht ein Häckchen hat ( kp wie ich das hätte schreiben sollen) das sich die anderen Sachen hiden
Wie sich die anderen Hceckboxen hiden weis ich aber das mit dem unchecked nicht

hoffe ihr konntet das verstehn.

[Cholik]

#moved

[P-a-i-n]

PHP Code:

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            MessageBox.Show("Checkbox ist aktiv", "Checkbox", MessageBoxButtons.OK) ' die Msgbox ist nur zur anschaung
            ' hier halt rein was passieren soll wenn das kreuz ist
        Else
            MessageBox.Show("Checkbox ist deaktiv", "Checkbox", MessageBoxButtons.OK)
            ' hier halt rein was passieren soll wenn das nicht da ist bzw die checkbox deakriviert wird ist
            'in beiden teilen kann auch nichts stehen je nachdem bei was etwas passieren soll
        End If
    End Sub 


da haste ein beispiel msgbox + checkbox bei checked und unchecked

das ist einfachstes wissen unter google würdest du sicher sehr viel finden
noch was zu den msgboxen

[Yakiyo]

find ich unübersichtlich D:

zu1)

Msgbox("Dein Text in der Messagebox", Dein Style, "Dein Titel")      'Relativ simpel: Text, Style, Titel

zu2)

If Checkbox1.checked then
    Button1.Enabled = True   'Wenn häckchen in der checkbox ist, dann soll Button1 enabled sein
else                         'Wenn kein häckchen ist, dann nicht enabled
    Button1.Enabled = False

[Str33tWalk3r]

ich hab da nochmal ne frage und zwar ich ahb ein Problem mit meinem TicTacToe Spiel und finde den Fehler nicht.

 Spoiler

PHP Code:

Public Class Form1

    Dim turn As Integer
    Private Sub win()
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            Label2.Hide()
            Label1.Text = "Spieler X hat gewonnen"
            Label5.Text += 1
            Call disablebuttons()
        Else
            If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
                Label2.Hide()
                Label1.Text = "Spieler X hat gewonnen"
                Label5.Text += 1
                Call disablebuttons()
            Else
                If Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
                    Label2.Hide()
                    Label1.Text = "Spieler X hat gewonnen"
                    Label5.Text += 1
                    Call disablebuttons()
                Else
                    If Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
                        Label2.Hide()
                        Label1.Text = "Spieler X hat gewonnen"
                        Label5.Text += 1
                        Call disablebuttons()
                    Else
                        If Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
                            Label2.Hide()
                            Label1.Text = "Spieler X hat gewonnen"
                            Label5.Text += 1
                            Call disablebuttons()
                        Else
                            If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
                                Label2.Hide()
                                Label1.Text = "Spieler X hat gewonnen"
                                Label5.Text += 1
                                Call disablebuttons()
                            Else
                                If Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
                                    Label2.Hide()
                                    Label1.Text = "Spieler X hat gewonnen"
                                    Label5.Text += 1
                                    Call disablebuttons()
                                Else
                                    If Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
                                        Label2.Hide()
                                        Label1.Text = "Spieler X hat gewonnen"
                                        Label5.Text += 1
                                        Call disablebuttons()
                                        If Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
                                            Label2.Hide()
                                            Label1.Text = "Spieler O hat gewonnen"
                                            Label6.Text += 1
                                            Call disablebuttons()
                                        Else
                                            If Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
                                                Label2.Hide()
                                                Label1.Text = "Spieler O hat gewonnen"
                                                Label6.Text += 1
                                                Call disablebuttons()
                                            Else
                                                If Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
                                                    Label2.Hide()
                                                    Label1.Text = "Spieler O hat gewonnen"
                                                    Label6.Text += 1
                                                    Call disablebuttons()
                                                Else
                                                    If Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
                                                        Label2.Hide()
                                                        Label1.Text = "Spieler O hat gewonnen"
                                                        Label6.Text += 1
                                                        Call disablebuttons()
                                                    Else
                                                        If Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
                                                            Label2.Hide()
                                                            Label1.Text = "Spieler O hat gewonnen"
                                                            Label6.Text += 1
                                                            Call disablebuttons()
                                                        Else
                                                            If Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
                                                                Label2.Hide()
                                                                Label1.Text = "Spieler O hat gewonnen"
                                                                Label6.Text += 1
                                                                Call disablebuttons()
                                                            Else
                                                                If Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
                                                                    Label2.Hide()
                                                                    Label1.Text = "Spieler O hat gewonnen"
                                                                    Label6.Text += 1
                                                                    Call disablebuttons()
                                                                Else
                                                                    If Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
                                                                        Label2.Hide()
                                                                        Label1.Text = "Spieler O hat gewonnen"
                                                                        Label6.Text += 1
                                                                        Call disablebuttons()
                                                                    End If
                                                                End If
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub
    Private Sub disablebuttons()
        Button1.Enabled = (False)
        Button2.Enabled = (False)
        Button3.Enabled = (False)
        Button4.Enabled = (False)
        Button5.Enabled = (False)
        Button6.Enabled = (False)
        Button7.Enabled = (False)
        Button8.Enabled = (False)
        Button9.Enabled = (False)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If turn = 0 Then
            Button1.Text = "O"
            Label1.Text = "X"
        Else
            Button1.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button1.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If turn = 0 Then
            Button2.Text = "O"
            Label1.Text = "X"
        Else
            Button2.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button2.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If turn = 0 Then
            Button3.Text = "O"
            Label1.Text = "X"
        Else
            Button3.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button3.Enabled = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If turn = 0 Then
            Button4.Text = "O"
            Label1.Text = "X"
        Else
            Button4.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button4.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If turn = 0 Then
            Button5.Text = "O"
            Label1.Text = "X"
        Else
            Button5.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button5.Enabled = False

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If turn = 0 Then
            Button6.Text = "O"
            Label1.Text = "X"
        Else
            Button6.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button6.Enabled = False

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If turn = 0 Then
            Button7.Text = "O"
            Label1.Text = "X"
        Else
            Button7.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button7.Enabled = False

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If turn = 0 Then
            Button8.Text = "O"
            Label1.Text = "X"
        Else
            Button8.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button8.Enabled = False

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If turn = 0 Then
            Button9.Text = "O"
            Label1.Text = "X"
        Else
            Button9.Text = "X"
            Label1.Text = "O"

        End If
        turn += 1
        If turn > 2 Then
            turn = 1
        End If

        Call win()
        Button9.Enabled = False

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Button1.Text = ""
        Button1.Enabled = True
        Button2.Text = ""
        Button2.Enabled = True
        Button3.Text = ""
        Button3.Enabled = True
        Button4.Text = ""
        Button4.Enabled = True
        Button5.Text = ""
        Button5.Enabled = True
        Button6.Text = ""
        Button6.Enabled = True
        Button7.Text = ""
        Button7.Enabled = True
        Button8.Text = ""
        Button8.Enabled = True
        Button9.Text = ""
        Button9.Enabled = True
        Label2.Show()
        Label1.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class 


Also das Problem ist das wenn ich das SPiel starte das dann wenn ich auf den 1. Button drücke das dann nur noch X kommt bei Klicken auf die Button ich lade auch noch das Programm hoch .

Kann mir jemand helfen hab auch teamviewer.

[Elektrochemie]

turn += 1
If turn > 2 Then
turn = 1
End If

du must den turn irgendwann schon wieder auf 0 setzen, sonst ist er immer auf 1 bzw auf X.

[Str33tWalk3r]

das heist? was muss ich tun?

[Elektrochemie]

        turn += 1
        If turn > 2 Then
            turn = 1
        End If

bei jedem button durch

        Select Case turn
            Case 0
                turn = 1
            Case 1
                turn = 0
        End Select

ersetzen. Habs nicht getestet, sollte aber passen.

[Str33tWalk3r]

OK. thanks hat gehollfen.

Aber da ist noch ein Problem wenn O in einer Reihe ist dann bekommt O keinen Punkt weist du warum?

EDIT://
Hatte ein

PHP Code:

else 


vergessen

[Elektrochemie]

Weil deine Sub win() totaler Murks is :]
Du kannst nicht soviele else abfragen machen, das ist dann eine else in der else (denke ich).
Funktioniert so nicht

[Elektrochemie]

Hab das mal schnell nachprogrammiert. (VS 2010)
Kannst es dir ja mal anschauen, vielleicht lernst was draus.

Und gewöhn dir an deinen Code mit Kommentaren vollzustopfen
E/ Achso, ein else vergessen :X

Naja bei mir hat die Gewinn-Abfrage 5 Zeilen. Kannst es ja trotzdem mal anschauen.

[Str33tWalk3r]

OK ihc bleib bei meiner Version aber danke. Ist an 2010 etwas anders vom Programmieren oder ist alles noch gleich??


EDIT://
Gibt es sowas wie ein Visual Basic Code Lexikon? Weil bei Google hab ich nichts gefunden und mein anderer Thread ist geclosed worden.

 Spoiler