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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Quelques SUBs, en vrac

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2, 3
AuteurMessage
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Quelques SUBs, en vrac   Dim 20 Jan 2013 - 19:01

Salut Ygeronimi,

Citation :
J'ai dans l'idée qu'il serait bien que chaque objet puisse afficher son numéro par défaut dès son affichage.
L'affichage pouvant être initialisé par la suite, cela faciliterai le job pour retrouver le numéro de chacun des
objets par prévisualisation de l'interface.

Oui, ou alors tu transformes le N° dobjet en une variable% explicite comme ci-dessous

Code:

Dim No%:no%=10
dim Grid_machin%:Cre_Objets("grid",1,50,20,400,150,0,"CONTAINER_OPTION"):Grid_machin%=no%

caption 0,Grid_machin%
END

SUB Cre_Objets(obj$,V%,T%,L%,W%,H%,P%,C$)
DIM_LOCAL indx%
' Numérotation
No%=No%+1
' Création de l'objet
IF VARIABLE("T_obj$") = 0
  DIM T_obj$
  T_obj$="01SCENE3D;02BUTTON;03EDIT;04MEMO;05COMBO;06ALPHA;07FORM;08LIST;09PICTURE;"
  T_obj$=T_obj$+"10CHECK;11OPTION;12MAIN_MENU;13SUB_MENU;14SOUND;15MOVIE;16TRACK_BAR;"
  T_obj$=T_obj$+"17OPEN_DIALOG;18SAVE_DIALOG;19SCROLL_BAR;20PROGRESS_BAR;21SPIN;"
  T_obj$=T_obj$+"22GRID;23CONTAINER;24;25;26DLIST;27SCENE2D;28TIMER;29;30;31;"
  T_obj$=T_obj$+"32CONTAINER_OPTION;33;34;35;36;37;38;39;40;41IMAGE;"
END_IF
indx% = INSTR(T_obj$,UPPER$(obj$)+";"): indx% = VAL(MID$(T_obj$,indx%-2,2))
if indx%<>7 and NO%=0 then NO%=NO%+1
SELECT indx%
    CASE 1: SCENE3D No%
    CASE 2: BUTTON No% :Caption No%,C$
    CASE 3: EDIT No%
    CASE 4: MEMO No%
    CASE 5: COMBO No%
    CASE 6: ALPHA No% :Caption No%,C$
    CASE 7: IF No%>0 THEN FORM No% :Caption No%,C$
    CASE 8: LIST No%
    CASE 9: PICTURE No%
    CASE 10: CHECK No%
    CASE 11: OPTION No% :Caption No%,C$
    CASE 12: MAIN_MENU No%
    CASE 13: SUB_MENU No% :Caption No%,C$
    CASE 14: SOUND No%
    CASE 15: MOVIE No%
    CASE 16: TRACK_BAR No%
    CASE 17: OPEN_DIALOG No%
    CASE 18: SAVE_DIALOG No%
    CASE 19: SCROLL_BAR No%
    CASE 20: PROGRESS_BAR No%
    CASE 21: SPIN No%
    CASE 22: GRID No%
    CASE 23: CONTAINER No% :Caption No%,C$
    CASE 26: DLIST No%
    CASE 27: SCENE2D No%
    CASE 28: TIMER No%
    CASE 32: CONTAINER_OPTION No% :Caption No%,C$
    CASE 41: IMAGE No%
END_SELECT
' Visibilité
If V% = 0 Then hide NO%
' Dimensions
If H% > 0 Then Height NO%,H%
If W% > 0 Then Width NO%,W%
' Placement
If NO% = 1
  If T% > 0 : Top NO%,T% : Else : Top NO%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left NO%,L%: Else : Left NO%,(Screen_x-W%)/2: End_If
Else
  If T% > 0 then Top NO%,T%
  If L% > 0 then Left NO%,L%
End_If
' filiation
If P% > 0 then Parent NO%,P%
END_SUB

En tout cas je prends car çà simplifie la création d'objet.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 20 Jan 2013 - 19:37

@ Jean Claude,

Cela va bien si tu définis les attributs au fur et à mesure que tu crées les objets
mais une fois qu'ils le sont tous et que tu veux changer un attribut ou te servir d' un objet
pour récupérer ou afficher une valeur.... scratch

"heu...c'est quoi le numéro de celui là déjà....450 ou 700 scratch "


Edit : j'ai fait une correction, tu as pris le code d' avant celle ci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Quelques SUBs, en vrac   Dim 20 Jan 2013 - 20:25

Pas mal la dernière mouture ygeronimi.
Mais comme je disais, il me semble que pour moi je sortirais de la sub la définition du numéro de l'objet. Comme tu disais, si on veut intervenir après coup dans le code, ou bien utiliser les objets en cours de codage, il faut bien connaître le numéro des objets concernés: IF CHECKED(n1), TEXT$(n2) ...
Il faut récupérer No% en sortie de sub, ce qui revient au même.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Quelques SUBs, en vrac   Dim 20 Jan 2013 - 22:46

Je ne vois pas le problème avec les N° d'objet sous forme Variable%

Moi, je ne code que comme cela. Supposons que nous ayons besoin d'un EDIT pour saisir un nom dans un carnet d'adresse. Je "l'appelle" (en réalité je le numérote) sous la forme Edit_Nom%, ainsi je mémorise l'objet et sa fonction sans avoir besoin de connaitre son véritable numéro. Dans le cas ou cet EDIT doit être utilisé plusieurs fois je le "nomme" Edit_01%.

La solution de JL35 de sortir le numéro (NO%) oui, mais çà change pas le problème il faut mémoriser que tel numéro correspond à l'edit situé en haut à gauche.....

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Quelques SUBs, en vrac   Dim 20 Jan 2013 - 23:05

Tu as raison Jean Claude, c'est bien plus parlant avec un nom de variable, mais ça risque d'en faire beaucoup.
C'est vrai qu'on n'est pas obligé de leur donner un nom à tous, seulement les plus utilisés.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 21 Jan 2013 - 0:26

Je pense que pour la numérotation des objets le mieux
est de passer le numéro en paramètre.

finalement cela reste un repaire dans le code,
on retrouve le numéro lors de l'appel à la sub.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Quelques SUBs, en vrac   Lun 21 Jan 2013 - 0:44

JL35 a écrit:
J'efface, j'avais pas vu la liste... mais c'est un peu nébuleux (pour moi), c'est vrai qu'avec la neige qui tombe sans arrêt... papydall, ça va ? fait pas trop froid en Tunisie ?

En Tunisie le temps est plus clément.
Dans la région où j’habite (la côte est de la Tunisie), on ne voie qu’exceptionnellement la neige.
Actuellement on a des simples crachins avec une température de 10 degrés.

Bon, voila un rayon de soleil sunny sunny sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Quelques SUBs, en vrac   Lun 21 Jan 2013 - 0:54

ygeronimi a écrit:
le plus triste de cette sub ,
c'est que je ne me souviens pas de 25 panoramiciens régulier sur le forum Rolling Eyes

Pourquoi tu t’es exclu de la liste ?
Compte moi double et quintuple toi : ça fera le compte !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Quelques SUBs, en vrac   Lun 21 Jan 2013 - 12:18

Bonjour à tous Very Happy
En ce moment, je n'ai pas trop le temps de surveiller Panoramic car je suis empêtré dans des problèmes familiaux et judiciaires qui n'en finissent pas, mais je veux quand même apporter mon petit caillou à l'édifice.
Ce matin j'ai vite fait une petite sub qui doit pouvoir compter les mots d'une phrase ou d'un texte.
Code:
' Pour compter le nombre de mots dans une phrase ou un texte
dim txt$
txt$="Il était une fois, une marchande de foie, qui vivait dans la ville de Foix, qui se dit un jour, ma fois, j'irais bien vendre du foie ailleurs que dans la ville de Foix."
'      1  2    3    4    5      6      7  8    9    10    11  12  13  14  15    16 17  18 19  20  21  22      23    24    25  26  27    28    29  30  31  32  33  34
nombredemots(txt$)
end

sub nombredemots(txt$)
dim_local i,c
txt$=trim$(txt$)
  for i=2 to len(txt$)
      if mid$(txt$,i,1)=chr$(32) and mid$(txt$,i-1,1)<>chr$(32) then c=c+1
  next i
  c=c+1:message "nombre de mots: "+str$(c)
end_sub
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 21 Jan 2013 - 21:35

Je viens de rajouter une sub à mon arc.... Laughing

Celle ci est pour les attributs des objets à texte :
Code:
Objets("Button",1,1,50,20,200,150,0,"button")
Objets("Alpha",2,1,10,10,0,0,0,"alpha de police arial blanc sur bleu gras italique souligné")
Text_Objets_Attribut(2,"Arial",10,1,1,1,"255,255,255","0,0,255")
END

SUB Objets(obj$,No%,V%,T%,L%,W%,H%,P%,C$)
DIM_LOCAL indx%
' Création de l'objet
IF VARIABLE("T_obj$") = 0
  DIM T_obj$
  T_obj$="01SCENE3D;02BUTTON;03EDIT;04MEMO;05COMBO;06ALPHA;07FORM;08LIST;09PICTURE;"
  T_obj$=T_obj$+"10CHECK;11OPTION;12MAIN_MENU;13SUB_MENU;14SOUND;15MOVIE;16TRACK_BAR;"
  T_obj$=T_obj$+"17OPEN_DIALOG;18SAVE_DIALOG;19SCROLL_BAR;20PROGRESS_BAR;21SPIN;"
  T_obj$=T_obj$+"22GRID;23CONTAINER;24;25;26DLIST;27SCENE2D;28TIMER;29;30;31;"
  T_obj$=T_obj$+"32CONTAINER_OPTION;33;34;35;36;37;38;39;40;41IMAGE;"
END_IF
indx% = INSTR(T_obj$,UPPER$(obj$)+";"): indx% = VAL(MID$(T_obj$,indx%-2,2))
if indx%<>7 and NO%=0 then NO%=NO%+1
SELECT indx%
    CASE 1: SCENE3D No%
    CASE 2: BUTTON No% :Caption No%,C$
    CASE 3: EDIT No%
    CASE 4: MEMO No%
    CASE 5: COMBO No%
    CASE 6: ALPHA No% :Caption No%,C$
    CASE 7: IF No%>0 THEN FORM No% :Caption No%,C$
    CASE 8: LIST No%
    CASE 9: PICTURE No%
    CASE 10: CHECK No% :Caption No%,C$
    CASE 11: OPTION No% :Caption No%,C$
    CASE 12: MAIN_MENU No%
    CASE 13: SUB_MENU No% :Caption No%,C$
    CASE 14: SOUND No%
    CASE 15: MOVIE No%
    CASE 16: TRACK_BAR No%
    CASE 17: OPEN_DIALOG No%
    CASE 18: SAVE_DIALOG No%
    CASE 19: SCROLL_BAR No%
    CASE 20: PROGRESS_BAR No%
    CASE 21: SPIN No%
    CASE 22: GRID No%
    CASE 23: CONTAINER No% :Caption No%,C$
    CASE 26: DLIST No%
    CASE 27: SCENE2D No%
    CASE 28: TIMER No%
    CASE 32: CONTAINER_OPTION No% :Caption No%,C$
    CASE 41: IMAGE No%
END_SELECT
' Visibilité
If V% = 0 Then hide NO%
' Dimensions
If H% > 0 Then Height NO%,H%
If W% > 0 Then Width NO%,W%
' Placement
If indx% = 7
  If T% > 0 : Top NO%,T% : Else : Top NO%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left NO%,L%: Else : Left NO%,(Screen_x-W%)/2: End_If
Else
  If T% > 0 then Top NO%,T%
  If L% > 0 then Left NO%,L%
End_If
' filiation
If P% > 0 then Parent NO%,P%
END_SUB

Sub Text_Objets_Attribut(No%,F$,FS%,B%,I%,U%,CF$,CO$)
Dim_Local RF%,GF%,BF%,RO%,GO%,BO%,Sep%,ch$
' définition de la police
If F$ <>"" then Font_name No%,F$
' définition de la taille de la police
if FS% > 0 then Font_Size No%,FS%
' définition de la couleur de fond de l'objet
if CO$ <> ""
  sep%=instr(CO$,",")
  RO%=Val(left$(CO$,sep%-1))
  ch$=right$(CO$,len(CO$)-sep%)
  sep%=instr(ch$,",")
  GO%=val(left$(ch$,sep%-1))
  BO%=val(right$(ch$,len(ch$)-sep%))
  Color No%,RO%,GO%,BO%
end_if
' définition de la couleur du texte de l'objet
if CF$ <> ""
  sep%=instr(CF$,",")
  RF%=Val(left$(CF$,sep%-1))
  ch$=right$(CF$,len(CF$)-sep%)
  sep%=instr(ch$,",")
  GF%=val(left$(ch$,sep%-1))
  BF%=val(right$(ch$,len(ch$)-sep%))
  Font_Color No%,RF%,GF%,BF%
end_if
' gras ou pas (1/0)
If B%=1 then Font_Bold No%
' italique ou pas (1/0)
if I%=1 then Font_Italic No%
' souligné ou pas (1/0)
if U%=1 then Font_Underline No%
End_sub

si elle vous plait, j'y ajouterai l'alignement de Klaus....
Qu'en pensez vous ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Quelques SUBs, en vrac   Lun 21 Jan 2013 - 21:56

Très bien Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Quelques SUBs, en vrac   Lun 21 Jan 2013 - 22:11

Ygeronimi (dans son code) a écrit:
si elle vous plait, j'y ajouterai l'alignement de Klaus....
Qu'en pensez vous ?
Moi je dis oui,

Tel quel ta Sub me plait. Et j'ai hate de voir ce que tu peux en faire.

Je constate que ton retour est prolifique... Very Happy

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Quelques SUBs, en vrac   Lun 21 Jan 2013 - 22:56

Quand les idées sont là et que l'on peut les réaliser, forcément, on se sent mieux Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 21 Jan 2013 - 22:56

Tout de suite j'ai un souci avec les paramètres T$ et WC% de Klaus
il me semble que sa sub intervient sur l'objet après un évènement "on_change"

T$ est apparemment le texte récupéré de l'objet donc on ne peut pas définir l'alignement par défaut ( avant qu'il contienne du texte )
on récupère après l'ajout de chaque lettre et on recalcule pour repositionner le texte dans l'objet.... scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Quelques SUBs, en vrac   Mar 22 Jan 2013 - 0:13

Bonsoir,
En voyant une vielle demande concernant le clic sur un memo pour sélectionner une ligne, je me suis dis qu'on l'avait fait avec Panoramic et JL35 pour un traitement rtf.

Donc cela consiste ici à simuler un list avec un memo. Cela présente l'avantage de cliquer et choisir une ligne, et de modifier un item, comme d'en rajouter un autre au memo.

Code:

' teste de saisie d'une ligne d'un memo'
left 0,100
label selection
dim a$,i$ ,a% ,retour$
i$=chr$(4)

memo 1:left 1,50:top 1,50:width 1,200:height 1,200:font_size 1,10 :bar_both 1:' barre indispensable pour éviter les retour-chariot'
   data "pomme de terre",carotte,poireau,choux,persil,salade,tomatte,poivron,citrouille,potiron,lentille,navet,topinanbour,$
   repeat
      read a$:if a$ <> "$" then item_add 1,a$
   until a$ = "$" or scancode = 27
   on_click 1,selection :cursor_arrow 1
alpha 2:left 2,20:font_size 2,12:font_bold 2
end
' ----------------'
selection:
   clic_memo(1) :' N° du memo
   caption 2,retour$
return 
sub clic_memo(n%)
   dim_local a$,b$,a%,l%,b%,j%
   clipboard_string_copy i$ : clipboard_paste n% :' insert un caractère à l'emplacement du curseur
   ' celui-ci est recherché dans le memo, pour retrouver la ligne.
   if count(n%)>0
      l%=0
      for a%=1 to count(1)
         a$=item_read$(n%,a%)
         b% = instr(a$,i$)
         if b% > 0
            if b% > 1 then a$=left$(a$,b%-1)+mid$(a$,b%+1,len(a$)):else:a$=mid$(a$,2,len(a$)
            item_delete n%,a%:item_insert n%,a%,a$
            if l%=0 then l%=1
            SELECT_TEXT n%,l%,len(a$)+1
            retour$ = a$
         else
            l%=l%+len(a$)+2
         end_if
      next a%   
   end_if
end_sub
EDIT
J'ai vu que j'ai fait une faute d'orthographe à tomate. Plutôt que de modifier le source, il vous apartiendra de le faire en direct avec les flèches (pour retirer la sélection), et de modifier.
Revenir en haut Aller en bas
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Quelques SUBs, en vrac   Mar 22 Jan 2013 - 2:10

Salut Cosmos70

Belle astuce, ça peut me servir. Merci.

Mais comment se fait-il que ce bout de code s’exécute sans broncher ?!
Est-ce permis que les chaines de caractères dans une ligne DATA ne soient pas entourées des guillemets ?
Si oui, pourquoi alors ça ne marche pas si on enlève les guillemets de la 1ère donnée ?
Code:
dim a$
repeat
      read a$  : if a$ <> "$" then print a$
until a$ = "$"
data "pomme de terre",carotte,poireau,choux,persil,salade,tomate,poivron,citrouille,potiron,lentille,navet,topinanbour,$

REMARQUE :
Dans le memo de ton code, j’ai cliqué intentionnellement sur la dernière ligne vide et j’ai eu le message d’erreur suivant :
(52)Not correct string expression. Line 30

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Invité
Invité



MessageSujet: Re: Quelques SUBs, en vrac   Mar 22 Jan 2013 - 2:59

Bonsoir,
Je ne peux pas te répondre. Je sais depuis très longtemps qu'un data avec des espaces doit-être entouré de guillemets. Je ne sais plus si c'est propre à Panoramic.
Je crois que ça toujours été un problème, et il me semble que input, qui est le pendant de read, mais en direct fonctionne mal aussi avec des espaces. J'ai enterré le sujet depuis très longtemps pour avancer, et aller à autre chose.
Sleep
Revenir en haut Aller en bas
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Quelques SUBs, en vrac   Mar 22 Jan 2013 - 5:15

Merci pour la réponse.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 26 Jan 2013 - 14:40

J' ai une interrogation concernant la sub pour les objets.

Est il mieux la sub tel que, où une sub peut déclarer
plusieurs objets et on travail les paramètres distincts après,
ou plusieurs sub, une pour chaque objet
avec tout les paramètres de l'objet ?

la sub serait :
Code:
 O_Alpha(No%,Visible%,Top%,Left%,Height%,Width%,F_Name$,F_Size%,F_Color$,...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 8 Fév 2013 - 19:12

Je viens de revoir la sub pour les objets et de la découper :
Code:
' Objet FORM____________________________________________________________________
Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
  if No%> 0 then FORM No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
  if C$<>"" then Caption No%,C$
End_Sub
' Objet ALPHA___________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
  ALPHA No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet EDIT____________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%)
  EDIT No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet BUTTON__________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$)
  BUTTON No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet GRID____________________________________________________________________
Sub O_Grid(No%)
  GRID No%
End_Sub
' Objet CONTAINER_______________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
  CONTAINER No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet SCENE3D_________________________________________________________________
Sub O_Scene3D(No%,P%,V%,T%,L%,H%,W%)
  SCENE3D No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%

End_Sub
' Objet MEMO____________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%)
  MEMO No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet COMBO___________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%)
  COMBO No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet LIST____________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$)
  LIST No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if F$<>""
  if file_exists F$ then file_load No%,F$
  end_if
End_Sub
' Objet PICTURE_________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
  PICTURE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if P$<>"" then File_load No%,P$
End_Sub
' Objet CHECK___________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
  CHECK No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet OPTION__________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
  OPTION No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet MAIN_MENU_______________________________________________________________
Sub O_Main_Menu(No%,P%,C$,Cl%)
  MAIN_MENU No%
  if P% > 0 then Parent No%,P%
  if C$<>"" then Caption No%,C$
  If Cl%=1 then on_click No%,Clic
End_Sub
' Objet SUB_MENU________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%)
  SUB_MENU No%
  if P% > 0 then Parent No%,P%
  if C$<>"" then Caption No%,C$
  If Cl%=1 then on_click No%,Clic
End_Sub
' Objet SOUND___________________________________________________________________
Sub O_Sound(No%,P%,S$)
  SOUND No%
  If P%>0 then Parent No%,P%
  If S$<>"" then file_load No%,S$
End_Sub
' Objet MOVIE___________________________________________________________________
Sub O_Movie(No%,P%,V%,T%,L%,H%,W%,M$)
  MOVIE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if M$<>"" then file_load No%,M$
End_Sub
' Objet TRACK_BAR_______________________________________________________________
Sub O_Track_Bar(No%,P%,V%,T%,L%,H%,W%)
  TRACK_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet OPEN_DIALOG_____________________________________________________________
Sub O_Open_Dialiog(Out%,Filtre$,O%)
  dim_local No%,F$
  No%=Number_objects+1
  OPEN_DIALOG No%
  if filtre$<>"" then Filter No%,Filtre$
  F$=File_name$(No%)
  if O%=1 then text out%,F$
  if O%=2 then Caption Out%,F$
  if O%=3 then item_add Out%,F$
  if O%=4 then file_load Out%,F$
  Delete No%
End_Sub
' Objet SAVE_DIALOG_____________________________________________________________
' Sub O_Save_Dialog(Filtre$)
'  dim_local No%,F$
'  No%=Number_objects+1
'  SAVE_DIALOG No%
'  if filtre$<>"" then Filter No%,Filtre$
'  F$=file_name$(No%)
' End_Sub
' Objet SCROLL_BAR______________________________________________________________
Sub O_Scroll_Bar(No%,P%,V%,T%,L%,H%,W%)
  SCROLL_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet PROGRESS_BAR____________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
  PROGRESS_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet SPIN____________________________________________________________________
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%)
  SPIN No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet DLIST___________________________________________________________________
Sub O_Dlist(No%,F$)
  DLIST No%
  if F$<>""
  if file_exists F$ then file_load No%,F$
  end_if
End_Sub
' Objet SCENE2D_________________________________________________________________
Sub O_Scene2D(No%,P%,V%,T%,L%,H%,W%)
  SCENE2D No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet TIMER___________________________________________________________________
Sub O_Timer(No%,OO%,Inter%,OT%,T$)
  TIMER No%
  if OO%=1 then timer_on No%
  if OO%=0 then timer_off No%
  if inter%>0 then timer_interval No%,inter%
  if OT%=1
      if T$<>""
        On_timer No%,T$
      end_if
  end_if
End_Sub
' Objet CONTAINER_OPTION________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
  CONTAINER_OPTION No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet IMAGE___________________________________________________________________
Sub O_Image(No%,I$)
  if I$<>"" then file_load No%,I$
End_Sub

il me reste O_Save_Dialog à faire
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Quelques SUBs, en vrac   Sam 9 Fév 2013 - 1:19

Bin, bein, bain ... ça peut servir !
Merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Quelques SUBs, en vrac   

Revenir en haut Aller en bas
 
Quelques SUBs, en vrac
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 3 sur 3Aller à la page : Précédent  1, 2, 3
 Sujets similaires
-
» Un petit calendrier avec quelques Subs
» quelques ajouts
» Quelques mots sur moi
» La Bbox souffle sa bougie et quelques changemments
» Quelques pré-requis pour une bonne utilisation de RRTC

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