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
» I Love You
par JL35 Aujourd'hui à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 version instantanée du 6 novembre 2009

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Jack
Admin
avatar

Nombre de messages : 1764
Date d'inscription : 28/05/2007

MessageSujet: version instantanée du 6 novembre 2009   Ven 6 Nov 2009 - 23:15

Une version instantanée est la version actuelle du développement de PANORAMIC.
Elle vous permet d'utiliser les toutes dernières améliorations, sans attendre la sortie de la prochaine version.

Mais, attention, une version instantanée:
- n'a pas sa documentation à jour (la documentation est mise à jour pour la sortie d'une version régulière),
- n'a pas de procédure d'installation (c'est un fichier zip contenant l'EDITEUR).

Cependant, cette version possède la coloration des nouveaux mots-clés.

Pour obtenir la version instantanée, cliquez sur Télécharger ce fichier

Voici les apports de cette version:

-----------------------------------------------------------------------------------------------

4 nouveaux curseurs:

CURSOR_BEAM : visualise un curseur en forme de I majuscule
CURSOR_POINT : visualise un curseur en forme de main pointée
CURSOR_NOPARKING : visualise un curseur en forme de panneau d'interdiction de stationner
CURSOR_HOURGLASS : visualise un curseur en forme de sablier

CURSOR_DEFAULT donne le curseur CURSOR_BEAM pour les objets EDIT, MEMO, COMBO et le curseur CURSOR_ARROW pour les autres objets.


-----------------------------------------------------------------------------------------------


Dernière édition par Jack le Sam 13 Fév 2010 - 19:47, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.free-boards.net
JL35



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

MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 0:57

Ca marche ! merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 3:01

Merci pour ce que tu fais.
Mais j'ai un problème avec cette version. J'ai publié il y a une semaine un programme provisoir: multipage et celui-ci fonctionne avec cette version.
Etant en cours d'amélioration, j'ai repris le programme en cours, et là mes codes ne fonctionnent plus. Je précise que ça fonctionne avec les versions antérieurs. Sur ce programme, j'ai remplacé les boutons par le choix des commandes à partir d'une liste. Et à chaque clic, ça reste bloqué. J'aime pas mettre un codage qui n'ai pas opérationnel complètement, mais vu que ça ne fonctionne pas pour cet version de Panoramic, la meilleur façon c'est quand même de montrer le code. Je précise que mon scripte est provisoire, car je l'avais développé en faisant des essais, et le codage a suivi. Mais j'ai fais un cahier des charges pour tout revoir, et apporter des modifications majeurs pour mes nouvelles idées. Ne sois pas trop dur pour ce que tu pourrais constater, mais il y a pourtant bien un problème.
Code:

dim dossier$,boite%,ligne%,a$,onglet% ,a%,PrimOnglet%,NbOnglet% ,DernierOnglet%,LigOnglet%,suivre%
dim ongletclic% , Wxz% ,sauve% ,table% ,decale%
label DeCadix ,lecture,sauve,save,load,rajouOnglet,choixFichier,choisir,fin ,vu
left 0,550:top 0,10:width 0,680:height 0,720 :color 0,210,230,210 :rem border_hide 0
' ========================
Wxz%=1  :rem valeur à adapter, mettre MultiPage à la suite des autres objets
PrimOnglet%=Wxz%+20
' ======================== je retires les 2 objets les codages ne sont faits
  rem picture Wxz%+1:left Wxz%+1,52:top Wxz%+1,22:width Wxz%+1,23:height Wxz%+1,23
 rem  file_load Wxz%+1,"SCRLLEFT.bmp"
 
 rem  picture Wxz%+2:top Wxz%+2,22:width Wxz%+2,23:height Wxz%+2,23
  rem file_load Wxz%+2,"SCRLRGHT.bmp"
' --------------------------------------------------------------------
    button Wxz%+5:left Wxz%+5,10:top Wxz%+5,0:width Wxz%+5,40:height Wxz%+5,15
    caption Wxz%+5,"Stop" :on_click Wxz%+5,fin
open_dialog Wxz%+6
' --------------------------------------------------------------------
rem list pour remplacer les onglets verticaux le main_menu et sub_menu ne faisait pas le branchement
  list Wxz%+7:left Wxz%+7,100 :top Wxz%+7,.:width Wxz%+7,250
  height Wxz%+7,20:color Wxz%+7,210,230,210:font_size Wxz%+7,11
  font_bold Wxz%+7:font_color Wxz%+7,0,0,255
  item_add Wxz%+7,"ONGLET PRINCIPAL1":item_add Wxz%+7,"ONGLET SUIVANT"
' --------------------------------------------------------------------
  alpha Wxz%+9:left Wxz%+9,10:top Wxz%+9,25:caption Wxz%+9,"Menu":font_bold Wxz%+9
  on_click Wxz%+9,choisir
LigOnglet%=0
' --------------------------------------------------------------------
memo Wxz%:left Wxz%,10:top Wxz%,40:width Wxz%,650:height Wxz%,632
color Wxz%,230,250,155 :font_size Wxz%,14 :bar_vertical Wxz%
left Wxz%+2,width(Wxz%)-18
 ' -------------------------------------------------------------------
suivre%= PrimOnglet%+NbOnglet%
dlist PrimOnglet%                      :rem titres onglets
gosub rajouOnglet
spin 20:on_click 20,vu :left 20,500

'  ============            =============           

end
'


vu:

return

choisir:
  rem    12:lecture - 13:sauve - 14:new Onglet - 15:fichier
  if table%=0
      list Wxz%+11:left Wxz%+11,15:top Wxz%+11,35:width Wxz%+11,130:height Wxz%+11,110
      table%=1
      ' ici mettre une variable pour valider l'ouverture et continuer
      font_size Wxz%+11,12:font_bold Wxz%+11
      item_add Wxz%+11,"Lecture":item_add Wxz%+11,"Sauve"
      item_add Wxz%+11,"Nouvel onglet"
      item_add Wxz%+11,"Fichier ?"
      item_add Wxz%+11,"annulation"
      if file_exists("existance fiches.txt")=1 and file_exists("titre onglets.fic")=0

        item_add Wxz%+11,"déblocage 1er fichier":rem pas vraiment codé
      end_if
 
      rem on_click Wxz%+11,
      repeat
        ligne%=item_index (Wxz%+11)
      until clicked(Wxz%+11)=1
      delete Wxz%+11 :table%=0
      select ligne%
        case 1: goto load
        case 2: goto save
        case 3: goto rajouOnglet
        case 4: goto choixFichier
      end_select
  end_if
return
' --------------------------------------------------------------
choixFichier:
  filter Wxz%+6,"chercher le fichier|existance fiches.txt"
  dossier$=file_name$(Wxz%+6)
return
' --------------------------------------------------------------

' ===============================================
DeCadix:
  for a%=PrimOnglet%+1 to PrimOnglet%+ DernierOnglet%*2-1  step 2
    if clicked(a%)=1 then exit_for
  next a%
  ongletclic%=a% :if onglet%=0 then onglet%=a%
  color onglet%,251,223,211:font_color onglet%,0,0,0:font_bold_off onglet%
  gosub sauve
  onglet%=ongletclic%:color onglet%,230,250,155:font_color onglet%,255,0,0:font_bold onglet%  :rem celui du mémo
  gosub lecture :set_focus Wxz%
 return
' --------------------------------------------------------------
sauve:
  rem message "sauve, onglet%="+str$(onglet%) +"  PrimOnglet%="+str$(PrimOnglet%)
  color Wxz%,251,186,159:display:wait 100
  height onglet%,19
  ' -------------------- on prend le titre de chaque vignette =>> dlist
  clear PrimOnglet%
  for a%=1 to (NbOnglet%-1)*2 step 2
      a$=text$(PrimOnglet%+a%)
      item_add PrimOnglet%,a$
  next a%

  ' -------------------- on transmet le memo dans dlist
  clear onglet%+1:ligne%=1
  if count(Wxz%)>0
      while ligne%<=count(Wxz%)
      a$=item_read$(Wxz%,ligne%):item_add onglet%+1,a$
      ligne%=ligne%+1
      end_while
  end_if
  clear Wxz%
return
' --------------------------------------------------------------
lecture:
  rem message DernierOnglet%
  rem for a%=PrimOnglet%
  color onglet%,251,223,211:font_color ongletclic%,0,0,0:font_bold_off onglet%
  wait 50:clear Wxz% :wait 50
  if count(onglet%+1)>0
      font_size Wxz%,14:ligne%=1
      while ligne%<= count(onglet%+1)
        a$=item_read$(onglet%+1,ligne%)
        item_add Wxz%,a$
        ligne%=ligne%+1
      end_while
      sauve%=1
  end_if
  height onglet%,22 :font_color onglet%,255,0,0:color onglet%, 230,250,155:font_bold onglet%
  color Wxz%,230,250,155
return
' --------------------------------------------------------------
save:
gosub sauve
rem message "save"
sauve%=1
if sauve%=1
  rem caption Wxz%+2,"sauve"
  color Wxz%,251,186,159:display:wait 100
  for a%=1 to DernierOnglet%
      a$="onglet "+str$(a%)+".fic"
      file_save a%*2 + PrimOnglet%, a$
  next a%
  clear PrimOnglet%
  for a%=PrimOnglet%+1 to PrimOnglet%+(nbOnglet%-1)*2 step 2:item_add PrimOnglet%,text$(a%):next a%
  item_add PrimOnglet%,"$$$"
  file_save PrimOnglet%,"titre onglets.fic"
  rem caption Wxz%+2,"sauvegarde"
  color Wxz%,230,250,155 :goto lecture
end_if
return
' --------------------------------------------------------------
load:
color Wxz%,251,186,159:display:wait 100
rem caption Wxz%+1,"lire"
clear PrimOnglet%:color Wxz%,230,250,155
onglet%=PrimOnglet%+1: height onglet%,23
ligne%=1
while file_exists("onglet "+str$(ligne%)+".fic")=1
  a$="onglet " + str$(ligne%) + ".fic"
  if ligne%>DernierOnglet% then gosub rajouOnglet
  if file_exists("onglet "+str$(ligne%)+".fic")=0 then exit_while
  file_load  ligne%*2 + PrimOnglet% ,a$
  ligne%=ligne%+1
end_while
file_load PrimOnglet%,"titre onglets.fic"
  if count(PrimOnglet%)>0
      ligne%=1 :ligOnglet%=1
      while ligne%<= count(PrimOnglet%)
        a$=item_read$(PrimOnglet%,ligne%)
        if a$="$$$" then exit_while
        text PrimOnglet%+ligOnglet%,a$
        ligne%=ligne%+1 :ligOnglet%=ligOnglet%+2
        if ligne%>DernierOnglet% then exit_while
      end_while
  end_if
  gosub lecture  : boite%=PrimOnglet%+2
rem  caption Wxz%+1,"lecture"  : active Wxz%+2
  color Wxz%,230,250,155
return
' --------------------------------------------------------------
rajouOnglet:

  suivre%=suivre%+1
  edit suivre%:left suivre%,140-70+DernierOnglet%*70:top suivre%,22:width suivre%,70
  height suivre%,22:color suivre%,251,223,211
  font_color suivre%,0,0,0: on_click suivre%,DeCadix
  ' -------------------
      suivre%=suivre%+1
  dlist suivre%:NbOnglet%=NbOnglet%+1
  DernierOnglet%=DernierOnglet%+1
return
' -------------------------------------------------------------
fin:
 terminate
@+


Dernière édition par cosmos70 le Sam 7 Nov 2009 - 9:40, édité 1 fois
Revenir en haut Aller en bas
Jack
Admin
avatar

Nombre de messages : 1764
Date d'inscription : 28/05/2007

MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 9:30

Je regarde pourquoi ton source fonctionnait avant et ne fonctionne plus maintenant. Mai laisse moi quelques jours (déplacement professionnel oblige).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.free-boards.net
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 9:45

Pas de problème pour moi, j'ai gardé la version qui fonctionne, et j'ai d'ailleurs pas beaucoup de temps en ce moment, surtout que c'est un programme que je veux refaire. C'est seulement pour toi, que tu puisses corriger le problème pour ton logiciel.
Merci
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 9:57

Merci Jack, pour cette nouvelle version et en plus avec la coloration-SUPER
A+ Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 14:29

Salut à Jack !

Chez moi sceen_x et sceen_y ne se colore pas en bleu
Et à pare ça, Bravo pour la Version 0.9.15i
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 18:25

Citation :
Chez moi sceen_x et sceen_y ne se colore pas en bleu

Bizarre, Chez moi c'est OK
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 7 Nov 2009 - 18:30

Salut à tous !

Maintenant j'ai bien compris pourquoi sceen_x et sceen_y ne marchais pas.
Le problème c'est que c'est screen_x et screen_y.

Alors Brovo à Jack !
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 14 Nov 2009 - 22:11

J'ai fait un p'tit code avec screen_x et screen_y ;

Code:
width 0,250:height 0,150:caption 0,"PIXELS..."
alpha 1:left 1,20:top 1,15:font_size 1,10
caption 1,"Largeur de l'écran  :  "+str$(screen_x)+" Pixels"
alpha 2:left 2,20:top 2,40:font_size 2,10
caption 2,"Hauteur de l'écran  :  "+str$(screen_y)+" Pixels"
alpha 3:left 3,25:top 3,70:font_size 3,10:font_bold 3
caption 3,"Total de pixels :  "+str$(screen_x*screen_y)
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Sam 14 Nov 2009 - 22:16

Ou encore celui là mais avec des touches de raccourci ;

Code:
label suit
width 0,250:height 0,150:caption 0,"PIXELS...":on_key_up 0,suit
alpha 1:left 1,20:top 1,15:font_size 1,10
caption 1,"Largeur de l'écran  :  "+str$(screen_x)+" Pixels"
alpha 2:left 2,20:top 2,40:font_size 2,10
caption 2,"Hauteur de l'écran  :  "+str$(screen_y)+" Pixels"
alpha 3:left 3,25:top 3,70:font_size 3,10:font_bold 3
caption 3,"Total de pixels :  "+str$(screen_x*screen_y)

end
suit:
if key_up_code=39 then hide 3:height 0,120
if key_up_code=37 then show 3:height 0,150
return
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: version instantanée du 6 novembre 2009   Dim 15 Nov 2009 - 11:04

Salut Nicolas,

Pour nous montrer tes codes tu devrais utiliser le bon Post,(Vos Sources,Vos Utilitaires à partager) celui-ci est plutot réservé à Jack, et aux éventuelles réponses par rapport à ses messages.

A propos ton 2ème code: il ya un os.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: version instantanée du 6 novembre 2009   Dim 15 Nov 2009 - 21:27

Eh ! Jack y a des commandes caché.

en voici ;

DIR_REMOVE
PANORAMIC_EDITOR
RECHERCHE_FICHIERS
RMDIR
Revenir en haut Aller en bas
Contenu sponsorisé




MessageSujet: Re: version instantanée du 6 novembre 2009   

Revenir en haut Aller en bas
 
version instantanée du 6 novembre 2009
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] avira version 9.0
» version instantanée du 22 mai 2010: redimensionner SPRITE
» PANORAMIC_IDE: version instantanée du 25 septembre 2010
» Version instantanée 26 septembre 2014 : PANORAMIC V 0.9.26i2
» Version instantanée du 7 janvier 2015 : PANORAMIC V 0.9.26i5

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Ce qui est en cours ...-
Sauter vers: