Tiny Slide Show 1.1

Vous avez développé un logiciel en PureBasic et vous souhaitez le faire connaitre ?
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Tiny Slide Show 1.1

Message par Ar-S »

Image

Image

Hello,
Je vous invite découvrir mon petit Tiny Slide Show (défilé d'images).
Il me sert d'économiseur d’écran. L’écran graphique est un Canvas. Décidément j'adore ce gadget.

TÉLÉCHARGEMENT

Version Dual Screen compatible http://pb.ldvmultimedia.com/sildeshow1.1-dualscreen.exe

-- Evolution --

V1.1
- Ajout Effet négatif
- Ajout d'icones dans le menu pour une meilleur lisibilité

V1.0
- Correction du fade out (fondue)
- Refonte du popup menu
- Ajout d'effets noir & blanc / sepia ou aléatoire
- Possibilité de modifier la durée de la vitesse des transitions

V0.9
- Correction de bugs
- Réécriture complète des routines du diaporama, lecture casi instantanée des images. (Utile pour les gros dossiers de photos).

V0.8
- Accélération de la préparation du slideshow

V0.7
- Ajout d'une icone à l'exe
- Ajout d'un menu "don" ^^
- Ajout du contenu du menu "A Propos"
- bugfixe : Taille des bordures pour certaines images extrèmement large et peu haute (raven si tu veux retester)
- BugFix : Changement de dossier qui se cumulait avec le précédent

V0.6
- Ajout des noms de fichiers pendant le chargement pour plus de clarté
- Centrage des textes
- Correction affichage en dual screen

V0.5 + Ajout de la gestion de 2 écrans
- Ajout d'un message pendant le chargement du diaporama

V0.4
- ajout de la possibilité de changer de dossier via le clic droit
- création d'un fichier pref pour se souvenir du dernier dossier utilisé
- possibilité de supprimer ce fichier pref.

V0.3
- Bordure des images
- Clic droit pour faire apparaitre le menu qui donne la possibilité de changer de dossier ou de quitter

V0.1
- Les images sont affichées en boucle les unes après les autres
- Redimensionnement des images auto
- FadeOut pour faire disparaitre les images
- image toujours cadrée dans le bureau mais affichée en position aléatoire X/Y
- Échappe pour quitter
Dernière modification par Ar-S le ven. 16/janv./2015 12:38, modifié 24 fois.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par Ar-S »

V0.3
- Bordure des images
- Clic droit pour faire apparaitre le menu qui donne la possibilité de changer de dossier ou de quitter
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par falsam »

Fonctionne parfaitement bien:)

Puis je abuser en te demandant de gérer le multi-moniteurs ? (C'est mon cas)

Petite contrainte : Une image ne doit pas chevaucher deux moniteurs.

Merci Ar-S
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par Ar-S »

Je veux bien tester mais j'ai pas 2 écrans de branchés sur mon zouzou donc tu me diras.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par falsam »

Ar-S a écrit :Je veux bien tester mais j'ai pas 2 écrans de branchés sur mon zouzou donc tu me diras.
Pas de souci :)
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par Ar-S »

1ere question
Peut-on ouvrir une seule fenetre sur les 2 ecrans, à savoir un truc du genre
openwindow(0,0,0,LargeurDestop(0)+LargeurDestop(1), HauteurDesktop(0),0)
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par falsam »

Ar-S a écrit :Peut-on ouvrir une seule fenetre sur les 2 ecrans
Oui tu peux. La hauteur de la fenêtre devrait être celle du desktop le plus haut.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par Ar-S »

Tu peux me dire si ça ça fonctionne bien:

Code : Tout sélectionner

Macro G
  Global
EndMacro

Macro DebugInClipboard (m1)
  Debug m1
  SetClipboardText(m1)
EndMacro  

G NbrBureau = ExamineDesktops()
Debug Str(NbrBureau) + " bureau(s)"

G W = DesktopWidth(0), H = DesktopHeight(0)
G Wmax = W/2, Hmax = H/2, PosX, PosY

If NbrBureau = 2
  G W2 = DesktopWidth(1), H2 = DesktopHeight(1)
  G Wmax2 = W2/2, Hmax2 = H2/2, PosX2, PosY2
  Wfull = W + W2
  If H>H2 : Hfull = H : Else : Hfull = H2 : EndIf 
  
Else
  Wfull = W
EndIf

DebugInClipboard("Wfull : " + Wfull + " x " + H)

~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par falsam »

Debug
2 bureau(s)
Wfull : 3360 x 900
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par Ar-S »

Ajoute ça au code précédent et dis moi si tout s'ouvre bien.
Je file ce soir donc je poursuivrais plus tard.

Code : Tout sélectionner


If OpenWindow(0,0,0,Wfull,H,"test bi ecran", #PB_Window_SystemMenu)
  Debug "ok"
 
  Repeat
    Ev = WaitWindowEvent(30)
    Until Ev = #PB_Event_CloseWindow

EndIf
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par falsam »

la fenêtre s'ouvre bien sur toute la largeur des deux moniteurs mais pas sur la largeur du moniteur le plus grand.

j'ai modifié

Code : Tout sélectionner

OpenWindow(0,0,0,Wfull,H,"test bi ecran", #PB_Window_SystemMenu)
par

Code : Tout sélectionner

OpenWindow(0,0,0,Wfull,Hfull,"test bi ecran", #PB_Window_SystemMenu)
Je pense que c'est ce que tu as voulu faire :)
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Tiny Slide Show (Alpha) 0.3

Message par microdevweb »

Bonjour Ars,

Je teste ton exe, il me demande un dossier je sélectionne le bureau mais rien ne se passe?
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Micheao
Messages : 533
Inscription : dim. 07/déc./2014 10:12
Localisation : Sud-Est

Re: Tiny Slide Show (Alpha) 0.3

Message par Micheao »

Bonjour Ar-S

j'ai testé ton programme
dommage qu'il centre pas les images quand elles sont petites il les mets soit à gauche ou à droite mais pas au centre .
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Tiny Slide Show (Alpha) 0.3

Message par Ar-S »

@microdevweb Il y a des images sur ton bureau ?
@Micheao : Il les positionne de façon aléatoire, c'est voulu. (je verrai peut être à ajouter cette option au menu.)
@Falsam
C'est étrange ça. La résolution que tu as copiée est bien le cumule de tes 2 largeurs d'écran ? (3360)
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Tiny Slide Show (Alpha) 0.3

Message par microdevweb »

Non
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Répondre