Beiträge von RR04

  • Brauche Idee für mein Erstes Projekt

    In den Zeilen 19, 20 und 25 haben wir immer die gleiche Ini-Datei aufgerufen - Das habe ich jetzt zusammengefasst !
    Ein Beispiel für Inputfeld habe ich eingefügt (nur als Beispiel). ;)

    Ich melde mich dann auch ab, muss Morgen früh raus.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    $ini = @ScriptDir & "\Befehle.ini" ;i die Zeilen 19, 20, 25 zusammengefasst

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

    GUICreate("AutoItSearchIt", 250, 225)
    GUICtrlCreatePic("AutoIt_SearchIt.jpg", 0, 0, 250, 225)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $id_button1 = GUICtrlCreateButton("Befehl hinzufügen", 6, 6, 106, 33, 1, -1)
    $id_button2 = GUICtrlCreateButton("Befehl suchen", 130, 6, 106, 33, -1, -1)
    $input = GUICtrlCreateInput ( "Beispiel-Input", 25, 55, 200, 20)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

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

    Case $msg = $id_button1
    $befehl = InputBox("Befehl", "Wie lautet der Befehl ?")
    $befehl2 = InputBox("Befehlsbeschreibung", "Wie lautet die Befehlsbeschreibung ? Der Befehl beschreibt...")
    IniWrite($ini, "Befehle", $befehl, $befehl2)
    $var = IniRead($ini, "Befehle", $befehl, "Nichts gefunden")
    MsgBox(4096, "Suchergebnis", 'So wird der Eintrag für "' & $befehl & '" aussehen: ' & $var & @TAB)

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

    Case $msg = $id_button2
    $suche = InputBox("Suche", "Geben sie den Befehl an den sie suchen!")
    $var = IniRead($ini, "Befehle", $suche, "Nichts gefunden")
    MsgBox(4096, "Suchergebnis", $var)
    EndSelect
    WEnd

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

    ; ende

    [/autoit]


    EDIT: Dein Bild noch eingefügt ! ;)

  • Brauche Idee für mein Erstes Projekt

    Schau Dir mal an, ob es Dir gefällt ? ;)
    Deine GUI bietet auch genug Platz um Eingabefelder (Inputs) einzufügen !

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    GUICreate("AutoItSearchIt", 250, 225)
    ;i $id_pic3 = GUICtrlCreatePic("AutoIt_SearchIt.jpg", 0, 0, 250, 225, -1, -1) ;kein Bild zur Verfügung
    $id_button1 = GUICtrlCreateButton("Befehl hinzufügen", 6, 6, 106, 33, 1, -1)
    $id_button2 = GUICtrlCreateButton("Befehl suchen", 130, 6, 106, 33, -1, -1)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

    Case $msg = $id_button1
    $befehl = InputBox("Befehl", "Wie lautet der Befehl?")
    $befehl2 = InputBox("Befehlbeschreibung", "Wie lautet die Befehlbeschreibung? Der Befehl beschreibt...")
    IniWrite(@ScriptDir & "\Befehle.ini", "Befehle", $befehl, $befehl2)
    $var = IniRead(@ScriptDir & "\Befehle.ini", "Befehle", $befehl, "Nichts gefunden")
    MsgBox(4096, "Suchergebnis", 'So wird der Eintrag für "' & $befehl & '" aussehen: ' & $var & @TAB)

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

    Case $msg = $id_button2
    $suche = InputBox("Suche", "Geben sie den Befehl an den sie suchen!")
    $var = IniRead(@ScriptDir & "\Befehle.ini", "Befehle", $suche, "Nichts gefunden")
    MsgBox(4096, "Suchergebnis", $var)
    EndSelect
    WEnd

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

    ; ende

    [/autoit]

  • Brauche Idee für mein Erstes Projekt

    Dein Programm gehört eindeutig in Scripte, dort kann es auch später noch weiter bearbeitet werden.
    Ich packe immer eine EXE-Datei, Sourcecode und die Ressourcen (Bilder, Icons, usw.) in eine Zip-Datei, so kannst auch Du es gut aufbewahren. ;)

    Wie sieht Dein vollständiger Code jetzt aus ?

  • Brauche Idee für mein Erstes Projekt

    Hi,

    vielleicht so:

    [autoit]


    $suche = InputBox("Suche", "Geben sie den Befehl an den sie suchen!")
    $var = IniRead(@ScriptDir & "\Befehle.ini", "Befehle", $suche, "Nichts gefunden")
    MsgBox(4096, "Suchergebnis", 'Ergebnis für "' & $suche & '" ist ' & $var & @TAB)

    [/autoit]


    :)

  • Brauche Idee für mein Erstes Projekt

    Taschenrechner, Idealgewichtsrechner oder Timer werden immer gern genommen.

    Wichtig ist, dass es für Dich einfach genug ist um den Überblick nicht zu verlieren und eine Prüfung auf Richtigkeit schnell gegeben ist.

    Dabei sollte der Grad der Schwierigkeit langsam steigen damit Erfolgserlebnisse nicht ausbleiben.

    Viel Erfolg ! :)

  • Welche Lösung nehmen???

    Hi m-obi,

    pee meinte wohl etwa so:

    [autoit]


    ;i Du kannst die bool'schen Operatoren AND, OR und NOT als auch die logischen Operatoren <, <=, >, >=, =, == und <> nutzen.
    ;i siehe ODER in Deinem Fall

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $exitbutton ;! ODER
    ExitLoop
    ;i Case $msg = $exitbutton
    ;i ExitLoop
    EndSelect
    WEnd

    [/autoit]


    Schöne Feiertage ! :)