1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Alina

Beiträge von Alina

  • (gelöst bis hierhin) Datenausgabe in ein ListView "DB-2-ListView"

    • Alina
    • 2. Dezember 2015 um 21:11

    Nabend.

    Ich habe drei Probleme. Zumindest was AutoIt betrifft. Und dann noch eine kleine Fragen.

    Und ich hoffe dieses mal ohne :Glaskugel:


    1.)
    Ich möchte die Daten nicht in die Console ausgeben, sondern in dem ListView.

    2.)
    Ich habe unter dem ListView kleine Buttons erstellt. Klicht man da z. B. auf: "Sortieren nach [Titel]", soll nach Gleichem sortiert werden.

    3.)
    ; In der GUI ist [Lfd.-Nr:] und dahinter soll im Gegensatz zur ID eine immer fortlaufende Nummer generiert werden. Sobald ein Datensatz dazu kommt
    ; [+1], wird ein Datensatz gelöscht soll der Wert NICHT gemindert werden !!! Der dort stehende Wert darf nicht veränderbar durch den User sein.

    Also Hilfe und SuFu (in den D & UK) erfolglos genutzt. *schniefel*

    Frage:
    Wenn ich die ISB Nummer, in Folge ISBN genannt, welche ja auch eine eindeutige Kennung ist, mit einem KEY versehe, worauf muss ich da besonders achten?
    Möchte später das Script noch erweitern und dazu wäre die ISBN gut zu gebrauchen.


    Datensätze werden im Script zugefügt.

    AutoIt
    ;#include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    
    
    ;Opt
    Opt("GUIOnEventMode", 1)
    
    
    ;GUI Titel
    $Buchverwaltung = GUICreate("Buchverwaltung erstellt mit AutoIt", 1121, 629, 280, 183)
    
    
    ; Titel oben Mitte
    $Label1 = GUICtrlCreateLabel("~  ~  ~  B  U  C  H  V  E  R  W  A  L  T  U  N  G   ~  ~  ~", 304, 8, 516, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    
    
    ; ListView
    $listview = GUICtrlCreateListView("ID|Titel|Autor|Verlag|E-Datum|Genre|Preis|Einband|ISBN|Seiten|Lager|Serie|Bestellt|Gelesen|Note|Zusatz|Information", 10,40,1105,168)
    $List1 = GUICtrlCreateList("", 8, 40, 1105, 168)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    
    
    ; Hauptbereich
    $Label2 = GUICtrlCreateLabel("Titel:  ", 10, 274, 45, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input1 = GUICtrlCreateInput("", 160, 272, 361, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label3 = GUICtrlCreateLabel("Autor:", 10, 305, 45, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input2 = GUICtrlCreateInput("", 160, 302, 361, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label4 = GUICtrlCreateLabel("Verlag: ", 10, 335, 58, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input3 = GUICtrlCreateInput("", 160, 332, 361, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label5 = GUICtrlCreateLabel("Genre: ", 10, 365, 55, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input4 = GUICtrlCreateInput("", 160, 362, 361, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label6 = GUICtrlCreateLabel("Erscheinungsdatum: ", 10, 395, 149, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input5 = GUICtrlCreateInput("YYYYMMDD", 160, 392, 100, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label7 = GUICtrlCreateLabel("Serie: ", 267, 395, 50, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input6 = GUICtrlCreateInput("", 313, 392, 208, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label8 = GUICtrlCreateLabel("Preis: ", 10, 424, 146, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input7 = GUICtrlCreateInput("", 160, 422, 81, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label9 = GUICtrlCreateLabel("Lagerplatz: ", 267, 424, 85, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input8 = GUICtrlCreateInput("", 354, 422, 165, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label10 = GUICtrlCreateLabel("Einband: ", 10, 455, 70, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input9 = GUICtrlCreateInput("", 160, 452, 361, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label11 = GUICtrlCreateLabel("ISBN", 10, 485, 40, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input10 = GUICtrlCreateInput("", 160, 482, 361, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label12 = GUICtrlCreateLabel("Seiten: ", 10, 514, 57, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input11 = GUICtrlCreateInput("", 160, 512, 81, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label13 = GUICtrlCreateLabel("ausgeliehen an: ", 624, 272, 117, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input12 = GUICtrlCreateInput("", 760, 272, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label14 = GUICtrlCreateLabel("ausgeliehen am: ", 624, 302, 122, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input13 = GUICtrlCreateInput("", 760, 302, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label15 = GUICtrlCreateLabel("ausgeliehen bis: ", 624, 332, 121, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input14 = GUICtrlCreateInput("", 760, 334, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label16 = GUICtrlCreateLabel("Bestellt: J/N", 624, 384, 86, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input15 = GUICtrlCreateInput("", 760, 384, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label17 = GUICtrlCreateLabel("gelesen: J/N", 624, 414, 90, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input16 = GUICtrlCreateInput("", 760, 414, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label18 = GUICtrlCreateLabel("Note: 1 - 6", 624, 444, 76, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input17 = GUICtrlCreateInput("", 760, 444, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label19 = GUICtrlCreateLabel("Zusatz:", 624, 474, 53, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input18 = GUICtrlCreateInput("", 760, 472, 121, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label20 = GUICtrlCreateLabel("Information:", 896, 384, 84, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Edit1 = GUICtrlCreateEdit("", 896, 408, 217, 89)
    
    
    ;  Sortierbereich
    $Label21 = GUICtrlCreateLabel("Sortieren nach: ", 10, 228, 113, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button1 = GUICtrlCreateButton("Alle", 145, 224, 51, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button2 = GUICtrlCreateButton("Titel", 201, 224, 41, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button3 = GUICtrlCreateButton("Autor", 245, 224, 51, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button4 = GUICtrlCreateButton("Verlag", 301, 224, 59, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button5 = GUICtrlCreateButton("E-Datum", 365, 224, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button6 = GUICtrlCreateButton("Genre", 445, 224, 59, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button7 = GUICtrlCreateButton("Preis", 509, 224, 59, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button8 = GUICtrlCreateButton("Einband", 573, 224, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button9 = GUICtrlCreateButton("ISBN", 653, 224, 51, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button10 = GUICtrlCreateButton("Seiten", 709, 224, 59, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button11 = GUICtrlCreateButton("Lagerplatz", 773, 224, 91, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button12 = GUICtrlCreateButton("Serie", 869, 224, 51, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button13 = GUICtrlCreateButton("Bestellt", 925, 224, 67, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button14 = GUICtrlCreateButton("Gelesen", 997, 224, 67, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Button15 = GUICtrlCreateButton("Note", 1069, 224, 43, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label22 = GUICtrlCreateLabel("-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 8, 256, 1105, 17)
    $Label23 = GUICtrlCreateLabel("-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 8, 544, 1105, 17)
    
    
    $Button16 = GUICtrlCreateButton("S U C H E N", 621, 509, 132, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Input19 = GUICtrlCreateInput("Suchbegriff hier eingeben", 760, 507, 347, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label24 = GUICtrlCreateLabel("Lfd.-Nr:", 350, 515, 55, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input20 = GUICtrlCreateInput("", 415, 512, 105, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetData(-1, "000002")
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    
    
    ; unterer Bereich
    $Label26 = GUICtrlCreateLabel("Büchermenge:  ", 13, 595, 113, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input22 = GUICtrlCreateInput("", 128, 592, 81, 26) ; hier soll die ges. Bücheranzahl eingefügt werden und nicht veränderbar durch Anwender
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label27 = GUICtrlCreateLabel("Ges. Seitenzahl:", 270, 596, 117, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Input23 = GUICtrlCreateInput(" ", 394, 592, 81, 26) ; hier soll die ges. Seitenzahl eingefügt werden und nicht veränderbar durch Anwender
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    $Label28 = GUICtrlCreateLabel("Ges. Buch NP:", 572, 595, 106, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlCreateInput("", 680, 592, 121, 26) ; hier soll der ges. Bücherwert eingefügt werden und nicht veränderbar durch Anwender
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    
    
    ;  Ausleihbutton
    $Button17 = GUICtrlCreateButton("Ausleihen", 888, 272, 227, 25)
    
    
    ; DK 1 / 2 / 3
    $Button18 = GUICtrlCreateButton("DK  1 / 2 / 3", 894, 334, 99, 26)
    ; D 1 / 2
    $Button19 = GUICtrlCreateButton("D 1 / 2", 1012, 334, 99, 25)
    
    
    ; GUI anzeigen
    GUISetState(@SW_SHOW)
    
    
    ;  !!! Datei lösche ich hier nur, damit ich sie nicht manuell löschen muss in der Übungsphase !!!
     FileDelete(@ScriptDir & "\buchverwaltung.db")
    
    
    ; DLL Pfad
    _SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) ; BugFix Idee, da DLL ja nicht mehr mitgeliefert wird
    
    
    ; gibt die SQL Version in die Console aus
    ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
    
    
    ; Datenbank öffnen, ggf. erstellen
    Global $g_db_Database = _SQLite_Open(@ScriptDir & "\buchverwaltung.db")
    
    
    ; Datenbanktabelle
    _SQLite_Exec($g_db_Database, "CREATE TABLE IF NOT EXISTS Buchverwaltung(D INTEGER PRIMARY KEY AUTOINCREMENT,Titel,Autor,Verlag,Genre,Erscheinungsdatum,Serie,Preis,Lagerplatz,Einband,ISBN,Seiten,Ausgeliehen_an,Ausgeliehen_am,Ausgeliehen_bis,Bestellt,Gelesen,Note,Zusatz,Information);")
    
    
    ; jeweils ein Datensatz wird dazu geschrieben, Daten sind von Enno Jüders zur Verfügung gestellt.
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('1','13 Tage','Giambanco, Valentina','Droemer Knaur','03.03.2014','Thriller','14.99','Hardcover','9783426513996','576','','..','..','R1-F2','','','N','','','');")
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('2','Abgründe','Strobel, Arno','Loewe','10.03.2014','Thriller-J','9.95','Taschenbuch','9783785578643','240','','..','..','R1-F2','','','N','','','');")
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('3','Agent 6','Smith, Tom Rob','Goldmann','14.09.2011','Thriller','9.99','Taschenbuch','9783442546770','540','','..','..','R1-F2','Leo Demidow Bd.3','','N','','','');")
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('4','Bedroht','Koppen, Hans','Heyne','27.03.2013','Thriller','14.99','Taschenbuch','9783453268012','411','','..','..','R1-F2','','','J','1','','');")
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('5','Belladonna','Slaughter, Karin','rororo','03.03.2003','Thriller','6.00','Taschenbuch','9783499239140','413','','..','..','R1-F1','Grant County Bd.1','','J','1','','');")
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('6','Bis zum letzten Atemzug','Baldacci, David','Bastei Lübbe','01.04.2011','Thriller','9.99','Taschenbuch','9783404165537','574','','..','..','R1-F2','King & Maxwell Bd. 4','austauschen','N','','','');")
    _SQLite_Exec(-1, "INSERT INTO Buchverwaltung VALUES('7','Bittere Wunden','Slaughter, Karin','blanvalet','01.09.2014','Thriller','19.99','Hardcover','9783764505172','576','','..','..','R1-F1','Georgia Bd.4','','J','2','','');")
    
    
    ; Änderungsabfrage
    MsgBox(0, "SQLite", "Die letzte Abfrage änderte " & _SQLite_Changes() & " Zeile." & @CRLF & _
            "Alle Abfragen änderten " & _SQLite_TotalChanges() & " Zeilen.")
    
    
    
    
    While 1
    	$nMsg = GUIGetMsg()
    	Switch $nMsg
    		Case $GUI_EVENT_CLOSE
    			Exit
    
    
    	EndSwitch
    WEnd
    
    
    Func _Exit() ; Datenbank schließen und down.
    
    
    	_SQLite_Close($g_db_Database)
    	_SQLite_Shutdown()
    	;Exit
    EndFunc
    Alles anzeigen
  • Account löschen

    • Alina
    • 1. Dezember 2015 um 17:41

    @Raupi: Das sollte reichen!

    Wenn er nicht meint sich an Gun-Food, als Admin und Seitenbetreiber zu wenden, sondern allgemein die Admins, als Gruppe anzuschreiben, hat er den rechtlichen Weg nicht eingehalten und jeder RA würde ihn gut beraten, wenn er ihm kostenlos den richtigen Weg erklärt und ihm etwas ins Gewissen redet. Was meinst Du, wie oft das bei uns der Fall ist. Gerade die jüngeren Menschen sind oft besser einmal kostenlos zu beraten, als das man ihnen mit der Beratung "Stress" macht wegen der Kosten und dann auch noch sagen muss, das die Erfolgchance gleich Null ist. Nicht jeder RA nimmt Geld dafür, das man sich einfach mal über eine rechtliche Sache grundsätzlich informieren möchte.

    Also, wir sollten uns deshalb keine Gedanken machen und das Thema vielleicht auch einfach schließen, damit es nicht zu sehr in Diskusionen endet.

    Liebe Grüße und eine besinnliche Weihnachtszeit. Hab Euch alle irgendwie gerne. ;)

  • Autoit - Gleitkommazahlen abrunden

    • Alina
    • 1. Dezember 2015 um 17:28

    Mein Ergebnis:
    Floor: 0.000392 ms
    Int: 0.000372 ms
    Ceiling: 0.000398 ms
    Int + 1: 0.000527 ms

    Gut oder nicht?

  • schlafen mit sleep oder besser?

    • Alina
    • 1. Dezember 2015 um 17:21

    Du schreibst "wenn ein bestimmtes Ereignis eintritt -->".

    eine ganz kleine Glaskugel war es dann doch. Also das kann ich besser. *fg*

    Wenn durch dieses "bestimmte Ereignis" ein Prozess gestartet wird, könntest Du abfragen, ob der Prozess gestartet (läuft er oder läuft er nicht?) ist und darauf reagieren.

  • Account löschen

    • Alina
    • 1. Dezember 2015 um 17:14
    Zitat von oh-ha-2

    Hmm ist wohl nicht so ganz richtig.
    Nach § 13 Telemediengesetz muss auf Wunsch gelöscht werden. Ob das nun gleich ist oder nicht.Die Beiträges können bestehen bleiben sofern keine persönlichen Daten usw. enthalten sind.
    Ganz so einfach sollte man sich so etwas nicht machen, habe da schon recht herbe Dinge erlebt.

    Wenn Du schon Gesetztespassagen nennst, solltest Du dir doch schon klar sien, das man sich nicht nur das aus Deiner Sicht "Gute"
    raus sucht. Ich könnte Dir nun minimal mehr Paragraphen nennen, als Dein Beitrag Wörter hat, die Dich nicht gut aussehen lassen,
    solltest Du rechtlich vorgehen.
    Wieso schreibst Du nicht einfach freundlich den Admin an und dann wird er Deinem Wunsch sicherlich Folge leisten. Und wenn ich mir
    so Deine Beiträge ansehe, frage ich mich, vor was Du angst hast. LOL

  • PartyPlayer

    • Alina
    • 30. November 2015 um 19:33

    Oscar : läuft suppppper !!!

  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 22:19

    @Oscar, hiermit sollte das Problem erst einmal gelöst sein. ;)


    AutoIt
    #include <Array.au3>
    
    
    ; Tagesauswahl immer der reine nach. Nicht: "Mo,Mi,Di,Do,Fr" sondern "Mo,Di,Mi,Do,Fr"
    $_tagesAuswahl = "Mi,Mi,Sa,So,Di"
    
    
    ; Auswahlmöghlichkeiten in ein Array geben
    Local $array = StringSplit($_tagesAuswahl, ',', 0)
    
    
    ; Anzahl der Tagesauswahl
    MsgBox (64,"","Es gibt: " & $array[0] & " angegebene Tage." & @CRLF & "Dieses Sind: " & $_tagesAuswahl )
    
    
    
    
    ; Anfrage wieviele Tage angegeben wurden
    If $array[0] = 1 Then
    	einer()
    EndIf
    
    
    If $array[0] = 2 Then
    	zweier()
    EndIf
    
    
    If $array[0] = 3 Then
    	dreier()
    EndIf
    
    
    If $array[0] = 4 Then
    	vierer()
    EndIf
    
    
    If $array[0] = 5 Then
    	fuenfer()
    EndIf
    If $array[0] = 6 Then
    	sechser()
    EndIf
    
    
    If $array[0] = 7 Then
    	siebener()
    EndIf
    
    
    
    
    ; Funktionen
    Func einer()
    			Local $aArray_2[1] = [$array[1]];, "Mi"
    			Local $aNewArray = _ArrayPermute($aArray_2, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"1", $aNewArray[1])
    EndFunc
    
    
    Func zweier()
    			Local $aArray_2[2] = [$array[1], $array[2]];, "Mi", "Do"
    			Local $aNewArray = _ArrayPermute($aArray_2, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"2", $aNewArray[1] & @CRLF & $aNewArray[2])
    EndFunc
    
    
    Func dreier()
    			Local $aArray_3[3] = [$array[1], $array[2], $array[3]];, "Do", "Fr", "Sa"
    			Local $aNewArray = _ArrayPermute($aArray_3, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"3", $aNewArray[1] & @CRLF & $aNewArray[4] & @CRLF & $aNewArray[6])
    EndFunc
    
    
    Func vierer()
    			Local $aArray_4[4] = [$array[1], $array[2], $array[3], $array[4]];, "Fr", "So", "Di", "Mi"
    			Local $aNewArray = _ArrayPermute($aArray_4, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"4", $aNewArray[1] & @CRLF & $aNewArray[10] & @CRLF & $aNewArray[17]& @CRLF & $aNewArray[24])
    EndFunc
    
    
    Func fuenfer()
    			Local $aArray_5[5] = [$array[1], $array[2], $array[3], $array[4], $array[5]];, "Fr", "Sa", "Mo", "Di", "Do"
    			Local $aNewArray = _ArrayPermute($aArray_5, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"5", $aNewArray[1] & @CRLF & $aNewArray[34] & @CRLF & $aNewArray[66]& @CRLF & $aNewArray[94]& @CRLF & $aNewArray[120])
    EndFunc
    
    
    Func sechser()
    			Local $aArray_6[6] = [$array[1], $array[2], $array[3], $array[4], $array[5], $array[6]];, "Fr", "Sa", "So", "Mo", "Di", "Do"
    			Local $aNewArray = _ArrayPermute($aArray_6, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"6", $aNewArray[1] & @CRLF & $aNewArray[154] & @CRLF & $aNewArray[305]& @CRLF & $aNewArray[451] & @CRLF & $aNewArray[593]& @CRLF & $aNewArray[720])
    EndFunc
    
    
    Func siebener()
    			Local $aArray_7[7] = [$array[1], $array[2], $array[3], $array[4], $array[5], $array[6], $array[7]];, "Fr", "Sa", "So", "Mo", "Di", "Mi","Do"
    			Local $aNewArray = _ArrayPermute($aArray_7, ",") ; Standardparameter verwenden
    			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
    			MsgBox(64,"7", $aNewArray[1] & @CRLF & $aNewArray[10] & @CRLF & $aNewArray[874]& @CRLF & $aNewArray[1745]& @CRLF & $aNewArray[2616] & @CRLF & $aNewArray[3466]& @CRLF & $aNewArray[4296] & @CRLF & $aNewArray[5040])
    EndFunc
    Alles anzeigen
  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 12:05

    Oscar .

    Ja lieber Oscar. Ds ist wirklich ein Problem, das ich noch nicht lösen konnte, was wenn der Tagerhythmus anders ist und/oder es nicht drei sondern 2/4/5/6 Tage sind?

    Hier habe ich noch keinen Gedankenansatz. Hatte überlegt es wie in einer "Wenn-Dann-Sonst" Formel, wie bei Excel zu scripten, aber das ist da schon ein Problem.
    WENN es 1 Tag in der Woche ist, dann +/-7, anosnten
    Wenn es 2 Tage in der Woche ist, Starttag und mit 2 +/- Werten rechnen, ansonsten
    Wenn es 3 Tage in der Woche ist, Starttag und mit 3 +/- Werten rechnen, ansonsten
    Wenn es 4 Tage in der Woche ist, Starttag und mit 4 +/- Werten rechnen, ansonsten
    Wenn es 5 Tage in der Woche ist, Starttag und mit 5 +/- Werten rechnen, ansonsten
    Wenn es 6 Tage in der Woche ist, Starttag und mit 6 +/- Werten rechnen.

    Und das jetzt umsetzen??? ?(

  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 11:45

    @peter S. Taler: Ja, das ist nachvollziehbar, aber meines ist auch nachvollziehbar. Die berühmten tausend Wege nach Rom und ich nehm immer den Jacobs-Weg. :rofl:

    Über eine andere Lsg. des Problems bin ich offen gegenüber gestellt. :saint:

  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 11:31

    @peter S. Taler. Was in in dieser Nacht denn? ;)

    @Oscar, aber es stimmt doch:
    #cs
    01.01. bis 14.01. = 14 Tage
    1. Termin am Fr. 01.01. 14
    2. Termin am So. 03.01. 14-2=12
    3. Termin am Mo. 04.01. 12-1=11
    4. Termin am Sa. 08.01. 11-4=7
    5. Termin am So. 10.01. 7-2=5
    5- Termin am Do. 11.01. 5-1=4
    6. Termin am Sa. 14.01. 4-4=0
    #ce

    Oder irre ich mich? Nee, irren ist nicccccht "weiblich". :Face::theke:

  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 11:08

    -2 heißt 2 vom $_sw abziehen und 2 Tage weiter im Kalender springen.
    -1 heißt 1 vom $_sw abziehen und 1 Tag weiter im Kalender springen.
    -4 heißt 4 vom $_sw abziehen und 4 Tage weiter im Kalender springe.
    Und nach jedem dem Springen etwas im Kalender eintragen als Widerholungstermin.

    Termin ist also am Tag x und danach nach zwei Tagen, danach nach einem Tag, danach
    nach vier Tagen, und dann wieder von vorne. zwei-eins-vier-zwei-ein-vier-...

  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 10:47

    Ich habe die Lsg. gerade gaaaanz kurz vor Dir gepostet. ;)

  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 10:35

    Ich habe es selber geschafft.

    Sieht nun so aus und statt in die Console, gibt es Text in der MsgBox.

    AutoIt
    ;Startwert setzen
    Global $_sw = 81
    
    
    ; Anzahl der Schleifen berechnen
    $_schleifen = Ceiling($_sw / 7)
    
    
    ; Nur zur Info beim scripten
    MsgBox(0, "Benötigte Schleifendurchgänge",$_schleifen & " Schleifendurchgänge werden benötigt.")
    
    
    ; Schleife
    For $i = $_schleifen To 0 Step -1
    	if $_sw = 0 Then ExitLoop
    
    
    ; 1. Prüfung: ist $_sw >= 2
    	if $_sw >= 2 Then
    		$_sw= ($_sw-2)
    			MsgBox(0, "-2", "noch offene Durchgäng: " & $i & ". Der Restwert ist: " & $_sw)
    		EndIf
    
    
    ; 2. Prüfung: ist $_sw >= 1
    	if $_sw >=1 Then
    		$_sw= ($_sw-1)
    			MsgBox(0, "-1", "noch offene Durchgäng: " & $i & ". Der Restwert ist: " &  $_sw)
    		EndIf
    
    
    ; 3. Prüfung: ist $_sw >= 4
    	if $_sw >=4 Then
    		$_sw= ($_sw-4)
    			MsgBox(0, "-4", "noch offene Durchgäng: " & $i & ". Der Restwert ist: " &  $_sw)
    	EndIf
    
    
    Next
    Alles anzeigen
  • solange $_sw >= 0

    • Alina
    • 29. November 2015 um 07:14

    Moin Moin.
    Erst einmal: mir viel nach dieser Nacht kein besserer Titel ein.

    Mein Vorhaben:
    Es gibt einen Startwert der hier mal 80 ist.

    $_sw = 80

    Solange $_sw >= 0 dann soll er folgende 3-Prüfungen durchführen:

    1.) Ist $_sw >= 2 dann: a) $_sw - 2 und das Ergebnis, den neuen $_sw in die Colsole ausgeben (Ausgabe: "80 -2 = 78").
    2.) Ist $_sw >= 1 dann: a) $_sw - 1 und das Ergebnis, den neuen $_sw in die Colsole ausgeben (Ausgabe: "78 -1 = 77").
    3.) Ist $_sw >= 4 dann: a) $_sw - 4 und das Ergebnis, den neuen $_sw in die Colsole ausgeben. (Ausgabe: "77 -4 = 73").


    Wenn ich es mal schnell im müden Kopf durchrechne sind das: (80/(2+1+4)) = 11 Komplette Durchläufe und beim nächsten durchlauf ist die 3. Pürfung nicht mehr moglich.
    Das sind dann 36 Werte später in der Consolenausgabe, wenn ich den $_sw = 80 mit rechne. Oder?

    Nur wie das ganze nun in eine Sinnvolle Schleife packen. Später werde ich es dann sicherlich noch erweitern müssen, da es bis zu acht Prüfungen geben kann, wobei dann auch der Startwert shöher ist.

    Nun bin ich mal gesapnnt ob mich "wer" verstanden hat oder ob es eher die :Glaskugel: wird.

  • Turnierplaner auf SQLite Datenbank basiert

    • Alina
    • 28. November 2015 um 18:33

    Moin - Moin.

    Schau mal hier das Thema, vielleicht hilft es Dir weiter.

    Ich habe mir mal erlaubt, Dein Script lauffäig zu machen. Du hattest da wohl etwas verwechselt, wo die [EndSwitch] hingehört.

    Hier hast Du doch schon mal die Datenbanktabelle Spalten die ja dem ListView entsprechen:
    _SQLite_Exec($g_db_Database, "CREATE TABLE IF NOT EXISTS ADR(ID INTEGER PRIMARY KEY AUTOINCREMENT,Vorname,Hausname,Vereinnummer,Vereinname,Mannschaft,Gruppe,Runde 1,Runde 2,Runde 3,Ergebniss);")


    Versuche erst einmal dich mit SQLite auseinander zu setzen. Ich bin auch gerade dabei und mir wurden paar gute Links gepostet (siehe ersten Satz, nach Begrüßung). Und wenn Du mehr brauchst, ich habe noch eine ganze Menge Links in der Hoffung durch zu blicken. Aber wenn es nicht geht, frage ich hier im Forum nach und bekomme immer Hilfe. Aber verstehen ist das, was ich möchte. Selbst ist die Frau !!!


    AutoIt
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    $Form1 = GUICreate("Turnierplaner", 1034, 716, 195, 112)
    $MenuItem10 = GUICtrlCreateMenu("Verein eingeben")
    $MenuItem11 = GUICtrlCreateMenuItem("Verein eingeben", $MenuItem10)
    $MenuItem20 = GUICtrlCreateMenu("Spieler")
    $MenuItem21 = GUICtrlCreateMenuItem("Neuen Spieler eingeben", $MenuItem20)
    $MenuItem30 = GUICtrlCreateMenu("Ergebnisse eingeben")
    $MenuItem31 = GUICtrlCreateMenuItem("Ergebnisse eingeben", $MenuItem30)
    GUICtrlCreateLabel("Gesamte Datenbank einträge sollen hier in ListView angezeigt werden ...", 15, 20, 500, 22)
    $ListView1 = GUICtrlCreateListView("ID | Vorname | Hausname | Vereinnummer | Vereinname | Mannschaft | Gruppe | Runde 1 | Runde 2 | Runde 3 | Ergebniss", 0, 54, 1033, 600, $LVS_SHOWSELALWAYS)
    $ListViewButton = GUICtrlCreateButton("ListView Aktualisieren", 900, 660, 113, 30)
    $Form2 = GUICreate("Spieler eingeben", 1034, 716, 195, 112)
    $Labe210 = GUICtrlCreateLabel("Vereinnummer", 8, 128, 70, 80)
    $VereinNummerEingeben2 = GUICtrlCreateInput("", 150, 120, 449, 21)
    $Labe220 = GUICtrlCreateLabel("Vereinname", 8, 160, 70, 80)
    $VereinNamerEingeben2 = GUICtrlCreateInput("", 150, 160, 449, 21)
    $Button210 = GUICtrlCreateButton("Speichern", 100, 504, 113, 20)
    $Button220 = GUICtrlCreateButton("Abbrechen", 300, 504, 113, 20)
    GUICtrlCreateLabel("Diese Eingaben sollen in die Datenbank eingetragen werden ...in Spalte... Vereinnummer und Vereinname", 150, 200, 300, 80)
    $Form3 = GUICreate("Spieler eingeben", 1034, 716, 195, 112)
    $Labe310 = GUICtrlCreateLabel("ID", 8, 32, 22, 17)
    GUICtrlCreateLabel("ID soll Automatisch vergeben werden ... Erster Eintrag 1 , zweiter Eintrag 2, 3, 4 usw.", 260, 32, 500, 22)
    $InputID3 = GUICtrlCreateInput("", 150, 24, 100, 21)
    $Labe320 = GUICtrlCreateLabel("Vorname", 8, 64, 70, 80)
    $InputVorname3 = GUICtrlCreateInput("", 150, 56, 449, 21)
    $Labe330 = GUICtrlCreateLabel("Hausname", 8, 96, 70, 80)
    $InputHausname3 = GUICtrlCreateInput("", 150, 88, 449, 21)
    $Labe340 = GUICtrlCreateLabel("Vereinnummer", 8, 128, 70, 80)
    $InputVereinNummer3 = GUICtrlCreateInput("", 150, 120, 449, 21)
    $Labe350 = GUICtrlCreateLabel("Vereinname", 8, 160, 70, 80)
    $InputVereinName3 = GUICtrlCreateInput("", 150, 160, 449, 21)
    $Labe360 = GUICtrlCreateLabel("Gruppe", 8, 200, 70, 80)
    $InputGruppe3 = GUICtrlCreateInput("", 150, 200, 100, 21)
    $Labe370 = GUICtrlCreateLabel("Mannschaft", 8, 240, 70, 80)
    $InputMannschaft3 = GUICtrlCreateInput("", 150, 240, 100, 21)
    $Button310 = GUICtrlCreateButton("Speichern", 100, 504, 113, 20)
    $Button320 = GUICtrlCreateButton("Abbrechen", 300, 504, 113, 20)
    GUICtrlCreateLabel("Hier benötige ich hilfe = Wenn Vereinnummer eingetragen wurde soll Vereinname aus Datenbank automatisch ergänzt werden", 180, 142, 790, 25)
    GUICtrlCreateLabel("Speichern = Alle Daten in die Datenbank eintragen und automatisch zu $Form1 wechseln", 180, 442, 500, 25)
    $Form4 = GUICreate("Ergebnisse eingeben", 1034, 716, 195, 112)
    $IdSearch40 = GUICtrlCreateLabel("ID Suchen", 8, 50, 70, 80)
    $IdSearch4 = GUICtrlCreateInput("", 72, 50, 60, 21)
    $IdSearchButton4 = GUICtrlCreateButton("suchen", 150, 50, 113, 20)
    GUICtrlCreateLabel("Gefundene ID Daten hier anzeigen....", 8, 150, 300, 80)
    $Labe410 = GUICtrlCreateLabel("ID", 8, 232, 22, 17)
    $ReadID4 = GUICtrlCreateInput("", 150, 224, 100, 21)
    $Labe420 = GUICtrlCreateLabel("Vorname", 8, 264, 70, 80)
    $ReadVorname4 = GUICtrlCreateInput("", 150, 256, 449, 21)
    $Labe430 = GUICtrlCreateLabel("Hausname", 8, 296, 70, 80)
    $ReadHausname4 = GUICtrlCreateInput("", 150, 288, 449, 21)
    $Labe440 = GUICtrlCreateLabel("Vereinnummer", 8, 328, 70, 80)
    $IReadVereinNummer4 = GUICtrlCreateInput("", 150, 320, 449, 21)
    $Labe450 = GUICtrlCreateLabel("Vereinname", 8, 360, 70, 80)
    $ReadVereinName4 = GUICtrlCreateInput("", 150, 360, 449, 21)
    $Labe460 = GUICtrlCreateLabel("Gruppe", 8, 400, 70, 80)
    $ReadGruppe4 = GUICtrlCreateInput("", 150, 400, 100, 21)
    $Labe470 = GUICtrlCreateLabel("Mannschaft", 8, 440, 70, 80)
    $ReadMannschaft4 = GUICtrlCreateInput("", 150, 440, 100, 21)
    $Labe481 = GUICtrlCreateLabel("Runde 1", 10, 480, 50, 21)
    $InputRunde1 = GUICtrlCreateInput("", 10, 500, 50, 21)
    $Labe482 = GUICtrlCreateLabel("Runde 2", 70, 480, 50, 21)
    $InputRunde2 = GUICtrlCreateInput("", 70, 500, 50, 21)
    $Labe483 = GUICtrlCreateLabel("Runde 3", 130, 480, 50, 21)
    $InputRunde3 = GUICtrlCreateInput("", 130, 500, 50, 21)
    $Labe484 = GUICtrlCreateLabel("Runde 4", 190, 480, 50, 21)
    $InputRunde4 = GUICtrlCreateInput("", 190, 500, 50, 21)
    $Labe485 = GUICtrlCreateLabel("Ergebniss", 250, 480, 50, 21)
    $InputRundeEnde = GUICtrlCreateInput("", 250, 500, 50, 21)
    GUICtrlCreateLabel("Wenn Daten geändert wurden ... neue Daten speichern / Datenbank überschreiben", 8, 600, 300, 80)
    $Button410 = GUICtrlCreateButton("Speichern", 200, 634, 113, 20)
    $Button420 = GUICtrlCreateButton("Abbrechen", 350, 634, 113, 20)
    GUISetState(@SW_SHOW, $Form1)
    ;~ In Testphase ist diese Funktion noch nicht aktiv!
    ;~ GUIRegisterMsg ($WM_NCLBUTTONDOWN, "WM_NCLBUTTONDOWN_FUNC")
    While 1
    	$Msg = GUIGetMsg(1)
    	Switch $Msg[0]
    		Case $GUI_EVENT_CLOSE
    			Switch $Msg[1]
    				Case $MenuItem11
    					GUISetState(@SW_SHOW, $Form2)
    				Case $MenuItem21
    					GUISetState(@SW_SHOW, $Form3)
    				Case $MenuItem31
    					GUISetState(@SW_SHOW, $Form4)
    				Case $Button220
    					GUISetState(@SW_HIDE, $Form2)
    				Case $Button320
    					GUISetState(@SW_HIDE, $Form3)
    				Case $Button420
    					GUISetState(@SW_HIDE, $Form4)
    			EndSwitch
    	EndSwitch
    WEnd
    Alles anzeigen
  • SQLite Grundsatzfragen für AnfängerX

    • Alina
    • 28. November 2015 um 18:30

    Aktueller Stand:

    AutoIt
    #cs
    Versuche folgendes umzusetzen.
    Einfache Beispiele für SQL-Kommandos: http://www.torsten-horn.de/techdocs/sql-examples.htm
    
    
    - offen - : SELECT Nachname, Telefon FROM ADR WHERE Ort = 'Beispielort'      --> zeigt Name und Telefon an wenn Ort Beispieldorf ist
    - testen - : SELECT * FROM ADR WHERE Nr = '11' AND (Ort = 'Beispieldorf' OR Ort = 'Bubblehausen')      --> Nr 11 einer der beiden Ort muss vorhanden sein
    - offen - : SELECT * FROM ADR WHERE Ort LIKE '%stadt'     --> Ort mit den Ende "-stadt" mit beliebig viele Zeiten davor
    - offen - : SELECT * FROM ADR WHERE Tel LIKE '____8'    --> Ausgabe Tel mit einer 8 an der 5. Stelle
    - offen - : SELECT * FROM ADR WHERE Plz BETWEEN 25750 AND 25810     --> PLZ muss zwischen 25750 u. 25810 sein
    - offen - : SELECT COUNT(*) FROM ADR WHERE Strasse = 'Musterweg'    --> zähle die Einträge mit dem Suchergebnis
    - offen - : SELECT Ort, COUNT(*) Telefon FROM ADR GROUP BY Ort      --> ges. Anzahl an Tel-Nr. pro Ort
    - offen - : SELECT Ort, COUNT(*) FROM ADR GROUP BY Ort HAVING COUNT(*) >= 3   --> Die mit "GROUP BY" ermittelte Menge an Zeilen eingeschränken durch eine "HAVING"-Bedingung.
    - offen - : Datensatz löschen ???
    - offen - : Datensatz ändern ??? NEUE WERTE   $sPLZ = "98765", $sTelefon= "02154987304", $sMail = "sec_mail@domain.dk"
    - offen - : Neue Spalte in der Datenbank erstellen ???  einmal hinter [Mail] und einmal zwischen [Nachname] und [Strasse] wenn beides geht
    
    
    - testen - : Select * from ADR Where Ort = "Beispielstadt" OR Nr = "6"
    
    
    #ce
    ;Includes
    
    
    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    
    
    ;Opt
    Opt("GUIOnEventMode", 1)
    
    
    ;  !!! Datei lösche ich hier nur, damit ich sie nicht manuell löschen muss in der Übungsphase !!!
    FileDelete(@ScriptDir & "\database.db")
    
    
    ; DLL Pfad
    _SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) ; BugFix Idee, da DLL ja nicht mehr mitgeliefert wird
    
    
    ; gibt die SQL Version in die Console aus
    ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
    
    
    ; Datenbank öffnen, ggf. erstellen
    Global $g_db_Database = _SQLite_Open(@ScriptDir & "\database.db")
    
    
    ; Datenbanktabelle
    _SQLite_Exec($g_db_Database, "CREATE TABLE IF NOT EXISTS ADR(ID INTEGER PRIMARY KEY AUTOINCREMENT, Vorname, Nachname, Strasse, Nr, PLZ, Ort, Telefon, Geburtstag, Mail);")
    
    
    ; jeweils ein Datensatz wird dazu geschrieben
    _SQLite_Exec(-1, "INSERT INTO ADR VALUES('1', 'Maria', 'Mustermann', 'Landstraße', '6', '01234', 'Bubblehausen', '08912547895', '2014.02.29', 'mail@domain.dk' );")
    _SQLite_Exec(-1, "INSERT INTO ADR VALUES('2', 'Klaus', 'Tester', 'Musterweg', '13', '25800', 'Beispieldorf', '02648745', '1990.05.01', 'email1@mail.dk' );")
    _SQLite_Exec(-1, "INSERT INTO ADR VALUES('3', 'Renate', 'Tester', 'Musterweg', '11', '25800', 'Beispieldorf', '02648746', '1989.11.17', 'email2@mail.dk' );")
    _SQLite_Exec(-1, "INSERT INTO ADR VALUES('4', 'Inga', 'Tester', 'Musterweg', '13', '25852', 'Beispielstadt', '02648747', '1954.02.31', 'email3@mail.dk' );")
    _SQLite_Exec(-1, "INSERT INTO ADR VALUES('5', 'Lereno', 'Tester', 'Musterweg', '11', '25852', 'Beispielstadt', '02648748', '1989.11.17', 'email4@mail.dk' );")
    _SQLite_Exec(-1, "INSERT INTO ADR VALUES('6', 'Lereno', 'Fester', 'Musterweg', '11', '25852', 'Beispielstadt', '02648748', '1989.11.17', 'email4@mail.dk' );")
    
    
    ; Änderungsabfrage
    MsgBox(0, "SQLite", "Die letzte Abfrage änderte " & _SQLite_Changes() & " Zeile." & @CRLF & _
            "Alle Abfragen änderten " & _SQLite_TotalChanges() & " Zeilen.")
    
    
    ; Datensätze in Cosole ausgeben
    local $aResult
    local $aResult2
    local $aResult3
    Local $aResult4
    local $iRows
    local $iColumns
    local $iRval
    
    
    ; ges. Tbl. ausgeben
    ConsoleWrite(_SQLite_GetTable2d(-1, "SELECT * FROM ADR;", $aResult, $iRows, $iColumns))
    If $iRval = $SQLITE_OK Then
        _SQLite_Display2DResult($aResult) ; Anzeige des Ergebnisses in der Konsole
    _ArrayDisplay($aResult, ' "SELECT * FROM ADR;", $aResult, $iRows, $iColumns"')
    	Else
    		MsgBox(16, "SQLite Fehler: " & $iRval, _SQLite_ErrMsg())
    EndIf
    
    
    ; Ausgabe auf die Anfrage: Wer hat am 17.11.1989 Geburtstag ?
    ConsoleWrite(@CRLF & ".. Es folgen die Datensätze wo der Geburtstag der 17.11.1989 ist." & @CRLF)
    ConsoleWrite(_SQLite_GetTable2d(-1, "SELECT * FROM ADR WHERE `Geburtstag`='1989.11.17';", $aResult2, $iRows, $iColumns))
    If $iRval = $SQLITE_OK Then
        _SQLite_Display2DResult($aResult2) ; Anzeige des Ergebnisses in der Konsole
    _ArrayDisplay($aResult2, ' SELECT * FROM ADR WHERE `Geburtstag`=''1989.11.17'';')
    	Else
    		MsgBox(16, "SQLite Fehler: " & $iRval, _SQLite_ErrMsg())
    EndIf
    
    
    ; ID des letzten eingefügten Datensatz
    MsgBox(0,"",_SQLite_LastInsertRowID() & @CRLF)
    
    
    ; Sortieren nach Geburtsdatum Nachname
    ConsoleWrite(_SQLite_GetTable2d(-1, "SELECT * FROM ADR ORDER BY Geburtstag, Nachname;", $aResult3, $iRows, $iColumns)& @CRLF)
    If $iRval = $SQLITE_OK Then
        _SQLite_Display2DResult($aResult3) ; Anzeige des Ergebnisses in der Konsole
    	_ArrayDisplay($aResult3, ' SELECT * FROM ADR ORDER BY Geburtstag, Nachname;", $aResult3, $iRows, $iColumns')
    
    
    	Else
    		MsgBox(16, "SQLite Fehler: " & $iRval, _SQLite_ErrMsg())
    EndIf
    
    
    ; Alle anzeigen, außer die Datensätz haben die Nr. 11
    ConsoleWrite(_SQLite_GetTable2d(-1, "SELECT * FROM ADR WHERE Nr <> '11';", $aResult4, $iRows, $iColumns)& @CRLF)
    If $iRval = $SQLITE_OK Then
        _SQLite_Display2DResult($aResult4) ; Anzeige des Ergebnisses in der Konsole
    _ArrayDisplay($aResult4, ' SELECT * FROM ADR WHERE Nr <> ''11'';", $aResult4, $iRows, $iColumns')
    	Else
    		MsgBox(16, "SQLite Fehler: " & $iRval, _SQLite_ErrMsg())
    EndIf
    
    
    ; Exit
    _Exit()
    Func _Exit() ; Datenbank schließen und down.
    
    
    	_SQLite_Close($g_db_Database)
    	_SQLite_Shutdown()
    	Exit
    EndFunc
    Alles anzeigen

    und dennoch viele Sachen die ich noch ausprobieren muss, bevor ich dann mal ein großes Ding plane.

  • Happy Birthday BugFix

    • Alina
    • 28. November 2015 um 18:09

    Alles Liebe & Gute für Dein neues Lebensjahr, mein Lieber. ;)
    Möge die Gesundheit dich in Deinem jungen Alter begleiten und Du noch viele Jahre .....

  • Controlsend mit ControlID

    • Alina
    • 27. November 2015 um 19:16
    • Probiere mal diese schreibweisen durch:
    • ControlSend ("","","[ID:985992]","",1)
    • ControlSend ("","","[ID:985992]","",0)
    • ControlSend ("","","[ID:985992]")
    • ControlSend ([ID:985992]","",1)
    • ControlSend ([ID:985992]","",0)
    • ControlSend ([ID:985992]","$C16",1)
    • ControlSend ([ID:985992]","$C16",0)

    Vielleicht kommt das Script auch nicht mit der Variable [$C16] klar.

    Es wäre schön, wenn Du ds Script mal postest, damit wir nicht zu sehr die Glaskugel beansprechen (wie heißt es richtig?) müssen. ;)

  • Wie die Übersicht im Programmcode behalten

    • Alina
    • 27. November 2015 um 16:18

    @Kanashius

    Also Leerzeichen solang es weniger als fünf Stellen sind, danach setzt man ein Tab. So habe ich es gelernt und ich glaube ich schreibe an vielen Tagen mehr als jeder andere hier. ;)
    Meine beruflich und nicht "hier" im Forum. ;)

  • Hallö!

    • Alina
    • 26. November 2015 um 20:43

    Herzlich willkommen im Forum und nachsichtig sind die Herren und die eine Damen (Schwester) hier.
    Beacht5e die Forenregeln, bleibe locker und habe Geduld mit Dir und den Dir helfenden, denn es geht
    nicht immer von Heute auf Morgen. Lass Dir gerne helfen, aber zeige Eigeniniziative. Am Anfang habe
    ich es so gemacht, das ich mir ersteinmal angesehen habe, was gibt es alles. Ich habe die Hilfe genommen
    ersteinma gelesen und dadurch nicht nur mein Wissen etwas erweitert, sondrn auch meine Neugierde nach
    weiteren Lösungen geweckt. Eigentlich wollte ich vor einigen Jahren nur eine Batchdatei die nicht mehr zu
    erweitern war irgendwie anders bearbeiten und bin hier gelandet. Und hier bin ich nicht heute und stelle oft
    fest, das je mehr ich mit AutoIt arbeite, je leichter geht es und je mehr traue ich mich an neue Sachen, wie
    zum Beispiel SQLite.

    So, nun möchte ich Dich nicht weiter vom Lernen abhalten. Lese die Forenregeln, die Hilfe und dann kann es
    los gehen. "Lass die Tasten glühen !!!".

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™