Du musst den Mode 2 bei
[autoit]fileopen()
[/autoit]benutzen, damit der alte Text der Datei überschrieben wird.
//Edit: Erst im Read-mode öffnen, zum Einlesen des Textes,
dann closen und zum Beschrieben dann mit besagem Parameter neu öffnen.
MfG,
Fresapore
Also ich hab mal was von "Darwine" gehört, dass soll manche *.exe auf nem Mac zum laufen bringen...
Bin aber kein Macuser, hab keine Ahnung wie genau das dann gemacht werden muss...
MfG,
Fresapore
Ich würde in den Ausgelagerten *.au3s einfach die Gui in eine Funktion packen, und jede Datei am Anfang des Hauptscripts includen, dann kannst du die GUIs einfach im Hauptscript per Funktionsaufruf starten...
MfG,
Fresapore
Um das hier noch am Leben zu erhalten:
Bin echt positiv von dem Musikgeschmack der meisten hier überrascht ;).
Ich selbst höre vor allem Metal, Punk, Mittelalterrock, Ska und Rock.
Um mal ein paar (schon genannte) Namen zu nennen:
-Breaking Benjamin
-Bullet for my Valntine
-Die Ärzte
-Dritte Wahl
-Farin Urlaub
-Goodnightnurse
-Children of Bodom
-Green Day
-InExtremo
-Joint Venture
-Sondaschule
-Linkin Park
-Nightwish
-Papa Roach
-Red hot Chili Peppers
-Schandmaul
-Ska-P
-Sum 41
-System of a Down
-Tarrorgruppe
-The Rasmus
-WIZO
-Zaunpfahl
-ZSK
autoBert: Ganz schön feist kenne ich auch, finde aber Wise Guys besser 
MfG,
Fresapore
Hi
erst mal: Die Bildschirmlupe sieht Hammer aus!
ich wollte sie mal testen, doch als ich das Bild mit strg+alt+m gespeichert hatte, und dann diesen suchen wollte,
kam folgender Fehler:
Line 961 "Pushthebutton.au3":
Return $S_FindBytes[0]
Return $S_FindBytes^Error
Error: Subscript used with non-Array variable.
Mache ich irgendwas falsch?
MfG,
Marvin
Ich weiß nicht, ob das mit dem Unternamen funktioniert, aber wenn dann so
[autoit]DriveMapAdd("x:", "\\smb.hidrive.strato.com\root\users\"&$login,0, $login,$passwd)
[/autoit]Edit: der Errorcode 3 kommt glaube ich von DriveMapAdd:
3 = The device is already assigned
Nein, da fehlt nichts hinter dem Then, denn der Teil bis zum "else"(Z. 18) wird ausgeführt, wenn die Bedingung wahr ist.
Schau dir am Besten die Syntax von If...ElseIf...Else...EndIf in der Hilfe an.
MfG,
Fresapore
Hm, ich kann das nicht testen, aber bist du sicher, dass @error auf 1 gesetzt wird(ich kenn auch die mysql.au3 net..)? Auch sonst würd ich das eher so schreiben:
If @error = 1 Then
Return
Else
MsgBox(0,"lieferanten_ek_preise",$TableContents1.Fields ("EK").value)
EndIf
Danke euch für die Lösung(-sansätze :P)! Ich denke ich kann damit was machen..;)
@Cyberdyne: ich nehme natürlich auch Lösungen dankend an
MfG,
Fresapore
Hi,
ich habe folgendes Problem:
Ich brauche die Berechnung der Drehung eines Würfels in X-, Y-, Z-Achse.
Dabei gilt folgendes: Jeder Seite des Würfels ist eine Zahl zugeordnet.
Oben: 0
Vorne: 1
Rechts: 2
Hinten: 3
Links: 4
Unten: 5.
Nun werden in einem Array die Daten des gedrehten Würfels übergeben, d.h ein ungedrehter Würfer hätte bei $drehung[0] = 0, $drehung[1] = 1, $drehung[2] = 2, drehung[3] = 3 usw...
Nun kann aber auch der Array so aussehen z.B.
$drehung[0] = 4
$drehung[1] = 1
$drehung[2] = 0
$drehung[3] = 3
$drehung[4] = 5
$drehung[5] = 2
[Blockierte Grafik: http://media.evo-x.de/media/xna//Teil07a/01_3D-Wuerfel.png]
Das würde heißen, das bei dem GEDREHTEN Würfel 4 = das ursprüngliche LINKS nun OBEN ist, Vorne Vorne bleibt, 0 = das ursprungliche OBEN nun RECHTS ist, hinten hinten bleibt, usw usw..
Im Endeffekt würde rauskommen, dass der Würfel um 90° auf der X-Achse gedreht wurde!
Von der Logistik sehr schwierig vorzustellen...
Nun brauche ich eine Funktion, welche aus dem Array $drehung konkret X-, Y-, Z-Achsendrehung berechnet, damit ein ungedrehter Würfel richtig gedreht wird..
Hoffe ihr versteht mein Problem 
.
Habe auch schonmal versucht, das umzusetzen, wo mit aber klar ist, dass es so letztendlich nicht funktionieren kann.
Local $end[7], $act[7], $temp[7], $drehung1, $drehung2, $drehung3, $z
$drehung1 = 0
$drehung2 = 0
$drehung3 = 0
$end[1] = 4
$end[2] = 1
$end[3] = 0
$end[4] = 4
$end[5] = 5
$end[6] = 2
for $z = 1 to 6
$act[$z] = $z-1
Next
if ($end[5] = $act[2] and $end[1] = $act[6]) or ($end[5] = $act[1] and $end[1] = $act[5]) or ($end[5] = $act[6] and $end[1] = $act[2]) or ($end[5] = $act[5] and $end[1] = $act[1]) Then
For $y = 0 to 3
if ($end[5] = $act[5] and $end[1] = $act[1]) And ($end[6] = $act[6] and $end[2] = $act[2]) Then
$drehung3 = $y*90
ExitLoop
EndIf
$temp[1] = $act[1]
$temp[2] = $act[2]
$temp[5] = $act[5]
$temp[6] = $act[6]
$act[1] = $temp[6]
$act[2] = $temp[1]
$act[5] = $temp[2]
$act[6] = $temp[5]
Next
For $y = 0 to 3
if ($end[3] = $act[3] And $end[4] = $act[4]) And ($end[2] = $act[2] And $end[6] = $act[6]) Then
$drehung1 = $y*90
ExitLoop
EndIf
$temp[2] = $act[2]
$temp[3] = $act[3]
$temp[4] = $act[4]
$temp[6] = $act[6]
$act[3] = $temp[6]
$act[2] = $temp[3]
$act[4] = $temp[2]
$act[6] = $temp[4]
Next
Elseif ($end[5] = $act[3]) And ($end[1] = $act[4]) Then
For $y = 1 to 3
$temp[1] = $act[1]
$temp[3] = $act[3]
$temp[4] = $act[4]
$temp[5] = $act[5]
$act[1] = $temp[3]
$act[3] = $temp[5]
$act[4] = $temp[1]
$act[5] = $temp[4]
$drehung2 = $y*90
Next
For $y = 0 to 3
if ($end[3] = $act[3] And $end[4] = $act[4]) And ($end[2] = $act[2] And $end[6] = $act[6]) Then
$drehung1 = $y*90
ExitLoop
EndIf
$temp[2] = $act[2]
$temp[3] = $act[3]
$temp[4] = $act[4]
$temp[6] = $act[6]
$act[3] = $temp[6]
$act[2] = $temp[3]
$act[4] = $temp[2]
$act[6] = $temp[4]
Next
Elseif ($end[5] = $act[4]) and ($end[1] = $act[3]) Then
$temp[1] = $act[1]
$temp[3] = $act[3]
$temp[4] = $act[4]
$temp[5] = $act[5]
$act[1] = $temp[3]
$act[3] = $temp[5]
$act[4] = $temp[1]
$act[5] = $temp[4]
$drehung2 = 90
For $y = 0 to 3
if ($end[3] = $act[3] And $end[4] = $act[4]) And ($end[2] = $act[2] And $end[6] = $act[6]) Then
$drehung1 = $y*90
ExitLoop
EndIf
$temp[2] = $act[2]
$temp[3] = $act[3]
$temp[4] = $act[4]
$temp[6] = $act[6]
$act[3] = $temp[6]
$act[2] = $temp[3]
$act[4] = $temp[2]
$act[6] = $temp[4]
Next
EndIf
MsgBox(0, "Ausgabe", "Die Drehungen des Würfels: X: "&$drehung1&" Y: "&$drehung2&" Z: "&$drehung3)
Schonmal Danke für Ideen oder Lösungsansätze!
MfG, Fresapore
Wenn du $CBS_DROPDOWNLIST einfach nur deklarierst, ist die Variable zunächst leer. Wenn du aber ComboConstants.au3 includest, wird der Variable dort ein Wert zugewiesen, welcher dann als dieser Style erkannt wird in deiner Combobox..
P.S.: DROPDOWNLIST hat den (Hexadezimal?-)Code: 0x3
MfG, Fresapore
stayawayknight,
nein, Grundlinie*höhe/2 funzt immer, nur ist h nur bei rechtwinkligen Dreiecken direkt auch eine Seitenlänge...
Nur bei 3 gegebenen Seiten empfielt sich das nicht gerade 
Wenn man
[autoit]Local $aRet[UBound($aTemp) -1][2]
[/autoit]in
[autoit]Local $aRet[UBound($aTemp)][2]
[/autoit]ändert, kommt (bei mir, win7 64bit) kein Error und ein Gui mit einem Slider erscheint.
//Edit: Scheint aber auch nicht wirklich das zu sein, was es sein sollte
Hm Also
@alexanderschill,
ich glaube nicht dass deine Lösung hinkommt...
habe das auch mal gemacht, nur für den Rechenweg, ist natürlich noch verbuggt (Teilen durch 0 usw), aber im Endeffekt wie alexanderschill's Lösung:
Dim $p1[2]
Dim $p2[2]
Dim $p3[2]
$p1[0] = inputbox("X-Koordinate des ersten Punktes", "Die X-Koordinate von P1")
$p1[1] = inputbox("Y-Koordinate des ersten Punktes", "Die Y-Koordinate von P1")
$p2[0] = inputbox("X-Koordinate des zweiten Punktes", "Die X-Koordinate von P2")
$p2[1] = inputbox("Y-Koordinate des zweiten Punktes", "Die Y-Koordinate von P2")
$p3[0] = inputbox("X-Koordinate des dritten Punktes", "Die X-Koordinate von P3")
$p3[1] = inputbox("Y-Koordinate des dritten Punktes", "Die Y-Koordinate von P3")
$m = ($p2[1]-$p1[1])/($p2[0]-$p1[0])
$c = $p1[1]-$m*$p1[0]
if $p3[1] = $m*$p3[0]+$c Then
MsgBox(0, "Punkt auf Strecke", "Der Punkt liegt auf der Strecke")
Else
$m2 = -(1/$m)
$c2 = $p3[1]-$m2*$p3[0]
$xtref = ($c-$c2)/($m2-$m)
$ytref = $m2*$xtref+$c2
$strecke = sqrt(($p3[1]-$ytref)^2+($p3[0]-$xtref)^2)
MsgBox(0, "test", $strecke)
EndIf
Naja, du kannst anhand von 2 Punkten ein geradenGleichung aufstellen: y = m*x+b, (m = (y2-y1)/(x2-x1)), dann bekannten Punkt einsetzen und b berechnen, und wenn du dann den dritten Punkt in diese Gleichung einsetzt, muss die Gleichung stimmen.
Zu der strecke. Da fällt mir nur ein sehr komplizierter weg ein.
Geradengleichung finden, dessen Steigung die andere Gerade mit 90° schneidet (y2 = -(1/m)*x+b2), dann b2 anhand P3 ausrechnen, und Gleichungen gleichsetzen, um den Schnittpunkt zu erhalten.
Dann mit Satz des Pythagoras den Abstand von P3 und dem errechneten Schnittpunkt ausrechnen
Hm, fehlt da nicht auch noch das
[autoit]fileopen()
[/autoit]
zum neuschreiben?
Aber wenn schon des Löschen nicht funktioniert...
Mfg,
Fresapore
Hi, hab dein Script mal Umgebaut..
Der Fehler lag meines Wissens nach irgedwie bei dem Pingen der IP Adresse selbst, habe das deswegen mal mit dem Hostnamen versucht, auf jedenfall funzt das...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <inet.au3>
Opt("GUIOnEventMode", 1)
Global $arbeiten
Global $ms
Global $hist
Global $ip
#Region ### START Koda GUI section ### Form=c:\users\user\documents\my dropbox\dateien\autoit\scripte\dauerpinger\form1.kxf
$Form1 = GUICreate("Form1", 460, 369, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Label1 = GUICtrlCreateLabel("Vertrag", 16, 64, 38, 17)
GUICtrlSetOnEvent(-1, "Label1Click")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 272, 64, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "217.68.160.210")
$Label2 = GUICtrlCreateLabel("IP", 248, 64, 14, 17)
GUICtrlSetOnEvent(-1, "Label2Click")
$Input1 = GUICtrlCreateInput("Input1", 64, 64, 129, 21)
GUICtrlSetOnEvent(-1, "Input1Change")
$Start = GUICtrlCreateButton("Start", 64, 96, 121, 25)
GUICtrlSetOnEvent(-1, "StartClick")
$Button2 = GUICtrlCreateButton("Button2", 272, 96, 137, 25)
GUICtrlSetOnEvent(-1, "Button2Click")
$Ausgabefeld = GUICtrlCreateEdit("", 64, 152, 345, 113)
GUICtrlSetData(-1, "Ausgabefeld")
#cs
GUICtrlSetState(-1, $GUI_DISABLE)
#ce
GUICtrlSetOnEvent(-1, "AusgabefeldChange")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
While 1
Sleep(100)
WEnd
Func Button2Click()
AdlibUnRegister()
EndFunc
Func Form1Close()
GUIDelete()
Exit
EndFunc
Func Form1Maximize()
EndFunc
Func Form1Minimize()
EndFunc
Func Form1Restore()
EndFunc
Func Input1Change()
EndFunc
Func Label1Click()
EndFunc
Func Label2Click()
EndFunc
Func StartClick()
Adlibregister("_readping", 2000)
#cs
MsgBox(64, "New GUI", "Start")
#ce
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _readping()
$ip = _GUICtrlIpAddress_Get($IPAddress1)
$ip = _TCPIpToName($ip)
if @error Then
$ms = "Error: "&@error
Else
$ms = Ping($ip,250)
EndIf
$hist = GUICtrlRead(-1)
GUICtrlSetData(-1, @YEAR & '.' & @MON & '.' & @MDAY & ' ' & @HOUR & '-' & @MIN & '-' & @SEC & ';' & $ms & @CRLF & $hist)
EndFunc
Hi, das Programm ist echt praktisch für Laptop-User, witzige Spielereinen ;),
Aber als ich Str+Win+{ENTER} = Mausklick (oder?) gedrückt habe, hat der auch nach Loslassen der Tasten durchgehend die Maus geklickt..
Gut gemacht,
genau dasselbe hatte wir auch vor Kurzem in der Schule....
hab auch genau deshalb letztens ein programm geschrieben
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ListviewConstants.au3>
#include <StaticConstants.au3>
#Include <GuiListView.au3>
#include <EditConstants.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)
Global $amount = 0
Global $numbers[99][2]
Global $listiteml[99]
Global $listitemr[99]
$hGUI = GUICreate('Korrelation',500, 690)
$xilab = GUICtrlCreateLabel("Xi", 30, 30, 50, 20)
GUICtrlSetFont(-1, 15)
$yilab = GUICtrlCreateLabel("Yi", 170, 30, 50, 20)
GUICtrlSetFont(-1, 15)
Global $xinput = GUICtrlCreateInput("", 30, 50, 100, 25, $ES_Number)
guictrlsetfont(-1, 12)
Global $yinput = GUICtrlCreateInput("", 170, 50, 100, 25, $ES_Number)
guictrlsetfont(-1, 12)
Global $listviewxy = GUICtrlCreateListView("Nr.|Xi|Yi", 30, 100, 120, 400, -1,$LVS_EX_GRIDLINES)
Global $listviewcal = GUICtrlCreateListView("Xi-Xquer|Yi-Yquer|(Xi-Xquer)²|(Yi-Yquer)²|(Xi-Xquer)*(Yi-Yquer)", 150, 100, 320, 400, -1,$LVS_EX_GRIDLINES)
$Addbut = GUICtrlCreateButton("Hinzufügen", 280, 50, 100, 25)
$clearbut = GUICtrlCreateButton("Lösche Tabelle", 350, 500, 120, 20)
;$calcbut = GUICtrlCreateButton("Berechnen", 30, 500, 300, 30)
$helpbut = GUICtrlCreateButton("Hilfe", 450, 0, 50, 20)
$xlab = GUICtrlCreateLabel("X", 300, 530, 20, 20)
GUICtrlSetFont(-1, 15)
$ylab = GUICtrlCreateLabel("Y", 480, 530, 20, 20)
GUICtrlSetFont(-1, 15)
$durchlab = GUICtrlCreateLabel("Durchschnitt:", 30, 560, 120, 30)
GUICtrlSetFont(-1, 15)
$Varlab = GUICtrlCreateLabel("Varianz:", 30, 590, 120, 30)
GUICtrlSetFont(-1, 15)
$Standlab = GUICtrlCreateLabel("Stnd. Abw.:", 30, 620, 120, 30)
GUICtrlSetFont(-1, 15)
$CoVlab = GUICtrlCreateLabel("CoV:", 30, 650, 50, 30)
GUICtrlSetFont(-1, 15)
$korlab = GUICtrlCreateLabel("Korrelation:", 250, 650, 120, 30)
GUICtrlSetFont(-1, 15)
$xquerlab = GUICtrlCreateLabel("", 150, 560, 170, 30, $SS_RIGHT)
GUICtrlSetFont(-1, 15)
$yquerlab = GUICtrlCreateLabel("", 330, 560, 170, 30, $SS_RIGHT)
GUICtrlSetFont(-1, 15)
$xvarlab = GUICtrlCreateLabel("", 150, 590, 170, 30, $SS_RIGHT)
GUICtrlSetFont(-1, 15)
$yvarlab = GUICtrlCreateLabel("", 330, 590, 170, 30, $SS_RIGHT)
GUICtrlSetFont(-1, 15)
$xslab = GUICtrlCreateLabel("", 150, 620, 170, 30, $SS_RIGHT)
GUICtrlSetFont(-1, 15)
$yslab = GUICtrlCreateLabel("", 330, 620, 170, 30, $SS_RIGHT)
GUICtrlSetFont(-1, 15)
$CoVerglab = GUICtrlCreateLabel("", 80, 650, 160, 30)
GUICtrlSetFont(-1, 15)
$korerglab = GUICtrlCreateLabel("", 360, 650, 110, 30)
GUICtrlSetFont(-1, 15)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($addbut, "_addtolist")
GUICtrlSetOnEvent($clearbut, "_deleteall")
GUICtrlSetOnEvent($helpbut, "_help")
;GUICtrlSetOnEvent($calcbut, "_calc")
While 1
if _ispressed("BD") and ControlGetFocus("Korrelation") = "Edit1" Then
guictrlsetdata($xinput, guictrlread($xinput)&"-")
sleep(100)
ElseIf _ispressed("BD") and ControlGetFocus("Korrelation") = "Edit2" Then
guictrlsetdata($yinput, guictrlread($yinput)&"-")
sleep(100)
EndIf
if _ispressed("BE") and ControlGetFocus("Korrelation") = "Edit1" Then
guictrlsetdata($xinput, guictrlread($xinput)&".")
sleep(100)
ElseIf _ispressed("BE") and ControlGetFocus("Korrelation") = "Edit2" Then
guictrlsetdata($yinput, guictrlread($yinput)&".")
sleep(100)
EndIf
sleep(40)
WEnd
Func _exit()
Exit
EndFunc
Func _addtolist()
$xin = guictrlread($xinput)
$yin = guictrlread($yinput)
If $xin <> "" and $yin <> "" Then
$listiteml[$amount] = GUICtrlCreateListViewItem($amount+1&"|"&$xin&"|"&$yin, $listviewxy)
$numbers[$amount][0] = $xin
$numbers[$amount][1] = $yin
$amount += 1
GUICtrlSetData($xinput, "")
GUICtrlSetData($yinput, "")
_calc()
Else
MsgBox(0, "Fehler", "Bitte Zahlen eintragen")
EndIf
EndFunc
Func _calc()
If $amount > 1 Then
_GUICtrlListView_DeleteAllItems($listviewcal)
Dim $sum[2]
Dim $mittxy[2]
Dim $sumv[2]
Dim $mittv[2]
Dim $stdab[2]
$sumco = 0
For $i = 0 to $amount-1
$actx = $numbers[$i][0]
$acty = $numbers[$i][1]
$sum[0] += $actx
$sum[1] += $acty
Next
$mittxy[0] = $sum[0]/$amount
$mittxy[1] = $sum[1]/$amount
For $i = 0 to $amount-1
$listitemr[$amount] = GUICtrlCreateListViewItem(round($numbers[$i][0]-$mittxy[0], 4)&"|"&round($numbers[$i][1]-$mittxy[1], 4)&"|"&round(($numbers[$i][0]-$mittxy[0])^2, 4)&"|"&round(($numbers[$i][1]-$mittxy[1])^2, 4)&"|"&round(($numbers[$i][0]-$mittxy[0])*($numbers[$i][1]-$mittxy[1]), 4), $listviewcal)
$sumv[0] += ($numbers[$i][0]-$mittxy[0])^2
$sumv[1] += ($numbers[$i][1]-$mittxy[1])^2
$sumco += ($numbers[$i][0]-$mittxy[0])*($numbers[$i][1]-$mittxy[1])
Next
$mittv[0] = $sumv[0]/$amount
$mittv[1] = $sumv[1]/$amount
$stdab[0] = sqrt($mittv[0])
$stdab[1] = sqrt($mittv[1])
$CoV = $sumco/$amount
$Korr = $CoV/($stdab[0]*$stdab[1])
GUICtrlSetData($xquerlab, round($mittxy[0], 4))
GUICtrlSetData($yquerlab, round($mittxy[1], 4))
GUICtrlSetData($xvarlab, round($mittv[0], 4))
GUICtrlSetData($yvarlab, round($mittv[1], 4))
GUICtrlSetData($xslab, round($stdab[0], 4))
GUICtrlSetData($yslab, round($stdab[1], 4))
GUICtrlSetData($coverglab, round($CoV, 4))
GUICtrlSetData($korerglab, round($Korr, 4))
Else
;MsgBox(0, "Fehler", "Mehr als ein Wertepaar notwendig")
EndIf
EndFunc
Func _deleteall()
_GUICtrlListView_DeleteAllItems($listviewxy)
_GUICtrlListView_DeleteAllItems($listviewcal)
$amount = 0
EndFunc
Func _help()
MsgBox(0, "Hilfe", "Noch keine Hilfe vorhanden, sie wird es auch nie geben.")
EndFunc
Naja, mann kann aber prüfen, ob die Maustaste gedrückt wird mit
[autoit]_ispressed("04")
[/autoit]
Und dann eine Aktion ausführen, oder irre ich mich
