Beiträge von Alina

  • User-Treffen

    Hallo.

    ICh habe mir die Beiträge jetzt mal durchgelesen.

    Wann das Treffen statt findet?
    Würde sagen Gerbst, da der Sommer wohl für Familie und Strand reserviert sein sollte ;)
    Also ich bin zeitlich für Freitag 18:00 Uhr bis Sonntag 18:00 Uhr. Wenn nicht jeder alle Tage kann, dann sollte das auch kein Problem sein.

    Wo das Treffen statt findet?
    Also wenn nun die Mehrheit aus dem Ruhrpott kommt und sich ausreichend Fahrgemeinschaften aus den neuen Bundesländern bilden, würde es mich auch nicht stören in den Ruhrpott zu fahren. Da würde ich dann schauen ob wir am Alfsee (Althausen bei Osnabrück) unter kommen. Dort machen wir jährlich das größte Kinderzeltlager mit mehr als 2.000 Kids und mit den kann ich gut mal sprechen, wie da die Preise sind.

    Fahrgemeinschaften?
    Da ich den Kleinbus bekommen kann, könnte ich aus nödlicher Richtung cirka sechs Leute mitnehmen und bis zu A7 kommt man ja. ;) Ein Platz ist ja durch Boxen dauerhaft besetzt.

    Themen?
    Ich dachte mir, das man vorher eine kleine Liste hier zusammen postet, was man erklärt wird Und sonst ist es ja auch so, das man einfach man sich kennen lernen kann. Siehe Beitrag von "Waluev" und ich bringe dann Beamer und so weiter mit.

    Soweit die Fragen beantwortet? *fg*

    th.meger: Tennisplatz? Willst Du unbedingt eine Runde verlieren? Freue mich, wenn wir das dann schaffen. Aber vergeß nicht den Rock, sonst ziehe ich auch keinen an. :schild4:

    huggy: Torte? Sag mal, wieso bringste keine mit? Sagt mir doch gerade der Arzt, das ich mal bisschen zunehmen soll. Naja werde ich jetzt eh, da ich dieses Wochenende hauptsächlich horizontal verbringen muß, da ich .... egal :-(((

    So, nun mal schauen wie es hier weiter geht. Und wenn die Nachfrage groß ist, dann mal sehen, das ich für die Herren mal richtiges Bier mit bringe. Flensburger gibt es ja bereits in elf Sorten und auf Wunsch auf Flensburger-Wasser in Bierflaschen abgefüllt. Als ich das laß, dachte ich, unsere Brauerei spinnt, aber die machen mit dem Flensbuger Wasser hammer Umsätze.

    Schönes Wochenende und liebe Grüße,

    Lina.

  • Laufwerk auf dem das Script liegt angeben

    Wie sagt Frau so gut?
    In der Kürze liegt die Würze :schild4:

    Aber das nicht in jeder Situation ;)

    Liebe Grüße, Lina.

    Zitat

    Original von Tweaky
    Danke, euch beiden :klatschen:
    Es funktioniert beides einwandfrei.

    Habe jetzt nur ein Problem :weinen:

    Ich muß nun würfeln, welches von beiden ich nehmen soll :rofl:

  • DLLs

    Hallo.

    Habe gerade mal ein Techniker von uns angerufen und gefragt wie man DLL Infos ausließt.

    Habe dann eine kleine Software bekommen (Trail), die folgendes aus der Die RarExt.dll ausließt.

    Wenn es das ist was Du brauchst, sage bitte bescheid.

    Liebe Grüße, Lina.

    4100 Nicht übersetzt D&ateien entpacken... D&ateien entpacken...
    4101 Nicht übersetzt &Entpacken in %s &Entpacken in %s
    4102 Nicht übersetzt Hier e&ntpacken Hier e&ntpacken
    4103 Nicht übersetzt Jedes Archiv in ein eigene&s Verzeichnis entpacken Jedes Archiv in ein eigene&s Verzeichnis entpacken
    4104 Nicht übersetzt Dateien entpacken. Zusätzliche Einstellungen sind möglich Dateien entpacken. Zusätzliche Einstellungen sind möglich
    4105 Nicht übersetzt Dateien in das angegebenen Verzeichnis entpacken Dateien in das angegebenen Verzeichnis entpacken
    4106 Nicht übersetzt Dateien in das aktuelle Verzeichnis entpacken Dateien in das aktuelle Verzeichnis entpacken
    4107 Nicht übersetzt Jedes ausgewählte Archiv in ein eigene&s Verzeichnis entpacken Jedes ausgewählte Archiv in ein eigene&s Verzeichnis entpacken
    4108 Nicht übersetzt Zu einem &Archiv hinzufügen... Zu einem &Archiv hinzufügen...
    4109 Nicht übersetzt Dateien zu einem Archiv hinzufügen. Zusätzliche Einstellungen sind möglich Dateien zu einem Archiv hinzufügen. Zusätzliche Einstellungen sind möglich
    4110 Nicht übersetzt &Zu %s hinzufügen &Zu %s hinzufügen
    4111 Nicht übersetzt Dateien zu einem Archiv hinzufügen Dateien zu einem Archiv hinzufügen
    4112 Nicht übersetzt Mit WinRAR öffnen Mit WinRAR öffnen
    4113 Nicht übersetzt SFX-Archiv mit WinRAR öffnen SFX-Archiv mit WinRAR öffnen
    4114 Nicht übersetzt Archiv Archiv
    4115 Nicht übersetzt Kommentar Kommentar
    4116 Nicht übersetzt unbekannt unbekannt
    4117 Nicht übersetzt progressives progressives
    4118 Nicht übersetzt selbstentpackendes selbstentpackendes
    4119 Nicht übersetzt %s Teilarchiv %s Teilarchiv
    4120 Nicht übersetzt %s Archiv %s Archiv
    4121 Nicht übersetzt %d KB %d KB
    4122 Nicht übersetzt vorhanden vorhanden
    4123 Nicht übersetzt fehlt fehlt
    4124 Nicht übersetzt Als %s archivieren und per Email versenden Als %s archivieren und per Email versenden
    4125 Nicht übersetzt Archivieren und per Email versenden... Archivieren und per Email versenden...
    4126 Nicht übersetzt Archiv(e) überprüfen Archiv(e) überprüfen
    4127 Nicht übersetzt Archiv(e) konvertieren... Archiv(e) konvertieren...
    EXTARCINFODLG Nicht übersetzt
    4101 Nicht übersetzt
    65535 Nicht übersetzt Archiv-Version Archiv-Version
    4102 Nicht übersetzt
    65535 Nicht übersetzt Betriebssystem Betriebssystem
    4103 Nicht übersetzt
    65535 Nicht übersetzt
    65535 Nicht übersetzt Dateien insgesamt Dateien insgesamt
    4104 Nicht übersetzt
    65535 Nicht übersetzt Größe insgesamt Größe insgesamt
    4105 Nicht übersetzt
    65535 Nicht übersetzt Größe gepackt Größe gepackt
    4106 Nicht übersetzt
    65535 Nicht übersetzt Verhältnis Verhältnis
    4107 Nicht übersetzt
    65535 Nicht übersetzt
    65535 Nicht übersetzt SFX-Modulgröße SFX-Modulgröße
    4108 Nicht übersetzt
    65535 Nicht übersetzt Hauptkommentar Hauptkommentar
    4109 Nicht übersetzt
    65535 Nicht übersetzt Passwörter Passwörter
    4110 Nicht übersetzt
    65535 Nicht übersetzt
    4113 Nicht übersetzt Wörterbuchgröße Wörterbuchgröße
    4114 Nicht übersetzt
    4111 Nicht übersetzt Wiederherstellungsinf. Wiederherstellungsinf.
    4112 Nicht übersetzt
    4115 Nicht übersetzt Archivsicherung Archivsicherung
    4116 Nicht übersetzt
    4119 Nicht übersetzt
    4117 Nicht übersetzt Authenitzitätsinformation Authenitzitätsinformation
    4118 Nicht übersetzt
    EXTCMTARCINFODLG Nicht übersetzt
    4101 Nicht übersetzt
    4100 Nicht übersetzt Datengröße: 1272 Byte Datengröße: 1272 Byte
    DVCLAL Nicht übersetzt Datengröße: 16 Byte Datengröße: 16 Byte

  • AuPrint

    Nettes Teilchen.

    Jetzt das ganze noch so, das man das ergebnis in einer Textdatei nachlesen kann, und man hat ein super Teil für Fehlerauswertung.

    Wie mache ich das?

    Liebe Grüße, Lina.

  • Update Maker

    Hallo alle zusammen.

    : th.meger
    Das Teil verstehe ich sogar :schild4:

    : AspirinJunkie
    Das habe ich zwar verstanden, aber nicht zum laufen bekommen.

    : allgemein
    Da es mir nicht gut geht, werde ich wohl heute nicht viel hier sein. Aber Danke an Euch drei !!!

    Liebe Grüße, Lina.

  • Update Maker

    Ja, Galender habe ich auch bereits getestet und ist gruvi !!!

    Aber da ist alles so dich, da kommt man ja nicht an die Updateroutine (?) ran ;)

    Liebe Grüße, Lina.

  • Update Maker

    Hallo.

    Ich habe mal eine Frage. Nicht das ich das schon könnte, aber hat mal jemand einen "Updatemaker für Software" gemacht?

    Technik:
    Ich habe zum Beispiel einn eigenes Programm mit, sagen wir mal 50 Dateien, drei unterordner und da sind auch Dateien drinne. Dieses habe ich an Freundinnen weiter gegeben, aber als Setup-Datei. In diesem Setup wird in den Ordner, den ich installiere eine version.txt mit installiert.

    Nun habe ich davon einige Dateien verändert und eine neue version.txt geschrieben. In dieser kann man ja eventuell eintragen, welche Dateien sich verändert haben.
    Anhand eines Abgleichs der Dateien version.txt wird geprüft, ob ein Update durchzuführen ist und wenn, welche Dateien neu / verändert sind.

    Das ganze dann mit einem schönen GUI, das wäre doch mal was, oder? Aber bis ich soweit bin, ist das Jahr vorbei, denn dafür müßte ich erst einmal minimal 100 Seiten mit dem Kuli füllen, damit ich dann daran gehen könnte das umzusetzen.

    Aber die Idee selber finde ich doch gar nicht so (d)übel, da hier doch viele sind, die gemeinsam an einer Sache arbeiten und so könnte man sich gegenseitig bzw. auch in kleinen gruppen bei Projekten auf den laufenden halten.

    Nun, wie geschrieben, das war eine allgemeine Anfrage und ich würde einfach gerne mal wissen wie Ihr dazu steht.

    Gruß, Lina.

  • Durchlaufzeit

    Hallo Bernd ;)

    Ich danke Dir für die Berichtigung bzw. Änderung.

    Ich bin, wie gesagt erst cirka 2 Wochen dabei Auto-IT zu erlernen und ich arbeite nachts noch nebenbei. Soll keine Entschuldigung sein.

    Aber mich hat halt diese Uhr immer begeistert und so hatte ich ein Objekt, das ich umsetzen konnte. Das es nicht die beste Umsetzung war, das hatte ich mir schon gedacht. Aber deshalb freue ich mich auch, das Du mir einen besseren Weg zeigst.

    Ich bin eine Frau, die nicht nur sagt "Schön, kann jemand besser.", sondern ich schaue mir die Veränderungen an, versuche diese zu verstehen und dann versuche ich sie na kalr auch bei nächsten mal umzusetzen.

    Hatte schon zu Peethebee gesagt, das ich sehr DANKBAR bin, das man hier so nett aufgenommen wird und das einem es nicht übel genommen wird, wenn man nicht den Weg findet den man braucht oder man Befehle / Parameter / usw. nicht versteht.

    So, die Datenbankgeschichte habe ich auch noch verstanden und ist, wenn man eine gute Vorlage hat auch eine verständliche Sache.

    Viele Sachen sind halt über die MsgBox erklärt. Da wünscht man sich gerade als Anfängerin liebe weitere Beispiele, wie man einen Befehl nutzen kann. Ich habe eine Studie gelesen, da steht drinne, das mehr als 45% aller Europäer/innen schneller durch mehrfach ansehbare Beispiele der verschiedenen Arten lernt und das es den Menschen auch leichter fällt Sachen dann umzusetzen, wenn sie mit der Materie noch nicht im alltäglichen Umgang beschäftigt sind. Kann mal schauen ob ich den Bericht noch finde und wenn, sende ich ihn Dir gerne zu. Stand in einer Fachzeitung für Lehrrettungssanitäter/-assitenen.

    So, ich werde mal sehen was jetzt anliegt.

    Wünsche einen schönen Abend.

    Liebe Grüße,

    Lina.

  • Durchlaufzeit

    Hallo Ex-Brliner.

    Da ich die Stadt auch so liebe und so selten da bin und Du so lieb fragst, bekommst Du die Bilder gezpppelt.

    Aber die Bild nicht weiter geben, sind Copyrightgeschützt. :schild4:

    Und Du weißt ja, für nette Verbesserungsvorschläge bin ich immer gerne zu haben.

    Es schickt liebe Grüße an alle, die total übermüdete,

    Lina

  • Durchlaufzeit

    Hallo.

    So, nun ist die "Die Berliner Mengenlehreuhr" in AutoIT erstellt.

    Hier der Quelltext:

    Spoiler anzeigen
    [autoit]


    #include <GuiConstants.au3>
    ; EXITBUTTON-Start
    Opt("GUIOnEventMode", 1)
    GuiCreate("Die Berliner Mengenlehreuhr", 411, 470,-1, -1 , BitOr($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
    ;GUISetBkColor (0x000000) ; will change background color
    GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "OnClick")

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

    $user = GUICtrlCreateDummy()
    GUICtrlSetOnEvent(-1, "Onexit")
    $Button_1 = GuiCtrlCreateButton("Exit", 20, 380, 70, 30)
    GUICtrlSetOnEvent(-1, "OnClick") ; to handle click on button
    ; EXITBUTTON-Ende Teil 2 unten

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

    GUISetState()
    GuiCtrlCreatePic("gelb.jpg", 30, 60, 350, 50)
    GuiCtrlCreatePic("gelb2.jpg", 30, 120, 80, 50)
    GuiCtrlCreatePic("gelb3.jpg", 120, 120, 80, 50)
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    GuiCtrlCreatePic("gelb2.jpg", 300, 120, 80, 50)
    GuiCtrlCreatePic("gelb3.jpg", 30, 180, 20, 50)
    GuiCtrlCreatePic("gelb.jpg", 60, 180, 20, 50)
    GuiCtrlCreatePic("gelb2.jpg", 90, 180, 20, 50)
    GuiCtrlCreatePic("gelb3.jpg", 120, 180, 20, 50)
    GuiCtrlCreatePic("gelb.jpg", 150, 180, 20, 50)
    GuiCtrlCreatePic("gelb2.jpg", 180, 180, 50, 50)
    GuiCtrlCreatePic("gelb3.jpg", 240, 180, 20, 50)
    GuiCtrlCreatePic("gelb.jpg", 270, 180, 20, 50)
    GuiCtrlCreatePic("gelb2.jpg", 300, 180, 20, 50)
    GuiCtrlCreatePic("gelb3.jpg", 330, 180, 20, 50)
    GuiCtrlCreatePic("gelb.jpg", 360, 180, 20, 50)
    GuiCtrlCreatePic("gelb2.jpg", 30, 240, 80, 50)
    GuiCtrlCreatePic("gelb.jpg", 120, 240, 80, 50)
    GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
    GuiCtrlCreatePic("gelb2.jpg", 300, 240, 80, 50)
    GuiCtrlCreatePic("gelb.jpg", 30, 300, 80, 50)
    GuiCtrlCreatePic("gelb3.jpg", 120, 300, 80, 50)
    GuiCtrlCreatePic("gelb2.jpg", 210, 300, 80, 50)
    GuiCtrlCreatePic("gelb.jpg", 300, 300, 80, 50)

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

    $Group_25 = GuiCtrlCreateGroup("", 20, 40, 370, 330)
    $Label_26 = GuiCtrlCreateLabel("Es gibt unendlich viele Möglichkeiten, die Uhrzeit anzuzeigen, und eine der seltsameren Möglichkeiten nutzt die von Dieter Binninger erfundene Berlin-Uhr.", 20, 10, 370, 30)
    $Label_27 = GuiCtrlCreateLabel("1. Reihe: Sekunden-Balken", 100, 380, 280, 20)
    $Label_28 = GuiCtrlCreateLabel("2. Reihe: 1, 2, 3, 4 Minuten", 100, 395, 280, 20)
    $Label_29 = GuiCtrlCreateLabel("3. Reihe: 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55 Minuten", 100, 410, 280, 20)
    $Label_30 = GuiCtrlCreateLabel("4. Reihe: 1, 2, 3, 4 Stunden", 100, 425, 280, 20)
    $Label_31 = GuiCtrlCreateLabel("5. Reihe: 5, 10, 15, 20 Stunden", 100, 440, 280, 20)

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

    GuiSetState()
    While 1
    $begin = TimerInit()

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




    $sec = @SEC
    $min_1 = @MIN
    $std_1 = @HOUR

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

    Select
    ; Sekunden
    Case $sec==1 Or $sec==3
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==5 Or $sec==7
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==9 Or $sec==11
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==13 Or $sec==15
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==17 Or $sec==19
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==21 Or $sec==23
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==25 Or $sec==27
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==29 Or $sec==31
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==33 Or $sec==35
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==37 Or $sec==39
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==41 Or $sec==43
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==45 Or $sec==47
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==49 Or $sec==51
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==53 Or $sec==55
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
    Case $sec==57 Or $sec==59
    GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)

    Case $sec==0 Or $sec==2 Or $sec==4 Or $sec==6 Or $sec==8 Or $sec==10 Or $sec==12 Or $sec==14 Or $sec==16 Or $sec==18 Or $sec==20 Or $sec==22 Or $sec==24 Or $sec==26 Or $sec==28 Or $sec==30 Or $sec==32 Or $sec==34 Or $sec==36 Or $sec==38 Or $sec==40 Or $sec==42 Or $sec==44 Or $sec==46 Or $sec==48 Or $sec==50 Or $sec==52 Or $sec==54 Or $sec==56 Or $sec==58
    GuiCtrlCreatePic("gelb.jpg", 30, 60, 350, 50)
    EndSelect

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

    Select

    ; Minute 1
    Case $min_1>=1 And $min_1<=4
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    case $min_1>=6 And $min_1<=9
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=11 And $min_1<=14
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=15 And $min_1<=19
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=21 And $min_1<=24
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=26 And $min_1<=29
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=31 And $min_1<=34
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=36 And $min_1<=39
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=41 And $min_1<=44
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=46 And $min_1<=49
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=51 And $min_1<=54
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1>=56 And $min_1<=59
    GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
    Case $min_1==0 Or $min_1==5
    GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
    Case $min_1==10 Or $min_1==15
    GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
    Case $min_1==20 Or $min_1==25
    GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
    Case $min_1==30 Or $min_1==35
    GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
    Case $min_1==40 Or $min_1==45
    GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
    Case $min_1==50 Or $min_1==55
    GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
    EndSelect

    Select
    ; Minute 2
    Case $min_1>=2 And $min_1<=4
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=7 And $min_1<=9
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=12 And $min_1<=14
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=17 And $min_1<=19
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=22 And $min_1<=24
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=27 And $min_1<=29
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=32 And $min_1<=34
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=37 And $min_1<=39
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=42 And $min_1<=44
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=47 And $min_1<=49
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=52 And $min_1<=54
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=57 And $min_1<=59
    GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
    Case $min_1>=0 And $min_1<=1
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=5 And $min_1<=6
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=10 And $min_1<=11
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=15 And $min_1<=16
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=20 And $min_1<=21
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=25 And $min_1<=26
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=30 And $min_1<=31
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=35 And $min_1<=36
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=40 And $min_1<=41
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=45 And $min_1<=46
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=50 And $min_1<=51
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    Case $min_1>=55 And $min_1<=56
    GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
    EndSelect

    Select
    ; Minute 3
    Case $min_1>=3 And $min_1<=4
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=8 And $min_1<=9
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=13 And $min_1<=14
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=18 And $min_1<=19
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=23 And $min_1<=24
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=28 And $min_1<=29
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=33 And $min_1<=34
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=38 And $min_1<=39
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=43 And $min_1<=44
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=48 And $min_1<=49
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=53 And $min_1<=54
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=58 And $min_1<=59
    GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
    Case $min_1>=0 And $min_1<=2
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=5 And $min_1<=7
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=10 And $min_1<=12
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=15 And $min_1<=17
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=20 And $min_1<=22
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=25 And $min_1<=27
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=30 And $min_1<=32
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=35 And $min_1<=37
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=40 And $min_1<=42
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=45 And $min_1<=47
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=50 And $min_1<=52
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    Case $min_1>=55 And $min_1<=57
    GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
    EndSelect

    Select
    ; Minute 4
    Case $min_1>=4 And $min_1<5
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=9 And $min_1<10
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=14 And $min_1<15
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=19 And $min_1<20
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=24 And $min_1<25
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=29 And $min_1<30
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=34 And $min_1<35
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=39 And $min_1<40
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=44 And $min_1<45
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=49 And $min_1<50
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1>=54 And $min_1<55
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    case $min_1=59
    GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
    Case $min_1>=0 And $min_1<=3
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=5 And $min_1<=8
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=10 And $min_1<=13
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=15 And $min_1<=18
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=20 And $min_1<=23
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=25 And $min_1<=28
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=30 And $min_1<=33
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=35 And $min_1<=38
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=40 And $min_1<=43
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=45 And $min_1<=48
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=50 And $min_1<=53
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
    case $min_1>=55 And $min_1<=58
    GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)

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

    EndSelect

    Select
    ; Minute 5
    Case $min_1>=5
    GuiCtrlCreatePic("rot2.jpg", 30, 180, 20, 50)
    Case $min_1<5
    GuiCtrlCreatePic("gelb2.jpg", 30, 180, 20, 50)
    EndSelect

    Select
    ; Minute 10
    Case $min_1>=10
    GuiCtrlCreatePic("rot2.jpg", 60, 180, 20, 50)
    Case $min_1<=9
    GuiCtrlCreatePic("gelb2.jpg", 60, 180, 20, 50)
    EndSelect

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


    Select
    ; Minute 15
    Case $min_1>=15
    GuiCtrlCreatePic("hblau.jpg", 90, 180, 20, 50)
    Case $min_1<=14
    GuiCtrlCreatePic("gelb.jpg", 90, 180, 20, 50)
    EndSelect

    Select
    ; Minute 20
    Case $min_1>=20
    GuiCtrlCreatePic("rot2.jpg", 120, 180, 20, 50)
    Case $min_1<=19
    GuiCtrlCreatePic("gelb2.jpg", 120, 180, 20, 50)
    EndSelect

    Select
    ; Minute 25
    Case $min_1>=25
    GuiCtrlCreatePic("rot2.jpg", 150, 180, 20, 50)
    Case $min_1<=24
    GuiCtrlCreatePic("gelb2.jpg", 150, 180, 20, 50)
    EndSelect

    Select
    ; Minute 30
    Case $min_1>=30
    GuiCtrlCreatePic("hblau.jpg", 180, 180, 50, 50)
    Case $min_1<=29
    GuiCtrlCreatePic("gelb2.jpg", 180, 180, 50, 50)
    EndSelect

    Select
    ; Minute 35
    Case $min_1>=35
    GuiCtrlCreatePic("rot2.jpg", 240, 180, 20, 50)
    Case $min_1<=34
    GuiCtrlCreatePic("gelb2.jpg", 240, 180, 20, 50)
    EndSelect

    Select
    ; Minute 40
    Case $min_1>=40
    GuiCtrlCreatePic("rot2.jpg", 270, 180, 20, 50)
    Case $min_1<=39
    GuiCtrlCreatePic("gelb2.jpg", 270, 180, 20, 50)
    EndSelect

    Select
    ; Minute 45
    Case $min_1>=45
    GuiCtrlCreatePic("hblau.jpg", 300, 180, 20, 50)
    Case $min_1<=44
    GuiCtrlCreatePic("gel2.jpg", 300, 180, 20, 50)
    EndSelect

    Select
    ; Minute 50
    Case $min_1>=50
    GuiCtrlCreatePic("rot2.jpg", 330, 180, 20, 50)
    Case $min_1<=49
    GuiCtrlCreatePic("gelb2.jpg", 330, 180, 20, 50)
    EndSelect

    Select
    ; Minute 55
    Case $min_1>=55
    GuiCtrlCreatePic("rot2.jpg", 360, 180, 20, 50)
    Case $min_1<=54
    GuiCtrlCreatePic("gelb2.jpg", 360, 180, 20, 50)
    EndSelect

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

    Select
    ; Stunde 1
    Case $std_1>=01 And $std_1<=04
    GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
    Case $std_1>=06 And $std_1<=09
    GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
    Case $std_1>=11 And $std_1<=14
    GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
    Case $std_1>=16 And $std_1<=19
    GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
    Case $std_1>=21 And $std_1<=23
    GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
    Case $std_1==00 Or $std_1==05
    GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
    Case $std_1==10 Or $std_1==15
    GuiCtrlCreatePic("gelb3.jpg", 30, 240, 80, 50)
    Case $std_1==20
    GuiCtrlCreatePic("gelb3.jpg", 30, 240, 80, 50)
    EndSelect

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

    Select
    ; Stunde 2
    Case $std_1>=2 And $std_1<=4
    GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
    Case $std_1>=7 And $std_1<=9
    GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
    Case $std_1>=12 And $std_1<=14
    GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
    Case $std_1>=17 And $std_1<=19
    GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
    Case $std_1>=22 And $std_1<=23
    GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
    Case $std_1==0 Or $std_1==1
    GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
    Case $std_1==6 Or $std_1==7
    GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
    Case $std_1==10 Or $std_1==11
    GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
    Case $std_1==15 Or $std_1==16
    GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
    Case $std_1==20 Or $std_1==21
    GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
    EndSelect

    Select
    ; Stunde 3
    Case $std_1>=3 And $std_1<=4
    GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
    Case $std_1>=8 And $std_1<=9
    GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
    Case $std_1>=13 And $std_1<=14
    GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
    Case $std_1==18 Or $std_1==19 Or $std_1==23
    GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
    Case $std_1>=0 And $std_1<=2
    GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
    Case $std_1>=5 And $std_1<=7
    GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
    Case $std_1>=10 And $std_1<=12
    GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
    Case $std_1>=15 And $std_1<=17
    GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
    Case $std_1>=20 And $std_1<=22
    GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
    EndSelect

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

    Select
    ; Stunde 4
    Case $std_1>=4 And $std_1<5
    GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
    Case $std_1>=9 And $std_1<10
    GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
    Case $std_1>=14 And $std_1<15
    GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
    Case $std_1>=19 And $std_1<20
    GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)

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

    Case $std_1<=3
    GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
    Case $std_1>=5 And $std_1<9
    GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
    Case $std_1>=10 And $std_1<14
    GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
    Case $std_1>=15 And $std_1<19
    GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)

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

    EndSelect

    Select
    ; Stunde 5
    Case $std_1>=5
    GuiCtrlCreatePic("rot3.jpg", 30, 300, 80, 50)
    Case $std_1<=4
    GuiCtrlCreatePic("gelb3jpg", 30, 300, 80, 50)
    EndSelect

    Select
    ; Stunde 10
    Case $std_1>=10
    GuiCtrlCreatePic("rot3.jpg", 120, 300, 80, 50)
    Case $std_1<=9
    GuiCtrlCreatePic("gelb3.jpg", 120, 300, 80, 50)
    EndSelect

    Select
    ; Stunde 15
    Case $std_1>=15
    GuiCtrlCreatePic("rot3.jpg", 210, 300, 80, 50)
    Case $std_1<=14
    GuiCtrlCreatePic("gelb3.jpg", 210, 300, 80, 50)
    EndSelect

    Select
    ; Stunde 20
    Case $std_1>=20
    GuiCtrlCreatePic("rot3.jpg", 300, 300, 80, 50)
    Case $std_1<=19
    GuiCtrlCreatePic("gelb3.jpg", 300, 300, 80, 50)
    EndSelect


    $dif = TimerDiff($begin)
    Sleep($dif)
    WEnd

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

    Exit

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

    ; EXITBUTTON-Start
    Func OnClick()
    GUICtrlSendToDummy($user)
    EndFunc

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

    Func OnExit()
    Exit
    EndFunc
    ; EXITBUTTON-Ende
    Exit

    [/autoit]

    Bild: als Anhang

    Habe versucht, mal mit meinem Wissen von cirka 14 Tagen, weil so lange meine ich bin ich schon "AutiIt-infiziert", das umzusetzen, was ich damals in Berlin gesehen habe und was Ihr hier auf folgender Seite sehen könnt: http://www.surveyor.in-berlin.de/berlin/uhr/index.html
    Ich habe nur die Flächen anders angeordnet. Also nicht wundern, wenn es mit der Homepage zu der Uhr nicht ganz übereinstimmt.

    Sicherlich hat der Quelltext noch kleine Macken im Sekundenbereich, aber ich habe mein bestes gegeben und ab dem Minutenbereich läuft es.

    So viel zum Thema AUTO-IT-MACHT SÜCHTIG !!! :irre:

    Liebe Grüße und nochmals Danke für die Hilfe !!!

    Lina

    Edit bernd670: Ich habe mal die AutoIt-Tag's eingebaut, vllt. solltest Du noch die jpg's anhängen!

  • Durchlaufzeit

    Hallo alle. Danke erst einmal für die Antworten.

    Ich erstelle mit Auto-IT gerade die "Die Berliner Mengenlehreuhr" nach.

    Dank dem

    "$begin = TimerInit()" am Anfang der Schleife

    und
    "$dif = TimerDiff($begin)
    Sleep($dif) am ende der Schleife, läuft nun auch die Sekundenzeigen besser.

    Nun ist nur noch das Problem, dem Exit-Button ($Button_1) in der über 400 Zeilen langen Case-Abfrage irgendwie zum laufen zu bekommen.

    Wenn es fertig ist veröffnetlich ich es gerne.

    Liebe Grüße, Lina.
    (immer bisschen verrückt)

  • Durchlaufzeit

    Hallo und einen sonnigen Mittwoch.

    Wie berechnet ich möchtest genau die Durchlaufzeit einer Schleife?

    Grund? Ich will eine Sekundenanzeige in eine Sache mit einbauen und die Sekundenanzeige soll blinken.

    LG, die Lina.

  • SQLite Frage

    Hallo Trallala.

    Habe meinen Fehler gefunden. Ich habe den falschen Namen angegeben. Ich dachte die ganze Zeit, es geht dabei um die Abfrage die in mit SQLite erstellt habe.

    Aber DANK der Hilfe hier hat alles SUPER geklappt.

    Liebe Grüße, Lina.

  • SQLite Frage

    Hallo Doc.

    Ich habe es soweit geschafft, aber ich bekomme jetzt folgende Fehlermeldung:

    >Running:(3.2.2.0):C:\Programme\AutoIt3\autoit3.exe "E:\test.au3"
    ! SQLite.au3 Error

    --> Function: _SQLite_Query
    --> Query: SELECT * FROM Tabelle
    --> Error: no such table: Tabelle
    +>19:45:03 AutoIT3.exe ended.rc:0
    +>19:45:05 AutoIt3Wrapper Finished
    >Exit code: 0 Time: 3.726

    Habe Als Anlage die Datenbank und das au3 und alles was dazu gehört gesteckt.

    Liebe Grüße, Lina.

  • SQLite Frage

    Hallo,

    ich habe eine SQLite-Datenbank erstellt mit 3 Datensätzen (siehe Anlage) erstellt.

    Dann habe ich folgenden Script verwendet und ich bekomme keine Ausgabe.

    Spoiler anzeigen


    #include <GuiConstants.au3>

    #include "SQLite.au3"

    $datei1 = @ScriptDir & "\adr.sdb"


    GuiCreate("MyGUI", 392, 323,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))


    $Anzeigen = GUICtrlCreateButton("Anzeigen", 200,200,90,20)


    GuiSetState()
    While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop


    Case $msg = $Anzeigen

    $B_Archiv = _DoSQL("SELECT * FROM kd2 ;",$datei1)
    For $i = 1 To $v_name[0][0]
    $inhalt1 = $v_name[$i][0] & "|" & $n_name[$i][1] & "|" & $str[$i][2] & "|" & $h_nr[$i][3] & "|" & $plz[$i][4] & "|" & $ort[$i][5]
    msgbox(1,"test",$inhalt1)
    Next


    Case Else
    ;;;
    EndSelect
    WEnd
    Exit


    ; ---> peethebee (Danke an jonk!)
    Func _DoSQL($_SQL_Code, $cal_filename)
    Dim $ret_array[250][15]
    ; Datenbank initialisieren und öffnen
    _SQLite_Startup (@ScriptDir & "\sqlite3.dll")
    If @error > 0 Then
    MsgBox(0, "Meldung", "SQLite-DLL konnte nicht geladen werden")
    Return 0
    EndIf
    ; hier kann man einen Standardpfad festlegen
    $dbname = $cal_filename
    _sqLiTe_opEn ($dbname)
    If @error > 0 Then
    MsgBox(0, "Meldung", $dbname & " konnte nicht geöffnet werden (Rechte?, Datei in Benutzung?)")
    Return 0
    EndIf
    Dim $hQuery, $aRow
    $iTmp = _SQlite_Query (-1, $_SQL_Code, $hQuery)
    If Not $iTmp = $SQLITE_OK Then
    MsgBox(0, "Meldung", "SQLite-Befehl verursachte einen Fehler: " & $_SQL_Code)
    EndIf
    $num_results = 0
    While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK
    $num_results += 1
    ; Daten in Array kippen und dann zurückgeben (noch nicht getestet)
    For $i = 0 To UBound($aRow) - 1
    $ret_array[$num_results][$i] = $aRow[$i]
    Next
    WEnd
    ; Länge des Ergebnisses erfassen, Ergebnisse ab $ret_array[1]
    $ret_array[0][0] = $num_results
    $ret_array[0][1] = UBound($aRow)
    $iTmp = _SQLite_Close ()
    If Not $iTmp = $SQLITE_OK Then
    MsgBox(0, "Meldung", "Datenbank konnte nicht geschlossen werden.")
    MsgBox(0, "Meldung", "SQLite ErrCode: " & $iTmp)
    MsgBox(0, "Meldung", "SQLite ErrMsg: " & _SQLite_ErrMsg ())
    Return 0
    EndIf
    _SQLite_Shutdown ()
    Return $ret_array
    EndFunc ;==>_DoSQL
    ; <---
    ; --- EOF

    Anlage: Datenbank adr.sdb (gezippt)

    Danke für Hilfe !!!

  • Zeit

    Danke Peethebee.

    Das wird ein Mamutprojekt.

    Möchte noch nicht zu viel verraten, aber das wird eine If Abfrage mit 139 Unterteilungen.

    Ui Ui Ui.

    Mal sehen wie ich das mache.

    LG Lina.