Visual Basic - Schleife erstellen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Calyx, 12. Mai 2009 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 12. Mai 2009
    Hallo!

    Schreibe morgen ne Informatikklausur, unter anderem über Visual Basic.

    Hatten da letztens nen farbigen Kasten erstellt und den mit Hilfe einer Schleife ständig die Farbe wechseln lassen... ist allerdings alles schon mehr als 2 Monate her und ich find die Zettel auch net wieder, hab also das Problem das ich überhaupt keinen Plan mehr hab wie das geht.

    Dass ich mit
    Code:
    Me.AutoRedraw = True
 Me.Line (Me.Width / 4, Me.Height / 4)-(Me.Width / 2, Me.Height / 2), vbRed, B 
 Me.Line (Me.Width / 4, Me.Height / 4)-(Me.Width / 2, Me.Height / 2), vbRed, BF
    dieses Kästchen erstelle weiß ich noch, aber wie binde ich jetzt ein dass der halt seine Farbe ändert?

    Wär nice wenn mir jemand helfen könnte! Bw is klar.

    Lg, Calyx
     
  3. 13. Mai 2009
    AW: Visual Basic - Schleife erstellen

    Code:
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
 Dim DBL_01 As Double
 Dim DBL_02 As Double
 
 Me.Show
 Me.AutoRedraw = True
 
 Do
 DBL_01 = DBL_01 + 0.1
 DBL_02 = RGB(Abs(Cos(DBL_01) * 255), Abs(Sin(DBL_01) * 255), Abs(Sin(DBL_01) * 255))
 
 Me.Line (Me.Width / 4, Me.Height / 4)-(Me.Width / 2, Me.Height / 2), DBL_02, B
 Me.Line (Me.Width / 4, Me.Height / 4)-(Me.Width / 2, Me.Height / 2), DBL_02, BF
 
 DoEvents
 
 Sleep 100
 Loop
End Sub
    cleanup fehlt
     
  4. 13. Mai 2009
    AW: Visual Basic - Schleife erstellen

    hab die arbeit schon geschrieben und bis auf den farbwechsel alles hinbekommen...aber trotzdem danke
     
  5. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.