Beiträge von i2c

i2c

Wieviele Parameter hat _ArraySort()?

[autoit]

#Include <Array.au3>
Local $Array[3][3] = [ _
[5.55,3576, "SciTE"], _
[3.05, 1966, "Programm Manager"], _
[5.92, 3385, "Mozilla Firefox"]]

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

_ArrayDisplay($Array)
_ArraySort($Array, 0, 0, 0, 2)
_ArrayDisplay($Array)

[/autoit]

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#Include <GuiComboBoxEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\a\desktop\form1.kxf
$Form1_1 = GUICreate("Schnellstarter", 633, 231, 318, 145)
$Label1 = GUICtrlCreateLabel("Bitte geben sie die den Pfad der .exe Dateien Ihrer Spiele an.", 96, 24, 397, 17)
$Game = _GUICtrlComboBoxEx_Create($Form1_1, "", 96, 56, 409, -1, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Hinzufügen....")
$Starte = GUICtrlCreateButton("Spiel starten!", 96, 88, 241, 49, $WS_GROUP)
$Hinzuf = GUICtrlCreateButton("Spiel hinzufügen!", 352, 88, 153, 49, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 96, 144, 409, 57, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox(0,"","Beendet")
Exit
Case $Hinzuf
$Neu = FileOpenDialog("Titel", @ScriptDir, "Ausführbare Dateien (*.exe)")
_GUICtrlComboBoxEx_BeginUpdate($Game)
_GUICtrlComboBoxEx_AddString($Game,$Neu)
_GUICtrlComboBoxEx_EndUpdate($Game)
Case $Abbrechen
MsgBox(0,"","Vielen Dank, dass sie Philware genutzt haben")
Exit
EndSwitch
WEnd

[/autoit]

i2c

4 Tage zu spät und keine Ausrede parat .
Ich wünsch trotzdem nachträglich ...
[Blockierte Grafik: http://h-1.abload.de/img/p3nnc.png]

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 200, 200)
$Button1 = GUICtrlCreateButton("Button1", 16, 16, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

$Form2 = GUICreate("Form2", 200, 200)
GUISetState(@SW_HIDE)

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_SHOW, $Form2)
EndSwitch
WEnd

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

http://translation.autoit.de/onlinehilfe/guiref/GUIRef.htm

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 200, 200)
$Button1 = GUICtrlCreateButton("Button1", 16, 16, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_run")
GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

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

Func _run()
_eins()
_zwei()
EndFunc

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

Func _eins()
MsgBox(0, "", "eins")
EndFunc

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

Func _zwei()
MsgBox(0, "", "zwei")
EndFunc

[/autoit]

i2c

Im Notfall einfach über Webmoney auscashen. Hab ich zwar das letzte mal vor über einem Jahr gemacht, mir fällt aber kein Grund ein warum das jetzt nicht mehr möglich sein sollte. Bei 150€ dürften sich die Gebühren irgendwo zwischen 10 und 15€ einpendeln.

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#region ### START Koda GUI section ### Form=
$FProxy = GUICreate("Proxy", 352, 107, 192, 124)
$IN_proxy = GUICtrlCreateInput("", 8, 8, 225, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$GSettings = GUICtrlCreateGroup("Settings", 8, 40, 169, 57)
$R_On = GUICtrlCreateRadio("On", 24, 64, 57, 25)
$R_Off = GUICtrlCreateRadio("Off", 104, 64, 57, 25)
$Ok = GUICtrlCreateButton("Ok", 272, 8, 65, 33, $WS_GROUP)
$Close = GUICtrlCreateButton("Close", 272, 56, 65, 33, $WS_GROUP)
$input = GUICtrlCreateInput("", 8, 8, 225, 21)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
Global $msg, $IN_proxy
#endregion ### END Koda GUI section ###

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $Ok
If BitAND(GUICtrlRead($R_On), $GUI_CHECKED) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", GUICtrlRead($IN_proxy))
Exit
ElseIf BitAND(GUICtrlRead($R_Off), $GUI_CHECKED) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 0)
ExitLoop
EndIf
Case $msg = $R_Off
If BitAND(GUICtrlRead($R_Off), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($input, $GUI_HIDE)
EndIf
Case $msg = $R_On
If BitAND(GUICtrlRead($R_On), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($input, $GUI_SHOW)
EndIf
Case $msg = $Close
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

[/autoit]

i2c

Worum geht es hier? Soll das Captchabild in einer GUI angezeigt werden oder es automatisch erkannt und damit umgangen werden? Letzteres verstösst gegen Punkt 3 der Forenregeln.

i2c

Auch wenn du es jetzt schon selbst geunden hast....

[autoit]

Func _listTemplates()
If GUICtrlRead($Geraetetyp) <> "Geraetetyp" Then
$Templatelist = _FileListToArray($Path & GUICtrlRead($Geraetetyp), "*.au3", 1)
If @error = 4 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
_GUICtrlComboBoxEx_ResetContent(GUICtrlGetHandle($Template))
For $i = 1 To $Templatelist[0]
GUICtrlSetData($Template, $Templatelist[$i], $Templatelist[1])
Next
EndIf
EndFunc ;==>_listTemplates

[/autoit]

In GUICtrlSetData() würde ich jetzt einen Default Wert setzen weil dein ursprünglicher Eintrag ja entfernt wird.

i2c

Setz ein Event auf die Gerätetyp-Combobox. Das füllen übernimmt dann die aufgerufene Funktion. Das Ganze könnte dann so aussehen - ungetestet.

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Date.au3>

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

$Form1 = GUICreate("Switche", 902, 665, 261, 137)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Geraetetyp = GUICtrlCreateCombo("Geraetetyp", 384, 48, 145, 25)
GUICtrlSetOnEvent(-1, "_listTemplates")
$Template = GUICtrlCreateCombo("Template", 384, 264, 257, 25)

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

GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", 1)

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

Global $Path, $Filter

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

$Path = "J:\Templates\OriginalTemplates\"
$Filter = '*.*'
;Ab hier wird die Combobox "Geraetetyp befüllt
$FileList = _FileListToArray($Path, $Filter, 2)
If @error = 4 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf

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

For $i = 1 To $FileList[0]
GUICtrlSetData($Geraetetyp, $FileList[$i])
Next
;Ende befüllen

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

Func _listTemplates()
If GUICtrlRead($Geraetetyp) <> "Geraetetyp" Then
$Templatelist = _FileListToArray($Path & GUICtrlRead($Geraetetyp), "*.au3", 1)
If @error = 4 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
For $i = 1 To $Templatelist[0]
GUICtrlSetData($Template, $Templatelist[$i])
Next
EndIf
EndFunc ;==>_listTemplates

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

While 1
Sleep(1000) ; Idle around
WEnd

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

Func CLOSEClicked()
Exit
EndFunc ;==>CLOSEClicked

[/autoit]

_FileListToArray() legt im ersten Element den Index des letzten Arrayelements ab. Die FOR-Schleifen müssten also bei $i=1 starten.

i2c

Edits tauchen in Abo - Mails leider nicht auf.

i2c

SciTE → Options → Open User Options File

einfügen und speichern:

Code

check.if.already.open=0

i2c

[autoit]

Global $_1_bis_9[9] = [1, 2, 3, 4, 5, 6, 7, 8, 9] ;fuer Exit_Installation()
Global $_2_bis_9_und_5[9] = [2, 3, 4, 5, 6, 7, 8, 9, 5] ;fuer was anderes()

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

$i = 1
For $element In $_1_bis_9
Exit_Installation($element) ;
Next

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

Func Exit_Installation($element)
MsgBox(0, "", $element)
EndFunc ;==>Exit_Installation

[/autoit]

i2c

Indem du $x1 und $x2 nach dem Setzen prüfst.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$x1 = 8 ;Startposition Spieler 1
$x2 = 8 ;Startposition Spieler 2

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

#region
$Form1 = GUICreate("Spiel", 315, 169, 354, 345)
GUISetBkColor(0x00FF00)
$Spieler1 = GUICtrlCreateLabel("", 8, 72, 20, 20)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Label1", $x1, 48, 284, 9)
GUICtrlSetBkColor(-1, 0x000000)
$Spieler2 = GUICtrlCreateLabel("", $x2, 104, 20, 20)
GUICtrlSetBkColor(-1, 0x0000FF)
$MyButton1 = GUICtrlCreateButton("Würfel für Sp. 1", 24, 8, 100, 30, $BS_FLAT)
$MyButton2 = GUICtrlCreateButton("Würfel für Sp. 2", 152, 8, 100, 30, $BS_FLAT)
GUICtrlSetState(-1, $GUI_DISABLE) ;Button disabled damit Spieler 2 nicht würfeln kann
GUISetState(@SW_SHOW)
#endregion

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MyButton1
GUICtrlSetState($MyButton1, $GUI_DISABLE)
$random = Random(1, 6, 1) ;würfeln
$x1 += $random * 8 ;den gewürfelten Wert * 8 Pixel zur x-Position des Spielers addieren
GUICtrlSetPos($Spieler1, $x1, 72) ;neue Position setzen
ToolTip("Du hast eine " & $random & " gewürfelt!", 369, 522)
Sleep(500)
If $x1 >= 272 Then
MsgBox(64, "Sieg!", "Spieler 1 hat das Spiel gewonnen.")
Exit
Else
MsgBox(0, "Spieler Wechsel", "Spieler 2 du bist dran!")
GUICtrlSetState($MyButton2, $GUI_ENABLE)
EndIf
Case $MyButton2
GUICtrlSetState($MyButton2, $GUI_DISABLE)
$random = Random(1, 6, 1)
$x2 += $random * 8
GUICtrlSetPos($Spieler2, $x2, 104)
ToolTip("Du hast eine " & $random & " gewürfelt!", 369, 522)
Sleep(500)
If $x2 >= 272 Then
MsgBox(64, "Sieg!", "Spieler 2 hat das Spiel gewonnen.")
Exit
Else
MsgBox(0, "Spieler Wechsel", "Spieler 2 du bist dran!")
GUICtrlSetState($MyButton1, $GUI_ENABLE)
EndIf
EndSwitch
WEnd

[/autoit]

i2c

Desktop\Aut2exe_x64.exe ist aber kein Pfad, weder absolut noch relativ.

Wenn du dich mit der CMD in C:\Users\XXX befindest, dann wechsel vorher mit cd Desktop das Verzeichnis oder gib den vollständigen Pfad zum Desktopordner an.

i2c

Spoiler anzeigen

[autoit]

Case $Button1
Dim $auslese[1]
_FileReadToArray($oeffnername, $auslese)
$suchstring = GUICtrlRead($Input1)
For $i = 1 To $auslese[0]
If StringInStr($auslese[$i],$suchstring) Then
FileWriteLine("Ausgabe.txt",$auslese[$i])
EndIf
Next

[/autoit]

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$x1 = 8 ;Startposition Spieler 1
$x2 = 8 ;Startposition Spieler 2

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

#region
$Form1 = GUICreate("Spiel", 315, 169, 354, 345)
GUISetBkColor(0x00FF00)
$Spieler1 = GUICtrlCreateLabel("", 8, 72, 20, 20)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Label1", $x1, 48, 284, 9)
GUICtrlSetBkColor(-1, 0x000000)
$Spieler2 = GUICtrlCreateLabel("", $x2, 104, 20, 20)
GUICtrlSetBkColor(-1, 0x0000FF)
$MyButton1 = GUICtrlCreateButton("Würfel für Sp. 1", 24, 8, 100, 30, $BS_FLAT)
$MyButton2 = GUICtrlCreateButton("Würfel für Sp. 2", 152, 8, 100, 30, $BS_FLAT)
GUICtrlSetState(-1, $GUI_DISABLE) ;Button disabled damit Spieler 2 nicht würfeln kann
GUISetState(@SW_SHOW)
#endregion

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MyButton1
$random = Random(1, 6, 1) ;würfeln
$x1 += $random * 8 ;den gewürfelten Wert * 8 Pixel zur x-Position des Spielers addieren
GUICtrlSetPos($Spieler1, $x1, 72) ;neue Position setzen
ToolTip("Du hast eine " & $random & " gewürfelt!", 369, 522)
Sleep(500)
MsgBox(0, "Spieler Wechsel", "Spieler 2 du bist dran!")
GUICtrlSetState($MyButton2, $GUI_ENABLE)
GUICtrlSetState($MyButton1, $GUI_DISABLE)
Case $MyButton2
$random = Random(1, 6, 1)
$x2 += $random * 8
GUICtrlSetPos($Spieler2, $x2, 104)
ToolTip("Du hast eine " & $random & " gewürfelt!", 369, 522)
Sleep(500)
MsgBox(0, "Spieler Wechsel", "Spieler 2 du bist dran!")
GUICtrlSetState($MyButton1, $GUI_ENABLE)
GUICtrlSetState($MyButton2, $GUI_DISABLE)
EndSwitch
WEnd

[/autoit]

i2c

[autoit]

#include <array.au3>
$1 = "25.12"
$2 = "2512"
$3 = "251234.44.55.66"
$pattern = "(\d{2}+)"

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

$atest = StringRegExp($1, $pattern, 3)
_ArrayDisplay($atest, "1")
$atest = StringRegExp($2, $pattern, 3)
_ArrayDisplay($atest, "2")
$atest = StringRegExp($3, $pattern, 3)
_ArrayDisplay($atest, "3")

[/autoit]

i2c

Zitat

i2c: nein es geht darum das die Icons die plätze tauschen sollen

Dann beschreib doch mal, wie? So wie du es im Startpost erklärt hast, wird es von _ArrayDelete() gelöst denn der ursprüngliche Inhalt von Element 1 verschwindet, die anderen Werte rücken nach und es gibt schlussendlich keine Element 5 mehr. Ich könnte mir jetzt noch vorstellen, das du den Wert von $Array[0] ins letzte Element packen möchtest. Praktisch den gesammten Arrayindex um 1 verschieben.. Wenn nicht, dann bedarf es hier einer verständlichen Beschreibung.

i2c

Wenn's nur darum geht, das erste Arrayelement zu entfernen und die anderen nachrücken zu lassen

[autoit]

_ArrayDelete($iMainPosi, 0)

[/autoit]

Beiträge von i2c

Kleines _Arraysort Problem 2D Array alphabetisch zu sortieren

Problem mit _GUICtrlComboBoxEx_AddString

Happy Birthday Progandy

Per Button eine Neue Form öffnen

mehrere GuiCtrlSetOnEvent für eine Combobox

Verkaufe Paysafecards / Amazon Gutscheine

Checkbox in Kombination mit Input Feld

Captcha auslesen bzw aus Quelltext

Comboboxen verknüpfen

Comboboxen verknüpfen

Editor Scite mehrere Fenster?

Editor Scite mehrere Fenster?

For Next Schleife - Variablenwert einer Funktion mitgeben

Probleme bei ein Würfel Spiel

aut2exe ?

Spalte in Datei schreiben mit einem Suchbegriff

Probleme bei ein Würfel Spiel

Stringregexp -Geeigentes Pattern gesucht.

Array

Array