ah, danke 
Ich hab da schon überall nach gesucht...
Edit: Lol, ich wusste gar nicht, dass ACos(-1) = π ist 
Beiträge von Cartan12
-
-
Ok, ich frag nochmal, weil meine Frage anscheinend in der Shoutbox untergegangen ist...
Wieso muss man den Arcus Tangens durch Arcus Cosinus -1 durch 180 rechnen?P.S.: Super sript Name
-
Das kann ich
Hier mal ein Ansatz:Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("Form1", 501, 501, 279, 155)
[/autoit] [autoit][/autoit] [autoit]
$Button1 = GUICtrlCreateButton("Button1", 240, 240, 10, 10, $WS_GROUP)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
$mouse = GUIGetCursorInfo()
$x = $mouse[0]-250
$y = $mouse[1]-250
ToolTip(Round(_GetLineDegreeX($x,$y)),@DesktopWidth,@DesktopHeight,"","",4)
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
WEndFunc _GetLineDegreeX($iX_Point, $iY_Point, $iFlag = 0)
[/autoit] [autoit][/autoit] [autoit]
If Not ($iX_Point Or $iY_Point) Then Return SetError(1, 0, 0)
Switch $iFlag
Case 0
Return Abs(ATan($iY_Point / $iX_Point) / (ACos(-1)/ 180 ))
Case 1
Return 180 - Abs(ATan($iY_Point / $iX_Point) / (ACos(-1) / 180))
Case 2
Return 360 - Abs(ATan($iY_Point / $iX_Point) / (ACos(-1) / 180))
EndSwitch
EndFuncFunc _GetLineDegreeY($iX_Point, $iY_Point, $iFlag = 0)
[/autoit]
If Not ($iX_Point Or $iY_Point) Then Return SetError(1, 0, 0)
Switch $iFlag
Case 0
MsgBox(0,"",ATan($iX_Point / $iY_Point))
Return Abs(ATan($iX_Point / $iY_Point) / (ACos(-1) / 180))
Case 1
Return 180 - Abs(ATan($iX_Point / $iY_Point) / (ACos(-1) / 180))
Case 2
Return 360 - Abs(ATan($iX_Point / $iY_Point) / (ACos(-1) / 180))
EndSwitch
EndFuncEdit: Der Button ist der Mittelpunkt...
-
Ich würd das gerne nochmal erklärt bekommen...
Wir nehmen das jetzt zufälliger Weise gerad in Mathe durch, also weiß ich, was ein arcus cosinus/sinus/tangens ist, aber das war's auch schon
Ich benutze Scripte nicht nur, sondern verstehe sie auch mal gerne -
So ist's richtig:
[autoit]$body = GUICtrlRead ($input1) & GUICtrlRead ($input2)
[/autoit]Der Verbindungsoperator bei AutoIt ist immer "&"
Edit: Zu spääät
-
Ach so, läuft nur unter Vista oder Win7...
Nächstes mal vorher bitte sagen, oder eine MsgBox aufgehen lassen... -
Bei mir klappts aber nicht und ich hab gerade WinXP 32Bit am laufen...
P.S.: Keine Fehlermeldung vom Wrapper, aber das Script setzt @Error auf 1 und die Funktion gibt 1 zurück
-
Im selben Ordner, wie das Script
-
Dafür gibts doch
[autoit]Shutdown
[/autoit]Evtl. noch
[autoit]#RequireAdmin
[/autoit]davor...
-
Von mir auch alles gute
(Will auch endlich 18 sein ^^) -
P.S.: Das ist nur ein Auszug meines Skriptes (Ich habe es getsestet, diese Stelle funktioniert weder im kompletten Skript noch in diesem Auszug !).
-
War auch keine Lösung für dein Problem, sondern hat dir nur die Fehler mit den OR's gezeigt...
-
Ganz einfach, weil die erste Bedinung immer eintritt, somit kommen die elseif's gar nicht dran
Außerdem benutzt du das or falsch, so ist's richtig:Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
$GA = 0GUICreate("Spiel", @DesktopWidth, @DesktopHeight - 60, 0, 0)
[/autoit]
$figur = GUICtrlCreatePic(@ScriptDir & "\auto_1.jpg", 315, 450, 200, 100)
GUISetState(@SW_SHOW)
While 1
ToolTip($GA, 1, 1)
If GUIGetMsg() = $GUI_EVENT_CLOSE Then
Exit
EndIf
If $GA <> 1 or $GA <> 3 or $GA <> 5 or $GA <> 7 Then
$GA = $GA + 1
GUICtrlCreatePic(@ScriptDir & "\GEGNER.jpg", 145, 300, 180, 85)
MsgBox(0,"",$GA)
ElseIf $GA <> 2 or $GA <> 3 or $GA <> 6 or $GA <> 7 Then
$GA = $GA + 2
GUICtrlCreatePic(@ScriptDir & "\GEGNER.jpg", 326, 300, 180, 85)
ElseIf $GA <> 4 or $GA <> 5 or $GA <> 6 or $GA <> 7 Then
$GA = $GA + 4
GUICtrlCreatePic(@ScriptDir & "\GEGNER.jpg", 507, 300, 180, 85)
EndIF
WEnd -
Nicht schlecht, UEZ, kann ich auch öfter mal gebrauchen
-
Sein Binärcode ist falsch...
[autoit]
Versuchs nochmal so:$bild_b = StringToBinary(FileRead("Bild.jpg"))
[/autoit]
FileWrite("Bild_neu.jpg",BinaryToString($bild_b)) -
Die Daten in einem Ordner kannste ganz einfach mit
[autoit]_FileListToArray
[/autoit]einlesen...
-
Meinst du eine Combobox in einem anderen Programm?
[autoit]
Dann schau dir malControlCommand
[/autoit]an...
-
Wie wärs mit der Zip32 UDF?
Die funktioniert echt gut und die nehm ich auch immer... -
Also bei mir klappt das, dass wenn ich auf die Pfeile drücke, die Items verschoben werden...
-
So, jetzt werd ich meinen Desktop auch mal "enthüllen"...
Ich weiß nicht mehr, wer Bumptop vorgestellt hat, doch ich bin ihm zu tiefst dankbar
Ihr seht hier nur das "Hauptfenster" meines Desktops, aber ich glaub, ihr könnt euch so ungefär ein Bild machen
Ich änder die Bilderrahmen ungefähr jede Woche, mal Florida-Urlaub, mal AVATAR (nicht so, als ob da schon genug AVATAR wäre
)Mein Desktop
[Blockierte Grafik: http://www.imagebanana.com/img/qa5ojmoz/Desktop.jpg]
