Beiträge von Lenny

  • Komfortabler Time & Date changer!

    Hallo ihr!

    Hat zwar lange gedauert aber jetzt ist mein Script fertig! (Nein ich habe nicht pausenlos dran gearbeitet!)

    Wenn ihr Verbesserungs Vorschläge Habt bitte posten!

    Vielen dank! Lenny


    Hier der Source:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include<date.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Time & Date Changer", 270, 112, 193, 115)
    $Label1 = GUICtrlCreateLabel("Stellen sie die zeit im folgenden Format ein: HH.MM.SS ", 0, 0, 266, 17)
    $Label1 = GUICtrlCreateLabel("Stellen sie das Datum im Format ein :DD.MM.YY", 0, 56, 234, 17)
    $Input1 = GUICtrlCreateInput("", 0, 24, 33, 21)
    $Input2 = GUICtrlCreateInput("", 40, 24, 33, 21)
    $Input3 = GUICtrlCreateInput("", 80, 24, 33, 21)
    $Input4 = GUICtrlCreateInput("", 0, 80, 33, 21)
    $Input5 = GUICtrlCreateInput("", 40, 80, 33, 21)
    $Input6 = GUICtrlCreateInput("", 80, 80, 33, 21)
    $Button1 = GUICtrlCreateButton("Übernehmen", 128, 24, 129, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $ihour = GUICtrlRead($Input1)
    $iminute = GUICtrlRead($Input2)
    $isekunde = GUICtrlRead($Input3)
    If $ihour <= 24 and $iminute <= 60 And $isekunde <= 60 then
    _SetTime($ihour, $iminute)
    Else
    MsgBox(64, "Ungültige Eingabe", "Bitte tragen sie bei den Stunden nur Zahlen von 0-23, bei den Minuten Zahlen von 0-59 und bei den Sekunden Zahlen von 0-59 ein!")
    EndIf

    $iday = GUICtrlRead($Input4)
    $imonth = GUICtrlRead($Input5)
    $iyear = GUICtrlRead($Input6)
    If $iday <= 32 and $imonth <= 13 Then
    _SetDate($iday, $imonth, $iyear)
    Else
    MsgBox(64, "Ungültige Eingabe", "Ungültige Eingabe! Bitte halten sie sich an das Regionale Zeitformat!")
    Endif
    EndSwitch
    WEnd

    [/autoit]

    ....

    Klein aber Fein... Der script ist kurz aber ... ôo ... wurz !?! :P

  • If abfrage ...

    Hallo .... Und noch eine Frage!

    Also:

    Ich habe ja mal ein programm namens Time & Date Changer Geproggt!

    Jetzt Wollte ich fragen wie man abfragen kann dass die die stunden eingabe unter 24 sein muss?

    Ich habe es mir so gedacht:

    If Not $Stunden > 24 then
    Msgbox(4, "Falsche Eingabe", "Bitte halten sie sich an die Regionalen Zeitformate.... Oder so^^")
    Else ...

    Endif

    Aber das ging so nicht!

    Könnt ihr mir helfen?

    Vielen Dank!

    Lenny

    Edit1: Ah ... okay =) Ich probier mal ^^
    Danke Lenny

  • QuickPic

    Hallo!
    Ich habe das Programm Getestet Und es ist die Perfektion unter den QuicPic Programmen (Das einzige :P)

    Es läuft super Flüssig!

    Vielen Dank ... .


    Lenny!


    :)

  • And...

    =) ... Danke....

    Das kommt mir gelegen ... Kann ich gut gebrauchen!


    Vielnen Dank ... LEnny


    =)


    Edit1: Und wie sieht das mit "Or" aus ?

    Vielen Dank im Vorraus!

  • LoginWrapper

    Ui .... Ich habe mir das Programm gerade mal Runtergeladen und bin Begeistert!

    Vllt Könnte man die einzelnen Dinge die man in der au3 eingeben muss,
    einfach beim ersten start in eine Gui Verpacken ....


    Das Programm ist super!

    Gerade diese stimmen!

    Echt Gelungen!


    Mfg Lenny

  • And...

    Hallo Ihr!
    Ich habe einmal eine Fage zu "and"!
    In was für fällen setzt man And ein?
    Ich hab schon verschiedene Situationen verscht und immer sagt er es geht nícht!
    Könntet ihr mir ein Bsp nennen ... Wäre nett ,,,, Vielen Dank im Vorraus ...


    Mfg Lenny

  • _IEGetObjectByName

    Vielen Dank!
    Hat beides Super Geklappt!

    Ich habe aber doch noch eine Frage:

    Wenn ich _IECreate mache erscheint immer ein neues Fenster ...
    Ich möchte das die Url im Selben Fenster Geöffnet wird!

    Ich habe schon nach einer "GoTo" .. Funktion geguckt ... aber nichts gefunden .... könnt ihr mir helfen ??


    Vielen Dank Im Vorruas!

  • _IEGetObjectByName

    Hallo ihr!

    Ich habe ein Kleines Problem:
    Ich möchte das er auf einer bestimmten HomePage Einen Input Anklickt sodaß der script auch direkt "Send("Hallo")" Benutzen Kann!

    Mein Problem
    $inet = _IEGetObjByName($login, "user")
    _IEAction($inet, "click")
    Alles schön und gut! allerdings klickt er die input nciht an!
    Das hier ist der Original Html Code von der Homepage:

    <input class="input" type="text" name="user" size="30" MAXLENGTH="30"></td>

    Vielen Dank im Vorraus ...

    Lenny

  • Taschenrechner

    Hallo ihr!

    Dank euren Antworten bin ich schon weit gekommen ... !
    Allerdings hätt ich noch eine Frage:

    Ich komme nicht weiter:

    Also ... ich möchte natürlich das die anderen 2 Felder auch noch ins spiel kommen! ich habe auch schon mehrere sachen ausprobiert ....
    Ehrlich gesagt habe ich keine lust alle *rechn* Entweder 256 Möglichkeiten ... aufzu schreiben also

    wenn $rechenzeichen1 = + ist und $rechenzeichen2 = + ist und $rechenzeichen3= + ist und $rechenzeichen4 = + ist dann

    $Erg1= ($Zahl1 + $Zahl2+$zahl3+$Zahl4)
    GUICtrlSetData($Ergebnis, $Erg1)

    Das würde denn ja uch noch so weiter gehen Also

    wenn $rechenzeichen1 = + ist und $rechenzeichen2 = + ist und $rechenzeichen3= + ist und $rechenzeichen4 = - ist dann
    $Erg1= ($Zahl1 + $Zahl2+$zahl3-$Zahl4)
    GUICtrlSetData($Ergebnis, $Erg1)
    USW...

    Ich denke da gibt es auch noch sinnvollere Lösugen .. =)


    Vielen Dank im Vorraus ... Lenny +

  • Taschenrechner

    Hallo ihr!

    Ich habe ein Pro mit meinem Taschenrechner:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    $Form1 = GUICreate("Taschenrechner", 176, 411, 305, 176)
    $Label1 = GUICtrlCreateLabel("Zahl1", 8, 8, 31, 17)
    $Label2 = GUICtrlCreateLabel("Zahl2", 8, 88, 31, 17)
    $Label3 = GUICtrlCreateLabel("Zahl3", 8, 168, 31, 17)
    $Label4 = GUICtrlCreateLabel("Zahl4", 8, 248, 31, 17)
    $Number1 = GUICtrlCreateInput("", 40, 8, 121, 21)
    $number2 = GUICtrlCreateInput("", 40, 88, 121, 21)
    $Number3 = GUICtrlCreateInput("", 40, 168, 121, 21)
    $Number4 = GUICtrlCreateInput("", 40, 248, 121, 21)
    $Plus1 = GUICtrlCreateButton("+", 40, 56, 27, 25, 0)
    $Minus1 = GUICtrlCreateButton("-", 72, 56, 27, 25, 0)
    $Mal1 = GUICtrlCreateButton("*", 104, 56, 27, 25, 0)
    $Geteilt1 = GUICtrlCreateButton("/", 136, 56, 27, 25, 0)
    $Plus2 = GUICtrlCreateButton("+", 40, 136, 27, 25, 0)
    $Minus2 = GUICtrlCreateButton("-", 72, 136, 27, 25, 0)
    $Mal2 = GUICtrlCreateButton("*", 104, 136, 27, 25, 0)
    $Geteilt2 = GUICtrlCreateButton("/", 136, 136, 27, 25, 0)
    $Plus3 = GUICtrlCreateButton("+", 40, 216, 27, 25, 0)
    $Minus3 = GUICtrlCreateButton("-", 72, 216, 27, 25, 0)
    $Mal3 = GUICtrlCreateButton("*", 104, 216, 27, 25, 0)
    $Geteilt3 = GUICtrlCreateButton("/", 136, 216, 27, 25, 0)

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

    $Rechne = GUICtrlCreateButton("Rechne!", 40, 344, 121, 25, 0)
    $Rechenzeichen1 = GUICtrlCreateLabel("Rechenzeichen", 64, 32, 79, 17)
    $Rechenzeichen2 = GUICtrlCreateLabel("Rechenzeichen", 64, 112, 79, 17)
    $Rechenzeichen3 = GUICtrlCreateLabel("Rechenzeichen", 64, 192, 79, 17)

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

    $Ergebnis = GUICtrlCreateLabel(",_.-:;*!*;:-._,", 72, 384, 57, 17)
    GUISetState(@SW_SHOW)
    $Add = "+"
    $Sub = "-"
    $Mul = "*"
    $Div = "/"

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Plus1
    GUICtrlSetData($Rechenzeichen1, $Add)
    Case $Minus1
    GUICtrlSetData($Rechenzeichen1, $Sub)
    Case $Mal1
    GUICtrlSetData($Rechenzeichen1, "*")
    Case $Geteilt1
    GUICtrlSetData($Rechenzeichen1, "/")
    Case $Plus2
    GUICtrlSetData($Rechenzeichen2, "+")
    Case $Minus2
    GUICtrlSetData($Rechenzeichen2, "-")
    Case $Mal2
    GUICtrlSetData($Rechenzeichen2, "*")
    Case $Geteilt2
    GUICtrlSetData($Rechenzeichen2, "/")
    Case $Plus3
    GUICtrlSetData($Rechenzeichen3, "+")
    Case $Minus3
    GUICtrlSetData($Rechenzeichen3, "-")
    Case $Mal3
    GUICtrlSetData($Rechenzeichen3, "*")
    Case $Geteilt3
    GUICtrlSetData($Rechenzeichen3, "/")

    Case $Rechne

    $Zahl2 = GUICtrlRead($number2)
    $Zahl3 = GUICtrlRead($Number3)
    $Zahl4 = GUICtrlRead($Number4)
    $Zahl1 = GUICtrlRead($Number1)
    If $Rechenzeichen1 = $Add Then
    $Erg1 = ($Zahl1 + $Zahl2)
    GUICtrlSetData($Ergebnis, $Erg1)
    ElseIf $Rechenzeichen1 = $Sub Then
    $Erg1 = ($Zahl1 - $Zahl2)
    GUICtrlSetData($Ergebnis, $Erg1)
    ElseIf $Rechenzeichen1 = $Mul Then
    $Erg1 = ($Zahl1 * $Zahl2)
    GUICtrlSetData($Ergebnis, $Erg1)
    ElseIf $Rechenzeichen1 = $Div Then
    $Erg1 = ($Zahl1 / $Zahl2)
    GUICtrlSetData($Ergebnis, $Erg1)
    EndIf

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

    EndSwitch

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

    WEnd

    [/autoit]


    Das ist natürlich nur ein Grundgerüst bei dem erst nur du ersten beiden felder funktionieren SOLLTEN ... -.- ... tun sie aber nciht!

    Wenn ich in die ersten beide felder was eingebe und dann auf
    "Rechne!" klicke Passiert einfach garnichts .... Warum ??


    Vielen Dank im Vorraus
    Edit1: Hälfte vergessen ... -.-
    P.s. Warscheinlich ein ganz blöder fehler ...

    Edit2: Ach ja klar ...

    Edit3: So Geändert ... Aber das kann es nicht gewesen sein ... ich glaube es hat was mit der If schleife zu tuhen ... ^^

    Vielen Dank Bugfix

    Edit4: Muss ich vor jeder If abfrage neu $Zahl1 = GUICtrlRead($Number1)
    auslesen ?? ...

    Lenny

  • Weiß nicht was...

    :P .... Okay werde ich (nicht) machen ... !! Werde es spätestens in 12 Jahren hochladen und in der Filebase zurverfügung stellen ... VERSPROCHEN! .....


    Ne ... mal .... irgentwas einfaches ... aber was Sinnvolles ... :S


    Lenny

  • Weiß nicht was...

    Hallo ihr!
    Ich wusste nicht wo ich einen Thread zum Thema "Weiß nicht was ich proggen (bzw bei mir eher Probben .... )" aufmachen sollte!


    Also ich verspüre eine innere lust irgendetwas zu proggen umzu gucken was ich bis jetzt gelernt habe .... allerdings weiß ich nicht was ....

    Es sollte nicht allzu komplex sein (Bitte kommt mir nicht mit: Erstelle eine msgbox oder sowas.. ;D) ....!

    Vielen Dank im Vorraus ... ^^ ...


    Mfg Lenny