battle programmers alliance
Would you like to react to this message? Create an account in a few clicks or log in to continue.

battle programming a forum for elite programmers with extreme will power to sharpen their skills
HomeGallerySearchRegisterLog in night rider car display code

Go down 
Moti Barski
Moti Barski

Posts : 573
Join date : 2011-08-02 night rider car display code Empty
PostSubject: night rider car display code night rider car display code EmptySat Oct 21, 2017 4:50 am

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Static Dim BoolArray(9) As Boolean
        Static Dim counter As Integer = 0
        Static Dim toAdd As Integer = 1
        BoolArray(counter) = False
        counter += toAdd
        BoolArray(counter) = True
        If counter > 8 Then
            toAdd = -1
        ElseIf counter < 1 Then
            toAdd = 1
        End If
        Dim NightRider As String = ""
        For index = 0 To BoolArray.Length - 1
            If BoolArray(index) Then
                NightRider &= "1"
                NightRider &= "0"

            End If
        TextBox3.Text = NightRider
    End Sub night rider car display code 1xzo2z

MB over and out emp it up
Back to top Go down night rider car display code
Back to top 
Page 1 of 1
 Similar topics
» 1073741819 error when playing TheHunter Primal

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: battle programming-
Jump to: