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!
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!
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.
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
Hallo,
hier ein ähnliches Beispiel:
Hi,
die vielen Controls lassen sich auch zusammenfassen. Das Ansprechen erfolgt, dann über die Array-Variable "$aIpt[0] - $aIpt[11]".
Weiterhin viel Spaß hier!
#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))
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
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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$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 ###
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
Exit
Case $run
MsgBox(64, "", "Ausführen gedrückt !" & @TAB)
EndSwitch
WEnd
; Ende
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
Hi,
zum Thema habe ich noch eine Lösung im en. Forum gefunden.
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
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)
Global $GuiLabel = GUICtrlCreateLabel("A bunch of buttons in a test GUI", 0, 20, 330, 15, $SS_CENTER)
GUICtrlSetColor(-1, 0xffffff)
Global $Section1 = XSkinGroup("This Text Should Be White", 10, 40, 310, 170, 0xffffff)
; GUICtrlSetColor(-1,0xffffff)
Global $ButtonLabel1 = GUICtrlCreateLabel("Item Label 1", 20, 60, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button1 = GUICtrlCreateButton("Button 1", 140, 55, 170, 25)
Global $ButtonLabel2 = GUICtrlCreateLabel("Item Label 2", 20, 90, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button2 = GUICtrlCreateButton("Button 2", 140, 85, 170, 25)
Global $ButtonLabel3 = GUICtrlCreateLabel("Item Label 3", 20, 120, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button3 = GUICtrlCreateButton("Button 3", 140, 115, 170, 25)
Global $ButtonLabel4 = GUICtrlCreateLabel("Item Label 4", 20, 150, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button4 = GUICtrlCreateButton("Button 4", 140, 145, 170, 25)
Global $ButtonLabel5 = GUICtrlCreateLabel("Item Label 5", 20, 180, 130, 15)
GUICtrlSetColor(-1, 0xffffff)
Global $Button5 = GUICtrlCreateButton("Button 5", 140, 175, 170, 25)
GUISetState(@SW_SHOW, $GuiTest)
[/autoit] [autoit][/autoit] [autoit]While True
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
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/
Edit: Post # 12 - Hinweis von Oscar: Ja, das kann sein ist Posted 14 December 2006 - 03:47 PM
Warum nicht erneut Labels verwenden?
Die Eigenschaften können mit dem Styl WS_Group eingestellt werden (RadioBox).
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <WindowsConstants.au3>
#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 ###
While True
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
; Ende
Friesel
Hier mal das Gleiche, wie Du es hast.
#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 ###
While True
Switch GUIGetMsg()
Case -3
ExitLoop
EndSwitch
WEnd
; Ende
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>
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 ###
While True
Switch GUIGetMsg()
Case -3
ExitLoop
EndSwitch
WEnd
; Ende
Spracheinstellungen innerhalb des Scripts OHNE Neustart verwalten!
Hier ein Beispiel:
Outlook & OExpress Saver...
#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 ###
;i Einmaliger Aufruf der Funktion, gleich nach Programmstart.
_change()
;i Aufruf der Funktion, alle 5000 ms.
AdlibRegister("_change", 5000)
;i Das Flackern wird durch zu schnelles wiederholtes Zeichnen verursacht!
;~ AdlibRegister("_change", 250)
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
WEnd
Func _change()
Local $color = 0xFF0000
If ProcessExists('mspaint.exe') Then $color = 0x00FF00
GUICtrlSetBkColor($Button, $color)
EndFunc ;==>_change
; Ende
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
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'
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()
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
Hi,
siehe die Ausführungen zu Insert, Commit und Rollback.
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).
-- 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:
; Als zweiTabellen_3.au3 speichern
#include <SQLite.au3>
#include <SQLite.dll.au3>
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)
_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
_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
_SQLite_QueryFinalize($Query)
[/autoit] [autoit][/autoit] [autoit]_SQLite_Close()
_SQLite_Shutdown()
; Ende
DROP TABLE löscht die Tabelle. Du suchst Delete oder Update !
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:
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
_noTimer()
Global $msg, $mainGUI = GUICreate("Haupt-GUI", 300, 300, 20, 20)
GUISetState(@SW_SHOW, $mainGUI)
Do
$msg = GUIGetMsg()
Until $msg = -3
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)
For $i = 0 To 100 Step 5
GUICtrlSetData($progress, $i)
Sleep(500)
Next
GUIDelete($gui)
EndFunc ;==>_noTimer
; Ende
#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")
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
Hi, das geht auch.
Schau Dir mal die Hilfe an.
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
Hi und herzlich willkommen!
Du kannst das Ganze noch einfacher gestalten:
;#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 ###
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
Exit
Case $ButtonStart
$Zahl1 = GUICtrlRead($InputZahl1)
$Zahl2 = GUICtrlRead($InputZahl2)
$Zahl3 = GUICtrlRead($InputRechenzeichen)
If $Zahl3 = ("+") Then
$result = $Zahl1 + $Zahl2
EndIf
If $Zahl3 = ("-") Then
$result = $Zahl1 - $Zahl2
EndIf
If $Zahl3 = ("*") Then
$result = $Zahl1 * $Zahl2
EndIf
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