battle programminga forum for elite programmerswith extreme will powerto sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | 
 

 vb.net night rider car display code

Go down 
AuthorMessage
Moti Barski

avatar

Posts : 197
Join date : 2011-08-02

PostSubject: vb.net night rider car display code   Sat 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




_________________
MB over and out _______________________     
Back to top Go down
View user profile
 
vb.net night rider car display code
Back to top 
Page 1 of 1
 Similar topics
-
» How to be a super hero, by the Night Rider on Scribd
» Silenium IDE code for selecting and ajax autopopulate dropdown item
» Adidas: Night with Dwight Sweepstakes *US and District of Columbia* ends 12/24/11
» How to chose dropdown values in Selenium IDE?
» Custom Pagination

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