Beiträge von AntiSpeed

  • Control soll Benutzer "resizen" und verschieben können (Fortführung)

    Hey @ all
    Also ich möchte ein Control mir erstellen, dass resizealbe ist. Dh widht, heigth,x,y Wert ändern.
    Wenn es geht wäre es schön wenn man es verschieben kann.

    Mein Versuch:

    [autoit]


    GUICtrlSetStyle(-1,$WS_THICKFRAME);$WS_SIZEBOX)

    [/autoit]


    Dies funktioniert nicht bei Labels ($WS_THICKFRAME und $WS_SIZEBOX).
    Wenn ihr fragt: Wieso soll man das mit Label machen: Ich möchte, dass es bei jedem Standard-Control funktionier. (Standard-Control: Ohne einen Include)

    Thx4Help

  • TCPConnect funktioniert leider nicht ;(

    Hey
    Möchte ein TCPChat ohne Server machen, dh. die Nachricht geht sofort an den Empfänger.

    Hier mein Skript, dass etwas schreibt:

    Spoiler anzeigen
    [autoit]


    TCPStartup()

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

    MsgBox(0,0,_ConnectTo("84.166.120.203",8080,"Hey."))

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

    Func _ConnectTo($ip,$port,$quest)
    $t=TimerInit()
    Do
    $Socket_Connect = TCPConnect($ip,$port)
    Until $Socket_Connect <> -1 OR TimerDiff($t) > 5000
    If $Socket_Connect=-1 Or $Socket_Connect=0 Then Return "Error:Die Verbindung zum PC konnte nicht hergestellt werden."
    $sendedBytes = TCPSend($Socket_Connect,$quest)
    If $sendedBytes = 0 Then Return "Error:Das Paket konnte nicht gesendet werden."
    TCPCloseSocket($Socket_Connect)
    Return True
    EndFunc

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

    Func _ListenTo($ip,$port)
    $Socket_Listen = TCPListen($ip,$port)
    $acceptedSocket = TCPAccept($Socket_Listen)
    If $acceptedSocket <> -1 Then
    $receivedData = TCPRecv($acceptedSocket, 1024)
    TCPCloseSocket($acceptedSocket)
    Return $receivedData
    EndIf
    Return ""
    EndFunc

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

    TCPShutdown()

    [/autoit]


    Und hier der, der auf die Nachricht wartet:

    Spoiler anzeigen
    [autoit]


    TCPStartup()

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

    While 1
    $quest=_ListenTo("79.206.101.108",8080)
    If $quest<>"" Then MsgBox(0,0,$quest)
    WEnd

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

    Func _ConnectTo($ip,$port,$quest)
    $t=TimerInit()
    Do
    $Socket_Connect = TCPConnect($ip,$port)
    Until $Socket_Connect <> -1 OR TimerDiff($t) > 5000
    If $Socket_Connect=-1 Or $Socket_Connect=0 Then Return "Error:Die Verbindung zum PC konnte nicht hergestellt werden."
    $sendedBytes = TCPSend($Socket_Connect,$quest)
    If $sendedBytes = 0 Then Return "Error:Das Paket konnte nicht gesendet werden."
    TCPCloseSocket($Socket_Connect)
    Return True
    EndFunc

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

    Func _ListenTo($ip,$port)
    $Socket_Listen = TCPListen($ip,$port)
    $acceptedSocket = TCPAccept($Socket_Listen)
    If $acceptedSocket <> -1 Then
    $receivedData = TCPRecv($acceptedSocket, 1024)
    TCPCloseSocket($acceptedSocket)
    Return $receivedData
    EndIf
    Return ""
    EndFunc

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

    TCPShutdown()

    [/autoit]


    Thx4Help

  • [Beendet] µitLight März

    Hey
    Sry, dass ichs noch poste aber ich kann einfach nicht: :D
    Ich habe leider die langsame Art&Weise ausgewählt danach zu suchen. Die andere war mir damals zu komplizert (Alle Zahlen in String und dann immer Streichen).

    Hier meine langsame UDF:

    Spoiler anzeigen
    [autoit]


    Func _GetPrim($from,$to)
    $prim=""
    For $i=$from To $to
    $t=""
    For $e=2 To Round(Sqrt($i))
    If StringInStr($i/$e,".") Then $t=$t&1
    Next
    If $i>3 And StringLen($t)=Round(Sqrt($i))-1 Then
    $prim=$prim&","&$i
    TrayTip("",@CRLF&$i,1)
    EndIf
    Next
    If $from<=4 Then
    If $to = 2 Then $prim=",2"&$prim
    If $to >= 3 Then $prim=",2,3"&$prim
    EndIf
    $prim=StringTrimLeft($prim,1)
    Return $prim
    EndFunc

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

    Func _IsPrim($i)
    If $i = 1 Then Return False
    If $i <=3 Then Return True
    $t=""
    For $e=2 To Round(Sqrt($i))
    If StringInStr($i/$e,".") Then $t=$t&1
    Next
    If $i>3 And StringLen($t)=Round(Sqrt($i))-1 Then Return True
    Return False
    EndFunc

    [/autoit]

    und hier mal ein Versuch von mir (5min, dass eig. in 10sek geht wenn man die andere Art&Weise benutzt :D )
    Alle PrimZahlen von 1-1Mio. (im Anhang)

  • Hochbegabt

    Also wenn ich mit einer 5 in der Latein HÜ nachhause kommen (ist Standart, denn kann kein Latein)
    Dann sagen sie, Hmm das kanst du aber besser (nicht aggro oder so; nur böser Blick) ...

  • Run!

    Gut gemacht. Kann ich nur nicht so gut :D :

    Spoiler anzeigen
    Code
    AntiSpeed hat 2415 Punkte erreicht
AntiSpeed hat 4835 Punkte erreicht
AntiSpeed hat 3089 Punkte erreicht
AntiSpeed hat 2909 Punkte erreicht
AntiSpeed hat 22983 Punkte erreicht
AntiSpeed hat 6557 Punkte erreicht

  • Hochbegabt

    Ähhhm:
    Also Programmierer müssen doch keine Hochbegabten sein...
    Also ich bin normaler Schüler von den Noten her dh. so ZeugnissDurchnitt denke ich wird 2,7 (in 6Tagen gibs Zeugnisse :S )
    Und so weit ich weiß, programmiert man doch viel lieber als HA zu machen => Nicht hochbegabt.

    Wenn du Hochbegabt so meinst, dass die anderen Schüler dir nur den Vogel zeigen, wenn man was in der CMD eingibt, um KA was zu machen, dann hast du da recht. Zitat: "Du Freak.", "Was ist das? 8| " ^^

    Also ich bin kein schlechter aber auch net der besste Schüler. Wenn ihr jetzt sagt: Um so füher mit proggen anfangen, umso schlauer (wie beim Klarvier spielen) => Also ich habe in der 5.Klasse (11 Jahre) angefangen HTML&Q-Basic zu coden.

    UEZ: Will mich noch mit GDI+ auseinander setzten... Und du bist ja auch nicht 14Jahre alt...

    Edit: Kenne nur einen, der hochbegabt ist, der hat in der 9ten angefangen zu Studieren (parralel ABI&Studieren) & das ist eine super Leistung (das nennt sich hochbegabt! )

  • Sehr großen Array (100000000000000000000000000)

    Hey
    ^^ Also ok, dann eben kein Array.
    Aber wie kann ich sie dann "abspeichern"?
    Sagen wir die Zahlen könnte man nicht mit einer For-Schleife errechnen.
    Jetzt möchte ich die ganzen Zahlen iwo abspeichern. => "Bitte warten, bis alles fertig geladen ist."
    Und dann alles mit ner For-Schleife auswerten => "In einer Minute sind sie fertig!"

    So erscheint das "Bitte warten, bis alles fertig geladen ist." so 5min und dann die Auswertung geht sofort.
    Sonst muss man voll lange warten. Muss auch so arbeiten. Thx. Pls schreibt net ob das unsinnvoll ist, sonder wie man das Prob. lösen könnte :party:

  • Sehr großen Array (100000000000000000000000000)

    Ich brauche den Array für volgendes:
    Ich lade alles Zahlen von 1-100000000000000000000000000 (kommt von 20^20) in einen Array.
    Dann will ich alle Zahlen ausgeben.
    Mit einer For-Schleife will ich es nicht machen, da es nicht funkt.

    Gibt es denn sonst eine Möglichkeit so viele Zahlen iwo zu Speichern und dann Aufzurufen?
    Das mit dem Speichern muss man machen. Dann will ich die Zahlen ordnen und dann alle in einer For-Schleife abarbeiten.

    Edit: Muss ich sonst mehrere Arrays verwenden?

    Thx im Vorraus :thumbup: