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

 vb.net night rider car display code

Go down 
AuthorMessage
Moti Barski
super
super
Moti Barski

Posts : 395
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
 
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: