battle programmers alliance

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

Display results as :
 
Rechercher Advanced Search
Latest topics
» android mobile app dev APK
Thu May 17, 2018 6:22 am by Moti Barski

» links/suggestions to become a programmer
Mon May 07, 2018 11:01 pm by Moti Barski

» java eclipse oxygen grimoire
Thu May 03, 2018 8:24 pm by Moti Barski

» forum logo by tf monkey
Wed May 02, 2018 10:17 pm by Moti Barski

» java and MySQL
Mon Apr 30, 2018 3:02 pm by Admin

» mini A.I puzzles
Mon Apr 23, 2018 11:38 am by Moti Barski

» java convert string to unicode
Sun Mar 25, 2018 8:40 pm by Admin

» problem java dynamic web
Sat Mar 24, 2018 6:10 am by Admin

» auto programming dev
Wed Mar 14, 2018 8:42 pm by Admin

May 2018
SunMonTueWedThuFriSat
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendarCalendar
Social bookmarking
Social bookmarking digg  Social bookmarking delicious  Social bookmarking reddit  Social bookmarking stumbleupon  Social bookmarking slashdot  Social bookmarking yahoo  Social bookmarking google  Social bookmarking blogmarks  Social bookmarking live      

Bookmark and share the address of battle programmers alliance on your social bookmarking website
Share | 
 

 vb.net night rider car display code

Go down 
AuthorMessage
Moti Barski

avatar

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