Beiträge von autoBert

  • Mehrere gleiche Einträge in Liste

    Hallo CelloGrando,

    Das eine ListBox mehrere geleichartige Einträge haben kann, kannst du anhand dieses Beispiels nachvollziehen:

    Spoiler anzeigen
    [autoit]

    stants.au3>
    #Include <GuiListBox.au3>
    #include <ListboxConstants.au3>
    #include <File.au3>

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

    Global $szDrive,$szDir,$szFName,$szExt, $Ini = @ScriptDir & "\Flaggen.ini"

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

    $hGUI = GUICreate("Flaggen", 300, 130)
    $hListe = GUICtrlCreateList("", 10, 10, 180, 80,$LBS_NOTIFY)
    $hNeu = GUICtrlCreateButton("...",200,10,30,25)
    $hVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.jpg", 210, 40, 36, 24)
    $hIniSave = GUICtrlCreateButton("&Speichern",10,100,80)
    $hIniLoad = GUICtrlCreateButton("&Laden",210,100,80)
    GUISetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $hIniLoad
    $aListe = IniReadSection($Ini,"Flaggen")
    for $i = 0 to UBound($aListe) -1
    if StringStripCR($aListe[$i][1]) <> "" Then _GUICtrlListBox_InsertString($hListe,$aListe[$i][1])
    Next
    case $hIniSave
    for $i = 0 to _GUICtrlListBox_GetCount($hListe) -1
    IniWrite($Ini,"Flaggen","Land"&$i,_GUICtrlListBox_GetText($hListe,$i))
    Next
    case $hNeu
    $sAlt = GUICtrlRead($hListe)
    $sPlus = FileOpenDialog("Land auswählen:",@ScriptDir & "\Flaggen","Bilder (*.jpg)",3,"",$hGUI)
    _PathSplit($sPlus,$szDrive,$szDir,$szFName,$szExt)
    ConsoleWrite($szFName & @CRLF)
    _GUICtrlListBox_InsertString($hListe,$szFName,0)
    Case $hListe
    GUICtrlSetImage($hVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($hListe) & ".jpg")
    EndSwitch
    WEnd

    [/autoit]

    du benötigst dazu noch Flaggen.zip
    Ich schätze das Problem bei dir ist dein Aufbau der INI In dem Beispiel wird auch eine INI verwendet und trotzdem funktioniert es. Übrigens meine Aussage in der SB stimmt nicht, da obiges Skript auch mit

    [autoit]

    $idListe = GUICtrlCreateList("", 10, 10, 180, 80, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LBS_SORT))

    [/autoit]

    funktioniert es.
    Im übrigen gebe ich i2c recht: eine Listview würde es übersichtlicher machen. Ich würde das ganze mit SQLite anstelle von INI lösen, es gibt hier im Forum auch ein schönes Beispiel von Oscar der eine Listview zusammen mit TXT-Files benutzt heist warscheins ListView Datenbank, kannst es dir ja einmal anschauen, damit du den Vorteil der Listview erkennst,

    Stelle doch bitte einmal ein INI-File ein,

    mfg (Auto)Bert

  • GUI mit Listview

    Hallo Areneas,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Zitat von Areneas

    besteht die möglichkeit dieses als labels zu erstellen und den wert dann aus einer ini lesen?

    ja, aber wie kommen die Daten in die ini, wer oder welches System gibt sie ein?

    Zitat von Areneas

    dann wäre meine frage wäre das extra fenster dann eine groupbox?

    nein,

    Zitat von Hilfe

    GUICreate

    Erstellt ein GUI-Fenster.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    mfg (Auto)Bert

  • Nur jeder 2te Array

    Hallo ProblemUser,

    ich habe mein Beispiel direkt in dein Testskript eingepflegt:

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <date.au3>
    #include <string.au3>

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

    #Include <GuiEdit.au3>
    #include <Array.au3>

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

    $Form2 = GUICreate("Form2", 400, 300, 210, 142)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 385, 265)
    $sData = ""
    For $i = 0 To 99
    If Not Mod($i, 2) Then
    $sData &= "Zeile: " & $i &@CRLF
    Else
    $sData &= "Schrott" &@CRLF
    EndIf
    Next
    GUICtrlSetData($Edit1,$sData)
    $idBtnAuswerten = GUICtrlCreateButton("&auswerten", 55, 270, 185, 28)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $idBtnAuswerten
    ConsoleWrite("rufe auf" & @CRLF)
    $Auswerten = GUICtrlRead($Edit1)
    $Auswerten2 = StringSplit($Auswerten, @CRLF,3)
    _ShowArray($Auswerten2)
    EndSwitch
    WEnd

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

    Func _ShowArray($array)
    ConsoleWrite("Aufruf erfolgt" & @CRLF)
    _ArrayDisplay($array)
    $j = Int((UBound($array) + 2) / 2)
    Dim $array2[$j]
    $j = 0
    For $i = 0 To UBound($array) - 1 Step 2
    $array2[$j] = $array[$i]
    $j += 1
    Next
    _ArrayDisplay($array2)
    EndFunc ;==>_ShowArray

    [/autoit]

    und die func zum Anzeigen auf einen Button gelegt,

    mfg (Auto)Bert

  • Nur jeder 2te Array

    Zitat von ProblemUser

    Das Problem ist es soll jedes 2te Array speichern und mit Array Display ausgeben.


    daz msst du entweder jedes ungerade vor der Anzeige löschen oder jedes gerade Element in ein neues Array schreiben und dieses anzeigen. Hier ein Beispiel für die 2. Möglichkeit

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    #include <date.au3>
    #include <string.au3>
    #include <Array.au3>

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

    Dim $array[100][2]
    For $i = 0 To 99
    If not Mod($i , 2) Then
    $array[$i][0] = _StringRepeat(Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)), 18)
    $array[$i][1] = Random(1, 31, 1) & "." & Random(1, 12, 1) & "." & Random(1960, 2000, 1); Pseudo-Datum ohne Prüfung auf Existenz z.B.31.02.2010 durchaus möglich
    Else
    $array[$i][0] = "Schrott"
    $array[$i][1] = "Schrott"
    EndIf
    Next

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

    _ArrayDisplay($array)

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

    $j = int((UBound($array)+ 1)/2)
    dim $array2[$j][2]
    $j = 0
    for $i = 0 to UBound($array) -1 step 2
    $array2[$j][0] = $array[$i][0]
    $array2[$j][1] = $array[$i][1]
    $j += 1
    Next
    _ArrayDisplay($array2)

    [/autoit]

    mfg (Auto)Bert

  • Sprachsteuerung

    Hallo Malacath,

    herzlich willkommen im Forum und viel Erfolf bei deinem Projekt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    Das obige sind allgemeine Links zu den Grundlagen, jetzt zu deinen Fragen:

    mfg (Auto)Bert

  • DarkMusikPlay UPDATE

    Zitat von darksider3

    ja ich weiß, ich hab GuiCtrlRead vergessen, aber ich weiß eben nicht(noch nicht) wie man das im Script benutzt

    [autoit]

    SoundSetWaveVolume(GuiCtrlRead($Slider1))

    [/autoit]


    Hier kannst du dir die Hilfe herunterladen.

    Zitat von darksider3

    Das habe ICH selbst geschrieben,


    Ich habe deinen Hilfeschrei in der SB heute 12:56 gesehen, daher. Aber du hast recht

    Zitat von darksider3

    Wenn ich es iwo geklaut hätte, wären dann da so dumme bugs drin

    ich dachte aber eher an geholfen,

    Nachtrag:

    Zitat von darksider3 in SB 14:18

    https://autoit.de/index.php?page…action=firstNew

    Zitat von AutoBert in SB 14:24

    @darksider3 da gibt es aber deutlich bessere und Werbung (noch dazu für <Mittelmass) ist in der SB auch nicht gern gesehen

    Zitat von darksider in SB 16:39

    https://autoit.de/index.php?page…1021#post181021 is updatet :)

    wie gesagt ist in der ShoutBox Werbung/Thread pushen nicht gerne gesehen. Mit <Mittelmass meine ich dass der Player im derzeitigen Stadium noch nicht einmal ein Thread im Bereich Skripte wert ist,

    mfg (Auto)Bert

  • DarkMusikPlay UPDATE

    Zitat von darksider3

    Bugs:
    bestimmt welche, aber ich hab noch keine gefunden


    Dann hast du in "deinem" Skript ja nicht einmal alle Funktionen getestet, denn der Slider für die Lautstärke macht es nur ganz leise, auch kein Wunder da du ja das

    [autoit]

    GuiCtrlRead

    [/autoit]

    vergessen hast.
    Auch dass man immer nur 1 Lied abspielen kann ist sehr bescheiden,

    mfg (Auto)Bert

  • Problem mit Send und Hotkeyset

    Zitat von Skilkor

    Alta soll das mal ein Anfänger richtig Verstehen. da ist meine Variante ja wohl die einfachte der einfachen xD so wie mans Lehrnt :D

    Zitat von Nismo

    Wenn ich dich richtig verstehe muss ich unter das Case Nur noch Send ("STRG+t") reinmachen und dann läuft es? natürlich noch mit den anderen Tasten also 1-9

    wie du siehst hat er es verstanden,

    wie du hier auf 4 ms kommst würde mich interessieren und es ist bei diesem Skript wirklich egal wie hoch sleep ist. 10 ms ist der niedrigste Wert alle darunter werden auch als 10 ms genommen. Ein Sleep von 10 beansprucht das System nicht mehr als ein Sleep von 500. Zum testen hier ein Skript:

    Spoiler anzeigen
    [autoit]


    HotKeySet('d' , '_HKFunc')

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

    MsgBox(0,"Sleep-Test","Zeit ist 10 ms")
    _test(10)
    MsgBox(0,"Sleep-Test","Zeit ist 20 ms")
    _test(20)
    MsgBox(0,"Sleep-Test","Zeit ist 50 ms")
    _test(50)
    MsgBox(0,"Sleep-Test","Zeit ist 100 ms")
    _test(100)
    MsgBox(0,"Sleep-Test","Zeit ist 500 ms")
    _test(500)

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

    func _test($sleeptime)
    $j = int(1000/$sleeptime) * 5
    ConsoleWrite($sleeptime & " " & $j & @CRLF)
    for $i=1 to $j
    Sleep($sleeptime)
    Next
    EndFunc

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

    Func _HKFunc()
    MsgBox(0,"","Hotkey gedrückt",1)
    EndFunc

    [/autoit]

    ich kann im Windows-Taskmanager keine Unterschiede der CPU-Auslastung für die kompilierte EXE feststellen, egal welche $sleeptime verwendet wird bei allen 1% und das auf einem Netbook mit Atomprozessor, der ja bekanntlich nicht zu den schnellsten gehört.

    Zitat von Skilkor


    Oje, da hats einer garnicht verstanden :S
    nun gut. damit wollt ich Sagen das ein Sleep(500) völlig reicht.


    naja, wer nicht denken kann,der redet...

    warum denn gleich beleidigend werden, wenn einer anderer Meinung ist,

    mfg (Auto)Bert

  • Kleine Frage ^^

    Zitat von volle

    Für keinen Bot ! ^^


    etwas deutlicher hättest du schon werden können, denn dieser Satz macht erst Recht misstrauisch. Da du ja ein Verhältnis von 1/9 (wegen Bot geschlossen/eröffnete Threads) hast ist das ja auch nicht abwegig

    mfg (Auto)Bert

  • [GUI] Start- und Stop-Button - Wie polle ich das GUI während einer Schleife?

    Zitat von Popopinsel

    Werd mir das dann noch so zimmern, dass der Button "Start" nach einem Klick deaktiviert wird, bis auf "Stop" geklickt wird.


    Da musst du nur diesen Bereich ändern:

    Spoiler anzeigen
    [autoit]

    GUICtrlSetState($GUI[3], $GUI_Disable) ;<===============
    While 1
    $GUI[19] = GUIGetMsg($GUI[0])
    Select
    Case $GUI[19] = $GUI[2]
    $cmd = Run("ping localhost -t", @SystemDir, @SW_DISABLE, $STDOUT_CHILD)
    GUICtrlSetState($GUI[2], $GUI_Disable) ;<===============
    GUICtrlSetState($GUI[3], $GUI_Enable) ;<===============
    AdlibRegister("PingIt", 500)
    Case $GUI[19] = $GUI[3]
    GUICtrlSetState($GUI[3], $GUI_Disable) ;<===============
    GUICtrlSetState($GUI[2], $GUI_Enable) ;<===============
    PingEnde()
    Case $GUI[19] = $GUI_EVENT_CLOSE
    PingEnde()
    Exit
    EndSelect
    WEnd

    [/autoit]

    mit ;<=============== sind die eingefügten Zeilen kenntlich gemacht

    mfg (Auto)Bert