Also, ich möchte den Inhalt eines Arrays nach links rotieren lassen und wüsste gerne, ob es eine einfachere Methode gibt, als die, die ich derzeit benutze:
Spoiler anzeigen
VB.NET-Quellcode
- 'Used: 1 Timer, 1 Label
- Public Class Form1
- Dim chTemp As Char
- Dim arTest1(7) As String
- Dim arTest2(7) As String
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.DoubleBuffered = True 'damits net flackert
- arTest1 = {"0", "0", "0", "0", "0", "0", "0", "1"}
- Timer1.Interval = 100
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- chTemp = arTest1(0) 'Erstes Zeichen retten
- For i As Integer = 0 To 6
- arTest2(i) = arTest1(i + 1) 'Array rotieren
- arTest1(i) = arTest2(i)
- Next
- arTest1(7) = chTemp 'Zeichen hinten wieder einfügen
- 'Zur visuellen Verdeutlichung:
- Label1.Text = ""
- For i As Integer = 0 To 7
- Label1.Text = Label1.Text & arTest1(i)
- Next
- End Sub
- End Class