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

Go down 
Moti Barski
Moti Barski

Posts : 356
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
View user profile night rider car display code
Back to top 
Page 1 of 1

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