Beiträge von Grimbizo

  • TrayCreate Item, Restart, Exit

    Hi!

    Also das erste, was mir auffällt ist, dass du "Exit("Skriptl.exe")" geschrieben hast, obwohl "Exit" gereicht hätte:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    Opt("TrayMenuMode",1)
    $Restart = TrayCreateItem("RESTART")
    $Exit = TrayCreateItem("EXIT")
    TraySetState()
    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $Restart
    ShellExecute("D:\AutoIT\Skript.exe")
    Exit
    Case $msg = $Exit
    ExitLoop
    ;Vielleicht ein richtiges Exit statt ExitLoop? Ich bin mir nämlich nicht ganz sicher, was du erreichen willst aber naja
    EndSelect
    WEnd
    Exit

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

    msgBox(0, "", "Hallo hier soll mein Skript hin")

    [/autoit]

    Außerdem dient es der Übersicht n paar tabs einzufügen :rolleyes: Aber is deine Sache.

  • GetPressedKeys.au3

    Sorry für die Fehler :S . Aber das da...

    Zitat von James1337


    Wenn ich versuche die anderen Fehler zu beheben bleiben beide MsgBoxen in dem Beispiel leer. Könnte aber auch sein, dass in dem Skript noch viel mehr falsch ist und durch die zusätzlichen Fehlerüberprüfungen dann letzten Endes gar nichts mehr funktioniert.


    Da hätte man das Skript aufmerksamer lesen müssen. Aber passiert schon ma, wie man an den Bugs sieht. :rolleyes:

    Dieser "Fehler" liegt daran, dass du nichts gedruckt hast. Wenn du z.B. F5 gedrückt hälst gehts.

    PS: Hab die Bugs behoben... hoffe ich

  • GetPressedKeys.au3

    Endlich fertig! Der Link oben müsste auch noch funktionieren aber...

    Edit BugFix: Link entfernt - Anhang s. Post 1

    ... so isses praktischer.

    Ich hoffe nur, dass ich die Restrichen Keys auch noch finde... Könnte mir da i-wer nen Link oder so geben?

  • GetPressedKeys.au3

    Moin zusammen!

    Ich habe mal ein kleines Skript geschrieben, mit dem man Tastendrücke registrieren kann. Es ist quasi eine Abwandlung von Misc.au3/_IsPressed trothdem find ich das ganz praktisch. Zusätzlich kann man auch einfach Tasten ignorieren lassen.

    Link: entfernt

    Würde mich über Rückmeldung freuen.

    Edit BugFix: Bitte NICHT extern verlinken. Hänge deine Datei hier an. ( Habe die Version aus deinem letzten Post jetzt hier angehängt.)

  • [WiP] OS Tycoon ; Devblog & Konzeptpräsentation

    Auf jeden fall ist das Konzept der Hammer! :thumbup: und :thumbup: und :thumbup: ! Nahe zu Legen...

    Ich freue mich schom auf das erste release und wüde mich geert fülen dir evtl. zu helfen.

    So oder so kann ich jetzt schon sagen es wird ganz interessand; frage mich nur, wie du das designen willst (GUI-, GDIPlus-, 2D-gerendertes- oder 3D-gerendertes-Spiel)

    Ps: ...där! :D

  • Warum fünktioniert MathEx3DS_SphereRadiusAndAngle() nicht?

    Danke AspirinJunkie

    Aber leider funktioniert es auch nicht so, obwohl es auch einleuchtend ist. eigendlich müssten nähmlich sowohl Tetha=45° als auch Phi=45° sein.

    Warum? Hiiiiilfeeeeee ;(.

    Hier ist der Code mal mit allen Funktionen:

    Spoiler anzeigen
    [autoit]

    Global Const $MATHEX_CONST_PI = 3.14159265358979
    Global Const $MATHEX_CONST_RADIAN = ($MATHEX_CONST_PI/180)

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

    Func MathEx3DS_SphereRadiusAndAngle($cX, $cY, $cZ, $pX, $pY, $pZ)
    If Not IsNumber($cX) Then
    SetError(1)
    Return 0
    EndIf
    If Not IsNumber($cY) Then
    SetError(2)
    Return 0
    EndIf
    If Not IsNumber($cZ) Then
    SetError(3)
    Return 0
    EndIf
    If Not IsNumber($pX) Then
    SetError(4)
    Return 0
    EndIf
    If Not IsNumber($pY) Then
    SetError(5)
    Return 0
    EndIf
    If Not IsNumber($pZ) Then
    SetError(6)
    Return 0
    EndIf
    Dim $Return[3]
    $Width=$pX-$cX
    $Height=$pY-$cY
    $Depth=$pZ-$cZ
    $Radius=MathExSTE_Cuboid_GetRoomDiagonal($Width, $Height, $Depth)
    ;ATan
    $Phi=ATan($Width/$Height*$MATHEX_CONST_RADIAN)
    $Theta=ACos($Depth/$Radius*$MATHEX_CONST_RADIAN)
    $Return[0]=$Radius
    $Return[1]=$Theta
    $Return[2]=$Phi
    Return $Return
    EndFunc

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

    Func MathExSTE_Cuboid_GetRoomDiagonal($a, $b, $c)
    Return Sqrt($a*$a+$b*$b+$c*$c)
    EndFunc ;==> MathExSTE_Cuboid_GetRoomDiagonal

    [/autoit]

  • Warum fünktioniert MathEx3DS_SphereRadiusAndAngle() nicht?

    Guckt sich mal bitte einer diese Funktion an?

    Spoiler anzeigen
    [autoit]

    Func MathEx3DS_SphereRadiusAndAngle($cX, $cY, $cZ, $pX, $pY, $pZ)
    If Not IsNumber($cX) Then
    SetError(1)
    Return 0
    EndIf
    If Not IsNumber($cY) Then
    SetError(2)
    Return 0
    EndIf
    If Not IsNumber($cZ) Then
    SetError(3)
    Return 0
    EndIf
    If Not IsNumber($pX) Then
    SetError(4)
    Return 0
    EndIf
    If Not IsNumber($pY) Then
    SetError(5)
    Return 0
    EndIf
    If Not IsNumber($pZ) Then
    SetError(6)
    Return 0
    EndIf
    Dim $Return[3]
    $Width=$pX-$cX
    $Height=$pY-$cY
    $Depth=$pZ-$cZ
    $Radius=MathExSTE_Cuboid_GetRoomDiagonal($Width, $Height, $Depth)
    ;ATan
    $Phi=ATan($Width/$Height*$MATHEX_CONST_RADIAN)
    $Theta=ACos($Depth/$Radius*$MATHEX_CONST_RADIAN)
    $Return[0]=$Radius
    $Return[1]=$Theta
    $Return[2]=$Phi
    Return $Return
    EndFunc

    [/autoit]

    Ich Will damit einen beliebigen Punkt im Koordinatensystem mit Hilfe einer Kugel zugänglich machen.

    Danke

    PS: Sinn der Funktion :Du gibst die Koordinaten von einem Punkt an, dessen Koordinaten/Winkel relativ zu einem ausgewählten Punkt haben möchtest :rolleyes:

  • Neue Version von MathEx - 1.1

    Naja ich hab das auch überlegt hab mir aber gedacht, dass das vieleicht nicht der Übersicht zuträglich ist...

  • Neue Version von MathEx - 1.1

    Hi

    Ich habe eine Mathematik/Physik Bibliothek angefangen zu schreiben und wollte ein wenig Feedback hören. Außerdem suche ich helfende Finger :D, die mir helfen weiter zu schreiben.

    Ich lege vor allem Wert auf eine Teilbibliothek zum Bereich der Balistik und Optik. Hoffentlich könnt ihr mir mit Code und ratschlägen oder Tipps helfen.

    Danke im Vorraus - euer Grimbizo

    MathEx v1.0

    MathEx v1.1
    Hinzugefügt: MathEx_Ballistics.au3
    Hinzugefügt: MathEx_Basics.au3
    Hinzugefügt: MathEx_Trigonometrics.au3
    Hinzugefügt: MathEx3DS_SphereRadiusAndAngle
    Hinzugefügt: MathExSTE_Cone_...

    MathEx v1.1.1 Noch kein Release!!!
    Umbenannt: MathEx_Ballistics.au3 zu MathEx_Movement.au3
    Bug Fix: MathEx3DS_CompleteSphere gibt jetzt die richtige Anzahl an Koordinaten zurück. Sorry Leute ist mir erst eben aufgefallen. :rolleyes:
    Bug Fix: MathExBal_GetTrajectory gibt jetzt die richtige Flugbahn zurück
    Hinzugefügt: Interne Funktionslisten

  • Eine Kugel mit sehr vielen Punkten...

    Hi!

    Ich bin gerade eine geometrie/physik-blibliothek am schreiben und ich habe ein Problem mit der Funktion

    [autoit]

    Func _Geometrics_SpherePos($Radius,$Split)
    $theta=180/$Split
    $phi=360/$Split
    $range=($Split+1)*($Split+1)
    Dim $return[$range][3]
    $i=0
    For $t=0 To 180 Step $theta
    For $p=0 to 360 Step $phi
    $return[$i][0]=$Radius*Sin($t)*Cos($p)
    $return[$i][1]=$Radius*Sin($t)*Sin($p)
    $return[$i][2]=$Radius*Cos($t)
    $i+=1
    Next
    Next
    Return $return
    EndFunc

    [/autoit]

    Nähmlich ist die Kugel, die damit dargestellt wird zwar richtig, jedoch gibt es immer Gruppierungen von Punkten. (Siehe Bild) Das sollte nicht so sein. Kann mir i-wer helfen?

    Schon mal danke im Vorraus.

    PS: Im Anhang ist auch ein Beispiel (in der ZIP) zur versinnblidlichung.

  • Word funktion gesucht: "_Word_CreateEmbed"?

    Ich habe das Gefühl, dass hier was nicht richtig ist...

    [autoit]

    $hGui = GUICreate('DOCBIB', 800, 600)
    $oDoc = ObjCreate("Word.Document")
    $hGUIDoc = GUICtrlCreateObj($oDoc, 200, 80, 600, 600)
    GUISetState(@SW_SHOW)
    While 1
    Switch GUIGetMsg()
    Case -3
    Exit
    EndSwitch
    WEnd

    [/autoit]

    Das ergibt das angehängte Bild. Der graue Hintergrund verwirrt, denn wenn man z.B. Enter drückt, dann wird es eine ganz normale, weiße Zeile. Der rest bleibt jedoch grau... :huh:

    Vielleicht könntest du, BugFix, mir den Link zu der MSDN seite geben, woher du den Objektnachweis her hast.

  • Word funktion gesucht: "_Word_CreateEmbed"?


    Das ist geil! Super! Aber wie kann ich damit arbeiten, um z.B. ein Word Dokument zu öffnen?

    PS: Du hast mir jetzt schon richtig geholfen. Ich frag mich nur, woher du das weißt.