Moti Barski super


Posts : 498 Join date : 2011-08-02
 | Subject: 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  | |
|