Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/For_with_a_specified_step
Beteiligte: Christoph54
Skript:
For $a = 1 To 20 Step +2
ConsoleWrite($a & @LF)
Next
Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/For
Beteiligte: Christoph54
Skript:
For $a = 1 To 5
For $b = 1 To $a
ConsoleWrite("*")
Next
ConsoleWrite(@LF)
Next
Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/Downward_for
Beteiligte: Christoph54
Skript:
For $i = 10 To 0 Step -1
ConsoleWrite($i & @LF)
Next
Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/Break
Beteiligte: Christoph54
Skript:
While True
$a = Random(0, 19, 1)
ConsoleWrite($a & @LF)
If $a = 10 Then ExitLoop
ConsoleWrite(Random(0, 19, 1) & @LF)
WEnd
Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/Do-while
Beteiligte: Christoph54
Skript:
Local $a = 0
Do
$a += 1
Until Not (Mod($a, 6) = 0)
Weil Autoit eben so funktioniert... 
If 1=1 Then $a = MsgBox(0,"","1") & MsgBox(0,"","2") & MsgBox(0,"","3") & Beep(500,1000) & GUICreate("loool",500,350) & GUISetState() & Sleep(5000)
[/autoit]Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Echo_server
Beteiligte: Christoph54
Skript:
Global $hMainSocket, $hNewSocket, $iMaxClients = 100, $iCurrentCLients = 0, $aClients[$iMaxClients], $sBuffer
OnAutoItExitRegister("_ShutdownServer")
TCPStartup()
$hMainSocket = TCPListen("127.0.0.1", 12321)
If @error Then Exit
ConsoleWrite("Mainsocket: " & $hMainSocket & @LF)
While True
$hNewSocket = TCPAccept($hMainSocket)
If $hNewSocket > 0 And $iCurrentCLients < $iMaxClients Then _AddClient($hNewSocket)
For $i = 0 To $iMaxClients - 1
If $aClients[$i] Then
$sBuffer &= TCPRecv($aClients[$i], 2048)
If @error Then _DelClient($i)
EndIf
Next
If $sBuffer <> "" Then _ExecuteBuffer()
WEnd
Func _AddClient($hSocket)
For $i = 0 To $iMaxClients - 1
If Not $aClients[$i] Then
$aClients[$i] = $hSocket
ConsoleWrite("new client with socket " & $hSocket & @LF)
$iCurrentCLients += 1
Return 1
EndIf
Next
TCPCloseSocket($hSocket)
Return 0
EndFunc ;==>_AddClient
Func _DelClient($iNumber)
$iCurrentCLients -= 1
TCPCloseSocket($aClients[$iNumber])
$aClients[$iNumber] = False
ConsoleWrite("client on slot " & $iNumber & " disconnected" & @LF)
EndFunc ;==>_DelClient
Func _ExecuteBuffer()
Local $aPakets = StringRegExp($sBuffer, "(.+)(?:\n|\r)", 3)
If Not IsArray($aPakets) Then Return 0
For $a = 0 To UBound($aPakets) - 1
For $i = 0 To $iMaxClients - 1
If $aClients[$i] Then TCPSend($aClients[$i], $aPakets[$a] & @LF)
Next
Next
$sBuffer = ""
Return UBound($aPakets)
EndFunc ;==>_ExecuteBuffer
Func _ShutdownServer()
For $i = 0 To $iMaxClients - 1
If $aClients[$i] Then TCPCloseSocket($aClients[$i])
Next
TCPCloseSocket($hMainSocket)
TCPShutdown()
Exit
EndFunc ;==>_ShutdownServer
Gibts nen Freiwilligen der meine Snippets, wenn sie okay sind hochläd?
Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Create_a_file
Beteiligte: Christoph54
Script:
; workingdir:
FileWrite("output.txt", "")
DirCreate("docs")
; filesystem root:
FileWrite(@HomeDrive & "\output.txt", "")
DirCreate(@HomeDrive & "\docs\")
Habe gerade zwar keine Zeit um mir deine Quellcodes anzusehen, aber ein paar Dinge sind mir aufgefallen: Wäre es nicht praktischer/sinnvoller wenn das GUI keinen Rand hätte und wirklich 'ontop' also vor allen anderen Programmen liegen würde? so wie zB bei diesen BKA/Gema-Viren 
(ich gebe zu, vielleicht ein 'etwas' unvorteilhafter Vergleich 
) Außerdem ist es glaube ich auch um einiges praktischer/schöner - gerade bei Touchscreens - wenn sich alles in einer zentralen Oberfläche (1 Fenster das seinen Inhalt ändert) abspielt...
So das wars erstmal von mir, wenn ich Zeit habe schau ich mir nachher auch noch deinen Code an und editiers dann hier rein...
Sobald die Anzahl der Knoten/Strecken steigt wirst du dich mit deinem verfahren dumm und dämlich rechnen...
Abhilfe schaffen geeignete Algorithmen, wie sie zum Beispiel hier schön erklärt werden.
Gibt es nicht genau für diesen Fall diese vier Makros?
[autoit]@IPAddress1
@IPAddress2
@IPAddress3
@IPAddress4
Hmm?
[autoit]#cs
ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
ServiceControl REG_SZ 501
DEU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
<NO NAME> REG_SZ
ReinstallMode REG_SZ omus
Path REG_SZ C:\Programme\Adobe\Reader 8.0\
InstallTime REG_SZ 08:11:37
InstallDate REG_SZ 22.11.2011
#ce
#include <Array.au3>
$sRegRead = "ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}"
[/autoit][autoit][/autoit][autoit]$aResult = StringRegExp($sRegRead, "(<NO NAME>|.+)\s(REG_\w+)\s(.*)", 3)
_ArrayDisplay($aResult)
Ich habe gerade zwar keine Zeit um den Fehler in deinen Scripts zu suchen, aber bitte missbrauche TCP nicht so! Wenn du 2 Spieler hast, die über die Position des Anderen bescheid wissen sollen, dann ist immer einer der Server und einer der Client. Dann baut der Client eine Verbindung zum Server auf und über diese Eine Verbindung werden dann alle Pakete verschickt. Hier hatte ich schon mal ein Beispiel dazu gepostet... Und Ja dieses Thema haben wir hier wirklich schon hunderte Male durchgekaut.
Edit: Ich glaub ich setz mich jetzt wirklich mal an ein gescheites TCP-Tutorial...
Für was soll das denn gut sein?
Bin ich jetzt zu blöd? Wie wird aus deinem Perseus-Code denn dann die Exe/Maschienencode?
Was man auch machen könnte wäre folgendes: Jede Animation besteht aus einigen (immer gleich vielen) "Phasen" oder eben Einzelbildern, die alle zum Beispiel praktisch in einem Array abgespeichert werden. In der Zeichnen-Methode kann man dann statt dem Index für das Bild, eine Globale Variable "$Phase" einsetzen, welche vom Script in einem vorgegebenen Zeitabstand verändert/hochgezählt wird... Somit hat man bei geschickter Bilderwahl für die einzelnen Phasen, eine schöne 'Animation'.
Hab ich das richtig verstanden, dass diese "Zwischensprache" dann auch nur wieder mit einem Interpreter zusammen gepackt wird? 
#include <Debug.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 138, 192, 114)
$Label1 = GUICtrlCreateLabel("Label1", 216, 16, 36, 17)
$Slider1 = GUICtrlCreateSlider(56, 48, 481, 20)
GUICtrlSetLimit(-1, 100, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Local $iLast
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If GUICtrlRead($Slider1) <> $iLast Then
$iLast = GUICtrlRead($Slider1)
GUICtrlSetData($Label1, $iLast)
EndIf
WEnd
Du hast da wohl etwas falsch verstanden...
[autoit]#include <Debug.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 138, 192, 114)
$Label1 = GUICtrlCreateLabel("Label1", 216, 16, 36, 17)
$Slider1 = GUICtrlCreateSlider(56, 48, 481, 20)
GUICtrlSetLimit(-1, 100, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Slider1
GUICtrlSetData($Label1, GUICtrlRead($Slider1))
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Das klingt nach einem Fall für die
GUISetAccelerators
[/autoit]
