battle programming a forum for elite programmers with extreme will power to sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share
 

 vb.net night rider car display code

Go down 
AuthorMessage
Moti Barski

Moti Barski

Posts : 330
Join date : 2011-08-02

vb.net night rider car display code Empty
PostSubject: vb.net night rider car display code   vb.net night rider car display code EmptySat Oct 21, 2017 4:50 am

Code:
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"
            Else
                NightRider &= "0"

            End If
        Next
        TextBox3.Text = NightRider
    End Sub



vb.net night rider car display code 1xzo2z

_________________
MB over and out emp it up
Back to top Go down
View user profile
 
vb.net 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: