Highscore

Den skal hente scoren fra et label

Nåhh,

    Dim I
    Dim U
    For I = 0 To 9
        If Val(lblYourScore.Caption) > Val(lblScore(I)) Then
            U = I - 1
            lblScore(U) = lblScore(I)
            lblScore(I) = YourScore
        End If
    Next I

lblYourScore.Text = den Label (Kan også være en TextBox) den skal tjekke om man har slået rekorden på.

lblScore = du skal oprette 10 Labels (kan også være TextBox) der alle heder lblScore. Når den spørger: "You already have a control named 'lblScore'. Do you want to create a control array?" skal du sige ja! Du skal ikke blive forvirret over at navnene kun går op til lblScore(9) der er fordi den starter med nummer 0, lblScore(0).
[Redigeret d. 03/02-03 19:04:36 af HAP]

    Dim I
    Dim U
    For I = 0 To 9
        If Val(txtScore.Text) > Val(lblScore(I)) Then
            U = I - 1
            lblScore(U) = lblScore(I)
            lblScore(I) = txtScore
        End If
    Next I

txtScore.Text = den tekstbox (Kan også være en Label) den skal tjekke om man har slået rekorden på.

lblScore = du skal oprette 10 Labels (kan også være TextBox) der alle heder lblScore. Når den spørger: "You already have a control named 'lblScore'. Do you want to create a control array?" skal du sige ja! Du skal ikke blive forvirret over at navnene kun går op til lblScore(9) der er fordi den starter med nummer 0, lblScore(0).