Beiträge von RapIt

  • Frage zu RadioButtons

    An deinem Programm: Du hast außerdem noch das Exit nach GuiEventClose vergessen, man kann das Pro nicht schließen.

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("7711", 609, 421, 231, 327)
    $MenuItem1 = GUICtrlCreateMenu("Programm")
    $MenuItem2 = GUICtrlCreateMenuItem("About", $MenuItem1)
    $MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem1)
    $MenuItem4 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $Nickname = GUICtrlCreateInput("Nickname", 32, 56, 121, 21)
    $Passwort = GUICtrlCreateInput("Passwort", 32, 77, 121, 21)
    $Login = GUICtrlCreateGroup("Login", 25, 40, 255, 89)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $AutoWhisper = GUICtrlCreateRadio("AutoWhisper", 320, 88, 113, 17)
    $NameWhisper = GUICtrlCreateRadio("NameWhisp", 320, 72, 113, 17)
    $WhispOption = GUICtrlCreateGroup("WhispOption", 304, 48, 185, 81)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
    $Group1 = GUICtrlCreateGroup("Whisper", 24, 144, 465, 137)
    $Name1 = GUICtrlCreateInput("Name1", 32, 160, 121, 21)
    $Name2 = GUICtrlCreateInput("Name2", 32, 184, 121, 21)
    $Name3 = GUICtrlCreateInput("Name3", 32, 208, 121, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Go = GUICtrlCreateButton("Go!", 416, 288, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Go
    If GUICtrlRead($AutoWhisper )= $GUI_CHECKED Then
    _1()
    ElseIf GUICtrlRead($NameWhisper)= $GUI_CHECKED Then
    _2()
    EndIf
    ExitLoop
    Exit
    EndSwitch

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

    WEnd

    [/autoit]

  • Frage zu RadioButtons

    Du musst einfach nicht die Radio-Buttons abfragen sondern den "Go" Button. Nachdem dieser angewählt wurde kannst du ja dann mit einer if Funktion überprüfen welcher Radiobutton angewählt wurde...

  • Malprogramm

    Was ist das denn genau, die Erklärungen bei google verstehe ich nicht. Und was bewirkt das genau?

    Hier noch mal etwas verbessert...

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <misc.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    active()
    Func active()
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 600, 600)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem2 = GUICtrlCreateMenuItem("Neu", $MenuItem1)
    $MenuItem3 = GUICtrlCreateMenuItem("Öffnen", $MenuItem1)
    $MenuItem4 = GUICtrlCreateMenuItem("Speichern", $MenuItem1)
    $grossesweissesfeld = GUICtrlCreateGraphic(75, 30, 500, 500)
    GuiCtrlSetbkColor(-1, 0xffffff)
    $Button1 = GUICtrlCreateButton("", 8, 64, 25, 25)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("", 8, 384, 25, 25)
    GUICtrlSetBkColor(-1, 0x808080)
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("", 8, 448, 25, 25)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("", 8, 224, 25, 25)
    GUICtrlSetBkColor(-1, 0xFF0000)
    GUICtrlSetCursor (-1, 0)
    $Button5 = GUICtrlCreateButton("", 8, 256, 25, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 0)
    $Button6 = GUICtrlCreateButton("", 8, 288, 25, 25)
    GUICtrlSetBkColor(-1, 0x0000FF)
    GUICtrlSetCursor (-1, 0)
    $Button7 = GUICtrlCreateButton("", 8, 160, 25, 25)
    GUICtrlSetBkColor(-1, 0x00FF00)
    GUICtrlSetCursor (-1, 0)
    $Button8 = GUICtrlCreateButton("", 8, 320, 25, 25)
    GUICtrlSetBkColor(-1, 0x3399FF)
    GUICtrlSetCursor (-1, 0)
    $Button9 = GUICtrlCreateButton("", 8, 192, 25, 25)
    GUICtrlSetBkColor(-1, 0x800080)
    GUICtrlSetCursor (-1, 0)
    $Button10 = GUICtrlCreateButton("", 8, 96, 25, 25)
    GUICtrlSetBkColor(-1, 0x800000)
    GUICtrlSetCursor (-1, 0)
    $Button11 = GUICtrlCreateButton("", 8, 128, 25, 25)
    GUICtrlSetBkColor(-1, 0x008000)
    GUICtrlSetCursor (-1, 0)
    $Button12 = GUICtrlCreateButton("", 8, 480, 25, 25)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    GUICtrlSetCursor (-1, 0)
    $Button13 = GUICtrlCreateButton("", 8, 352, 25, 25)
    GUICtrlSetBkColor(-1, 0x00FFFF)
    GUICtrlSetCursor (-1, 0)
    $Button14 = GUICtrlCreateButton("", 8, 416, 25, 25)
    GUICtrlSetBkColor(-1, 0x99B4D1)
    GUICtrlSetCursor (-1, 0)
    $Radio1 = GUICtrlCreateRadio("Bk", 8, 16, 41, 17)
    $Radio2 = GUICtrlCreateRadio("Pc", 8, 40, 49, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $Label1 = GUICtrlCreateLabel("Pensize:", 56, 600, 44, 17)
    $Button15 = GUICtrlCreateButton("1", 104, 592, 41, 33)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Button16 = GUICtrlCreateButton("2", 144, 592, 41, 33)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Button17 = GUICtrlCreateButton("3", 184, 592, 41, 33)
    GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
    $Button18 = GUICtrlCreateButton("4", 224, 592, 41, 33)
    GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###
    opt("mousecoordmode", 2)

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

    $i = 0
    $color = "0x000000"
    $bg = "0x000000"
    dim $mouseposx[1]
    dim $mouseposy[1]
    dim $pixel[1]
    While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE

    Exit
    case $button1
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x000000)
    else
    $color = 0x000000
    EndIf

    case $button2
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x808080)
    else
    $color = 0x808080
    EndIf

    case $button3
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xC0C0C0)
    else
    $color = 0xC0C0C0
    Endif

    case $button4
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xFF0000)
    else
    $color = 0xFF0000
    Endif
    case $button5
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xFFFF00)
    else
    $color = 0xFFFF00
    EndIf

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

    case $button6
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x0000FF)
    else
    $color = 0x0000FF
    Endif
    case $button7
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x00FF00)
    else
    $color = 0x00FF00
    Endif
    case $button8
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x3399FF)
    else
    $color = 0x3399FF
    Endif
    case $button9
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x800080)
    else
    $color = 0x800080
    Endif
    case $button10
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x800000)
    else
    $color = 0x800000
    Endif
    case $button11
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x008000)
    else
    $color = 0x008000
    Endif
    case $button12
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xFFFBF0)
    else
    $color = 0xFFFBF0
    Endif
    case $button13
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x00FFFF)
    else
    $color = 0x00FFFF
    Endif
    case $button14
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x99B4D1)
    else
    $color = 0x99B4D1
    Endif
    Case $Menuitem2
    guidelete("Form1")
    active()
    EndSwitch
    if _ispressed("01") then
    if 575 >= mousegetpos(0) and mousegetpos(0) >= 75 and 30 <= mousegetpos(1) And mousegetpos(1) <= 530 Then
    _arrayadd($mouseposx, mousegetpos(0))
    _arrayadd($mouseposy, mousegetpos(1))

    _arrayadd($pixel, guictrlcreategraphic($mouseposx[$i], $mouseposy[$i], 5, 5))
    guictrlsetbkcolor(-1, $color)
    $i = $i + 1
    endif
    EndIf
    WEnd
    EndFunc

    [/autoit]

  • Malprogramm

    Hi,
    Ich habe gerade ein kleines Autoit malprogramm entworfen, was allerdings nur bedingt funktioniert. Ich hab gerade erst mit Autoit angefangen, und kann auch keine andere Programmiersprache.(Autoit ist viell. etw langsam) Mein Problem besteht darin, dass die Linie zwar gezeichnet wird aber je schneller man die Maus bewegt, desto größer wird der Abstand zwischen den gemalten Pixeln.

    Hier das Programm bis jetzt: Pc= Pinselcolor Bk: Hintergrundfarbe

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <misc.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 600, 600)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem2 = GUICtrlCreateMenuItem("Neu", $MenuItem1)
    $MenuItem3 = GUICtrlCreateMenuItem("Öffnen", $MenuItem1)
    $MenuItem4 = GUICtrlCreateMenuItem("Speichern", $MenuItem1)
    $grossesweissesfeld = GUICtrlCreateGraphic(75, 30, 500, 500)
    GuiCtrlSetbkColor(-1, 0xffffff)
    $Button1 = GUICtrlCreateButton("", 8, 64, 25, 25)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("", 8, 384, 25, 25)
    GUICtrlSetBkColor(-1, 0x808080)
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("", 8, 448, 25, 25)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("", 8, 224, 25, 25)
    GUICtrlSetBkColor(-1, 0xFF0000)
    GUICtrlSetCursor (-1, 0)
    $Button5 = GUICtrlCreateButton("", 8, 256, 25, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 0)
    $Button6 = GUICtrlCreateButton("", 8, 288, 25, 25)
    GUICtrlSetBkColor(-1, 0x0000FF)
    GUICtrlSetCursor (-1, 0)
    $Button7 = GUICtrlCreateButton("", 8, 160, 25, 25)
    GUICtrlSetBkColor(-1, 0x00FF00)
    GUICtrlSetCursor (-1, 0)
    $Button8 = GUICtrlCreateButton("", 8, 320, 25, 25)
    GUICtrlSetBkColor(-1, 0x3399FF)
    GUICtrlSetCursor (-1, 0)
    $Button9 = GUICtrlCreateButton("", 8, 192, 25, 25)
    GUICtrlSetBkColor(-1, 0x800080)
    GUICtrlSetCursor (-1, 0)
    $Button10 = GUICtrlCreateButton("", 8, 96, 25, 25)
    GUICtrlSetBkColor(-1, 0x800000)
    GUICtrlSetCursor (-1, 0)
    $Button11 = GUICtrlCreateButton("", 8, 128, 25, 25)
    GUICtrlSetBkColor(-1, 0x008000)
    GUICtrlSetCursor (-1, 0)
    $Button12 = GUICtrlCreateButton("", 8, 480, 25, 25)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    GUICtrlSetCursor (-1, 0)
    $Button13 = GUICtrlCreateButton("", 8, 352, 25, 25)
    GUICtrlSetBkColor(-1, 0x00FFFF)
    GUICtrlSetCursor (-1, 0)
    $Button14 = GUICtrlCreateButton("", 8, 416, 25, 25)
    GUICtrlSetBkColor(-1, 0x99B4D1)
    GUICtrlSetCursor (-1, 0)
    $Radio1 = GUICtrlCreateRadio("Bk", 8, 16, 41, 17)
    $Radio2 = GUICtrlCreateRadio("Pc", 8, 40, 49, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $Label1 = GUICtrlCreateLabel("Pensize:", 56, 600, 44, 17)
    $Button15 = GUICtrlCreateButton("1", 104, 592, 41, 33)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Button16 = GUICtrlCreateButton("2", 144, 592, 41, 33)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Button17 = GUICtrlCreateButton("3", 184, 592, 41, 33)
    GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
    $Button18 = GUICtrlCreateButton("4", 224, 592, 41, 33)
    GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###
    opt("mousecoordmode", 2)
    $i = 0
    $color = "0x000000"
    $bg = "0x000000"
    dim $mouseposx[1]
    dim $mouseposy[1]
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE

    Exit
    case $button1
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x000000)
    else
    $color = 0x000000
    EndIf

    case $button2
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x808080)
    else
    $color = 0x808080
    EndIf

    case $button3
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xC0C0C0)
    else
    $color = 0xC0C0C0
    Endif

    case $button4
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xFF0000)
    else
    $color = 0xFF0000
    Endif
    case $button5
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xFFFF00)
    else
    $color = 0xFFFF00
    EndIf

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

    case $button6
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x0000FF)
    else
    $color = 0x0000FF
    Endif
    case $button7
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x00FF00)
    else
    $color = 0x00FF00
    Endif
    case $button8
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x3399FF)
    else
    $color = 0x3399FF
    Endif
    case $button9
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x800080)
    else
    $color = 0x800080
    Endif
    case $button10
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x800000)
    else
    $color = 0x800000
    Endif
    case $button11
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x008000)
    else
    $color = 0x008000
    Endif
    case $button12
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0xFFFBF0)
    else
    $color = 0xFFFBF0
    Endif
    case $button13
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x00FFFF)
    else
    $color = 0x00FFFF
    Endif
    case $button14
    if GuiCtrlRead($Radio1) = 1 Then
    GUICtrlSetBkColor($grossesweissesfeld, 0x99B4D1)
    else
    $color = 0x99B4D1
    Endif
    EndSwitch
    if _ispressed("01") then
    if 575 >= mousegetpos(0) and mousegetpos(0) >= 75 and 30 <= mousegetpos(1) And mousegetpos(1) <= 530 Then
    _arrayadd($mouseposx, mousegetpos(0))
    _arrayadd($mouseposy, mousegetpos(1))

    guictrlcreategraphic($mouseposx[$i], $mouseposy[$i], 10, 10)
    guictrlsetbkcolor(-1, $color)
    $i = $i + 1
    endif
    EndIf
    WEnd

    [/autoit]

    Ich hoffe auf eine schnelle Antwort,
    vg
    RapIT

  • Nach Zahlen in einem String suchen

    Hi,
    ich hab schon wieder eine kleine Frage.
    Ich schreibe gerade ein kleines Programm was DualZahlen in Dezimalzahlen und umgekehrt wandelt. Hierbei muss ich aber viele Errors berücksichtigen dei ja zustande kommen wenn man z.b Buchstaben eingibt oder eben anstatt nur einsen und nullen auch andere Ziffern. Ich weiß aber nicht wie ich überprüfen kann ob sich in der Eingabe nur Einsen und Nullen befinden!

    Vg,
    RapIT

  • kleines Problem

    Ich habe eine kurtze Frage, ich möchte eine Variable folgendermaßen verändern:

    $zahl2 = ""
    while $zahl > 0
    $zahl2 = $zahl2 && mod($zahl,2)
    Wend

    Die Frage ist, wie kann ich $zahl2 so verändern, dass sie zu der bestehenden zahl und dahinter ohne leerzeichen die $zahl kommt. Ich weiß nicht wonach ich suchen muss mit && gehts ja nicht.
    ZB:
    $zahl2 ist 10 $zahl ist 1, jetzt soll $zahl2 zur 101 werden...

    Hoffen auf schnelle Antwort,

    RapIT

  • TABs wegmachen

    Hi,
    Mein Problem ist folgendes: Ich habe ein Word Document mit ca. 1000 Vokabeln, von denen ein paar Leerzeichen und Tabs weiter weg die Übersetzung steht. Jetzt möchte ich die Vokabeln in ein Vokabeltrainer eintragen...Wenn ich aber dann die Zeile markiere, sind außer der Übersetzung auch noch einige Tabs und Leerzeichen drin...

    Nachdem der Text in der Zwischenablage ist kommt das:

    [autoit]


    $text = ClipGet()
    sleep(300)
    StringStripWS($text, 3)
    send($text)

    [/autoit]


    Das Problem ist, dass in $text jetzt auch och einige TAbs vor dem eigentlichen Wort stehen...Das bewirkt, dass er den Text in Vokabeltrainer irgendwo völlig falsch hinschriebt, da er ja zuvor einigemale Tab gedrückt hat...

    Vg,

    RapIT

  • Edit Fenster als TXT abspeichern...

    Hi nochmal,
    ich möchte wie gasagt den Inhalt des Edit Feneters als TXT abspeichern...In dem anderen Thread wurde mir ja auch schon geolfen, allerdings funktioniert es noch nicht; es kann ja auch noch gar nicht funktionieren...:

    [autoit]


    Case $MenuItem3

    $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"

    $var = FileSaveDialog( "Wählen sie einen Namen!", $MyDocsFolder, "Textdokumente (*.ini;*.txt)", 2)
    $inhalt = GUICtrlRead($input)


    $fh = FileOpen($var, 1) ; zum Schreiben öffnen
    FileWrite($fh, $inhalt)
    FileClose($fh)

    If @error Then
    MsgBox(4096,"","Speichern abgebrochen.")
    EndIF

    [/autoit]

    Hierbei wird jetzt zwar eine .*txt Datei beschrieben, mit dem Inhalt des Edit Fensters, aber diese muss doch erstmal erstellt werden oder nicht?

    Hier einmal das ganze Programm:

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("PC-Timer", 625, 445, 192, 124)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem2 = GUICtrlCreateMenuItem("Drucken", $MenuItem1)
    $MenuItem3 = GUICtrlCreateMenuItem("Speichern", $MenuItem1)
    $MenuItem4 = GUICtrlCreateMenu("Archiv")

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

    $Button1 = GUICtrlCreateButton("OK", 550, 30, 50, 50)
    $input = GUICtrlCreateEdit("", 96, 16, 424, 100)

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

    $output = GUICtrlCreateEdit("", 96, 140, 424, 250, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()

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

    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $MenuItem1

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

    Case $MenuItem2
    $file = GUICtrlRead($input)

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

    $print = _FilePrint($file)

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

    If $print Then
    MsgBox(0, "Drucken ", "Die Datei wurde gedruckt. ")
    Else
    MsgBox(0, "Drucken ", "Fehler: " & @error & @CRLF & "Die Datei wurde nicht gedruckt. ")
    EndIf
    Case $MenuItem3

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

    $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"

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

    $var = FileSaveDialog( "Wählen sie einen Namen!", $MyDocsFolder, "Textdokumente (*.ini;*.txt)", 2)
    $inhalt = GUICtrlRead($input)

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

    $fh = FileOpen($var, 1) ; zum Schreiben öffnen
    FileWrite($fh, $inhalt)
    FileClose($fh)

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

    If @error Then
    MsgBox(4096,"","Speichern abgebrochen.")
    EndIF

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

    Case $Button1

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

    GUICtrlSetData($output, GUICtrlRead($input) & @CRLF, "1")
    GUICtrlSetData($input, "")
    GUICtrlSetState($input,$GUI_FOCUS)

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

    EndSwitch

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

    WEnd

    [/autoit]

  • Frage zum Abspeichern mit FileSaveDialog

    Ok, danke erstmal leider kann ich das jetzt gerade nicht ausprobieren weil das Programm einfach nicht funktioniert...Ichhabe eigentlich nichts daran gemacht außer die par Zeilen einzufügen und anzupassen...Aber wie ich das sehe wird doch bei diesem Code keine TXT datei angelegt sondern nur der Save-Ordner und dann soll das Programm diese Datei dort mit dem Inhalt des Edit-Fensters beschreiben...Aber ich möchte eine völlig neue Datei erstellen.

    Danke, ich denke mal das hat mir schon sehr geholfen wie gesagt ich kann es wegen einem Error den ich nicht verstehe nicht ausprobieren...Ich poste hier mal den Teil der nicht klappt, vielleicht kann mir jemand sagen wieso nicht, obwohl es eig nicht hierher gehört ;)

    [autoit]


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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("PC-Timer", 625, 445, 192, 124)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem2 = GUICtrlCreateMenuItem("Drucken", $MenuItem1)
    $MenuItem3 = GUICtrlCreateMenuItem("Speichern", $MenuItem1)
    $Button1 = GUICtrlCreateButton("OK", 550, 30, 50, 50)
    $input = GUICtrlCreateEdit("", 96, 16, 424, 100)

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

    $output = GUICtrlCreateEdit("", 96, 140, 424, 250, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()


    Switch $nMsg

    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $MenuItem1

    Case $MenuItem2
    $file = GUICtrlRead($input)

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

    $print = _FilePrint($file)

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

    If $print Then
    MsgBox(0, "Drucken ", "Die Datei wurde gedruckt. ")
    Else
    MsgBox(0, "Drucken ", "Fehler: " & @error & @CRLF & "Die Datei wurde nicht gedruckt. ")
    EndIf
    Case $MenuItem3

    $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"

    $var = FileSaveDialog( "Wählen sie einen Namen!", $MyDocsFolder, "Textdokumente (*.ini;*.txt)", 2)
    $inhalt = GUICtrlRead($input)

    $fh = FileOpen($var, 1) ; zum Schreiben öffnen
    FileWrite($fh, $inhalt)
    FileClose($fh)

    If @error Then
    MsgBox(4096,"","Speichern abgebrochen.")


    Case $Button1

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

    GUICtrlSetData($output, GUICtrlRead($input) & @CRLF, "1")
    GUICtrlSetData($input, "")
    GUICtrlSetState($input,$GUI_FOCUS)

    EndSwitch

    WEnd

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

    Da kommt folgender Error:

    >"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\raphael\Desktop\PC-Timer\editor123.au3"
    C:\Users\raphael\Desktop\PC-Timer\editor123.au3 (69) : ==> "Case" statement with no matching "Select"or "Switch" statement.:
    Case $Button1

    >Exit code: 1 Time: 0.211


    Aber wieso...Mal abgesehen vom Quellcode, ich mein da ist doch ein Switch Statement und auch ein ENDSWITCH...
    Wo soll da das Problem sein?

    Vg,

    RapIT


    PS: Stand da bei dir nicht gerade noch ein anderer Quellcode?

  • Frage zum Abspeichern mit FileSaveDialog

    Es funktioniert ja auch, dass sich dabei der FileSaveDialog öffnet, und wenn man dann einen Namen wählt und auf speichern drückt, sagt er welchen Pfad man gewählt hat...Ist ja auch logisch, steht ja so im Programm. Aber wie bekomme ich es hin, dass er dann wirklich am Speicherort eine TXT datei erstellt und den Inhalt des Edit-Fensters hineinschreibt?

  • Frage zum Abspeichern mit FileSaveDialog

    Naja, hab ich schon gesehen...Im Grunde genommen versteh ich ja das Prinziep, aber ich weiß nicht wie ich es auf meine Problemstellung anwenden kann...

    Was soll zum Beispiel dieser Zahlencode?

    Code
    $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"

    Das soll wohl der Code von einem Pfad oder Ordner sein, aber wie kann ich ihn herausfinden...

    Vg,

    RapIT

  • Frage zum Abspeichern mit FileSaveDialog

    Hi,
    ich würde gerne einen Text ein einem Editorfenster per FileSave Dialog als *.txt Datei abspeichern können, sobald ein MenuItem "Save" gedrückt wird. Die Dateien sollen immer im selben Ordner abgespeichert werden, dh man muss ihn nicht auswählen können. Ich bin noch Anfänger und verstehe daher die Funktion nicht richtig, könnte mir sie jemand erklären, und/oder mit Beispiel Quelltext helfen?

    Vg,

    RapIT

  • Rest; Sekunden in das Format HH.MM.SS umwandeln!

    Hi, ich bin ganz neu bei Autoit...
    Ich habe eine Variable, sagen wir mal $sec = 4200 und möchte diese jetzt in Stunden minuten und Sekunden umwandeln...Im Grunde wäre das ja nicht schwer, aber ich habe bei den Funktionen keine "Restfunktion gefunden, daher weiß ich nicht wie ich das einfache Problem lösen kann...

    Gegeben ist:

    $sec = Irgendeine Zahl

    Gesucht ist:

    $stunden =
    $minuten =
    $sekunden=

    Ich hoffe mir kann wer helfen,

    VG

    RapIT