Ich schrieb einen durchgehenden Loop mit VB.Net 2010. Es ist eine Forms Anwendung. Die Graphics Oberfläche zeigt einen Kreis der sich von links nach rechts bewegt. Auf der rechten Seite verlässt der Kreis den Rand um im selben Augenblich auf der linken Seite zu erscheinen.
Das was sichtbar sein kann erreichte ich in den Codezeilen mit zwei Ellipsen. Ich frage mich ist in der Welt der Programmierungen eine ProgrammiererInn oder ein Programmierer (können auch mehrere sein), die das Ergebnis mit nur einer Ellipse erreichen können.
Der folgende Code kann kopiert und eingefügt werden in einem Form Projekt des Programms VB.Net 2010 oder höher, ohne zusätzliche controls verwenden zu müssen.
Public Class Form1 Dim WithEvents t As New Timer() With {.Interval = 50} Dim UFO As Integer Dim reachTheotherSide As Integer Dim counter As Integer Private Sub t_Tick(sender As Object, e As EventArgs) Handles t.Tick reachTheotherSide += 1 counter += 1 If reachTheotherSide >= 198 Then UFO += 1 End If If reachTheotherSide >= 250 And UFO = 45 Then reachTheotherSide = 45 End If If UFO = 45 Then UFO = -87 End If If counter = 285 Then Threading.Thread.Sleep(1000) counter = 0 End If Me.Invalidate() End Sub Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load DoubleBuffered = True CenterToScreen() t.Start() UFO = -87 reachTheotherSide = 45 End Sub Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias e.Graphics.DrawEllipse(New Pen(Color.Black, 0), UFO, 87, 86, 86) e.Graphics.DrawEllipse(New Pen(Color.Black, 0), reachTheotherSide, 87, 86, 86) End Sub End Class
Mit freundlichen Grüßen
Stefan