battle programminga forum for elite programmerswith extreme will powerto sharpen theire skills
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | night rider car display code

Go down 
Moti Barski


Posts : 259
Join date : 2011-08-02

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

MB over and out _______________________     
Back to top Go down
View user profile night rider car display code
Back to top 
Page 1 of 1
 Similar topics
» Silenium IDE code for selecting and ajax autopopulate dropdown item
» How to chose dropdown values in Selenium IDE?
» Custom Pagination
» Unable to select textarea values using webdriver (controls are develped using BMC remedy software)
» Too hot at night

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