Dim bilder$(500)
Dim verzeichnis$(500)
Dim musik$(500)
Global musikfeld
Global Datei$
Global sofort
Global sound
Global kanal
Global nummer$
Global nummer1
Global now
Global zeit
Global bildvariable
Global b1
Global Delayeffekt
Global ordnerbilder$
Global klick
Global klick2
Global ordnerbild
       ordnerbild=2
Global dat$
Global DATEN 
Global ordnermusik$
       ordnermusik$="musik/"
Global anzeigen
Start
Global feld
Delayeffekt=0.5
nummer$= "1"
Graphics 1024, 768


a=1

fntArial =LoadFont("Arial",20,False,False,False)
fntArial1 =LoadFont("Courier New",15,False,False,False)
;********************Loading***************
verzeichnislesen
musiklesen
 ordnerbilder$="bilder/"+verzeichnis$(ordnerbild)+"/"
If verzeichnis$(ordnerbild)="" Then
Cls
Print "Fehler es wurden keine Diashow's gefunden!"
WaitKey()
End
EndIf

Color 255,255,0
Text 330,300, "Lade Programm Version 1.0.1.1 , Bitte Warten!!"

.restart
SetFont fntArial1
SetBuffer BackBuffer()
If ChannelPlaying (kanal) = 0 Then
nextLied
ElseIf ChannelPlaying (kanal) = 1 Then
endif

klick2 = LoadSound("klick2.wav")
klick = LoadSound("klick.wav")

b1 = LoadImage("maus.bmp")
b2 = LoadImage("title.png")
imageAbbrechen = LoadImage("abbrechen.png")
imageAbbrechen1 = LoadImage("abbrechen1.png")
imageHilfe     = LoadImage("hilfe.png")
imageHilfe1     = LoadImage("hilfe1.png")
imageStart     = LoadImage("start.png")
imageStart1     = LoadImage("start1.png")
imageEinstellungen = LoadImage("einstellungen.png")
imageEinstellungen1 = LoadImage("einstellungen1.png")
Startbutton = imagestart
Einstellungenbutton = imageEinstellungen
Abbrechenbutton = imageAbbrechen
hilfebutton = imagehilfe




MOVEMOUSE 600,450
autostartzeit = 3000
autostartzaehler = 1





          ; ******************-----HAUPTMENUE SCHLEIFE-------**************start

frameTimer=CreateTimer(50)

.mausabfrage
autostartzaehler=autostartzaehler+1

;WaitTimer (frameTimer)

DrawImage b2,122,0

DrawImage Abbrechenbutton, 387,200
DrawImage hilfebutton, 387, 300
DrawImage Startbutton, 387, 400
DrawImage Einstellungenbutton, 387,500
x_Koordinaten = MouseX()
y_Koordinaten = MouseY()

abbrechen=     RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 387, 200, 250, 50)
hilfe    =     RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 387, 300, 250, 50)
starten  =     RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 387, 400, 250, 50)
einstellungen= RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 387, 500, 250, 50)
MaskImage b1, 0, 255, 255
DrawImage b1,x_Koordinaten,y_Koordinaten
autostartzaehler1 = (autostartzeit/50) - (autostartzaehler /50)
Color 255,255,0
Text 430,650,  "Autostart in "+autostartzaehler1+" Sekunden!"

Flip

Cls

  If starten= 1
  Startbutton= imageStart1
   klickon = klickon +1
   ElseIf starten =0
   Startbutton= imageStart
   klickon=0
   endIF
   
   If  einstellungen =1
   Einstellungenbutton= imageEinstellungen1
   klickon1 = klickon1 +1
   ElseIf einstellungen =0
    Einstellungenbutton= imageEinstellungen
   klickon1=0
   EndIf

  If  abbrechen =1
   Abbrechenbutton= imageAbbrechen1
   klickon2 = klickon2 +1
   ElseIf abbrechen =0
    Abbrechenbutton= imageAbbrechen
   klickon2=0
   EndIf

  If  hilfe =1
   hilfebutton= imageHilfe1
    klickon3 = klickon3 +1
   ElseIf hilfe =0
    hilfebutton= imageHilfe
   klickon3=0
   EndIf
 
  If klickon =1 Or klickon1=1 Or klickon2=1 Or klickon3=1
  kanal1 = PlaySound(klick)
  EndIf

  If autostartzaehler= autostartzeit
  Goto sofort
  EndIf




If abbrechen =1 And MouseDown(1) Then
kanal1 = PlaySound(klick2)
ende
ElseIf hilfe=1 And MOUSEDOWN(1)
kanal1 = PlaySound(klick2)
Hilfe
Goto restart
ElseIf starten=1 And MOUSEDOWN(1)
kanal1 = PlaySound(klick2)
Goto sofort
ElseIf einstellungen=1 And MOUSEDOWN(1)
kanal1 = PlaySound(klick2)

optionen
Goto restart
Else
EndIf

Goto mausabfrage           ; ******************-----HAUPTMENUE SCHLEIFE-------**************ende

nextLied
Function nextLied()
       StopChannel Kanal
       
kanal=PlayMusic("musik\"+musik$(musikfeld))
     musikfeld = musikfeld + 1

     If musik$(musikfeld) = "" Then
     musikfeld = 0
     EndIf

End Function

optionen
 ;***************************--------Optionen-----------**************start
Function optionen()

frameTimer=CreateTimer(50)

pfeilup = LoadImage("pfeilup.bmp")
pfeildown = LoadImage("pfeildown.bmp")
pfeilright = LoadImage("pfeilright.bmp")
pfeilleft = LoadImage("pfeilleft.bmp")

MaskImage b1, 0, 255, 255

b2 = LoadImage("title.png")
imagebestaetigen = LoadImage("bestätigen.png")
imagebestaetigen1 = LoadImage("bestätigen1.png")
imagebildwechselzeit = LoadImage("bildwechselzeit.png")
imageauswahl = LoadImage("auswahl.png")
Font =LoadFont("Courier New",28,False,False,False)

bestaetigenbutton = imagebestaetigen

bilderlesen
bildvariable=LoadImage (ordnerbilder$+bilder$(0))
If bilder$(0)="" Then
bildvariable=LoadImage ("kein bild.png")
EndIf


groesseaendern(300,200)
rahmen (200,200,200,10,1)




.mausabfrage
WaitTimer (frametimer)

DrawImage b2,122,0
DrawImage bestaetigenbutton, 387,700
DrawImage  imagebildwechselzeit, 200,200
DrawImage imageauswahl,370,290
MaskImage pfeilleft, 0, 255, 255
MaskImage pfeilright, 0, 255, 255
MaskImage pfeilup, 0, 255, 255
DrawImage pfeilup,500,180
MaskImage pfeildown, 0, 255, 255
DrawImage pfeildown,500,240


If listeende=1
Goto drawnot
EndIf

DrawImage pfeilright,700,420
.drawnot

If ordnerbild >2
DrawImage pfeilleft,300,420
EndIf
x_Koordinaten = MouseX()
y_Koordinaten = MouseY()

SetFont font
Color 255,255,0

Text 500,210, zeit/10
Text 512,570, verzeichnis$(ordnerbild),1
abbrechen=     RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 387, 700, 250, 50)
pfeilbuttonup= RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 500, 180, 30, 30)
pfeilbuttondown= RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 500, 240, 30, 30)
pfeilbuttonup1= RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 700, 420, 30, 30)
pfeilbuttondown1= RectsOverlap (x_Koordinaten, y_Koordinaten, 10, 10, 300, 420, 30, 30)

 
MaskImage b1, 0, 255, 255

DrawImage bildvariable,370,350
DrawImage b1,x_Koordinaten,y_Koordinaten
Flip
Cls


 


  If  abbrechen =1
   bestaetigenbutton= imagebestaetigen1
   klickon1 = klickon1 +1
   ElseIf abbrechen =0
    bestaetigenbutton= imagebestaetigen
   klickon1=0
   EndIf
   If pfeilbuttonup=1
   klickon2 = klickon2 +1
   Elseif pfeilbuttonup=0
   klickon2=0
   endif
    If pfeilbuttondown=1
   klickon3 = klickon3 +1
   Elseif pfeilbuttondown=0
   klickon3=0
   endif
    If pfeilbuttonup1=1
   klickon4 = klickon4 +1
   ElseIf pfeilbuttonup1=0
   klickon4=0
   EndIf
    If pfeilbuttondown1=1
   klickon5 = klickon5 +1
   ElseIf pfeilbuttondown1=0
   klickon5=0
   EndIf

 
If klickon5 =1 Or klickon1=1 Or klickon2=1 Or klickon3=1 Or klickon4=1
  kanal1 = PlaySound(klick)
  EndIf 


If abbrechen =1 And MouseDown(1) Then
Goto Ende

ElseIf pfeilbuttonup=1 And MouseDown(1)
zeit=zeit+10
kanal1 = PlaySound(klick2)
Delay 400


ElseIf pfeilbuttondown=1 And MouseDown(1)
zeit=zeit-10
kanal1 = PlaySound(klick2)
Delay 400


ElseIf pfeilbuttonup1=1 And MouseDown(1)
ordnerbild=ordnerbild+1
clearDim
bilderlesen


If verzeichnis$(ordnerbild)=""Then
ordnerbild=ordnerbild-1
EndIf
Goto reload
kanal1 = PlaySound(klick2)
Delay 400

ElseIf pfeilbuttondown1=1 And MouseDown(1)
ordnerbild=ordnerbild-1
If ordnerbild=1
ordnerbild=2
clearDim
bilderlesen

EndIf
Goto reload
kanal1 = PlaySound(klick2)
Delay 400
EndIf

If verzeichnis$(ordnerbild+1)=""Then
listeende=1
Else
listeende=0
EndIf

ordnerbilder$="bilder/"+verzeichnis$(ordnerbild)+"/"

Goto mausabfrage
.reload
ordnerbilder$="bilder/"+verzeichnis$(ordnerbild)+"/"
clearDim
bilderlesen
FreeImage bildvariable
bildvariable=LoadImage (ordnerbilder$+bilder$(0))



If bilder$(0)=""Then
bildvariable=LoadImage ("kein bild.png")
 
EndIf

groesseaendern(300,200)
rahmen (200,200,200,10,1)
Goto mausabfrage
.ende
clearDim   
End Function
 ;***************************--------Optionen-----------**************ende
 ;***************************--------Hlife-----------**************start
Function Hilfe()
      Setbuffer frontbuffer()
      Cls


    Color 255,255,0
Print"Programmversion 1.0.1.1"
Print""
Print"Hauptmenue:"
Print""
Print"     Abbrechen      --- Das Programm wird beendet"
Print"     Hilfe          --- Die Programmhilfe wird aufgerufen"
Print"     Start          --- Die Diashow wird gestartet"
Print"     Einstellungen  --- Die Optionen werden aufgerufen"
Print""
Print"     Die Diashow startet nach einer Weile automatisch, so kann man das Programm auch als Bildschirmschoner einsetzten"
Print""
Print"        Einstellungen:"
Print""
Print"           Über Bildwechselzeit lässt sich die Bildwechselfrequenz in Sekunden einstellen."
Print"           Einfach mit den Pfeilen die Zeit in Sekunden wählen die bis zum Bildwechsel vergehen soll."
Print"           
Print""
Print"           Über Diashowauswahl kann man zwischen drei verschiedenen Bilderserien wählen."
Print"           Hierfür auch über die Pfeile 1,2 oder 3 einstellen.
Print""
Print"          Sind die Einstellungen vorgenommen die Optionen über (Bestätigen) verlassen."
Print""
Print"        Während der Diashow:"
Print""
Print"           (Leertaste) --- Es wird sofort zum nächten Bild gesprungen"
Print"           (Backsace)  --- Es wird ein Bild zurück gesprungen"
Print"           (+)         --- Das nächste Lied wird abgespielt"
Print"           (-)         --- Das letzte Lied wird abgespielt"
Print"           (ESC)       --- Das Hauptmenue wird aufgerufen"
Print""
Print"  Weiter druch drücken irgendeiner Taste!"
WaitKey()
End Function
 ;***************************--------Hlife-----------**************ende
.sofort

;SetBuffer BackBuffer()

ClsColor 0,0,0
Cls

;****************************************************************

bilderlesen
Function bilderlesen()
myDir=ReadDir(ordnerbilder$)


For feld = 0 To 500
.neu

file$=NextFile$(myDir)

If file$="" Then Exit

If FileType(ordnerbilder$+file$) = 2  Then
Goto neu
ElseIf FileType(ordnerbilder$+file$) =  0 Then
Exit
Else

If Right$(file$,3)="JPG" Then 
bilder$(feld)=file$
ElseIf Right$(file$,3)="jpg" Then 
bilder$(feld)=file$
ElseIf Right$(file$,3)="BMP" Then 
bilder$(feld)=file$
ElseIf Right$(file$,3)="bmp" Then 
bilder$(feld)=file$
ElseIf Right$(file$,3)="PNG" Then 
bilder$(feld)=file$
ElseIf Right$(file$,3)="png" Then 
bilder$(feld)=file$

Goto neu
EndIf
EndIf

Next
CloseDir myDir

End Function


;****************************************************
;***************************Verzeichniss Bilder lesen***************************start
Function verzeichnislesen()
myDir=ReadDir("Bilder")


For feld = 0 To 500
.neu

file$=NextFile$(myDir)

If file$="" Then Exit

If FileType("Bilder\"+file$) = 1  Then
Goto neu
ElseIf FileType("Bilder\"+file$) =  0 Then
Exit
Else
verzeichnis$(feld)=file$

EndIf
Next




CloseDir myDir
End Function

;******************************Verzeichnis lesen******************************ende
;***************************Musik lesen***************************start
Function musiklesen()
myDir=ReadDir("musik")
Color 255,255,0

For platz = 0 To 500
.neu

file$=NextFile$(myDir)

If file$="" Then Exit

If FileType("musik\"+file$) = 2  Then
Goto neu
ElseIf FileType("musik\"+file$) =  0 Then
Exit
Else
If Right$(file$,3)="WAV" Then
musik$(platz)=file$
ElseIf Right$(file$,3)="wav" Then 
musik$(platz)=file$
ElseIf Right$(file$,3)="MP3" Then 
musik$(platz)=file$
ElseIf Right$(file$,3)="mp3" Then 
musik$(platz)=file$
Else
Goto neu
EndIf
EndIf
Next

CloseDir myDir

End Function

;******************************Musik lesen******************************ende

feld=0
.anzeigen
If bilder$(feld)= "" Then
feld=0
EndIf
a=1

FreeImage bildvariable

If bilder$(0) = "" Then
Cls
Flip
Print "Fehler !!!!! Es wurden keine Bilddateien gefunden!!"
Print "Der in Einstellungen geählte Ordner enthält wahrscheinlich keine Bilddateien oder das Format wird von Sveni'S Diashow nicht unterstützt."
Print "Wenden Sie sich an den Hersteller, sm@sven-minas.de"
WaitKey()
Goto restart
EndIf




bildvariable = LoadImage(ordnerbilder$+bilder$(feld))

feld=feld+1
groesseaendern(1024,768)


Function groesseaendern(b,h)

hoch# = ImageHeight(bildvariable)
breit# =  ImageWidth(bildvariable)
v# = breit# / hoch#
v2# = hoch# / breit#

If breit > b



       Repeat
       If breit > b
       breit = breit -1
       u=u+1
       Else
       Exit
       EndIf
       Forever
       u=u/v#
       hoch=hoch-u
       u=0
ResizeImage bildvariable,breit,hoch
EndIf
If  hoch > h


     
       Repeat
       If hoch# > h
       hoch# = hoch# -1
       u=u+1
       Else
       Exit
       EndIf
       Forever
       u=u/v2#
       breit=breit-u
       u=0
ResizeImage bildvariable,breit,hoch
Else
EndIf
End Function
  rahmen(30,30,30,2,0)
Function rahmen(rot,blau,gelb,dicke,FrontBuff)
SetBuffer ImageBuffer (bildvariable)
hoch = ImageHeight(bildvariable)
breit =  ImageWidth(bildvariable)

 
az=0
b=0
h=0
Color rot,blau,gelb
Repeat
Line b,h,breit,h
Line b,h,b, hoch
Line breit, hoch,b,hoch
Line breit, hoch,breit,h
breit = breit-1
hoch = hoch-1
az = az+1
b= b +1
h= h+1
Until az = dicke
If FrontBuff=1
SetBuffer BackBuffer()
Else
SetBuffer FrontBuffer() 
EndIf
End Function


zufall= Rand (1,6)
If zufall = 1 Then
effekt
Else If zufall = 2 Then
effekt2
Else If zufall = 3 Then
effekt3
Else If zufall = 4 Then
effekt4
Else If zufall = 5 Then
effekt5
Else If zufall = 6 Then
effekt6


EndIf
;************************------------Effeckte------------*************************start

Function effekt()
     MidHandle bildvariable
          a=0
          SetBuffer FrontBuffer()
          Repeat
           Color 30,30,30
                    Line a,0,a,768
 
          DrawBlockRect bildvariable, 512, 384, 0, 0, a, 768
     a = a +1
     Delay Delayeffekt

     Until a = 1024 
     

End Function
goto start

Function effekt2()
     MidHandle bildvariable

          a=0
          SetBuffer FrontBuffer()
          Repeat
                    Color 30,30,30
                    Line 0,a,1024,a
          DrawBlockRect bildvariable, 512, 384, 0, 0, 1024, a
     a = a +1
     Delay Delayeffekt


     Until a = 768 

End Function
 Goto start

Function effekt3()
     MidHandle bildvariable
          b=0
          a=-512
          SetBuffer FrontBuffer()
          Repeat
          Color 30,30,30
                    Line b,0,b,768
          DrawBlockRect bildvariable, a, 384, 0, 0, 1024, 768
     a = a +1
     b = b +1
     Delay Delayeffekt


     Until a = 512 

End Function
 Goto start

Function effekt4()
     MidHandle bildvariable
          b=1024
          a=1536
          SetBuffer FrontBuffer()
          Repeat
          Color 30,30,30
                    Line b,0,b,768
          DrawBlockRect bildvariable, a, 384, 0, 0, 1024, 768
     b = b -1
     a = a -1
     Delay Delayeffekt


     Until a = 512 

End Function
 Goto start

Function effekt5()
     MidHandle bildvariable
         
          a=-768
          SetBuffer FrontBuffer()
          Repeat
       
                   
          DrawBlock bildvariable, 512,a
   
     a = a +1
     Delay Delayeffekt


     Until a = 384 

End Function
 Goto start

Function effekt6()
     MidHandle bildvariable
         
          a=1152
          SetBuffer FrontBuffer()
          Repeat
       
                   
          DrawBlock bildvariable, 512,a
   
     a = a -1
     Delay Delayeffekt

     Until a = 384   

End Function
 Goto start


;***********************--------------Effekte-----------------***********************end

;*************************---------------Anzeige Schleife---------****************start

.start
FlushKeys
.start1

musika
a = a+1
Delay 100
n = GetKey()
If a = zeit Then

Goto anzeigen
ElseIf n = 0 Then
Goto start1
ElseIf n = 27
clearDim
Goto restart
ElseIf n = 32
Goto anzeigen
ElseIf n = 13

bildbearbeiten
Goto anzeigen
ElseIf n = 8
feld = feld -2
If feld <0
feld=0
EndIf
Goto anzeigen
ElseIf n = 43
nextLied
ElseIf n = 45
liedback
Else
Color 255,255,0
Locate 0,0
Print "    Abbrechen(ESC)  Nächstes Bild(Leeraste)   Bild zurück(Backspace)  Nächstes Lied(+)  Lied zurück(-)"

EndIf
Goto start

Function musika()
     If ChannelPlaying (kanal) = 0 Then 
       nextLied
       ElseIf ChannelPlaying (kanal) = 1 Then 
     EndIf
End Function

Function liedback()
     musikfeld = musikfeld -2
     If musikfeld <2 Then
         musikfeld = 2
         Else
     EndIf 
     
     nextLied
End Function

;*****************************DIM Löschen**************************start
Function clearDim()
For x = 0 To 500
bilder$(x)=""
Next
End Function
;***************************DIM Löschen*****************************ende


;****************************Zeile lesen INT****************************start
Function GETLINEINT(file, zeile)
For i=1 To ZEILE
DATEN   = ReadLine$(file)

Next
Return Dat
End Function

;***************************Zeile INT******************************ende


;***************************END FUCTION******************************start
Function ende()
config = OpenFile("config.txt")
WriteLine config, musikfeld
WriteLine config, zeit
WriteLine config, ordnerbild
CloseFile config
End
End Function
;***************************END FUCNTION*****************************ende


;***************************START FUNCTON****************************start
Function start()

config = OpenFile("config.txt")
GETLINEINT(config,1)
musikfeld=DATEN
GETLINEINT(config,1)
zeit=DATEN
GETLINEINT(config,1)
ordnerbild=DATEN
CloseFile config
End Function
;**************************Bild bearbeiten**********************start
Function bildbearbeiten()
feld=feld-1
Cls
Color 255,255,0
Print" Mit dieser Funktion besteht die Möglichkeit das zuletzt angezeigte Bild in den Diashowpapierkorb zu verschieben."
Print ordnerbilder$+bilder$(feld)
Print""
Print "Dieses Foto in den Diashowpapierkorbverschieben = (ENTER)"
Print "Abbrechen                                       = (ESC)"
name=1
.neu

n = WaitKey()
If n = 13 Then
.neu1
quellpfad$ = ordnerbilder$+bilder$(feld)
zielpfad$ = ("Bilder\Papierkorb\"+name+"-"+verzeichnis$(ordnerbild)+"-"+bilder$(feld))

If FileType("Bilder\Papierkorb\"+name+"-"+verzeichnis$(ordnerbild)+"-"+bilder$(feld)) = 1 Then
name=name+1
Goto neu1
Else
EndIf
CopyFile quellpfad$, zielpfad$
Print " Das Bild wurde aus der Diashow entfernt!   Weiter mit einer Taste!"
Goto ende
Else
Goto ende
EndIf
Goto neu
.ende
WaitKey()
FlushKeys
Cls
End Function
;**************************Bild bearbeiten************************ende