WrittenLights-Projekt

~~mipez~~ · 09/10/2010, 20:37

Stop-Motion in der Form von AutoIt...

Hauptprobleme sind momentan, dass es schwierig wird den Code möglichst klein zu halten und die Geschwindigkeit bei größeren Auflösungen.

Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

$Form1 = GUICreate("WrittenLights", 50, 20, 192, 124)

$Pic_back = GUICtrlCreatePic("black.jpg",0,0,50,50)

Global $Pic[4][11]
For $u = 0 To 3
For $x = 0 To 10
$fr = $x*5
$ft = $u*5
$Pic[$u][$x] = GUICtrlCreatePic("",$fr,$ft,5,5)
Next
Next

HotKeySet("{ENTER}","_change")

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit

    EndSwitch
WEnd

Func _change()
For $i = 0 To 10 Step 2
    GUICtrlSetImage($Pic[0][$i],"white.jpg")
    Sleep(100)
Next
For $i = 1 To 10 Step 2
    GUICtrlSetImage($Pic[1][$i],"white.jpg")
    Sleep(100)
Next
For $i = 0 To 10 Step 2
    GUICtrlSetImage($Pic[2][$i],"white.jpg")
    Sleep(100)
Next
For $i = 1 To 10 Step 2
    GUICtrlSetImage($Pic[3][$i],"white.jpg")
    Sleep(100)
Next
EndFunc

Enter lädt die jpg.
Auf größere Fläche gesehen kann man damit einiges anfangen, bedarf nur einiges an Entwicklung...

3-dimensionale Arrays wären ganz gut, gibts nur leider (noch) nich... x,y,sleep halt xD

| Moep | · 09/10/2010, 20:45

Was willst du damit erreichen? Seh grad keinen Sinn darin...

~~mipez~~ · 09/10/2010, 21:20

Quote:

Originally Posted by | Moep |

Was willst du damit erreichen? Seh grad keinen Sinn darin...

Stop-Motion, allerdings über AutoIt. Ich editier noch den 1. Post, kann man so nich rauslesen xD

| Moep | · 09/10/2010, 22:55

Hat immer noch nicht klick gemacht bei mir, erklär mal in Sätzen wie das endgültige Produkt ausehen soll, bzw was es können soll...

Psycho_Ente · 09/10/2010, 23:30

mipez will, wenn man (Enter) drückt, dass sich ein Stop and Motion "film" abspielt.
Dies kann zum Beispiel genutzt werden.
Wenn man bei einem Minispiel(Zeitvertreib) verschiedene Auswahlen an funktionen hat.
Wenn man auf Button "A" drückt kommt film "A" und bei Button "B" film "B".
Ich weiss nicht ob ihr es kennt, ich glaub es gab mal so ein "Spiel" im internet, auf so ner seite wie spele.nl wo man waffen auswählen konnte, und dann ein Filmchen kam wo der Gegner durch diese Waffe Stirbt.
Sowas könnte es sein.

An sich eine ganz gute Idee. Wenn es weiter gemacht wird, kann da schon was gescheites draus werden denk ich

| Moep | · 09/11/2010, 00:20

ahh, meint ihr etwa soetwas?

Uploaded with

~~mipez~~ · 09/11/2010, 00:25

Quote:

Originally Posted by | Moep |

ahh, meint ihr etwa soetwas?

Uploaded with

Jo nur komplexer.
Als Beispiel:
Hintergrund 500x500 px
1 Pic 5x5 px
Hast also 10000 Pics zum kreativ sein xD

Man könnte auch jedes einzelne Pixel darstellen lassen... Werden halt ganz eigene Filmchen.

| Moep | · 09/11/2010, 00:46

willst du einfach nur die einzelnen Bilder nacheinander abspielen, also so ne art Daumenkino. Oder willst du jeden Pixel einzeln zeichnen?

€: mit 5x5 pixeln kannst aber nihst grad sehr krative pics machen. Ich mein Hallo stell dir mal 5x5 pixel bei ner Bildschirmauflösung von 1280x1024 vor.

~~mipez~~ · 09/11/2010, 12:07

Quote:

Originally Posted by | Moep |

willst du einfach nur die einzelnen Bilder nacheinander abspielen, also so ne art Daumenkino. Oder willst du jeden Pixel einzeln zeichnen?

€: mit 5x5 pixeln kannst aber nihst grad sehr krative pics machen. Ich mein Hallo stell dir mal 5x5 pixel bei ner Bildschirmauflösung von 1280x1024 vor.

Jeden Pixel einzeln^^
Zum testen reicht das völlig... Ich sitz gerade an nem 1650x1080 : 1x1... mal sehen wie's mit der Geschwindigkeit aussieht xD

Man könnte damit komplett animierte GUI auf ner komplexeren Ebene erstellen xD

EDIT:
Gibt's eig ne Draw-Funktion mit der man GUICtrlCreatePic ersetzen kann?

| Moep | · 09/11/2010, 13:31

Quote:

Originally Posted by mipez

Jeden Pixel einzeln^^
Zum testen reicht das völlig... Ich sitz gerade an nem 1650x1080 : 1x1... mal sehen wie's mit der Geschwindigkeit aussieht xD

Man könnte damit komplett animierte GUI auf ner komplexeren Ebene erstellen xD

EDIT:
Gibt's eig ne Draw-Funktion mit der man GUICtrlCreatePic ersetzen kann?

Vielleicht is ja

was für dich, hab selbst jedoch noch nie damit gearbeitet...

~~mipez~~ · 09/11/2010, 13:48

Sieht gut aus, nur bereitet mir der Ressourcenaufwand Sorgen...
Egal ob ich nun GUICtrlCreatePic oder eben die Draw-Funktion nehme, ab 1000x1000 wirds kritisch :x

Bei meiner max. Auflösung von 4000x2250:
2,2Ghz Dual Core -> 92-98% Auslastung, normal ~30%
2,5GB freier RAM -> 2,1 benutzt, normal ~0,4

Und das ohne nebenherlaufende Progs...

| Moep | · 09/11/2010, 14:00

kannst mal script sharen?

~~mipez~~ · 09/11/2010, 18:32

Quote:

Originally Posted by | Moep |

kannst mal script sharen?

Würde ja gerne, aber iMo liegt mein PC stromtechnisch aufm Trockenen (schreib grade über PSP).
Entweder morgen oder Montag.

~~mipez~~ · 09/13/2010, 06:59

So, nach knapp 2/5 hörts auf einmal auf... und lahm isses xD

Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

$Form1 = GUICreate("WrittenLights", 1000, 1000, 192, 124)

$Pic_back = GUICtrlCreatePic("black.jpg",0,0,1000,1000)

Global $Pic[200][200]
For $u = 0 To 199
For $x = 0 To 199
$fr = $x*5
$ft = $u*5
$Pic[$u][$x] = GUICtrlCreatePic("",$fr,$ft,5,5)
Next
Next

HotKeySet("{ENTER}","_change")

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit

    EndSwitch
WEnd

Func _change()
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[0][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[1][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[2][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[3][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[4][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[5][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[6][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[7][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[8][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[9][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[10][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[11][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[12][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[13][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[14][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[15][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[16][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[17][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[18][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[19][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[20][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[21][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[22][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[23][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[24][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[25][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[26][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[27][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[28][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[29][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[30][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[31][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[32][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[33][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[34][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[35][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[36][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[37][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[38][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[39][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[40][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[41][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[42][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[43][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[44][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[45][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[46][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[47][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[48][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[49][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[50][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[51][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[52][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[53][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[54][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[55][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[56][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[57][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[58][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[59][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[60][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[61][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[62][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[63][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[64][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[65][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[66][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[67][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[68][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[69][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[70][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[71][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[72][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[73][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[74][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[75][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[76][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[77][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[78][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[79][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[80][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[81][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[82][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[83][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[84][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[85][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[86][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[87][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[88][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[89][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[90][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[91][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[92][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[93][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[94][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[95][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[96][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[97][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[98][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[99][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[100][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[101][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[102][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[103][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[104][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[105][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[106][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[107][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[108][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[109][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[110][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[111][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[112][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[113][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[114][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[115][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[116][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[117][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[118][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[119][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[120][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[121][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[122][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[123][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[124][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[125][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[126][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[127][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[128][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[129][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[130][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[131][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[132][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[133][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[134][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[135][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[136][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[137][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[138][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[139][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[140][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[141][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[142][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[143][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[144][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[145][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[146][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[147][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[148][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[149][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[150][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[151][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[152][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[153][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[154][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[155][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[156][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[157][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[158][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[159][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[160][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[161][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[162][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[163][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[164][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[165][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[166][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[167][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[168][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[169][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[170][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[171][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[172][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[173][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[174][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[175][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[176][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[177][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[178][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[179][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[180][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[181][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[182][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[183][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[184][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[185][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[186][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[187][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[188][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[189][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[190][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[191][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[192][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[193][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[194][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[195][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[196][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[197][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[198][$i],'white.jpg')
Next
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[199][$i],'white.jpg')
Next
EndFunc

Und natürlich hab ich den unteren Teil nicht von Hand eingetippt xD

Code:

Sleep(2000)
For $i = 0 To 199
    Send(@CR&"For $i = 0 To 199 Step 2"&@CRLF&"GUICtrlSetImage($Pic["&$i&"][$i],'white.jpg')"&@CRLF&"Next"&@cr)
Next

Man brauch wieder black.jpg und white.jpg ausm 1. Post.

Ich hatte eigentlich n komplexeres Muster vor, nur hab ich das nach knapp 45 For...Next aufgegeben...

| Moep | · 09/13/2010, 10:30

Bin grad auf Arbeit und kanns daher nicht kompilieren, aber wieso machst du nicht einfach 2 for schleifen? Sicher findet man noch mehr "sinnlose" Sachen. Ich guck nochmal nach der Arbeit drüber.

Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

$Form1 = GUICreate("WrittenLights", 1000, 1000, 192, 124)

$Pic_back = GUICtrlCreatePic("black.jpg",0,0,1000,1000)

Global $Pic[200][200]
For $u = 0 To 199
For $x = 0 To 199
$fr = $x*5
$ft = $u*5
$Pic[$u][$x] = GUICtrlCreatePic("",$fr,$ft,5,5)
Next
Next

HotKeySet("{ENTER}","_change")

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit

    EndSwitch
WEnd

Func _change()

for $k = 0 to 199 step 1
For $i = 0 To 199 Step 2
    GUICtrlSetImage($Pic[$k][$i],'white.jpg')
next
Next
EndFunc