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
» Version instantanée V 0.9.28i8 possédant l'objet SYNEDIT
par Laurent (Minibug) Aujourd'hui à 14:42

» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 13:17

» @Klaus
par Yannick Aujourd'hui à 13:06

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:47

» Form [formulaires annexes]
par Jean Claude Aujourd'hui à 1:39

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Jeu 25 Mai 2017 - 22:50

» KG.dll - nouveautés en cours de préparation
par Klaus Jeu 25 Mai 2017 - 22:48

» Outils couleurs
par Yannick Jeu 25 Mai 2017 - 19:22

» bug number_events : toujours égal à 0
par silverman Mer 24 Mai 2017 - 15:36

» bug ON_MOVE N,L : actif que sur form 0
par silverman Mer 24 Mai 2017 - 15:30

» Testez vos connaissances
par Yannick Mar 23 Mai 2017 - 13:37

» Castle game Engine
par Jicehel Lun 22 Mai 2017 - 12:05

» Pb pour matheux
par Yannick Dim 21 Mai 2017 - 20:47

» Othello
par Laurent (Minibug) Dim 21 Mai 2017 - 11:04

» Problème au lancement de Panoramic.
par Marc37 Dim 21 Mai 2017 - 10:10

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2017
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Aide à la programmation

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



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

MessageSujet: Aide à la programmation   Sam 25 Oct 2014 - 18:56

Peut-être plus gadget qu'autre chose, une aide à la définition des objets dans un programme Panoramic:
On clique sur un objet dans la grille supérieure, et sa définition minimum est générée plus bas, avec une variable comme numéro d'objet et les paramètres minimum (position, taille), prêts à être garnis.
Chaque objet est défini par une variable, avec génération de la commande DIM correspondante.

Deux champs sont garnis:
- en haut, la ou les lignes de DIM, pour la définition des noms d'objets
- en bas, successivement, les lignes de définition des objets, avec progression de l'index.

Quand c'est terminé, il ne reste ensuite qu'à copier et coller successivement ces deux champs dans le programme en préparation dans l'éditeur, puis ajuster les valeurs:
- garnir les données [#) avec les bonnes valeurs
- ajouter les champs manquants et/ou supprimer les champs inutiles
- supprimer (éventuellement) les étiquettes non utilisées, dans la définition de l'objet et dans le DIM correspondant.

Je ne sis pas sûr que ce soit très utile, c'est à voir, en tout cas ce n'est pas très long, et ça peut donner des idées:
Code:
' Aide à la programmation: définition des objets pour un nouveau programme
' ==============================================================================
' PRINCIPE: cliquer successivement les objets à définir, qui seront générés dans
' la fenêtre du bas, avec attribution de variables 'étiquettes', lesquelles seront
' regroupées dans des lignes de DIM dans la fenêtre du haut.
' Puis 'Copier' successivement ces deux fenêtre pour les 'Coller' dans le
' programme en cours d'élaboration.
' Dans le programme, mettre en forme ces lignes de définitions, en mettant
' notamment les valeurs adéquates dans les zones prévues (caractères '#'),
' dimensions et autres paramètres.
' ==============================================================================
LABEL Clk, Copier,Remplace
DIM gr%,nr%,nc%,w%,h%,w1%,Obj$(20,10),no%(20),i%,j%,k%,a$,b$,c$,x%,y%,c%,r%,nob
DIM lso$(50),prf$(50),vpr%(50),car$(50),dm$,xd%,h3,s1$,s2$,ch$,ch1$,ch2$

DATA "Classiques:","ALPHA","BUTTON","FORM","GRID","MEMO","SPIN","F"
DATA "Listes:","COMBO","DLIST","EDIT","LIST","F"
DATA "Scènes:","SCENE2D","SCENE3D","F"
DATA "Multimédia:","HVIEWER","IMAGE","MOVIE","PICTURE","SOUND","F"
DATA "Choix:","OPTION","CHECK","F"
DATA "Menus:","MAIN_MENU","SUB_MENU","F"
DATA "Barres:","PROGRESS_BAR","SCROLL_BAR","TRACK_BAR","F"
DATA "Dialogue:","OPEN_DIALOG","SAVE_DIALOG","F"
DATA "Horloge:","TIMER","F"
DATA "Conteneurs:","CONTAINER","CONTAINER_OPTION","PANEL","F"

DATA "lsobj": ' liste des objets, classés par numéro
DATA "SCENE3D","BUTTON","EDIT","MEMO","COMBO","ALPHA","FORM","LIST","PICTURE"
DATA "CHECK","OPTION","MAIN_MENU","SUB_MENU","SOUND","MOVIE","TRACK_BAR"
DATA "OPEN_DIALOG","SAVE_DIALOG","SCROLL_BAR","PROGRESS_BAR","SPIN","GRID"
DATA "CONTAINER","","","DLIST","SCENE2D","TIMER","PANEL","","","CONTAINER_OPTION"
DATA "","","","HVIEWER","","","","","IMAGE","F"
' préfixe des étiquettes d'objets générées
DATA "s3d","btn","edi","mem","cmb","alf","frm","lst","pic","chk","opt","mme","sme"
DATA "snd","mov","tba","odi","sdi","sba","pba","spn","grd","cnt","","","dls","s2d"
DATA "tim","pan","","","cno","","","","hvw","","","","","img"
' caractéristiques minimum implicites: T(top), L(left), W(largeur), H(hauteur), P(parent)
DATA "TLWH","TL","TLW","TLWH","TLWH","TL","TLWH","TLWH","TLWH","TL","TLP","","P"
DATA "","TLWH","TLW","","","TLW","TLW","TLW","TLWH","TLWH","","","","TLWH",""
DATA "TLWH","","","TLWH","","","","TLWH","","","","",""

WIDTH 0,800: HEIGHT 0,SCREEN_Y-50: BORDER_SMALL 0
COLOR 0,180,255,255: FONT_BOLD 0
nr% = 11: nc% = 8
gr% = 1
w% = 114: h% = 15

GRID gr%: TOP gr%,0: LEFT gr%,0
WIDTH gr%,(nc%-1)*w%-16: HEIGHT gr%,(nr%-1)*h%+1+nr%+3
GRID_COLUMN gr%,nc%: GRID_ROW gr%,nr%
GRID_COLUMN_WIDTH gr%,w%: GRID_ROW_HEIGHT gr%,h%
GRID_ONE_COLUMN_WIDTH gr%,1,1: GRID_ONE_ROW_HEIGHT gr%,1,1
GRID_ONE_COLUMN_WIDTH gr%,2,83
FONT_NAME gr%,"Consolas": FONT_SIZE gr%,10: FONT_BOLD gr%: FONT_COLOR gr%,0,0,128
ON_CLICK gr%,Clk
c% = 1
FOR r% = 2 TO nr%
    READ a$
    WHILE a$<>"F"
        c%=c%+1: Obj$(r%,c%)=a$
        i%=w%: IF c%=2 THEN i% = 0
        Wcel(gr%,a$,r%,c%,i%)
    READ a$
    END_WHILE
    no%(r%) = c%: c% = 1
NEXT r%
READ a$: WHILE a$<>"lsobj": READ a$: END_WHILE: nob = 0
READ a$: WHILE a$<>"F": nob=nob+1: lso$(nob) = a$: READ a$: END_WHILE
FOR i% = 1 TO nob: READ a$: prf$(i%) = a$: NEXT i%
FOR i% = 1 TO nob: READ a$: car$(i%) = a$: NEXT i%

LIST 2:top 2,height(1)+5: width 2,width(0)-100:height 2,60
COLOR 2,255,255,164
FONT_NAME 2,"Consolas": FONT_SIZE 2,10

MEMO 3: TOP 3,TOP(2)+HEIGHT(2)+5: WIDTH 3,WIDTH(2)
h3 = HEIGHT(0)-HEIGHT(1)-HEIGHT(2)-70: HEIGHT 3,h3
FONT_NAME 3,"Consolas": FONT_SIZE 3,10
COLOR 3,255,255,164
BUTTON 6: TOP 6,TOP(2): LEFT 6,LEFT(2)+WIDTH(2): CAPTION 6,"COPIER": ON_CLICK 6,Copier
BUTTON 7: TOP 7,TOP(3): LEFT 7,LEFT(3)+WIDTH(3): CAPTION 7,"COPIER": ON_CLICK 7,Copier
ALPHA 10: TOP 10,TOP(3)+h3+4: LEFT 10,50: COLOR 10,255,255,0
CAPTION 10," Dans la sélection, remplacer:"
EDIT 11: TOP 11,TOP(10)-4: LEFT 11,LEFT(10)+170: WIDTH 11,80
FONT_NAME 11,"Consolas": FONT_SIZE 11,11
ALPHA 12: TOP 12,TOP(10): LEFT 12,LEFT(11)+WIDTH(11)+5: COLOR 12,255,255,0
CAPTION 12," par:"
EDIT 13: TOP 13,TOP(11): LEFT 13,LEFT(12)+30: WIDTH 13,80
FONT_NAME 13,"Consolas": FONT_SIZE 13,11
ALPHA 14: TOP 14,TOP(10): LEFT 14,LEFT(13)+WIDTH(13)+5: COLOR 14,255,255,0
CAPTION 14,"Sélectionner, puis:"
BUTTON 15: TOP 15,TOP(13)-1: LEFT 15,LEFT(14)+120: CAPTION 15,"OK"
ON_CLICK 15,Remplace
dm$ = "": xd% = 1
END
' ==============================================================================
Clk:
x% = MOUSE_X_LEFT_DOWN(gr%): y% = MOUSE_Y_LEFT_DOWN(gr%)
c% = GRID_X_TO_COLUMN(gr%,x%)
r% = GRID_Y_TO_ROW(gr%,y%)
IF c% < 3 THEN RETURN
a$ = Obj$(r%,c%): IF a$ = "" THEN RETURN: ' case vide
FOR i% = 1 TO nob
    IF a$ = lso$(i%) THEN EXIT_FOR
NEXT i%
c$ = car$(i%)
a$ = "i%=i%+1: "+a$+" i%"
IF INSTR(c$,"P")>0 THEN a$ = a$ + ": PARENT i%,#p"
IF INSTR(c$,"T")>0 THEN a$ = a$ + ": TOP i%,#t"
IF INSTR(c$,"L")>0 THEN a$ = a$ + ": LEFT i%,#g"
IF INSTR(c$,"W")>0 THEN a$ = a$ + ": WIDTH i%,#w"
IF INSTR(c$,"H")>0 THEN a$ = a$ + ": HEIGHT i%,#h"
j% = vpr%(i%)+1: vpr%(i%) = j%: b$ = prf$(i%)+STR$(j%)
a$ = a$ + ": "+b$+"=i%"
ITEM_ADD 3,a$
IF COUNT(2) = 0
    ITEM_ADD 2,"DIM i%,"+b$
ELSE
    dm$ = ITEM_READ$(2,xd%)
    IF LEN(dm$) >= 78
        xd% = xd%+1: ITEM_ADD 2,"DIM "+b$
    ELSE
        dm$ = dm$ + ","+b$
        ITEM_DELETE 2,xd%: ITEM_INSERT 2,xd%,dm$
    END_IF
END_IF
RETURN
' ==============================================================================
Copier:
' copier une des zones dans le clipboard
i% = NUMBER_CLICK
IF i% = 6
    j% = 2
ELSE
    j% = 3
END_IF
a$ = ""
FOR i% = 1 TO COUNT(j%)
    a$ = a$ + ITEM_READ$(j%,i%)+CHR$(13)+CHR$(10)
NEXT i%
CLIPBOARD_STRING_COPY a$
RETURN
' ==============================================================================
Remplace:
s1$ = TEXT$(11): s2$ = TEXT$(13)
IF s1$ = "" THEN RETURN
a$ = SELECT_READ$(3): ' zone sélectionnée
ch$ = ""
FOR i% = 1 TO COUNT(3)
    ch$ = ch$+ITEM_READ$(3,i%): IF i%<COUNT(3) THEN ch$=ch$+CHR$(13)+CHR$(10)
NEXT i%
k% = INSTR(ch$,a$): ch1$=LEFT$(ch$,k%-1): ch2$=RIGHT_POS$(ch$,k%+LEN(a$))
k% = INSTR(a$,s1$)
WHILE k%>0
    a$=LEFT$(a$,k%-1)+s2$+RIGHT_POS$(a$,k%+LEN(s1$))
    k% = INSTR_POS(a$,s1$,k%+LEN(s2$))
END_WHILE
ch$ = ch1$ + a$ + ch2$
CLEAR 3: ITEM_ADD 3,ch$
RETURN
' ==============================================================================
SUB Wcel(gr%,a$,r%,c%,wc%)
' Écriture de a$ dans la cellule r%,c% de la grille gr%
' centrage horizontal si wc% <> 0 (= largeur cellule)
IF wc% > 0
    WHILE TEXT_WIDTH(a$,gr%) < wc%: a$ = " " + a$ + " ": END_WHILE
    a$ = RTRIM$(MID$(a$,2,100))
END_IF
GRID_WRITE gr%,r%,c%,a$
END_SUB
' ==============================================================================
Edit 22h petites modifs et erreurs...
23h10 possibilité de faire des remplacements par série


Dernière édition par JL35 le Dim 26 Oct 2014 - 0:09, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Aide à la programmation   Sam 25 Oct 2014 - 20:06

JL35 a écrit:
Je ne sis pas sûr que ce soit très utile, c'est à voir, en tout cas ce n'est pas très long, et ça peut donner des idées:

Détrompe-toi JL35.
Même si tu ne sis pas sûr que ce soit très utile, c’est sûr, ça peut donner des idées.

Et merci d’avoir partagé.
Le savoir est la seule chose qui augmente quand on la partage.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Aide à la programmation   Sam 25 Oct 2014 - 20:49

En tout cas papydall ce dont je sis sûr c'est que tu as l'oeil bien affûté !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2266
Localisation : Vienne (86) - FRANCE
Date d'inscription : 10/02/2012

MessageSujet: Re: Aide à la programmation   Sam 25 Oct 2014 - 23:06

Pratique ce petit outil !

Je le rajoute a mes utilitaires. Merci JL35

Méfie-toi, un papydall peut en cacher un autre ! drunken drunken
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Aide à la programmation   Dim 26 Oct 2014 - 0:08

Merci Minibug, mais c'est pas fini !

J'ai rajouté une fonction: remplacer une séquence par une autre dans les lignes fabriquées.
Tu as par exemple (c'est n'importe quoi, pour l'exemple):


~~~~~~
~~~~~~
tu peux remplacer dans les 4 options PARENT i%,#p par PARENT i%,cno1 qui est la vraie valeur
(sélectionner les 4 lignes concernées)
ou bien mettre la même valeur pour une série (consécutive) de TOP ou LEFT, ou n'importe quoi d'autre
(voir la fonction en bas).
Il faut d'abord entrer les valeurs dans les deux EDIT du bas, puis sélectionner la zone à la souris, puis 'OK'
(Si on sélectionne d'abord, on perd la sélection en entrant les valeurs).
On peut remplacer une série de paramètres par rien: ne rien mettre dans le 2ème Edit du bas.
(je modifie le programme ci-dessus).


Dernière édition par JL35 le Dim 26 Oct 2014 - 23:57, édité 4 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Aide à la programmation   Dim 26 Oct 2014 - 0:50

Merci JL35.
Vraiment merci.
Ce que tu fais est très instructif pour celui qui veut … s’instruire !
A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Aide à la programmation   Dim 26 Oct 2014 - 16:02

Et merci à toi papydall, ça fait plaisir Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1570
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 26 Oct 2014 - 20:21

Sacré JL35, toujours de très beaux outils !
D'ailleurs, j'ai jeté un œil sur ce qui
a été fait pendant mon absence,
et parmi les belles choses,
de magnifiques signées JL35
(un scan, un redimensionnement d'images,
un affichage des numéros des objets-système...)
Ouahhh, super ! Encore bravo, JL35 !!!
L'esprit toujours plus vif que jamais !
cheers flower alien flower cheers (pas du tout Sleep )
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



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

MessageSujet: Re: Aide à la programmation   Dim 26 Oct 2014 - 23:26

N'en jetez plus, la cour est pleine ! arrête les fleurs jjn4, je ne sais plus où les mettre !
Cela dit je vais me reposer un peu en attendant ta production qui ne saurait tarder après une petite phase de remise en train Very Happy
J'ai fait les outils, tu n'as plus qu'à faire les programmes ! Very Happy
Citation :
Sacré JL35, toujours de très beaux outils !
(rassurez-vous, je ne prends ça que pour ma programmation)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Aide à la programmation   

Revenir en haut Aller en bas
 
Aide à la programmation
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» instalation carte inde dans mon 1940t
» Pour les vrais débutants en programmation
» besion d'aide language html lecteur de musique !! (Résolu)
» Aide TC Gold en français
» [résolu]Message d'erreur ... Besoin d'aide !

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 :: Présentation et bavardage-
Sauter vers: