FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Problème de compilateur.
par Pedro Alvarez Hier à 20:01

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par Pedro Alvarez Hier à 19:54

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» Compilateur FBPano
par Mike Jeu 17 Aoû 2017 - 13:52

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Affichage sous IE des smileys et gif animés

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5920
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Affichage sous IE des smileys et gif animés   Ven 13 Juin 2008 - 18:09

Le programme est compilé (SMILEYS.EXE) et lancé depuis le bureau de Windows. Il affiche dans une fenêtre de Internet Explorer la collection d'images smileys, icônes, gif animés récupérés par-ci par-là, et que l'on peut utiliser pour transporter par copier coller un smiley dans un message (personnellement, j'ai mis un raccourci sur le Bureau de Windows pour le lancer à la demande).
On peut modifier dans le source le chemin des images (ici C:\SMILEYS) et le chemin d'Internet Explorer (ie$)
(Attention au repli des lignes longues ci-dessous)
Code:
Rem Affichage sous IE des smileys et gif animés de C:\SMILEYS (*.gif *.jpg et *.ico)
Rem Sous forme de tableau dans un fichier Html
Rem Ecrit et compilé en langage Panoramic
DIM rep$, Savcur$, f$, fh$, ie$, suf$, c$, s$, nc, i, j, pr
LABEL sui, debo, rra, rrb, Fin, Ucase
HIDE 0: Rem cache le FORM0 inutilisé
rep$ = "C:\SMILEYS": Rem répertoire contenant les images
fh$ = rep$ + "\LSTSMILE.HTM": Rem fichier HTM résultat
ie$ = "C:\Progra~1\Intern~1\iexplore.exe": Rem Internet Explorer
nc = 4: Rem affichage des images sur 4 colonnes de tableau
IF DIR_EXISTS(rep$) = 0 THEN GOTO Fin: Rem répertoire non trouvé, abandon
Savcur$ = DIR_CURRENT$: Rem sauvegarde du répertoire courant
FILE_OPEN_WRITE 1, fh$
  FILE_WRITELN 1, "<HTML>"
  FILE_WRITELN 1, "<TITLE>Ma collection de smileys et gif animés</TITLE>"
  FILE_WRITELN 1, "<BODY>"
  FILE_WRITELN 1, "<TABLE BORDER=2>"
  DIR_CHANGE rep$: Rem Posit dans le répertoire des images
  pr = 0
rra:
  FILE_WRITELN 1, "<TR>"
  FOR i = 1 TO nc
    IF pr = 0 THEN f$ = FILE_FIND_FIRST$: pr = 1: GOTO sui
debo:
    f$ = FILE_FIND_NEXT$
sui:
    IF f$ = "_" THEN GOTO rrb: Rem terminé, plus de fichiers
    suf$ = RIGHT$(f$, 3): GOSUB Ucase
    IF suf$ <> "GIF" AND suf$ <> "JPG" AND suf$ <> "ICO" THEN GOTO debo
    FILE_WRITELN 1, "<TD><IMG SRC=" + CHR$(34) + rep$ + "\" + f$ + CHR$(34) + "></TD>"
  NEXT i
  FILE_WRITELN 1, "</TR>"
  GOTO rra
rrb:
  FILE_FIND_CLOSE
  DIR_CHANGE Savcur$: Rem Retour au répertoire d'origine
  FILE_WRITELN 1, "</TABLE>"
  FILE_WRITELN 1, "</BODY></HTML>"
FILE_CLOSE 1
EXECUTE ie$ + " " + fh$: Rem lancement de Internet Explorer
Fin:
TERMINATE

Ucase:
Rem conversion de suf$ en majuscules
s$ = ""
FOR j = 1 TO LEN(suf$)
  c$ = MID$(suf$, j, 1)
  IF ASC(c$) > 96 THEN c$ = CHR$(ASC(c$) - 32)
  s$ = s$ + c$
NEXT j
suf$ = s$
RETURN


Dernière édition par JL35 le Sam 5 Juil 2008 - 22:55, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
musicgames



Nombre de messages : 55
Date d'inscription : 21/01/2008

MessageSujet: Re: Affichage sous IE des smileys et gif animés   Mer 18 Juin 2008 - 7:24

Intéressant !
Tu pourrais laisser l' utilisateur sélectionner le dossier contenant les smileys Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lagman

avatar

Nombre de messages : 204
Age : 24
Localisation : France
Date d'inscription : 07/05/2008

MessageSujet: Re: Affichage sous IE des smileys et gif animés   Mar 24 Juin 2008 - 16:34

ca devrait aussi marcher avec firefox non ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tfssp.populus.org/
JL35



Nombre de messages : 5920
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Affichage sous IE des smileys et gif animés   Sam 5 Juil 2008 - 22:51

@musicgames, il faudrait coder un petit explorateur de fichiers, je ne sais pas si ça existe tout fait sous Panoramic... non, je pense qu'il faudrait l'écrire, un programme qui permettrait de sélectionner un répertoire, ou un ou plusieurs fichiers. Mais ce n'est pas aussi simple que ça en a l'air, avec les outils dont on dispose, ce serait un bon exercice...
Exemple de listage grossier de la racine C:
Code:
Rem DIR.BAS
dim rep$, f$, fl$, Savcur$, prf$, pr, nr, nf, x, y, lf, hf, il
dim passe
label Reb, Sui, ssa, Term, Fin
rep$="C:"
IF DIR_EXISTS(rep$) = 0 THEN GOTO Fin
Savcur$ = DIR_CURRENT$: Rem Sauvegarde répertoire actuel
IF LEN(rep$) = 2 THEN rep$ = rep$ + "\"
Rem sous la racine du disque il faut terminer par un "\", et non après.
DIR_CHANGE rep$
pr = 0
nf = 0
nr = 0
il = 13
FONT_BOLD 0
hf = 994
lf = 540
WIDTH 0,lf
HEIGHT 0,hf
COLOR 0,236,236,236
CAPTION 0,"Répertoire: "+rep$
BORDER_SMALL 0
y = -1*il: x = 1: passe = 1: prf$ = "- "

Reb:
IF pr = 0 THEN f$ = FILE_FIND_FIRST$: pr = 1: GOTO Sui
f$ = FILE_FIND_NEXT$
Sui:
IF f$ = "_"
  IF passe = 2 THEN GOTO Term
  passe = 2: pr = 0: prf$ = "": GOTO Reb
END_IF
IF FILE_EXISTS(rep$ + f$) = 0
  IF passe = 2 THEN GOTO Reb
  nr = nr + 1
  GOTO ssa
END_IF
IF FILE_EXISTS(rep$ + f$) = 1
  IF passe = 1 THEN GOTO Reb
  nf= nf + 1
END_IF
ssa:
y = y + il
IF y > (hf-3*il) THEN x = x + lf/3: y = 0
PRINT_LOCATE x, y
PRINT prf$ + f$
GOTO Reb

Term:
FILE_FIND_CLOSE
y = y + il
IF y > (hf-3*il) THEN x = x + lf/3: y = 0
PRINT_LOCATE x, y
Rem PRINT f$
PRINT
PRINT rep$ + " - " + STR$(nf)+ " fichiers "+ STR$(nr)+ " répertoires."

Fin:
DIR_CHANGE Savcur$
END
on n'a même rien pour distinguer les fichiers des sous-répertoires, le test ici est efficace mais peu élégant. (les noms des sous-répertoires sont précédés de "- ").
D'un autre côté, ce n'est pas très gênant de désigner en "dur" dans le programme un répertoire contenant l'ensemble des smileys ?

PS il existe bien dans Panoramic une fonction de choix d'un fichier:
Code:
OPEN_DIALOG n
f$ = FILE_NAME(n): rem fichier choisi (ou "_" si annuler)
mais elle ne permet pas de choisir un répertoire, ou plusieurs fichiers dans un répertoire.

PS2 (rien à voir avec une console de jeu) Voilà, j'ai codé pour m'amuser un prototype de choix d'un répertoire, que je mets dans un nouveau topic.

@langman, je n'ai pas essayé, mais il n'y a pas de raison que ça ne marche pas sous Firefox. Je vais essayer.
Edit: eh bien non, ça ne marche pas correctement sous Firefox, il n'affiche pas les vignettes et je ne sais pas pourquoi. En fait je ne me sers d'internet explorer que pour des affichages locaux comme celui-ci, et je navigue avec firefox.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Affichage sous IE des smileys et gif animés   

Revenir en haut Aller en bas
 
Affichage sous IE des smileys et gif animés
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Affichage sous IE des smileys et gif animés
» Pb avec affichage des photos et smileys sous firefox
» Soucis d'affichage sous Explorer et Chrome du tableau d'info personalisé
» Probleme affichage sous "forum"
» Bug d'affichage sous IE6

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: