Matrixtext-Effekt

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von SAR-71.

      Matrixtext-Effekt

      Hier mal eine Art Matrixtext, der animiert dargestellt wird.
      Einfach mal ausprobieren ;) (code ist wahrscheinlich unsauber. sry für mid() :P)

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private WithEvents Timer1 As New Timer With {.Interval = 50, .Enabled = True}
      4. Dim i, k As Integer
      7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      8. Dim s As String = _
      9. "Dies ist irgendein" & vbNewLine & _
      10. "Text, den ich 'animieren'" & vbNewLine & _
      11. "möchte ;-)" & vbNewLine & vbNewLine & _
      12. "Und?"
      14. If k = 3 Then
      15. i = i + 1
      16. k = 0
      17. End If
      19. k = k + 1
      21. If i > s.Length Then
      22. Timer1.Enabled = False
      23. Label1.Text = s
      24. Exit Sub
      25. End If
      27. Dim random As New Random()
      28. Label1.Text = Mid(s, 1, i) & Chr(random.Next(97, 119) + k)
      30. End Sub
      33. End Class
      Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

      An sich Grundidee gut,Umsetzung auch annehmbar...Nur was ich nie emphelen oder tun würde ist die definierungen nur mit einen Buchstaben zu besetzen sondern Wörter zu benutzen damit mann es auch im 500-1000Zeilen noch erkennt.Sonst denkt man nachmal was war nomma "a" ?