Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: Miten tämä tehään silmukalla?

Sivun loppuun

muumi [31.01.2004 14:37:03]

# 

        pelaaja0.Text = pelaajat(0, 0)
        pelaaja1.Text = pelaajat(0, 1)
        pelaaja2.Text = pelaajat(0, 2)
        pelaaja3.Text = pelaajat(0, 3)
        pelaaja4.Text = pelaajat(0, 4)
        pelaaja5.Text = pelaajat(0, 5)
        pelaaja6.Text = pelaajat(0, 6)
        pelaaja7.Text = pelaajat(0, 7)
        pelaaja8.Text = pelaajat(0, 8)
        pelaaja9.Text = pelaajat(0, 9)
        pelaaja10.Text = pelaajat(0, 10)
        pelaaja11.Text = pelaajat(0, 11)

muumi [31.01.2004 14:37:54]

#

niin et miten ton koodin pätkän sais tehtyä silmukalla...?

muumi [31.01.2004 14:38:35]

#

tarkennus vielä... käytän VB nettiä!!!

Blaze [31.01.2004 15:23:20]

#

Tsekkaa tuore koodivinkki: https://www.ohjelmointiputka.net/koodivinkit/24169-vb-net-for-each-luuppi

sooda [31.01.2004 15:49:05]

#

indeksoita textboxit(eli mene sinne editoriin ja laita jokaiselle indeksi ja nimeä pelaaja:ksi.) ja:
for i = 0 to 11
pelaaja(i).text = pelaajat(0, i)
next

kenkku [31.01.2004 15:53:02]

#

Huomaa sooda että Microsoft® Visual Basic® .NET-ohjelointityökalussa (:D) ole indeksointia enää.

tnb [31.01.2004 16:40:40]

#

Tätä voi kokeilla:

Dim st As String
Dim st2 As String
Dim pelaajanr As Integer
Dim pelaajat(5, 20) As String
pelaajat(0, 1) = "Minä"
pelaajat(0, 12) = "Pentium"
' Käy läpi kaikki kontrollit formilla
For Each MyObject As Object In Me.Controls
    st = CStr(MyObject.name)
    If st.IndexOf("pelaaja") >= 0 Then
        'Tähän oma koodi
        st2 = st.Substring(7, st.Length - 7)
        pelaajanr = Val(st2)
        MyObject.text = pelaajat(0, pelaajanr)
    End If
Next

muumi [31.01.2004 17:02:21]

#

Kiitoksia...nyt alkoi homma toimimaan!!! :)

Sivun alkuun

Vastaus

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

Tietoa sivustosta