WrittenLights-Projekt

Page 1 of 2 1 2
09/10/2010 20:37 mipez#1
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
09/10/2010 20:45 | Moep |#2
Was willst du damit erreichen? Seh grad keinen Sinn darin...
09/10/2010 21:20 mipez#3
Quote:
Originally Posted by | Moep | View Post
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
09/10/2010 22:55 | Moep |#4
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...
09/10/2010 23:30 Psycho_Ente#5
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. :D

An sich eine ganz gute Idee. Wenn es weiter gemacht wird, kann da schon was gescheites draus werden denk ich :D
09/11/2010 00:20 | Moep |#6
ahh, meint ihr etwa soetwas?


[Only registered and activated users can see links. Click Here To Register...]

Uploaded with [Only registered and activated users can see links. Click Here To Register...]
09/11/2010 00:25 mipez#7
Quote:
Originally Posted by | Moep | View Post
ahh, meint ihr etwa soetwas?


[Only registered and activated users can see links. Click Here To Register...]

Uploaded with [Only registered and activated users can see links. Click Here To Register...]
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.
09/11/2010 00:46 | Moep |#8
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.
09/11/2010 12:07 mipez#9
Quote:
Originally Posted by | Moep | View Post
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?
09/11/2010 13:31 | Moep |#10
Quote:
Originally Posted by mipez View Post
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 [Only registered and activated users can see links. Click Here To Register...] was für dich, hab selbst jedoch noch nie damit gearbeitet...
09/11/2010 13:48 mipez#11
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...
09/11/2010 14:00 | Moep |#12
kannst mal script sharen?
09/11/2010 18:32 mipez#13
Quote:
Originally Posted by | Moep | View Post
kannst mal script sharen?
Würde ja gerne, aber iMo liegt mein PC stromtechnisch aufm Trockenen (schreib grade über PSP).
Entweder morgen oder Montag.
09/13/2010 06:59 mipez#14
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...
09/13/2010 10:30 | Moep |#15
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
Page 1 of 2 1 2