;Fenster erstellen
Window = CreateWindow("Canvas und Panels",100,100,500,400,0,15)
;Canvas erstellen
can = CreateCanvas(0, 40, 150,150, Window)
;Die Grafikausgabe auf den Canvas einstellen
SetBuffer CanvasBuffer(can)
;Panel erstellen
panel = CreatePanel(180, 0, 100, 100, Window,1)
button = CreateButton("Hier wäre ein Bild", 0, 0, 100, 50, panel) ;button in unserem Panel erstellen
SetPanelImage panel, "C:\Dokumente und Einstellungen\data\test.bmp" ;Bild in das Panel zeichnen, wird getilet wenn das Bild zu klein ist

Repeat
WaitEvent()
SetPanelImage panel, "C:\Dokumente und Einstellungen\data\test2.bmp"
WaitTimer timer
SetPanelImage panel, "C:\Dokumente und Einstellungen\data\test3.bmp"

timer = createtimer(0.1) ; 0.1 Schläge pro Sekunde --> 1 Schlag alle 10 Sekunden
Repeat
  select waitevent()
    case $803
      End
    case $401 ;Was immer du machen willst, wenn ein Button geklickt wird
    case $4001 ;Timer Event
       ;Nächstes Bild anzeigen

  end select
Forever

;Nächstes Bild anzeigen

Repeat
    If Zeit<Millisecs()
         Zeit=Millsecs()+Timer
         i=i+1
         SetPanelImage panel, "C:\Dokumente und Einstellungen\data\test"+ i + ".bmp"   
    Endif
    If TastenDruck=1 then
       Zeit=0
    Endif
    TastenDruck=KeyHit(1)
Forever

Dim pic$(500) ; einen Dim erstellen mit max 500 Einträgen

pfad$="C:\Users\idcsadm\Pictures\" ;Pfad festlegen must den ändern

Verz = ReadDir(pfad$) ;Verzeichniss einlesen
Repeat ;Schleife anfang
   Datei$ = NextFile$(Verz);Nächstes File im Verzeichniss
   If Datei$ = "" Then Exit ;Falls es keine Files mehr hat Schleife verlassen
   If FileType(pfad$ + Datei$) = 1 Then;Wenn es ein File und KEIN Ordner war
   i=i+1 ;Index erhöhen
   pic$(i)=pfad$ + Datei$ ;in Dim Schreiben
   End If

Forever
CloseDir Verz


For a=1 To i
   Print pic$(a)
Next

i = 0
;...
   If FileType(pfad$ + Datei$) = 1 Then;Wenn es ein File und KEIN Ordner war
      pic$(i)=pfad$ + Datei$ ;in Dim Schreiben
      i=i+1 ;Index erhöhen
   End If
;...
For a=0 To i
   Print pic$(a)
Next

i=10
For a=0 To i
   Print a
   ;Zeichnen
   If a=i Then a=0
Next

pfad$="C:\Users\idcsadm\Pictures\"

pfad$="""+bp$+"""

bpfad$=chr$(34)+bp$+chr$(34) ;Pfad festlegen

Dim pic$(100) ; einen Dim erstellen mit max 100 Einträgen

If FileType ("pfad.txt")=0 Then ;ermittelt, ob eine bestimmte Datei existiert, falls nicht,
   Notify("Bitte Bilderpfad auswählen!",True)
   bp$=RequestDir$()
   If bp$="" Then End
   save=WriteFile("pfad.txt") ;erstellt eine Datei für einen Schreibzugriff
      WriteString(save,bp$) ;Dieser Dateibefehl speichert den Pfad in eine Datei
ElseIf FileType ("pfad.txt")=1 Then ;falls die Datei existiert
      save=ReadFile ("pfad.txt")
      bp$=ReadString(save)
EndIf

bpfad$=Chr(34)+""+bp$+""+Chr(34) ;Pfad festlegen wie klappt das richtig??

Verz = ReadDir(bpfad$) ;Verzeichnis einlesen

Case $4001 ;Timer Event
            ;Erstell dir ein Array mit den Bildern, die angezeigt werden sollen und erhöhe den Index
                ;Nächstes Bild anzeigen
               Datei$ = NextFile$(Verz);Nächstes File im Verzeichnis
                  If FileType(bpfad$ + Datei$) = 1 Then;Wenn es ein File und KEIN Ordner war
                  i=i+1 ;Index erhöhen
                  pic$(i)=bpfad$ + Datei$ ;in Dim Schreiben
                  For a=0 To i
                     SetPanelImage panel, pic$(a)
                  Next
                  i=0
               End If
                
         End Select