Beiträge von RR04

RR04

Hi inventor,

das System ist ziehmlich neu und ich habe Autoit in den Ordner "Program Files (x86)" installiert.
Beim Versuch Tidy zu starten (Strg+T), bekam ich die Meldung im Anhang.

Danke fürs Nachhaken!

RR04

Hallo!
Tidy geht nicht unter Win8 64bit!

Ich bekomme eine Msgbox mit der Meldung: "Tidy funktioniert nicht richtig und muss beendet werden!".

Gab es schon mal so etwas, wer kann helfen ?

Danke schon mal.

RR04

Hier für eine InputBox, schau Dir die mal genauer an.

[autoit]

Global $input_1 = InputBox("Eingabe", "Input 1:", "")
If @error Then Exit
IniWrite(StringTrimRight(@ScriptFullPath, 4) & ".ini", "Sektion 1", "Input 1", $input_1)
; Ende

[/autoit]

RR04

Hallo,
hier ein ähnliches Beispiel:

Dynamic Link Library zur Weiterverwendung in AutoIt

RR04

Hi,
die vielen Controls lassen sich auch zusammenfassen. Das Ansprechen erfolgt, dann über die Array-Variable "$aIpt[0] - $aIpt[11]".
Weiterhin viel Spaß hier!

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <ComboConstants.au3>
#include <EditConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Reifen Setup", 700, 430, 236, 246)
GUISetBkColor(0xFFFFFF)
$Combo1 = GUICtrlCreateCombo("Rennen", 295, 8, 105, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))

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

GUICtrlCreateGroup(" Eintrag 1 ", 20, 50, 330, 325)
GUICtrlSetBkColor(-1, 0xFFCCFF) ; Rosa
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup(" Eintrag 2 ", 350, 50, 330, 325)
GUICtrlSetBkColor(-1, 0xCCFFFF) ; Mintgrün

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

Global $aIpt[12]
For $k = 0 To 11
$aIpt[$k] = GUICtrlCreateInput("", 70 + Mod($k, 6) * 100, 90 + Int($k / 6) * 150, 60, 20, $ES_NUMBER)
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$fl_sturz = GUICtrlCreateLabel("fl_sturz", 75, 112, 132, 17)
$fl_tyre = GUICtrlCreateLabel("fl_tyre", 75, 144, 132, 17)
$fl_bar = GUICtrlCreateLabel("fl_bar", 75, 128, 132, 17)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$rl_sturz = GUICtrlCreateLabel("rl_sturz", 75, 264, 132, 17)
$rl_bar = GUICtrlCreateLabel("rl_bar", 75, 280, 132, 17)
$rl_tyre = GUICtrlCreateLabel("rl_tyre", 75, 296, 132, 17)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$fr_sturz = GUICtrlCreateLabel("fr_sturz", 376, 112, 132, 17)
$fr_bar = GUICtrlCreateLabel("fr_bar", 376, 128, 132, 17)
$fr_tyre = GUICtrlCreateLabel("fr_tyre", 376, 144, 132, 17)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$rr_sturz = GUICtrlCreateLabel("rr_sturz", 376, 264, 132, 17)
$rr_bar = GUICtrlCreateLabel("rr_bar", 376, 280, 132, 17)
$rr_tyre = GUICtrlCreateLabel("rr_tyre", 376, 296, 132, 17)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$run = GUICtrlCreateButton("Ausführen", 295, 390, 97, 25)
;~ $Pic1 = GUICtrlCreatePic("C:\Users\Danny\Desktop\sss.jpg", 249, 48, 116, 236)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TEXTE
$r_down = "Radstuz Senken"
$r_up = "Radstuz Ehöhen"
$r_ok = "Radstuz OK"
$bar_up = "mehr Reifendruck"
$bar_down = "weniger Reifendruck"
$bar_ok = "Reifendruck OK"
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
Exit
Case $run
MsgBox(64, "", "Ausführen gedrückt !" & @TAB)
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi, schau Dir die Versionen aus der Hilfe mal genauer an und spiele ein bisschen mit herum.

GUIGetMsg für Fortgeschrittene und mehrere Fenster
http://translation.autoit.de/onlinehilfe/gu…ageLoopMode.htm

Fortgeschrittene Operationen und mehrere Fenster
http://translation.autoit.de/onlinehilfe/gu…OnEventMode.htm

RR04

Hi,
zum Thema habe ich noch eine Lösung im en. Forum gefunden.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $GuiTest = GUICreate("Color Test", 330, 220, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_MINIMIZEBOX, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetBkColor(0x585768)

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

Global $GuiLabel = GUICtrlCreateLabel("A bunch of buttons in a test GUI", 0, 20, 330, 15, $SS_CENTER)
GUICtrlSetColor(-1, 0xffffff)

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

Global $Section1 = XSkinGroup("This Text Should Be White", 10, 40, 310, 170, 0xffffff)
; GUICtrlSetColor(-1,0xffffff)

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

Global $ButtonLabel1 = GUICtrlCreateLabel("Item Label 1", 20, 60, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button1 = GUICtrlCreateButton("Button 1", 140, 55, 170, 25)

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

Global $ButtonLabel2 = GUICtrlCreateLabel("Item Label 2", 20, 90, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button2 = GUICtrlCreateButton("Button 2", 140, 85, 170, 25)

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

Global $ButtonLabel3 = GUICtrlCreateLabel("Item Label 3", 20, 120, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button3 = GUICtrlCreateButton("Button 3", 140, 115, 170, 25)

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

Global $ButtonLabel4 = GUICtrlCreateLabel("Item Label 4", 20, 150, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button4 = GUICtrlCreateButton("Button 4", 140, 145, 170, 25)

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

Global $ButtonLabel5 = GUICtrlCreateLabel("Item Label 5", 20, 180, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button5 = GUICtrlCreateButton("Button 5", 140, 175, 170, 25)

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

GUISetState(@SW_SHOW, $GuiTest)

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

While True
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

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

Func XSkinGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight, $color)
Local $XS_n, $PControl
If StringInStr(@OSType, "WIN32_NT") Then
$XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
EndIf
$PControl = GUICtrlCreateGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight)
;GUICtrlSetBkColor($PControl, $color)
GUICtrlSetColor($PControl, $color)
If StringInStr(@OSType, "WIN32_NT") And IsArray($XS_n) Then
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
EndIf
Return $PControl
EndFunc ;==>XSkinGroup
; Quelle: http://www.autoitscript.com/forum/topic/37…oup-text-color/

[/autoit]

Edit: Post # 12 - Hinweis von Oscar: Ja, das kann sein ist Posted 14 December 2006 - 03:47 PM

RR04

Warum nicht erneut Labels verwenden?
Die Eigenschaften können mit dem Styl WS_Group eingestellt werden (RadioBox).

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <WindowsConstants.au3>

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

#region ### START Koda GUI section ###
Global $hGUI = GUICreate("Colored Group", 1270, 310, -1, -1)
GUISetBkColor(0x000000)
Global $idLabelGroupTeam1 = GUICtrlCreateLabel("Blue Team", 25, 15)
GUICtrlSetColor($idLabelGroupTeam1, 0xffffff)
Global $lbl1 = GUICtrlCreateLabel("", 5, 10, 1255, 2)
GUICtrlSetBkColor(-1, 0xffffff)
Global $lbl2 = GUICtrlCreateLabel("", 5, 300, 1255, 2)
GUICtrlSetBkColor(-1, 0xffffff)
Global $lbl3 = GUICtrlCreateLabel("", 5, 10, 2, 290)
GUICtrlSetBkColor(-1, 0xffffff)
Global $lbl4 = GUICtrlCreateLabel("", 1260, 10, 2, 290)
GUICtrlSetBkColor(-1, 0xffffff)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While True
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Friesel
Hier mal das Gleiche, wie Du es hast.

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section
GUICreate("Status des WLAN-Adapters umschalten.", 420, 270)
GUISetBkColor(0x808080)
Global $btn = GUICtrlCreateButton(Chr(13) & "WLAN" & Chr(13) _
& "aktivieren.", 46, 48, 330, 174, BitOR($BS_PUSHLIKE, $BS_MULTILINE, $WS_BORDER, $BS_CENTER))
GUICtrlSetFont(-1, 22, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0xA0A0A4)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While True
Switch GUIGetMsg()
Case -3
ExitLoop
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi, warum nicht mit "StringFormat" ?

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

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

Global $lblBTN = '\nWLAN\naktivieren.'
#region ### START Koda GUI section ###
; Das Fenster der GUI erstellen und formatieren
GUICreate("Status des WLAN-Adapters switchen", 420, 269, -1, 124)
GUISetBkColor(0x808080)
Global $btn = GUICtrlCreateButton(StringFormat($lblBTN), 46, 48, 330, 174, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 20, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0xA0A0A4)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While True
Switch GUIGetMsg()
Case -3
ExitLoop
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Spracheinstellungen innerhalb des Scripts OHNE Neustart verwalten!

Hier ein Beispiel:
Outlook & OExpress Saver...

RR04

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#region ### START Koda GUI section ###
GUICreate("ProcessExists", 400, 300)
Global $nMsg, $Button = GUICtrlCreateButton("", 10, 122, 380, 60)
GUICtrlCreateIcon("shell32.dll", -14, 190, 136, 32, 32, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

;i Einmaliger Aufruf der Funktion, gleich nach Programmstart.
_change()
;i Aufruf der Funktion, alle 5000 ms.
AdlibRegister("_change", 5000)

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

;i Das Flackern wird durch zu schnelles wiederholtes Zeichnen verursacht!
;~ AdlibRegister("_change", 250)

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

While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
WEnd

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

Func _change()
Local $color = 0xFF0000
If ProcessExists('mspaint.exe') Then $color = 0x00FF00
GUICtrlSetBkColor($Button, $color)
EndFunc ;==>_change
; Ende

[/autoit]

RR04

Hier mal eine andere Lösung.

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
;~ +> $WS_CLIPSIBLINGS —> WindowsConstants.au3
;~ +> $BS_BOTTOM —> ButtonConstants.au3
;~ +> $BS_MULTILINE —> ButtonConstants.au3

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

Global $msg, $tate = 1, $sMsg[2], $Color[2] = [0xFF0000, 0x00FF00]
$sMsg[0] = '\nViel Spaß wünscht\nRitzelrocker04 !'
$sMsg[1] = '\nDas ist ein\nmehrzeiliger Text\nin einem\nfarbigen Button'

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

GUICreate('Colored_image_Button-Tut', 300, 150)
GUICtrlCreateIcon("shell32.dll", -14, 40, 40, 32, 32, 0)
Global $btnColor = GUICtrlCreateButton(StringFormat($sMsg[1]), 10, 10, 230, 100, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState()

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

While True
$msg = GUIGetMsg()
Switch $msg
Case -3 ;$GUI_EVENT_CLOSE
MsgBox(64, 'tata... ;)', StringFormat($sMsg[0]), 3)
ExitLoop
Case $btnColor
$tate = BitXOR($tate, 0, 1)
For $k = 0 To 1 ;i statisch kein Ubound
GUICtrlSetData($btnColor, StringFormat($sMsg[$tate]))
GUICtrlSetBkColor($btnColor, $Color[$tate])
Next
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi,

siehe die Ausführungen zu Insert, Commit und Rollback.

http://www.sqlite.org/lang_transaction.html

RR04

Hallo,
bevor es los geht mit Datenbanken (DB) könntest Du Dein SQLite updaten ( http://www.sqlite.org/ ).
DB sind zum Speichern und verwalten großer Datenmengen. Die Daten werden nicht sortiert.

DB stellen ein unabhängiges System dar, die sogar eine eigene Sprache mitbringen - SQL!
Eine DB entwickeln würde ich, also separat von den Sprachen, wie C++, Java oder Autoit ( siehe auch http://www.ruhrtaler-softwareschmiede.de/bitmagie/sqlite ).
Eine vorhandene DB lässt sich, dann von allen Sprachen ansprechen (wie C++, PHP, Java oder Autoit).

zweiTabellen_3.SQL

-- Als zweiTabellen_3.SQL speichern --
-- Tabelle 'pflanzen' erzeugen --
CREATE TABLE pflanzen (
ID INTEGER PRIMARY KEY,
Name text NOT NULL COLLATE nocase,
Art_Nr INTEGER REFERENCES pflanzen_art(Art_Nr) ON DELETE RESTRICT DEFERRABLE INITIALLY DEFERRED,
Farbe text NOT NULL DEFAULT 'grün',
Geschmack text NOT NULL DEFAULT 'sauer',
Groesse text NOT NULL DEFAULT 'klein',
UNIQUE(Name,Art_Nr),
CHECK(LENGTH(Name)>0)
);

-- Tabelle 'pflanzen_art' erzeugen --
CREATE TABLE pflanzen_art (
Art_Nr INTEGER PRIMARY KEY,
Bezeichnung text NOT NULL COLLATE nocase
);

INSERT INTO pflanzen_art VALUES(1, 'Obst');
INSERT INTO pflanzen_art VALUES(2, 'Gemüse');
INSERT INTO pflanzen_art VALUES(3, 'Blumen');

-- Daten in Tabelle 'pflanzen' einfuegen --
INSERT INTO pflanzen VALUES(1, 'Ananas', 1, 'braun', 'süß', 'gross');
INSERT INTO pflanzen VALUES(2, 'Apfel', 1, 'grün', 'sauer', 'mittel');
INSERT INTO pflanzen VALUES(3, 'Banane',1, 'gelb', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(4, 'Birne',1, 'gelb', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(5, 'Brombeere',1, 'schwarz', 'sauer', 'klein');
INSERT INTO pflanzen VALUES(41, 'Dattel',1, 'braun', 'süß','klein');
INSERT INTO pflanzen VALUES(6, 'Erdbeere',1, 'rot', 'süß', 'klein');
INSERT INTO pflanzen VALUES(7, 'Granatapfel',1, 'rot', 'sauer', 'mittel');
INSERT INTO pflanzen VALUES(9, 'Grapefruit',1, 'gelb', 'sauer', 'mittel');
INSERT INTO pflanzen VALUES(10, 'Himbeere',1, 'rot', 'süß', 'klein');
INSERT INTO pflanzen VALUES(11, 'Kaki',1, 'orange', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(12, 'Kirsche',1, 'rot', 'süß', 'klein');
INSERT INTO pflanzen VALUES(13, 'Kiwi',1, 'braun', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(14, 'Mandarine',1, 'orange', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(15, 'Mango',1, 'gelb', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(16, 'Maracuja',1, 'lila', 'sauer', 'mittel');
INSERT INTO pflanzen VALUES(17, 'Nektarine',1, 'rot', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(18, 'Orange',1, 'orange', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(19, 'Papaya',1, 'orange', 'süß', 'gross');
INSERT INTO pflanzen VALUES(20, 'Pfirsich',1, 'gelb', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(21, 'Plaume',1, 'lila', 'süß','klein');
INSERT INTO pflanzen VALUES(22, 'Pomelo',1, 'gelb', 'süß', 'gross');
INSERT INTO pflanzen VALUES(23, 'Quitte',1, 'gelb', 'sauer', 'mittel');
INSERT INTO pflanzen VALUES(24, 'Sanddorn',1, 'orange', 'sauer', 'klein');
INSERT INTO pflanzen VALUES(25, 'Schlehe',1, 'blau', 'sauer', 'klein');
INSERT INTO pflanzen VALUES(26, 'Weintraube', 1, 'grün', 'süß', 'mittel');
INSERT INTO pflanzen VALUES(27, 'Aubergine',2, 'lila', 'herzhaft', 'gross');
INSERT INTO pflanzen VALUES(28, 'Blumenkohl',2, 'weiss', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(29, 'Brocoli',2, 'grün', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(30, 'Bohne',2, 'grün', 'herzhaft', 'klein');
INSERT INTO pflanzen VALUES(31, 'Erbse',2, 'grün', 'herzhaft', 'klein');
INSERT INTO pflanzen VALUES(32, 'Fenchel',2, 'grün', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(33, 'Karotte',2, 'orange', 'herzhaft','mittel');
INSERT INTO pflanzen VALUES(34, 'Kartoffel',2, 'gelb', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(35, 'Kohlrabi',2, 'grün', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(36, 'Paprika',2, 'rot', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(37, 'Rettich',2, 'weiss', 'scharf', 'mittel');
INSERT INTO pflanzen VALUES(38, 'Rotkohl',2, 'lila', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(39, 'Tomate',2, 'rot', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(40, 'Zucchini',2, 'grün', 'herzhaft', 'mittel');
INSERT INTO pflanzen VALUES(42, 'Rosen',3, 'rot', '', 'mittel');
INSERT INTO pflanzen VALUES(43, 'Nelken',3, 'rot', '', 'klein');
INSERT INTO pflanzen VALUES(44, 'Tulpen',3, 'gelb', '', 'klein');

-- Weitere Daten in die Tabelle 'pflanzen' einfuegen, ohne die Angabe der ID --
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Vogelmiere',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Veilchen',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Schlüsselblume',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Gänsedistel',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Zaunrübe',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Maiglöckchen',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Waldmeister',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Teufelskralle',3, 'grün', '', 'klein');
INSERT INTO pflanzen(Name, Art_Nr, Farbe, Geschmack, Groesse) VALUES('Stiefmütterchen',3, 'grün', '', 'klein');

-- Tabellen ausgeben --
SELECT * FROM pflanzen;
SELECT * FROM pflanzen_art;

SELECT pflanzen.ID, pflanzen.Name, pflanzen.Farbe, pflanzen.Geschmack, pflanzen.Groesse, pflanzen_art.Bezeichnung
FROM pflanzen, pflanzen_art
WHERE pflanzen.Art_Nr = pflanzen_art.Art_Nr;

SELECT pflanzen.ID, pflanzen.Name, pflanzen_art.Bezeichnung, pflanzen.Farbe, pflanzen.Geschmack, pflanzen.Groesse
FROM pflanzen, pflanzen_art
WHERE pflanzen.Art_Nr = pflanzen_art.Art_Nr;
-- Ende --

Hier die au3-Datei:

zweiTabellen_3.au3

[autoit]

; Als zweiTabellen_3.au3 speichern
#include <SQLite.au3>
#include <SQLite.dll.au3>

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

Global $hDB, $Query, $aNames, $aRow, $msg

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

$msg = " Die DB wurde nicht gefunden !"
If FileExists("zweiTabellen_3.db") Then
$msg = " Die DB wurde gefunden !"
EndIf
ConsoleWrite($msg & @CRLF)

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

_SQLite_Startup()
If @error Then
MsgBox(16, "SQLite Fehler", "SQLite.dll konnte nicht geladen werden!")
Exit -1
EndIf
ConsoleWrite("_SQLite_LibVersion = " & _SQLite_LibVersion() & @CRLF)
$hDB = _SQLite_Open("zweiTabellen_3.db")
If @error Then
MsgBox(16, "SQLite Fehler", "Konnte die Datenbank nicht laden!")
Exit -1
EndIf

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

_SQLite_Query($hDB, "SELECT pflanzen.ID, pflanzen.Name, pflanzen.Farbe, pflanzen.Geschmack, pflanzen.Groesse, pflanzen_art.Bezeichnung FROM pflanzen, pflanzen_art WHERE pflanzen.Art_Nr = pflanzen_art.Art_Nr ", $Query)
; Auslesen der Spaltenüberschriften
_SQLite_FetchNames($Query, $aNames)
ConsoleWrite(StringFormat(" %-5s %-15s %-15s %-15s %-15s %-15s ", $aNames[0], $aNames[1], $aNames[2], $aNames[3], $aNames[4], $aNames[5]) & @CRLF)
; Auslesen der nächsten Zeile
While _SQLite_FetchData($Query, $aRow, False, False) = $SQLITE_OK
ConsoleWrite(StringFormat(" %-5s %-15s %-15s %-15s %-15s %-15s ", $aRow[0], $aRow[1], $aRow[2], $aRow[3], $aRow[4], $aRow[5]) & @CRLF)
WEnd

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

_SQLite_QueryFinalize($Query)

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

_SQLite_Close()
_SQLite_Shutdown()
; Ende

[/autoit]

RR04

DROP TABLE löscht die Tabelle. Du suchst Delete oder Update !

RR04

Hallo,
ich hoffe ich habe Dich richtig verstanden?
Schau Dir mal die Splash-Funktionen an. Die könnten was in Deiner Richtung sein.
Hier noch eine andere Lösung:

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
_noTimer()

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

Global $msg, $mainGUI = GUICreate("Haupt-GUI", 300, 300, 20, 20)
GUISetState(@SW_SHOW, $mainGUI)

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

Do
$msg = GUIGetMsg()
Until $msg = -3

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

Func _noTimer()
Local $gui = GUICreate("Willkommen", 400, 200)
GUICtrlCreateLabel('Gleich geht es los ...', 10, 130, 380, 20)
Local $progress = GUICtrlCreateProgress(10, 150, 380, 20)
GUISetState(@SW_SHOW, $gui)

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

For $i = 0 To 100 Step 5
GUICtrlSetData($progress, $i)
Sleep(500)
Next
GUIDelete($gui)
EndFunc ;==>_noTimer
; Ende

[/autoit]

RR04

[autoit]

#cs
source dir Pfad zum Quellordner ohne abschließenden Backslash (z.B. "C:\Path1")
dest dir Pfad zum Zielordner ohne abschließenden Backslash (z.B. "C:\Path1_Copy")

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

Wie sieht denn $Folder aus?
#ce
Dim $Folder ;= "..."
MsgBox(0, "", $Folder & @TAB)
; Wenn $Folder oben ohne Backslash ist,
; muss er hier nicht angegeben werden "\_temp" ?
DirMove($Folder, $Folder & "\_temp", 1)
Exit
; Ende

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

RR04

Hi, das geht auch.
Schau Dir mal die Hilfe an.

[autoit]

Local $i = 0
While $i <= 10 ; Abbruchbedingung = $i <= 10
MsgBox(0, "Der Wert von $i lautet:", $i)
$i += 1 ; $i um eins erhöhen
WEnd
; Example 2
While True ; eine endlose Schleife (Abbruchbedingung = True)
For $i = 1 To 10 ; For-Schleife zum zählen (von 1 bis 10)
;Dein Code...
Next ;Ende der For-Schleife
WEnd ;Ende der While-Schleife
; Ende

[/autoit]

RR04

Hi und herzlich willkommen!
Du kannst das Ganze noch einfacher gestalten:

Spoiler anzeigen

[autoit]

;#include <GUIConstantsEx.au3>
Global $result
#region ### START Koda GUI section ###
$Form1 = GUICreate("Taschenrechner", 905, 764, 203, 128)
$ButtonStart = GUICtrlCreateButton("Start", 328, 520, 345, 177)
$InputZahl1 = GUICtrlCreateInput("", 256, 56, 449, 24)
$InputZahl2 = GUICtrlCreateInput("", 256, 104, 449, 24)
$InputRechenzeichen = GUICtrlCreateInput("", 256, 152, 105, 24)
$LabelZahl1 = GUICtrlCreateLabel("Zahl1", 200, 64, 37, 20)
$LabelZahl2 = GUICtrlCreateLabel("Zahl2", 200, 104, 37, 20)
$LabelRechenzeichen = GUICtrlCreateLabel("Rechenzeichen", 136, 152, 97, 20)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
Exit
Case $ButtonStart
$Zahl1 = GUICtrlRead($InputZahl1)
$Zahl2 = GUICtrlRead($InputZahl2)
$Zahl3 = GUICtrlRead($InputRechenzeichen)

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

If $Zahl3 = ("+") Then
$result = $Zahl1 + $Zahl2
EndIf

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

If $Zahl3 = ("-") Then
$result = $Zahl1 - $Zahl2
EndIf

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

If $Zahl3 = ("*") Then
$result = $Zahl1 * $Zahl2
EndIf

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

If $Zahl3 = ("/") Then
If $Zahl2 = 0 Then
$result = "Fehler: Division durch Null !"
Else
$result = $Zahl1 / $Zahl2
EndIf
EndIf
MsgBox(0, "Taschenrechner", $result)
EndSwitch
WEnd
; Ende

[/autoit]

Beiträge von RR04

Tidy geht nicht unter Win8 64bit

Tidy geht nicht unter Win8 64bit

Input Box abbrechen

C++ Dll & Autoit

Input Zahlen auslesen

2. GUI schließen und die Haupt-GUI weiter laufen lassen

GroupEx.au3 -- User Group Control, vielseitig modifizierbar

GUICtrlCreateGroup - Rahmenfarbe ändern

Text zentieren

Text zentieren

Kann sich ein Script selber neu starten?

Button mit transp. Icon und Farbänderung

Button mit transp. Icon und Farbänderung

Frage zur sqlite UDF

DROP TABLE löscht nicht die gespeicherten Daten

DROP TABLE löscht nicht die gespeicherten Daten

Script mit Countdown als Wartefenster

Ordner umbenennen mit DirMove funktioniert nicht

Schleife 10x ausführen -> Nächste Schleife

Taschenrechner Error