@MatthiasG. leider programmieren nicht alle im OnEvent-Mode (denn nur dort ist das Makro verfügbar
@PokerFace, wenn du es so machst
[autoit]Case $Field[0][0] to $Field[49][49] ; auf 49 erhöhen damit auch wirklich alle Buttons fnktionieren
GUICtrlSetBkColor($Msg, 0xff0000)
klappt es da $Msg ja der ControlId entspricht,
mfg autoBert
danke @MatthiasG., dann versuch ich es auch mal.
Eine Frage habe ich noch, sind (Eröffnungs-)Bibliotheken zugelassen?
mfg autoBert
Benutze statt SheLlexecute die Funktionen der Excel.au3. Z.B.
[autoit]_ExcelBookAttach
[/autoit]mfg autoBert
Schon das kleinste Codefragment (bei mir ca. 1,5 Din-A-4 Seiten) produziert schon eine 500kB Exe mit mittlerer Laufzeit (Geschwindigkeit). Da mein Projekt erst in der Entwurfsphase steckt bekomme ich allmählich Platzangst.
das liegt daran das AutoIt eine Interpreter-Sprache ist und die ausfüghrbare EXE immer den kompletten Interprtercode enthält, dein Skript und natürlich alle darin eingebunden Includes. Aber keine Angst, da der Interpreter und jedes Include nur einmal eingebunden wird, nimmt die Größe nicht proportional zu deinem Source zu.
mfg autoBert
Hallo MatthiasG.
wenn du die Dateien eh schon dort abgelegt hast ist es natürlich einfacher nur den Link zu posten. Warum unnötigen Aufwand betreiben, denke dass ist so in Ordnung,
mfg autoBert
Hallo fr34k,
kommentiere die Konstanten einfach aus und teste ernet,
mfg autoBert
Der FileInstall steht an der falschen Stelle, er sollte vor GuiCreate aber auf jeden fall noch vor GuiCtrlCreatePic stehen, dann kannst du bei GuiCtrlCreatePic nämlich den Zielpfad vom FileInstall angeben. Im übrigen solltest du @@DesktopDir beim FileInstall mit @Scriptdir tauschen, es mögen wenige wenn einfach ihr Desktop ohne Nachfrage benutzt wird.
Warum verlinkst du auf eine fremde Seite, so gross kann dein Skript mit Bild ja auch wieder nicht sein, dass du es (evtl. gezipped) als Datei anhängen könntest,
mfg autoBert
Ja ich bin sehr lernfähig
Und bitte aktviere die Funktion das die User Nachrichten schicken können.
Ich wollte dir die SAMP AGB's schicken, konnte es aber nicht.
Da der Thread mittlerweile ja von jemand anders aktiviert wurde, bennötige ich sie jetzt nicht mehr.
Ich werde mit meinen PM genauso weiterverfahren wie bisher wen ich einen Thread deaktivere bzw. wie bei dir noch nicht aktiviere schicke ich dem User ein PM, darauf kann er antworten oder es auch sein lassen. 1 Nachfrage wie bei dir ist auch gerade noch in Ordnung, aber dann ist das Thema für mich erledigt.
Ja ich bin sehr lernfähig
du solltest wirklich einmal die Hilfe zumindest bis GUI-Referenz durcharbeiten, dass heisst
denn die Grundlagen müssen sitzen,
mfg autoBert
eukalyptus, hat eindeutig dass beste Ergebnis abgeliefert. Der 1. (schlechte Eindruck) durch
ERROR: can't open include file "IconDock.au3"
ist mehr als vergessen, nach (manuellem umkopieren), Idee, Umsetzung, Funktion und Dokumentation perfekt.
Marsi 's Skrikt gefällt mir sehr gut, leider sehr spärlich dokumentiert. Idee, Umsetzung, Funktion sehr gut, Dokumentation zwischen ausreichend und mangelhaft.
Oscar 's Skript, gefällt mir gut: Idee gut, Umsetzung und Funktion sehr gut, Dokumetation gut.
Blackskorpi hat zwar reiserische Bilder (ich hoffe doch, sind alle frei benutzbar) ich schaffe es zwar ein Bild mit seinem Skript anzeige zu lassen, danach aber kein 2. mehr. Dass sich das Skript auch nicht schliessen lässt ist auch nicht schön.
Faweyr 's Skript lässt sich auch nicht schliessen, und das grösste Flackern/Aufblitzen im Skript.
StayAwayKnight 's Skript, sorry aus der Idee hätte man mehr machen können,
mfg AutoBert
Downloadlink, da hier zu groß:
Schnitzel ist doch PU, dann kann er dies auch hochladen
Maximale Anzahl an Dateianhängen: 15
Maximale Dateigröße: 30,48 MB
wird Zeit, dass du auch diesen Status bekommst,
mfg autoBert
ich kann das Skript dahingehend anpassen, dass immer eine Inputbox für den menschlichen Spieler erscheint. Wäre das so in deinem Sinne, damit du auch testen kannst?
ja, dann würde ich mich auch einmal daran versuchen, obwohl ich betsimmt schon 30+ Jahre kein Schach mehr gespielt habe,
mfg autoBert
der Vorläufer dieses Skriptes: Login Helper for SA:MP hat (laut cOraXx) auch schon funktioniert. Ich hatte ihn nämlich dort auch schon darauf aufmerksam gemacht, er scheint einen anderen AutoIt-Compiler zu haben oder er ist sehr lernresistent,
Edit: zum anderen ist dies (was seineigentliches Anliegen Betrifft) ein Doppelpost, siehe [ offen ] Brauche Hilfe bei Keybinder
@Mod/Admin bitte beite Threads zusammenlegen,
mfg autoBert
mfg autoBert
Hallo MatthiasG,
das die Pfade nicht stimmen hat ja chip schon gemeldet, das der Mensch immer weiss hat stört mich auch etwas da weiss einen kleinen Vorteil hat.
Desweiteren _Chess_HumanTurn hat nur einen Parameter nämlich das Ziel des Zuges, der menschliche Spieler muss doch aber auch die Möglichkeit haben von wo er was ziehen möchte auszuwählen, oder habe ich da etwas in der Aufgabe übersehen?
Edit: hat sich geklärt, mein Display (Netbook ist zu klein) um $CommandInput darzustellen, schade hatte schon überlegt auch mit zu machen,
mfg autoBert
Hallo Com,
hier ein kleines Skriptbeispiel für einen Adventskalender:
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <StaticConstants.au3>
; *** End added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
Author: autoBert: http://www.autoit.de/index.php?page=Thread&threadID=24279
Skriptbeispiel für den Umgang mit INI-Files und in Array verwalteten ControlIDS
dadurch dass die Labels den Text ihrer um 1 erhöhten ArrayID enthalten, kann diese ID auch für die Bilder verwendet werden
#ce ----------------------------------------------------------------------------
Global $idlbl[24], $idPic[24], $ini = @ScriptDir & "\Images\Advent.ini"
[/autoit] [autoit][/autoit] [autoit]$NotChangeable = 1; wenn der Anwender sie sich selbst ändern können soll hier auf 0 setzen
;dann werden die beiden Datein nicht überschrieben, dass heisst der Anwender kann sich selbst
;JPGs hinterlegen er muss nur die Namen beachten
If Not FileExists($ini) Then DirCreate(@ScriptDir & "\Images")
;FileInstall("C:\Programme\AutoIt3\MyDemos\Images\HintergrundBild.JPG",@ScriptDir & "\HintergrundBild.JPG" & " $i+1 & .JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild1.JPG", @ScriptDir & "\Images\Bild1.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild2.JPG", @ScriptDir & "\Images\Bild2.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild3.JPG", @ScriptDir & "\Images\Bild3.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild4.JPG", @ScriptDir & "\Images\Bild4.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild5.JPG", @ScriptDir & "\Images\Bild5.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild6.JPG", @ScriptDir & "\Images\Bild6.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild7.JPG", @ScriptDir & "\Images\Bild7.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild8.JPG", @ScriptDir & "\Images\Bild8.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild9.JPG", @ScriptDir & "\Images\Bild9.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild10.JPG", @ScriptDir & "\Images\Bild10.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild11.JPG", @ScriptDir & "\Images\Bild11.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild12.JPG", @ScriptDir & "\Images\Bild12.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild13.JPG", @ScriptDir & "\Images\Bild13.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild14.JPG", @ScriptDir & "\Images\Bild14.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild15.JPG", @ScriptDir & "\Images\Bild15.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild16.JPG", @ScriptDir & "\Images\Bild16.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild17.JPG", @ScriptDir & "\Images\Bild17.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild18.JPG", @ScriptDir & "\Images\Bild18.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild19.JPG", @ScriptDir & "\Images\Bild19.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild20.JPG", @ScriptDir & "\Images\Bild20.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild21.JPG", @ScriptDir & "\Images\Bild21.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild22.JPG", @ScriptDir & "\Images\Bild22.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild23.JPG", @ScriptDir & "\Images\Bild23.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild24.JPG", @ScriptDir & "\Images\Bild24.JPG", $NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
$hGUI = GUICreate("Adventskalender", 1150, 600, -1, -1, $WS_POPUP);, BitOR($WS_EX_LAYERED,$WS_EX_TOPMOST))
GUICtrlCreatePic("C:\Programme\AutoIt3\MyDemos\Images\HintergrundBild.JPG", 0, 0, 1150, 600)
GUICtrlSetState(-1, $GUI_DISABLE)
$iTop = 20
$iLeft = 80
$iWidth = 140
GUISetFont(18, 2000)
For $i = 0 To 3
For $j = 0 To 5
$idlbl[$i * 6 + $j] = GUICtrlCreateLabel($i * 6 + $j + 1, $iLeft + $j * ($iWidth + 10), $iTop + $i * ($iWidth + 10), $iWidth, $iWidth, $SS_CENTER)
; ConsoleWrite("i:" & $i & " J: " & $j & " ($i * 6 + $j + 1): " & $i * 6 + $j + 1 & @CRLF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$idPic[$i * 6 + $j] = GUICtrlCreatePic(@ScriptDir & "\Images\Bild" & $i * 6 + $j + 1 & ".JPG", $iLeft + $j * ($iWidth + 10), $iTop + $i * ($iWidth + 10), $iWidth, $iWidth)
Next
Next
For $i = 0 To 23
If IniRead($ini, "Tage", $i + 1, "1") = 1 Then
GUICtrlSetState($idlbl[$i], $GUI_SHOW)
GUICtrlSetState($idPic[$i], $GUI_HIDE)
Else
GUICtrlSetState($idlbl[$i], $GUI_HIDE)
GUICtrlSetState($idPic[$i], $GUI_SHOW)
EndIf
Next
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $idlbl[0] To $idlbl[23]
$id = GUICtrlRead($nMsg) ;Text aus dem Label auslsen
GUICtrlSetState($idPic[$id-1], $GUI_SHOW)
GUICtrlSetState($nMsg, $GUI_HIDE)
IniWrite($ini, "Tage", $nMsg + 1, "0")
EndSwitch
WEnd
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <StaticConstants.au3>
; *** End added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
Author: autoBert: http://www.autoit.de/index.php?page=Thread&threadID=24279
Skriptbeispiel für den Umgang mit INI-Files und in Array verwalteten ControlIDS
#ce ----------------------------------------------------------------------------
Global $idlbl[24], $idPic[24], $ini = @ScriptDir & "\Images\Advent.ini"
[/autoit] [autoit][/autoit] [autoit]$NotChangeable = 1; wenn der Anwender sie sich selbst ändern können soll hier auf 0 setzen
;dann werden die beiden Datein nicht überschrieben, dass heisst der Anwender kann sich selbst
;JPGs hinterlegen er muss nur die Namen beachten
if not FileExists($ini) Then DirCreate(@ScriptDir & "\Images")
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\HintergrundBild.JPG",@ScriptDir & "\HintergrundBild.JPG" & " $i+1 & .JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild1.JPG",@ScriptDir & "\Images\Bild1.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild2.JPG",@ScriptDir & "\Images\Bild2.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild3.JPG",@ScriptDir & "\Images\Bild3.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild4.JPG",@ScriptDir & "\Images\Bild4.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild5.JPG",@ScriptDir & "\Images\Bild5.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild6.JPG",@ScriptDir & "\Images\Bild6.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild7.JPG",@ScriptDir & "\Images\Bild7.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild8.JPG",@ScriptDir & "\Images\Bild8.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild9.JPG",@ScriptDir & "\Images\Bild9.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild10.JPG",@ScriptDir & "\Images\Bild10.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild11.JPG",@ScriptDir & "\Images\Bild11.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild12.JPG",@ScriptDir & "\Images\Bild12.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild13.JPG",@ScriptDir & "\Images\Bild13.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild14.JPG",@ScriptDir & "\Images\Bild14.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild15.JPG",@ScriptDir & "\Images\Bild15.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild16.JPG",@ScriptDir & "\Images\Bild16.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild17.JPG",@ScriptDir & "\Images\Bild17.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild18.JPG",@ScriptDir & "\Images\Bild18.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild19.JPG",@ScriptDir & "\Images\Bild19.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild20.JPG",@ScriptDir & "\Images\Bild20.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild21.JPG",@ScriptDir & "\Images\Bild21.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild22.JPG",@ScriptDir & "\Images\Bild22.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild23.JPG",@ScriptDir & "\Images\Bild23.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
FileInstall("C:\Programme\AutoIt3\MyDemos\Images\Bild24.JPG",@ScriptDir & "\Images\Bild24.JPG",$NotChangeable);diese Zeile evtl anpassen da die Icons bei dir ja woanders liegen
$hGUI = GUICreate("Adventskalender", 1150, 600, -1, -1, $WS_POPUP);, BitOR($WS_EX_LAYERED,$WS_EX_TOPMOST))
GUISetOnEvent($GUI_EVENT_CLOSE,"_MYEXIT")
GUICtrlCreatePic("C:\Programme\AutoIt3\MyDemos\Images\HintergrundBild.JPG", 0, 0, 1150, 600)
GUICtrlSetState(-1, $GUI_DISABLE)
$iTop = 20
$iLeft = 80
$iWidth = 140
GUISetFont(18,2000)
For $i = 0 To 3
For $j = 0 To 5
$idlbl[$i * 6 + $j] = GUICtrlCreateLabel($i * 6 + $j + 1, $iLeft + $j * ($iWidth+10), $iTop + $i * ($iWidth+10), $iWidth, $iWidth,$SS_CENTER )
GuiCtrlSetOnEvent(-1,"_ShowPic")
; ConsoleWrite("i:" & $i & " J: " & $j & " ($i * 6 + $j + 1): " & $i * 6 + $j + 1 & @CRLF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$idPic[$i * 6 + $j] = GUICtrlCreatePic(@ScriptDir & "\Images\Bild" & $i * 6 + $j + 1 & ".JPG", $iLeft + $j * ($iWidth+10), $iTop + $i * ($iWidth+10), $iWidth, $iWidth)
Next
Next
For $i = 0 to 23
if IniRead($ini,"Tage",$i+1,"1") = 1 Then
GUICtrlSetState($idlbl[$i],$GUI_SHOW)
GUICtrlSetState($idPic[$i],$GUI_HIDE)
Else
GUICtrlSetState($idlbl[$i],$GUI_HIDE)
GUICtrlSetState($idPic[$i],$GUI_SHOW)
EndIf
Next
GUISetState()
While 1
sleep(10000)
WEnd
Func _ShowPic()
$Id = GUICtrlRead(@GUI_CtrlId)-1
; ConsoleWrite($id & @CRLF)
GUICtrlSetState($idPic[$id],$GUI_SHOW)
GUICtrlSetState($idlbl[$id],$GUI_HIDE)
IniWrite($ini,"Tage",$id+1,"0")
EndFunc
Func _MYExit()
Exit
EndFunc
leider habe ich noch keinen schöne JPPs gefunden, so dass ihr auf euer eigenes Archiv zurückgreifen müsst,
Edit: Evtl. müsst ihr das Skript an die Grösse der Bilder anpassen, seht es einfach als Grundgerüst an, auf dem ihr aufbauen könnt,
Edit: Skript ausgetauscht da FileInstall fehlerhaft, dank Blume
mfg autoBert
Hallo XTC99,
mach es so:
[autoit]Local $start = 1
Local $end = 10
Local $exclude_array[3] = [ 1, 7, 8]
For $i = $start To $end
For $j = 0 To UBound($exclude_array) - 1
If $i = $exclude_array[$j] Then ContinueLoop(2)
Next
MsgBox(0, "", $i)
Next
mfg autoBert
Hallo marsi,
schau dir https://autoit.de/index.php?page=Thread&threadID=24256 von BugFix an,
mfg autoBert
Ich rate für solche Sachen grndsätzlich vom Gebrauch von
[autoit]regwrite
[/autoit]ab, da sie unnötig die Registry aufblähen, dass heisst Windows wird immer laaaaaaangsaaaaaaaaaaaamer,
mfg autoBert
Hallo KajaBuschka,
ich empfehle die anstelle eines Edit-Controls ein Listview-Control zu verwenden. Hier einmal das Grundgerüst (inkl. Speichern/Laden):
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <File.au3>
;#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Wie auch immer!", 633, 478, 390, 277)
GUISetBkColor(0xFFFFFF)
$LV = GUICtrlCreateListView("Grund|Betrag|Datum", 16, 16, 601, 305)
$Button1 = GUICtrlCreateButton("Hinzufügen", 40, 408, 273, 41, $WS_GROUP)
$InpGrund = GUICtrlCreateInput("", 24, 360, 393, 21)
$Ausgabe = GUICtrlCreateLabel(" Ausgabe für :", 152, 336, 99, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$InpBetrag = GUICtrlCreateInput("", 464, 360, 145, 21)
$Betrag = GUICtrlCreateLabel("Betrag :", 512, 336, 58, 20)
GUICtrlSetFont(-1, 11, 800, 4, "MS Sans Serif")
$Date1 = GUICtrlCreateDate("2010/11/19 14:45:23", 352, 408, 257, 37)
GUISetState(@SW_SHOW)
$sLVdat = @ScriptDir & "\Ausgaben.CSV"
_LoadLV()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_SaveLV()
Exit
Case $Button1
If Not ($InpGrund = "" Or $InpBetrag = "") Then
$j = _GUICtrlListView_GetItemCount($LV)
If $j > 0 Then
$aItem = _GUICtrlListView_GetItemTextArray($LV,$j-1)
_GUICtrlListView_InsertItem($LV,GUICtrlRead($InpGrund),$j-1)
_GUICtrlListView_AddSubItem($LV,$j-1,GUICtrlRead($InpBetrag),1)
_GUICtrlListView_AddSubItem($LV,$j-1,GUICtrlRead($Date1),2)
$Gesamt = 0
$Gesamt = $aItem[2]+GUICtrlRead($InpBetrag)
_GUICtrlListView_SetItemText($LV,$j,$Gesamt,1)
Else
GUICtrlCreateListViewItem(GUICtrlRead($InpGrund) & "|" & GUICtrlRead($InpBetrag) & "|" & GUICtrlRead($Date1), $LV)
GUICtrlCreateListViewItem("Gesamt" & "|" & GUICtrlRead($InpBetrag) & "|",$LV)
EndIf
EndIf
EndSwitch
WEnd
Func _saveLV()
Local $sFile, $aItem, $hFileOut
$hFileOut = FileOpen($sLVdat, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($LV) - 1
$aItem = _GUICtrlListView_GetItemTextString($LV, $j)
FileWriteLine($hFileOut, $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>_saveLVs
Func _LoadLV()
Local $aItems
If FileExists($sLVdat) Then
$aItems = ""
_FileReadToArray($sLVdat, $aItems)
If IsArray($aItems) Then
_GUICtrlListView_DeleteAllItems($LV)
;;;_ArrayDisplay($aItems)
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $LV)
Next
EndIf
EndIf
EndFunc ;==>_LoadLVs
viel Spass damit,
mfg autoBert
Also, wie's aussieht, hat autoBert schon alles erledigt..., thx!
(Geringe Mängel wären drin, machen aber nix: Die Schleife, die $GUI_EVENT_CLOSE abwartet, bringt außer 100% CPU nix (sleep fehlt), da das rote Kreuz außerhalb des Bildschirms hängt.)
Bemerkungen
Diese Funktion gibt die CPU automatisch wieder frei, wenn es erforderlich ist, so dass sie ruhig in Dauerschleifen benutzt werden kann, ohne die CPU vollständig auszulasten.
an
Ps.: Wenn ein Thema gelöst ist sollte man es auch auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)
mfg autoBert
Das ist aber vom speichern her von der ini abhängig.
Ist die ini mal weg sind die Wert wieder auf "default" resetet.
du kannst ja die INI weglassen aber dann sind die Werte bei jedem Nestart des Programmes weg,
mfg autoBert
