Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Koodit: VB.NET: Yksinkertainen ristinolla

Antti90 [25.05.2005 08:33:56]

#

Ensimmäinen koodivinkkini :D.Ajattelin tämän tänne lisätä vaikka tämä nyt ei mikään älyttömän monimutkainen ole sillä tuntuu että nykyään täällä putkassa ei pahemmin ole aloittelioille suunnattuja vinkkejä.Exe tulee kuhan kerkeen laittaa...

Edit: Kommentteja lisäilty

Dim Merkki As Char
    Dim Pelaaja As Integer

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


'Määritellään nappien tehtävät

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Text = Merkki
        Button1.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Text = Merkki
        Button2.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button3.Text = Merkki
        Button3.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button4.Text = Merkki
        Button4.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Button5.Text = Merkki
        Button5.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Button6.Text = Merkki
        Button6.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Button7.Text = Merkki
        Button7.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Button8.Text = Merkki
        Button8.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Button9.Text = Merkki
        Button9.Enabled = False
        TarkistaVoittaja()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Button12.Text = Merkki
        Button12.Enabled = False
        TarkistaVoittaja()
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Button13.Text = Merkki
        Button13.Enabled = False
        TarkistaVoittaja()
    End Sub


    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Button14.Text = Merkki
        Button14.Enabled = False
        TarkistaVoittaja()
    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Button15.Text = Merkki
        Button15.Enabled = False
        TarkistaVoittaja()
    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Button16.Text = Merkki
        Button16.Enabled = False
        TarkistaVoittaja()
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Button17.Text = Merkki
        Button17.Enabled = False
        TarkistaVoittaja()
    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Button18.Text = Merkki
        Button18.Enabled = False
        TarkistaVoittaja()
    End Sub


    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        AloitaUusiPeli()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        End
    End Sub

    Private Sub SeuraavaPelaaja()
        If Pelaaja = 1 Then
            Merkki = "X"
            Pelaaja = 2
        ElseIf Pelaaja = 2 Then
            Merkki = "0"
            Pelaaja = 1


        End If
'Näytetään kene vuoro
        Label2.Text = "Pelaaja " & Pelaaja & " : ' " & Merkki & " ' "

    End Sub

    Private Sub NäytäVoittaja()

        'näytä voittoviesti

        Label2.Text = "pelaaja ' " & Merkki & " ' Hakkasi toisen pelaajan pystyyn!Ottakaa uusinta matsi!!"

        'sammuta kaikki napit


        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
        Button12.Enabled = False
        Button13.Enabled = False
        Button14.Enabled = False
        Button15.Enabled = False
        Button16.Enabled = False
        Button17.Enabled = False
        Button18.Enabled = False

    End Sub



    Private Sub TarkistaVoittaja()

        'tarkista onko voittorivejä

        If Len(Button1.Text & Button2.Text & Button3.Text & Button12.Text) = 4 And _
            Button1.Text = Button2.Text And Button2.Text = Button3.Text And Button3.Text = Button12.Text Then
            Button1.BackColor = Color.Yellow
            Button2.BackColor = Color.Yellow
            Button3.BackColor = Color.Yellow
            Button12.BackColor = Color.Yellow

            NäytäVoittaja()

            MsgBox("Hah liian helppoa")


        ElseIf Len(Button4.Text & Button5.Text & Button6.Text & Button13.Text) = 4 And _
            Button4.Text = Button5.Text And Button5.Text = Button6.Text And Button6.Text = Button13.Text Then
            Button4.BackColor = Color.Yellow
            Button5.BackColor = Color.Yellow
            Button6.BackColor = Color.Yellow
            Button13.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button7.Text & Button8.Text & Button9.Text & Button14.Text) = 4 And _
       Button7.Text = Button8.Text And Button8.Text = Button9.Text And Button9.Text = Button14.Text Then
            Button7.BackColor = Color.Yellow
            Button8.BackColor = Color.Yellow
            Button9.BackColor = Color.Yellow
            Button14.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button1.Text & Button4.Text & Button7.Text & Button15.Text) = 4 And _
              Button1.Text = Button4.Text And Button4.Text = Button7.Text And Button7.Text = Button15.Text Then
            Button1.BackColor = Color.Yellow
            Button4.BackColor = Color.Yellow
            Button7.BackColor = Color.Yellow
            Button15.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button2.Text & Button5.Text & Button8.Text & Button16.Text) = 4 And _
      Button2.Text = Button5.Text And Button5.Text = Button8.Text And Button8.Text = Button16.Text Then
            Button2.BackColor = Color.Yellow
            Button5.BackColor = Color.Yellow
            Button8.BackColor = Color.Yellow
            Button16.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button3.Text & Button6.Text & Button9.Text & Button17.Text) = 4 And _
      Button3.Text = Button6.Text And Button6.Text = Button9.Text And Button9.Text = Button17.Text Then
            Button3.BackColor = Color.Yellow
            Button6.BackColor = Color.Yellow
            Button9.BackColor = Color.Yellow
            Button17.BackColor = Color.Yellow
            NäytäVoittaja()


        ElseIf Len(Button1.Text & Button5.Text & Button9.Text & Button18.Text) = 4 And _
              Button1.Text = Button5.Text And Button5.Text = Button9.Text And Button9.Text = Button18.Text Then
            Button1.BackColor = Color.Yellow
            Button5.BackColor = Color.Yellow
            Button9.BackColor = Color.Yellow
            Button18.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button1.Text & Button5.Text & Button9.Text & Button18.Text) = 4 And _
                Button1.Text = Button5.Text And Button5.Text = Button9.Text And Button9.Text = Button18.Text Then
            Button1.BackColor = Color.Yellow
            Button5.BackColor = Color.Yellow
            Button9.BackColor = Color.Yellow
            Button18.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button15.Text & Button16.Text & Button17.Text & Button18.Text) = 4 And _
          Button15.Text = Button16.Text And Button16.Text = Button17.Text And Button17.Text = Button18.Text Then
            Button15.BackColor = Color.Yellow
            Button16.BackColor = Color.Yellow
            Button17.BackColor = Color.Yellow
            Button18.BackColor = Color.Yellow
            NäytäVoittaja()


        ElseIf Len(Button12.Text & Button6.Text & Button8.Text & Button15.Text) = 4 And _
                    Button12.Text = Button6.Text And Button6.Text = Button8.Text And Button8.Text = Button15.Text Then
            Button12.BackColor = Color.Yellow
            Button6.BackColor = Color.Yellow
            Button8.BackColor = Color.Yellow
            Button15.BackColor = Color.Yellow
            NäytäVoittaja()


        ElseIf Len(Button12.Text & Button13.Text & Button14.Text & Button18.Text) = 4 And _
            Button12.Text = Button13.Text And Button13.Text = Button14.Text And Button14.Text = Button18.Text Then
            Button12.BackColor = Color.Yellow
            Button13.BackColor = Color.Yellow
            Button14.BackColor = Color.Yellow
            Button18.BackColor = Color.Yellow
            NäytäVoittaja()

        ElseIf Len(Button12.Text & Button13.Text & Button14.Text & Button18.Text) = 4 And _
      Button12.Text = Button13.Text And Button13.Text = Button14.Text And Button14.Text = Button18.Text Then
            Button12.BackColor = Color.Yellow
            Button13.BackColor = Color.Yellow
            Button14.BackColor = Color.Yellow
            Button18.BackColor = Color.Yellow
            NäytäVoittaja()

        Else
            SeuraavaPelaaja()
        End If


    End Sub


    Private Sub AloitaUusiPeli()
'Napit taas käyttöön
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button7.Enabled = True
        Button8.Enabled = True
        Button9.Enabled = True
        Button12.Enabled = True
        Button13.Enabled = True
        Button14.Enabled = True
        Button15.Enabled = True
        Button16.Enabled = True
        Button17.Enabled = True
        Button18.Enabled = True
'Nollataan nappien tekstit/merkit
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button6.Text = ""
        Button7.Text = ""
        Button8.Text = ""
        Button9.Text = ""
        Button12.Text = ""
        Button13.Text = ""
        Button14.Text = ""
        Button15.Text = ""
        Button16.Text = ""
        Button17.Text = ""
        Button18.Text = ""

'Muutetaan nappien taustaväri

        Button1.BackColor = Color.Lime
        Button2.BackColor = Color.Lime
        Button3.BackColor = Color.Lime
        Button4.BackColor = Color.Lime
        Button5.BackColor = Color.Lime
        Button6.BackColor = Color.Lime
        Button7.BackColor = Color.Lime
        Button8.BackColor = Color.Lime
        Button9.BackColor = Color.Lime
        Button12.BackColor = Color.Lime
        Button13.BackColor = Color.Lime
        Button14.BackColor = Color.Lime
        Button15.BackColor = Color.Lime
        Button16.BackColor = Color.Lime
        Button17.BackColor = Color.Lime
        Button18.BackColor = Color.Lime



        Pelaaja = 2
        Merkki = "0"
        SeuraavaPelaaja()


    End Sub




    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
'Ohje...
        MsgBox("Pelin ideana on saada 'X' merkkejä tai '0' merkkejä neljä peräkkäin.Painamalla 'Otetaan uusiksi' peli alkaa alusta.Painamalla 'Blaah tylsää' peli loppuu")
    End Sub
End Class

Olga [27.05.2005 10:33:38]

#

Aloittelijalle suunnatussa koodivinkissä sopii olla kommentteja enemmän kuin 3.

Antti90 [29.05.2005 16:21:30]

#

kommentteja lisäilty...

Linkku [30.05.2005 14:53:13]

#

"Yksinkertainen"

hunajavohveli [30.05.2005 22:52:42]

#

Kannattaisi tässäkin käyttää indeksointia sen sijaan, että tekisi tuhottomasti eri nimisiä kontrolleja.

Juice [06.06.2005 19:08:22]

#

hunajavohveli kirjoitti:

Kannattaisi tässäkin käyttää indeksointia sen sijaan, että tekisi tuhottomasti eri nimisiä kontrolleja.

Kyllä. Ihan yhtä helppoa se ei tosin ole kuin wanhassa VB:ssä:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_vstechart/html/vbtchc­re­a­ting­cont­ro­lar­ra­y­sin­vi­su­al­ba­sic­net­vi­su­alc­net.asp

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta