regenbogen effekt

Bulli

moin

ich hab grad mal bisle rumgespielt und dabei ist das hier bei raus gekommen
der gui hintergrund wird eingefärbt und über ne schleife wird alle 10 ms die farbe geändert bis die farbpalette durch ist usw.
ich weis net obs sowas schon gibt ist aber ne schöne sache
bin mir net sicher ob ich es net bisle umständlich gemacht habe
das ganze schluckt aber auch schon recht viele ressourcen für nur bisle farbe^^
daraus kann man bestimmt ne udf machen( sry hab noch nie ne udf gemacht das müstet ihr selbst machen)
viel spass damit ( falls es nützlich ist )

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <Color.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

Global $RGB[3] = [255, 0, 0]
$Color = _ColorSetRGB( $RGB )

[/autoit] [autoit][/autoit] [autoit]

$gui = GUICreate( "test", 400, 400)
GUISetBkColor( $Color, $gui )
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

Do
$RGB[1] +=1
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[1] = 255

[/autoit] [autoit][/autoit] [autoit]

Do
$RGB[0] -=1
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[0] = 0

[/autoit] [autoit][/autoit] [autoit]

Do
$RGB[2] +=1
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[2] = 255

[/autoit] [autoit][/autoit] [autoit]

Do
$RGB[1] -=1
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[1] = 0

[/autoit] [autoit][/autoit] [autoit]

Do
$RGB[0] +=1
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[0] = 255

[/autoit] [autoit][/autoit] [autoit]

Do
$RGB[2] -=1
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[2] = 0

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Exit()
Exit
EndFunc

[/autoit]

//EDIT: kleine änderung des scripts

PrideRage

Hallo.
Dein Regenbogen effekt ist wirklich cool.
Dadraus könnteste vllt. noch ne GDI+ Animation machen.
Aber auch so find ich es wirklich gut. (Auch wenn ich nicht glaube das es wirklich sehr nützlich ist)
MfG. PrideRage

Darter

Hey.

Mir fehlt diese Color UDF

vllt mal schnell hochladen.

mfg Darter

stayawayknight

die ist eigentlich standart

Sieht echt cool aus! Da könnte man evtl. ne UDF draus basteln um sowas den Controls zuzuweisen oder so....
aber sieht gut aus!

Darter

hmm dann hab ich die wohl letztens beim aufraumen gelöscht

EDIT: Ok hab mir schnell die UDF runtergeladen. Schelcht aussehen tuts ja nicht aber das ganze ist noch sehr verkürzbar:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <Color.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

Global $RGB[3] = [255, 0, 0]
Global $Index[3][6] = [[1,0,2,1,0,2],[255,0,255,0,255,0],["+","-","+","-","+","-"]]
$Color = _ColorSetRGB( $RGB )

[/autoit] [autoit][/autoit] [autoit]

$gui = GUICreate( "test", 400, 400)
GUISetBkColor( $Color, $gui )
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
For $i = 0 To UBound($Index,2)-1
Do
$RGB[$Index[0][$i]] = Execute($RGB[$Index[0][$i]] & $Index[2][$i] & 1)
$Color = _ColorSetRGB( $RGB )
GUISetBkColor( $Color, $gui )
Sleep(10)
Until $RGB[$Index[0][$i]] = $Index[1][$i]
Next
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Exit()
Exit
EndFunc

[/autoit]

**Alina**

Schaut echt gut aus.
Jetzt noch die Schriftfarbe entgegengesetzt / verschonen anpassen, so das man evtl. verwendete Schriften immer lesen kann. Ihr kennt doch Eure Ostfriesenfahne, oder? Otto hatte doch den weißen Bundesadler auf weißem Hintergrund. Oder nicht Doch, der komische Ostfriese war es.