FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Logiciel de planétarium.
Panoramic et les APK - Page 10 Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
Panoramic et les APK - Page 10 Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
Panoramic et les APK - Page 10 Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
Panoramic et les APK - Page 10 Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
Panoramic et les APK - Page 10 Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
Panoramic et les APK - Page 10 Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
Panoramic et les APK - Page 10 Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
Panoramic et les APK - Page 10 Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
Panoramic et les APK - Page 10 Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
Panoramic et les APK - Page 10 Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
Panoramic et les APK - Page 10 Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
Panoramic et les APK - Page 10 Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
Panoramic et les APK - Page 10 Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
Panoramic et les APK - Page 10 Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
Panoramic et les APK - Page 10 Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
Le Deal du moment :
Code promo Nike : -25% dès 50€ ...
Voir le deal

 

 Panoramic et les APK

Aller en bas 
+10
Klaus
lechat75
Minibug
lepetitmarocain
Pedro
jjn4
JL35
Yannick
Jack
Oscaribout
14 participants
Aller à la page : Précédent  1, 2, 3 ... 9, 10, 11, 12, 13  Suivant
AuteurMessage
Oscaribout




Nombre de messages : 471
Date d'inscription : 29/12/2016

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyJeu 24 Sep 2020 - 21:38

Je viens d'essayer le programme de palette vu ici: https://panoramic.1fr1.net/t6468-palette-de-couleur#77562
J'ai modifié la fonction en sub, retiré la ligne écrite sur Form 0, vu que la notion de fenêtre ne convient pas pour Androïde.

J'ai systématiquement le message de violation avec des adresses différentes à chaque lancement.

Code:
' palette couleur pris sur celui de Papydall et modifié pour éviter les lignes de DATA
error_french :width 0,380:height 0,360

' print_locate 150,150 : print "FORM 0" :' idicatif de la fenêtre visible au départ
                      ' 200  N° 1er objet de la palette,  0  est le parent
Gril_create_palette(200,0)  :' SUB création de la palette avec les procédures de fonctionnement

on_click 0,GrilPaletteTESTE      :' lancement à définir dans le programme avec le
                                  ' bouton qui branche à GrilPaletteTESTE } ici clic sur Form 0
END

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

rem "===============================================================
rem   GrilPaletteRecoit:  "est un sous-prg de retour après fermeture
rem " de celle-ci. On peut lire le résultat du retour en lisant
rem   variable$ = caption$(grilPaletteColor%+2). " Dans l'exemple
rem " suivant c'est une boite de message qui donne ce retour
rem "===============================================================
' Retour après validation
GrilPaletteRecoit:
   message caption$(grilPaletteColor%+2)
return
' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

rem "===============================================================
rem " GrilPaletteTESTE : S/Pr qui appelle la palette de couleurs
rem " On peut envoyer une couleur de cette façon: "
rem     caption grilPaletteColor%+2 ,"xxx,xxx,xxx"
rem "===============================================================  

' teste d'appel de la palette
GrilPaletteTESTE:
   off_change grilPaletteColor%+241
   rem "============================================================================
   rem " La ligne suivante envoi une couleur (sans obligation) que la sub affiche
  
   caption grilPaletteColor%+2 ,"255,51,255" :' <----en exemple
   '                             XXX,XXX,XXX  ou "" ou ligne en commentaire
   rem " Seule ligne à modifier ! Le reste fait parti du programme
  
   ' ======= FIN ======= FIN ======= FIN ======== FIN =========
   text grilPaletteColor%+241,""
   on_change grilPaletteColor%+241,GrilPaletteRecoit    
   show grilPaletteColor%+2
   GrilPaletteTESTE()
return

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  
sub GrilPaletteTESTE()
   dim_local i% , a$ ,r% , g% , b% , c$ , v%
   if count(grilPaletteColor%) > 0
      for i% = 1 to count(grilPaletteColor%)+4
         show grilPaletteColor%+2+i%
      next i%
   end_if
  
   a$ = caption$(grilPaletteColor%+2)
   if  a$ <> ""
      v% = instr(a$,",")
      if v% > 0
         c$ = left$(a$,v%-1)
         r% = val(c$)
         a$ = right_pos$(a$,v%+1)
         v% = instr(a$,",")
         if v% > 0
            c$ = left$(a$,v%-1)
            g% = val(c$)
            a$ = right_pos$(a$,v%+1) :' restant
            b% = val(a$)
            color grilPaletteColor%+237,r%,g%,b%
            caption grilPaletteColor%+238, caption$(grilPaletteColor%+2)
         end_if
      end_if
      ' caption grilPaletteColor%+2,""
   end_if
end_sub

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


SUB Gril_create_palette(no%,parent%)
   create_hide
   dim grilPaletteColor% : grilPaletteColor% = no% : no% = no%+1
   dlist grilPaletteColor%
   dlist grilPaletteColor% + 1
   no%=no%+2
   label GrilActioncouleur , grilPaletteCopy , grilPaletteExit   , GrilPaletteTESTE  , GrilPaletteRecoit
   dim_local r%,g%,b%, x%,y% ,suivi%  ,c$,i% , b$ , trier% ,carre% ,alr% , alg%,alb% ,a$
   carre% = no%-1
   container carre%:width carre%,380:height carre%,360: font_color carre%,255,255,255 : color carre%,200,200,200
   if parent% > 0 then parent no%,parent%
   x%=10: y% = 10  : suivi% = 0
  
   for r% = 0 to 255 step 51
      for g% = 0 to 255 step 51
         for b% = 0 to 255 step 51
            alr%=r%: if r% = 204 then alr%=230
            alg%=g%: if g% = 204 then alg%=230
            alb%=b%: if b% = 204 then alb%=230    :' pour avoir des couleurs plus douces comme fond d'écran        
            c$ = right$("00"+str$(alr%),3) + right$("00"+str$(alg%),3) +right$("00"+str$(alb%),3)+" "
            if instr(a$,c$) = 0
               a$ = a$ +c$
               suivi% = suivi%+1
               if suivi% = 18
                  suivi%=0
                  trier% = -1 - trier%
               end_if
               if trier% = 0
                  item_add grilPaletteColor%+1,rtrim$(c$) :' nette amélioration d'affichage des couleurs
               else                                       :' sur ce principe
                  item_add grilPaletteColor%,rtrim$(c$)
               end_if              
            end_if            
         next b%
      next g%
   next r%
  
   for r% = 1 to count(grilPaletteColor%+1)
      a$ = item_read$(grilPaletteColor%+1,r%)
      item_add grilPaletteColor%,a$
   next r%  : delete grilPaletteColor%+1
  
   ' ~~~~~~~~~Création Pictures~~~~~~~~~~~~
   y%=10  :  x% = 10
   for i% = 1 to count(grilPaletteColor%)
      a$ = item_read$(grilPaletteColor%,i%)  
      ' ----------------------------------------
      b$ = left$(a$,3)  : r% = val(b$)
      b$ = mid$(a$,4,3) : g% = val(b$)
      a$ = right$(a$,3) : b% = val(a$)      
      ' ----------------------------------------
      picture no%:parent no%,carre%:left no%,x% : top no%,y% : width no%,18 : height no%,18
      color no%,r%,g%,b%  :  on_click no%,GrilActionCouleur
      x% = x%+19  :  suivi% = suivi%+1  :  no% = no%+1
      if suivi% = 18 then x% = 10 : y% = y%+19 : suivi%=0
   next i%
   ' -----------   gris
   x% =10  
   for r% = 51 to 255 step 12
      picture no% :parent no%,carre%: left no%,x%:top no%,y%:width no%,18:height no%,18
      c$ = right$("00"+str$(r%),3) + right$("00"+str$(r%),3) +right$("00"+str$(r%),3)+" "
      color no%,r%,r%,r% :  item_add grilPaletteColor%,rtrim$(c$) :  on_click no%,GrilActionCouleur
      x%=x%+19  :  no%=no%+1
   next r%
   ' --------------- affichage --------
   picture no% :parent no%,carre%: left no%,12:top no%,260:width no%,50:height no%,50
      no% = no%+1
   alpha no% :parent no%,carre%:left no%,80:top no%,top(no%-1)+25: font_size no%,15 : font_color no%,0,0,0
      no% = no%+1
      
   ' bouton de sortie
   ALPHA no% :parent no%,carre%: left no%,250:top no%, top(no%-2) +10 : hint no%,"Sortie avec copie du code couleur"
      font_name no%,"Wingdings":font_size no%,25:color no%,255,255,255: caption no%,chr$(254) : font_color no%,111,111,111
      on_click no%,grilPaletteCopy : hint no%,"Valider avec le code couleur"
      no% = no%+1
   ALPHA no% :parent no%,carre%: left no%,310:top no%, top(no%-1) : hint no%,"Quitter" : font_color no%,111,111,111
      font_name no%,"Wingdings":font_size no%,25:color no%,255,255,255: caption no%,chr$(253)
      on_click no%,grilPaletteExit : hint no%,"Quitter sans code couleur"
      no% = no%+1
   Edit no%:parent no%,carre%:top no%,390 : on_change no%,GrilPaletteRecoit
   ' result no%
   caption grilpaletteColor%+2,no%
end_Sub

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

GrilActionCouleur:
   GrilActionCouleur()
return
' -----------------------------------
sub GrilActionCouleur()
   dim_local a$,v%,b$ , r%  ,g%,b% , color% ,clic%
   color% = grilPaletteColor% +237
   clic% = number_click -grilPaletteColor% -2
      
   a$ = item_read$(grilPaletteColor%,clic%)
  
   b$=left$(a$,3) : r% = val(b$)
   b$ = mid$(a$,4,3) : g% = val(b$)
   a$ = right$(a$,3) : b% = val(a$)
   b$ =str$(r%)+","+str$(g%)+","+str$(b%)
   ' caption grilPaletteColor%+2,b$
   color   Color%,r%,g%,b%
   caption color%+1,b$
end_sub

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

grilPaletteCopy:
   text grilPaletteColor%+241,caption$(grilPaletteColor%+2)
   hide grilPaletteColor%+2
return

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

grilPaletteExit:
   caption grilPaletteColor%+2,""
   text grilPaletteColor%+241,""
   hide grilPaletteColor%+2
return
Revenir en haut Aller en bas
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyJeu 24 Sep 2020 - 23:28

Bonsoir Oscaribout,
Merci pour ton partage.
J’ai exécuté ton source sur mon téléphone. Effectivement, le programme plante dès le lancement. Je n’ai pas de message d’erreur,  juste la fermeture brutale de l’éditeur.
J’ai mis en commentaire le CREATE_HIDE ligne 84. Maintenant le programme se lance et j’obtiens ceci quand je clique sur une couleur :

Screenshot de l’écran du téléphone :
Panoramic et les APK - Page 10 Screen27


Autrement, j’ai remarqué que tu as dans la SUB Gril_create_palette(no%,parent%), une déclaration d'une variable globale (ligne 85) qui devraient être positionnées en tête de source. Mais ça ne semble pas affecter l’exécution du programme.

Il reste à chercher pourquoi CREATE_HIDE empêche l’exécution du programme.

Bonne continuation !

Edit : je viens de voir que tu as des LABEL déclarés dans la SUB Gril_create_palette(no%,parent%). Là aussi, leur emplacement ne semble pas affecter l'exécution du programme.
Revenir en haut Aller en bas
Oscaribout




Nombre de messages : 471
Date d'inscription : 29/12/2016

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 25 Sep 2020 - 0:03

Merci pour tes testes.
Il me parait normale de pouvoir déclarer un dim dans une sub, à partir du moment qu'on l’appelle qu'une fois. On le fait pour un sous-programme. Donc il n'y a aucune raison qu'il y ait une erreur.

Maintenant moi aussi j'ai mis en commentaire create_hide. J'ai lancer 3 fois le programme et ça a planté avec le message de violation.

Au vu de ton poste, j'ai rouvert ma tablette , et cette fois-ci le programme fonctionne. Tu dois surement apporter des ondes positives, aussi je t'invite à essayer plus souvent mes programmes lorsque je les publie.

Maintenant il y a un problème: l'affichage des couleurs fonctionne bien pour les couleurs qui ont une diminution de largeur, selon les données. Si je tape sur une couleur dont l'une d'elle a un zéro, l'affichage est correct. Dans le cas contraire il affiche sur la largeur d'une ligne l'affichage de deux lignes. Ce qui veut dire qu'un ALPHA a sur androïde une largeur limitée. Il faut voir avec Width pour savoir si cela se corrige..

Ensuite il faut que je modifie les boutons qui sont des alphas , la fonte Windings je crois ne dois pas exister, mais l'effet d'un appui sur l'un des boutons, ne fait rien chez moi. D'après l'aide, Alpha agit bien à un événement ON_CLICK.
Je viens de relancer le programme, les effets sont identiques, et create_hide provoque bien un plantage.
Revenir en haut Aller en bas
Jack
Admin
Jack


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

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 25 Sep 2020 - 10:17

Pour tester CREATE_HIDE, j'ai exécuté le petit exemple suivant sur mon SmartPhone.
Tout se passe correctement: le bouton apparait au bout de 3 secondes.

Code:
create_hide
button 1
pause 3000
show 1

par contre, il y a bien un problème pour un click sur un ALPHA, car le petit test suivant ne fonctionne pas:
Code:
label clic
alpha 1
caption 1,"Cliquez"
on_click 1,clic
end
clic:
message "OK"
return

@Oscaribout:
Je teste ton source dès que possible (dès que je me retrouve devant mes PC de développement).

_________________
Panoramic et les APK - Page 10 Webdav username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
https://panoramic.1fr1.net
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 25 Sep 2020 - 11:47

Bonjour à tous !

Voici un code qui plante avec CREATE_HIDE, sur toutes versions d'Android :

Code:
CREATE_HIDE
BUTTON 1
COLOR 1,250,0,0

Bonne continuation !
Revenir en haut Aller en bas
Oscaribout




Nombre de messages : 471
Date d'inscription : 29/12/2016

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 25 Sep 2020 - 13:08

Bonjour Marc
C'est normal que ça plante. Il n'est pas prévu de couleur sur un bouton.
Revenir en haut Aller en bas
Oscaribout




Nombre de messages : 471
Date d'inscription : 29/12/2016

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 25 Sep 2020 - 14:40

Je remet une version ici. J'ai remplacé les deux alpha par des boutons pour voir le retour d'un clic validé et je ne reçois pas le message de retour, mais:
J'ai ajouté un bouton 1 pour remplacer le clic de On_click 0,grilPaletteTESTE. Lorsque je lance le programme, il y a violation. En laissant le bouton mais en remplaçant ON_CLICK 1, par ON_CLICK 0 le programme se lance.

Il y a donc: ON_CLICK sur un alpha ne fonctionne pas
Sur button 1, ON_CLICK 1,<<< plante
Les fonctions, j'ai vu ne sont pas programmées, ça c'est pas primordial pour l'instant
J'ignore ce que contient dans l'aide: STRUCTURE
Qu'en est-il de PRINT_TARGET_IS et de PRINT_LOCATE que je n'ai pas trouvé, ainsi que TEXT_WIDTH().

J'ai besoin d'avoir des réponses sur ce que j'ai demandé ici:
https://panoramic.1fr1.net/t6465-demande-d-explication-pour-apk#77540

Cela me permettrai de savoir si je peux reprendre mon tableur que je vais bientôt publié pour Windows et l'adapter sur androïde ou non. Autrement sans savoir ce que je peux faire ou non, pour moi c'est fini. Dommage! Je sais bien que tu as autre chose à faire, et comme nous tous, tu as tes propres problèmes, mais qu'en on passe un temps fou à faire un programme, et qu'à la fin ça ne peux pas fonctionner, là on se rend compte qu'on a perdu son temps. Peut-être es-tu en train de coder les instructions pour lesquelles je demande des explications, mais moi je ne le sais pas, ce qui fait que je critique et ça ne me fait pas plaisirs du tout. Ne le prend pas mal, mais je veux savoir toutes les instructions sur lesquelles je peux compter. J'essaye de minimiser mes demandes. Quant on sait sur quoi on marche, c'est beaucoup plus facile d'avancer. Pendant que j'y suis mais peut-être n'as-tu pas toutes les informations nécessaires, je trouve bizarre le fait que tu ne puisses pas te servir des fonctions souris, alors qu'il y a des programmes de dessin qui existe. Si tu n'as pas d'information tu ne peux pas coder.

Code:
' palette couleur pris sur celui de Papydall et modifié pour éviter les lignes de DATA
error_french :width 0,380:height 0,360

' print_locate 150,150 : print "FORM 0" :' idicatif de la fenêtre visible au départ
                      ' 200  N° 1er objet de la palette,  0  est le parent
Gril_create_palette(200,0)  :' SUB création de la palette avec les procédures de fonctionnement

button 1:caption 1,"GO":width 1,100:height 1,100
rem "======================================================================================
rem "Si je met ligne suivante: ON_CLICK 1,GrilPaletteTESTE " il y a le ' message VIOLATION
rem "alors qu'avec:            ON_CLICK 0,GrilPaletteTESTE " Le programme fonctionne
rem
rem "J'ai remplacé les 2 Alphas vers ligne 156 par des boutons, ils sont prise en compte
rem " sauf que la boite de message en validant ne me donne pas de renseignement voulu "
rem "======================================================================================
 
on_click 0,GrilPaletteTESTE  :' <------<<    
END

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

rem "===============================================================
rem   GrilPaletteRecoit:  "est un sous-prg de retour après fermeture
rem " de celle-ci. On peut lire le résultat du retour en lisant
rem   variable$ = caption$(grilPaletteColor%+2). " Dans l'exemple
rem " suivant c'est une boite de message qui donne ce retour
rem "===============================================================
' Retour après validation
GrilPaletteRecoit:
   message caption$(grilPaletteColor%+2)
return
' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

rem "===============================================================
rem " GrilPaletteTESTE : S/Pr qui appelle la palette de couleurs
rem " On peut envoyer une couleur de cette façon: "
rem     caption grilPaletteColor%+2 ,"xxx,xxx,xxx"
rem "===============================================================  

' teste d'appel de la palette
GrilPaletteTESTE:
   off_change grilPaletteColor%+241
   rem "============================================================================
   rem " La ligne suivante envoi une couleur (sans obligation) que la sub affiche
  
   caption grilPaletteColor%+2 ,"255,51,255" :' <----en exemple
   '                             XXX,XXX,XXX  ou "" ou ligne en commentaire
   rem " Seule ligne à modifier ! Le reste fait parti du programme
  
   ' ======= FIN ======= FIN ======= FIN ======== FIN =========
   text grilPaletteColor%+241,""
   on_change grilPaletteColor%+241,GrilPaletteRecoit    
   show grilPaletteColor%+2
   GrilPaletteTESTE()
return

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  
sub GrilPaletteTESTE()
   dim_local i% , a$ ,r% , g% , b% , c$ , v%
   if count(grilPaletteColor%) > 0
      for i% = 1 to count(grilPaletteColor%)+4
         show grilPaletteColor%+2+i%
      next i%
   end_if
  
   a$ = caption$(grilPaletteColor%+2)
   if  a$ <> ""
      v% = instr(a$,",")
      if v% > 0
         c$ = left$(a$,v%-1)
         r% = val(c$)
         a$ = right_pos$(a$,v%+1)
         v% = instr(a$,",")
         if v% > 0
            c$ = left$(a$,v%-1)
            g% = val(c$)
            a$ = right_pos$(a$,v%+1) :' restant
            b% = val(a$)
            color grilPaletteColor%+237,r%,g%,b%
            caption grilPaletteColor%+238, caption$(grilPaletteColor%+2)
         end_if
      end_if
      ' caption grilPaletteColor%+2,""
   end_if
end_sub

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


SUB Gril_create_palette(no%,parent%)
   ' create_hide
   dim grilPaletteColor% : grilPaletteColor% = no% : no% = no%+1
   dlist grilPaletteColor%
   dlist grilPaletteColor% + 1
   no%=no%+2
   label GrilActioncouleur , grilPaletteCopy , grilPaletteExit   , GrilPaletteTESTE  , GrilPaletteRecoit
   dim_local r%,g%,b%, x%,y% ,suivi%  ,c$,i% , b$ , trier% ,carre% ,alr% , alg%,alb% ,a$
   carre% = no%-1
   container carre%:width carre%,380:height carre%,360: font_color carre%,255,255,255 : color carre%,200,200,200
   if parent% > 0 then parent no%,parent%
   x%=10: y% = 10  : suivi% = 0
  
   for r% = 0 to 255 step 51
      for g% = 0 to 255 step 51
         for b% = 0 to 255 step 51
            alr%=r%: if r% = 204 then alr%=230
            alg%=g%: if g% = 204 then alg%=230
            alb%=b%: if b% = 204 then alb%=230    :' pour avoir des couleurs plus douces comme fond d'écran        
            c$ = right$("00"+str$(alr%),3) + right$("00"+str$(alg%),3) +right$("00"+str$(alb%),3)+" "
            if instr(a$,c$) = 0
               a$ = a$ +c$
               suivi% = suivi%+1
               if suivi% = 18
                  suivi%=0
                  trier% = -1 - trier%
               end_if
               if trier% = 0
                  item_add grilPaletteColor%+1,rtrim$(c$) :' nette amélioration d'affichage des couleurs
               else                                       :' sur ce principe
                  item_add grilPaletteColor%,rtrim$(c$)
               end_if              
            end_if            
         next b%
      next g%
   next r%
  
   for r% = 1 to count(grilPaletteColor%+1)
      a$ = item_read$(grilPaletteColor%+1,r%)
      item_add grilPaletteColor%,a$
   next r%  : delete grilPaletteColor%+1
  
   ' ~~~~~~~~~Création Pictures~~~~~~~~~~~~
   y%=10  :  x% = 10
   for i% = 1 to count(grilPaletteColor%)
      a$ = item_read$(grilPaletteColor%,i%)  
      ' ----------------------------------------
      b$ = left$(a$,3)  : r% = val(b$)
      b$ = mid$(a$,4,3) : g% = val(b$)
      a$ = right$(a$,3) : b% = val(a$)      
      ' ----------------------------------------
      picture no%:parent no%,carre%:left no%,x% : top no%,y% : width no%,18 : height no%,18
      color no%,r%,g%,b%  :  on_click no%,GrilActionCouleur
      x% = x%+19  :  suivi% = suivi%+1  :  no% = no%+1
      if suivi% = 18 then x% = 10 : y% = y%+19 : suivi%=0
   next i%
   ' -----------   gris
   x% =10  
   for r% = 51 to 255 step 12
      picture no% :parent no%,carre%: left no%,x%:top no%,y%:width no%,18:height no%,18
      c$ = right$("00"+str$(r%),3) + right$("00"+str$(r%),3) +right$("00"+str$(r%),3)+" "
      color no%,r%,r%,r% :  item_add grilPaletteColor%,rtrim$(c$) :  on_click no%,GrilActionCouleur
      x%=x%+19  :  no%=no%+1
   next r%
   ' --------------- affichage --------
   picture no% :parent no%,carre%: left no%,12:top no%,260:width no%,50:height no%,50
      no% = no%+1
   alpha no% :parent no%,carre%:left no%,80:top no%,top(no%-1)+25: font_size no%,15 : font_color no%,0,0,0
      width no%,160
      no% = no%+1
      
   ' bouton de sortie
   button no% :parent no%,carre%: left no%,250:top no%, top(no%-2) +10 : hint no%,"Sortie avec copie du code couleur"
      font_size no%,25: caption no%,"valide"
      on_click no%,grilPaletteCopy : hint no%,"Valider avec le code couleur":width no%,50:height no%,50
      no% = no%+1
   button no% :parent no%,carre%: left no%,310:top no%, top(no%-1) : hint no%,"Quitter"
      font_size no%,25: caption no%,"exit" :height no%,50
      on_click no%,grilPaletteExit : hint no%,"Quitter sans code couleur"
      no% = no%+1
   Edit no%:parent no%,carre%:top no%,390 : on_change no%,GrilPaletteRecoit
   ' result no%
   caption grilpaletteColor%+2,no%
end_Sub

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

GrilActionCouleur:
   GrilActionCouleur()
return
' -----------------------------------
sub GrilActionCouleur()
   dim_local a$,v%,b$ , r%  ,g%,b% , color% ,clic%
   color% = grilPaletteColor% +237
   clic% = number_click -grilPaletteColor% -2
      
   a$ = item_read$(grilPaletteColor%,clic%)
  
   b$=left$(a$,3)    : r% = val(b$)
   b$ = mid$(a$,4,3) : g% = val(b$)
   a$ = right$(a$,3) : b% = val(a$)
   b$ =str$(r%)+","+str$(g%)+","+str$(b%)
   ' caption grilPaletteColor%+2,b$
   color   Color%,r%,g%,b%
   caption color%+1,b$
end_sub

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

grilPaletteCopy:
   text grilPaletteColor%+241,caption$(grilPaletteColor%+2)
   hide grilPaletteColor%+2
return

' /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

grilPaletteExit:
   caption grilPaletteColor%+2,""
   text grilPaletteColor%+241,""
   hide grilPaletteColor%+2
return


Edite: Un oubli: Le bouton 1 apparaît à travers les carrés. C'est une chose que j'avais déjà constaté sur un programme l'année dernière. Il y a aussi est-il normal de mettre un WIDTH pour voir l'intégralité du texte d'un alphe (caption plutôt)
Revenir en haut Aller en bas
Jack
Admin
Jack


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

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyDim 27 Sep 2020 - 11:14

Le problème du clic sur un ALPHA a été résolu et sa correction sera dans la prochaine version.

Je suis actuellement en train de regarder le problème de COLOR sur un objet créé après un CREATE_HIDE:
Code:
CREATE_HIDE
BUTTON 1
COLOR 1,250,0,0

Ces 2 problèmes sont dus en fait à des subtilités d'Android ! Cela me permets d'en apprendre un peu plus sur Android et sa complexité.
En même temps, je suis de plus en plus motivé pour sortir un langage simple (Panoramic pour Android) face à ce "monstre" qu'est devenu Android.

_________________
Panoramic et les APK - Page 10 Webdav username : panoramic@jack-panoramic password : panoramic123

lechat75 aime ce message

Revenir en haut Aller en bas
https://panoramic.1fr1.net
Jack
Admin
Jack


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

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyMar 29 Sep 2020 - 12:37

@Marc:
Le problème de COLOR sur un objet créé après une commande CREATE_HIDE est résolu et la correction sera dans la prochaine version.

_________________
Panoramic et les APK - Page 10 Webdav username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
https://panoramic.1fr1.net
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyMar 29 Sep 2020 - 13:58

Merci Jack !
Revenir en haut Aller en bas
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyDim 4 Oct 2020 - 17:13

Bonjour Jack !
Bonjour à tous !

Voici un petit compte-rendu sur les dernières commandes de Panoramic pour Android (P4A).

La dernière version de P4A du 03 octobre 2020, nous donne accès aux prévisions de Jack:
Jack a écrit:
Je suis en train de coder les commandes suivantes:
KEYBOARD_HIDE : cache le clavier
KEYBOARD_SHOW N : fait apparaitre le clavier pour l'objet de numéro N (un MEMO ou un EDIT)
KEYBOARD_NUMBER N : le clavier pour l'objet N est un pavé numérique
KEYBOARD_NORMAL N : le clavier pour l'objet N est un clavier avec complémentation/suggestion
KEYBOARD_ALPHABET N : le clavier pour l'objet N est un clavier sans complémentation/suggestion
KEYBOARD_NUMBER_PUNCT N : le clavier pour l'objet N est un pavé numérique avec la ponctuation

J’ai testé et c’est excellent ! Merci Jack !
En bonus, Jack nous a offert une surprise : le KEYBOARD_PHONE qui n’était pas listé dans les prévisions !
J’ai fait plusieurs essais avec différents écrans et versions d’Android. Tout est bon pour moi !
Les commandes KEYBOARD_HIDE et KEYBOARD_SHOW fonctionnent bien aussi.

Voici un aperçu sur mon téléphone de différents claviers obtenus avec KEYBOARD_NORMAL, KEYBOARD_PHONE et KEYBOARD_NUMBER :
Panoramic et les APK - Page 10 Clavie10


Autre sujet :
Jack a écrit:
Le problème de COLOR sur un objet créé après une commande CREATE_HIDE est résolu et la correction sera dans la prochaine version.

J’ai testé, c’est parfait !


Encore merci, Jack et bonne continuation !
Bonne programmation à tous !
Revenir en haut Aller en bas
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyMar 6 Oct 2020 - 10:39

Bonjour à tous !

Pour retrouver rapidement et facilement le post du fichier d’aide pour Panoramic Android en français, >> CLIQUEZ ICI <<

Bonne programmation !
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyMar 6 Oct 2020 - 19:32

Bonjour à tous.

je constate avec plaisir, que Panoramic pour Android va être développé par Jack à une vitesse grand V, car il a décidé de prendre à

bras le corps ce développement.

Je vais continuer à développer mes petits programmes et je ne manquerais pas de faire part de mes suggestions.

Par contre ce que je ne comprends pas, c'est qu'il y a plusieurs sujet pour APK.

Ne serait t'il pas plus facile de rester toujours sur le mème sujet.
 
Ce n'est que mon avis!!!!

@pour Oscaribout

Développes tu tes programmes directement sur Android, ou passes tu d'abord par Windows?

Bonne soirée à tous
Revenir en haut Aller en bas
Oscaribout




Nombre de messages : 471
Date d'inscription : 29/12/2016

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyMar 6 Oct 2020 - 23:24

Bonsoir,
lepetitmarocain a écrit:
Développes tu tes programmes directement sur Android, ou passes tu d'abord par Windows?

Je développe sous Windows. Il n'est pas facile de faire un programme sur une tablette. Il y a des problèmes chez moi avec l'éditeur.

Déjà le déplacement dans l'éditeur n'est pas simple, et aller sur la ligne encore moins. En plus chez moi, lorsque par exemple je tape: color 2,255,255,255, et bien dès que j'appui sur "," (virgule), systématiquement j'efface 2 caractère, et je me retrouve alors "col" "or" a disparu, et de temps en temps avec espace j'ai le même résultat. Une solution est de cliquer plus loin pour taper sur la virgule et continuer.

Au début j'utilisais un autre éditeur sue androïde qui allait bien, mais les dernière fois les caractères accentués était transformé en signes bizarroïdes avec "LOAD". Je crois c'est Marc qui utilise un clavier  usb, et semble aller bien.

Maintenant même si cela semble le cas, je ne suis pas une référence pour androïde. J'ai pu lancer le sujet au début, mais pour moi, Marc semble plus doué.

Citation :
Par contre ce que je ne comprends pas, c'est qu'il y a plusieurs sujet pour APK

Je pense que cela va être dans un certain temps la pagaille. On en est au début pour APK, mais si on développe des programmes apk et qu'on les publies sur Windows, cela va poser problème je pense. Déjà dans le titre, il faudra préciser en même temps le nom du programme, celui d'androïde.
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 23 Oct 2020 - 19:19

Bonjour à tous.

@oscaribout.

Je fais comme toi, je développe d'abord sous windows avant de copier le programme.

Mais c'est difficile ensuite sous Android, car il faut régler les différentes forms, les boutons etc..

Marc a fait quelque chose pour son jeu de taquin, mais je reconnais que je n'y comprends pas grand chose.

En tout cas Android avance et c'est une très bonne chose

Bonne soirée à tous
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyDim 8 Nov 2020 - 17:11

Bonjour à tous.

@jack

Puisque tu travailles surement sur Android, quelques petites choses pour faire avancer le Schmilblick.

Je me suis aperçu qu'en mettant color sur un grid, l'affichage est extrêmement long?

si je l’enlève, c'est à peu prés normal.

Peux tu (déjà demandé) faire en sorte que lorsqu'un APK est créé il prenne le nom du programme.

(je dois mettre un programme sur la tablette de mon épouse qui ne connait rien en Informatique)

Peux tu aussi sur le  Panoramic for Android ajouter la possibilité de faire une recherche.

Merci par avance

Bonne soirée à tous
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 29 Jan 2021 - 17:18

Bonjour à tous.

@Jack.

J'essaye de mettre sur un chromebook (donc android) le programme APK qui permet de compiler sur android ou de saisir.

J' ai un message qui m’empêche de le faire.

Cette application a été conçue pour une ancienne version d'Android.

J' ai mis sur ce même chromebook une application (un APK) récupéré sur un téléphone, et cette appli fonctionne

Puisque tu t'es remis à bosser sur panoramic, je te donne un peu plus de travail.

Merci

Bonne soirée à tous
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyJeu 18 Mar 2021 - 17:46

Bonjour à tous

@Jack.

Peux tu nous dire STP ou tu en es du développement de panoramic pour Android?

Tu devais t'y mettre afin de vraiment développer quelque chose de viable

Oscaribout n'est plus visible sur le site, en espérant qu'il va bien, alors qu'il avait eu des problèmes avec La Covid 19

Merci pour ta future réponse.

Bonne soirée
Revenir en haut Aller en bas
Jack
Admin
Jack


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

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 19 Mar 2021 - 9:51

Panoramic pour Android n'avance pas beaucoup en ce moment, il est même à l'arrêt, mais rassures-toi, il n'est pas abandonné.

En fait, je manque de motivation pour continuer. Il y a peu d'utilisateurs, il n'y a pratiquement pas d'exemples de réalisation proposés par les utilisateurs, mais par contre, il y a beaucoup de demandes sur ce forum pour des nouvelles fonctionnalités ou des nouvelles possibilités. Et lorsque je satisfais une demande, le demandeur ne se manifeste plus. Tu cites d'ailleurs le pseudo de quelqu'un qui a beaucoup demandé, qui a beaucoup reçu et qui ne se manifeste plus.

Je développe pendant mon temps libre, c'est à dire le soir et le week-end. Développer pour Android est compliqué et prend beaucoup de temps. J'ai beaucoup d'idées pour améliorer Panoramic pour Android, mais si je passe des mois à en faire quelque chose de présentable puis n'avoir aucun retour à part des demandes, des demandes et encore des demandes, et même des manifestations d'impatiences (comme il y en a eu pour le compilateur), cela ne me motive pas.

Dernier exemple de "une demande puis plus rien" :
https://panoramic.1fr1.net/t6577-requete#79017
Il y a quelques années, j'aurais foncé tête baissée. Maintenant, je prends du recul : mon temps est précieux et je l'économise.

_________________
Panoramic et les APK - Page 10 Webdav username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
https://panoramic.1fr1.net
silverman

silverman


Nombre de messages : 970
Age : 52
Localisation : Picardie
Date d'inscription : 18/03/2015

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyVen 19 Mar 2021 - 11:52

Bonjour  à tous

Jack a écrit:
Dernier exemple de "une demande puis plus rien" :
https://panoramic.1fr1.net/t6577-requete#79017
Cette demande est sortie de de son contexte, elle ne s'adresse pas à une personne en particulier, mais à la communauté panoramic.
Cependant, je trouve intéressant que tu veuilles poster du code(en panoramic hein, pas une nouvelle fonctionnalité?) panoramic, cela permet de montrer des bonnes pratiques en programmation (pour les débutants mais pas qu'eux!).

A ceci:
Jack a écrit:
Dernier exemple de "une demande puis plus rien" :
https://panoramic.1fr1.net/t6577-requete#79017
Je t'invite à aller jeter un oeil dans la rubrique des bugs, les demandes restent aussi souvent sans réponses, et les corrections tardent à venir...

Je me demande (et je ne suis sûrement pas le seul) pourquoi tu ne te recentres pas sur le codage que d'un ou deux EDI? Vu que chaque EDI traîne son lot de problème, qui traîne dans le temps...
La communauté s'étiole, et le nombre de nouveau membre peine à grossir. Pour ma part, j'apprécis beaucoup cette communauté, mais j'ai fini par prendre du recul avec panoramic, beaucoup de recul même...
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyDim 21 Mar 2021 - 19:57

Bonsoir à tous

@jack.

Merci de t'occuper de panoramic pour Android.

Je pense que tu dois être pris par ton boulot, et que tu fais cela en plus?

Veux tu que je récapitule toutes les demandes que j'ai faites?

je programme modestement que de la Gestion, donc pas de calculs savants, mais je me sers du Grid, en écriture lecture  et mise a

 jour sur des fichiers séquentiels.

Bonne soirée
Revenir en haut Aller en bas
Jack
Admin
Jack


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

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyLun 22 Mar 2021 - 8:05

lepetitmarocain a écrit:
Je pense que tu dois être pris par ton boulot, et que tu fais cela en plus?

Oui, je code Panoramic en plus de mon travail, c'est un hobby.

lepetitmarocain a écrit:
Veux tu que je récapitule toutes les demandes que j'ai faites?

Cela me faciliterait les choses, je pourrais alors me concentrer sur ces demandes.
Je pourrais dans un premier temps, les classer par priorité en fonction de leur importance et de leur faisabilité, et peut-être tenter un calendrier de mises à disposition.

_________________
Panoramic et les APK - Page 10 Webdav username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
https://panoramic.1fr1.net
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyDim 4 Avr 2021 - 17:32

Bonjour à tous

@Jack

Comme prévu, je mets sur le Forum les quelques points concernant les modifs pou Android

1) En création du programme APK, , avec APK_MAKER garder le nom du programme

2) File_copy ne fonctionne pas. Il ne se passe rien   (exemple dans mon code)

3) message_confirmation_yes_no("voulez vous continuer")=1  ne fonctionne pas, il ne se passe rien   (exemple dans mon code)

4) Color sur un grid ralentit très fortement l'affichage qui est déjà long.

5) Grid_color cree une erreur


6) Pour faciliter les choses, j'ai créé une directory programmes dans Download.

   Je mets donc mes programmes dans cette directory, mais lorsque je sauvegarde le programme se sauvegarde dans download.    

   Est il possible de la sauvegarder là d'ou il vient.

7) Ajouter dans le programme sur android pano_dm1_d  une fonction de recherche

Cool En saisie après avoir saisie une ligne, si j'en saisi une autre, la fin de la première ligne se reporte sur le début de la seconde

Ex if montant=0
       =0goto toto
    end_if


9) Si saisie caractère autre que Numérique ou alpha, il y a un espace qui se fait

  Exemple  dim  montant $

10) Ajouter dans android une commande qui permet de rester en portrait ou Paysage  And_portrait=yes  ou and_paysage=yes

11) Dans le grid sur Android, il est possible d’écrire sur ce Grid sans rien ajouter comme ligne de programme. Ajouter une possibilité de bloquer

12) La commande midi ne fonctionne pas.

13 Le code qui est joint, permet d'afficher uniquement un grid, et prend une trentaine de secondes. Un peu long

Code:
' ************************************
'  test avec GRID
'  *************************************
if system$="ANDROID
   DIR_IS_SHARED_DOWNLOADS
end_if

label affichage_grid   , final

 dim position_lignegrid
 dim position_lignes

   ' il ne se paase rien pour cette commande

  If message_confirmation_yes_no ("voulez continuer")=1
     Message "bon"
  end_if

    File_copy "toto","toto.sav"    ' les fichiers n'existes pas


 affichage_grid:
   ' color 0,0,255,0




 position_lignegrid=2
 position_lignes=2
 full_space 0

 Grid 1


width 1,800

   height 1, 800

   grid_row 1,50

   grid_column_fixed  1,1
    grid_row_fixed 1,1

 ' hauteur des lignes

grid_row_height 1,20

' 18 colonnes

grid_column 1,18

' 2 colonnes fixes

  grid_column_fixed 1,2

' couleur du grid  *********************

  ' GRID_FIXED_COLOR 1,204,255,200   ' ne fonctionne pas android
  ' color 1,100,200,250               ' si android ralenti
' Endroit du grid

  top 1,50
  left 1,30



 dim z%
 z%=11
 dim t%
 t%=100
 alpha Z%
 top 11,200
 left 11,1200
 font_size 11,8
 font_color 11,186,119,87

 alpha Z%+1
 top 12,200
 left 12,1300
 font_size 12,8


 alpha 13
 top 13,220
 left 13,1200
 font_size 13,8
 font_color 13,65,119,87

 alpha 14
 top 14,220
 left 14,1300
 font_size 14,8




' largeur des colonnes

 GRID_ONE_COLUMN_WIDTH 1,1,0.01   : ' 1ere colonne non visible
 GRID_ONE_COLUMN_WIDTH 1,2,0.01   : ' 2eme colonne non visible
 GRID_ONE_COLUMN_WIDTH 1,3,25
 GRID_ONE_COLUMN_WIDTH 1,4,300
 GRID_ONE_COLUMN_WIDTH 1,5,150
 GRID_ONE_COLUMN_WIDTH 1,6,15
 GRID_ONE_COLUMN_WIDTH 1,7,15
 GRID_ONE_COLUMN_WIDTH 1,8,15
 GRID_ONE_COLUMN_WIDTH 1,9,15
 GRID_ONE_COLUMN_WIDTH 1,10,15
 GRID_ONE_COLUMN_WIDTH 1,11,15
 GRID_ONE_COLUMN_WIDTH 1,12,15
 GRID_ONE_COLUMN_WIDTH 1,13,15
 GRID_ONE_COLUMN_WIDTH 1,14,15
 GRID_ONE_COLUMN_WIDTH 1,15,15
 GRID_ONE_COLUMN_WIDTH 1,16,15
 GRID_ONE_COLUMN_WIDTH 1,17,15
 GRID_ONE_COLUMN_WIDTH 1,18,25



 ' titres du grid

  ' le début des colonnes commence en colonne 3  ******

 grid_Write 1,1,3,"D/C"
 grid_Write 1,1,4,"Libéllé"
 grid_Write 1,1,5,"Montant"
 grid_Write 1,1,6,"J"
 grid_Write 1,1,7,"F"
 grid_Write 1,1,8,"M"
 grid_Write 1,1,9,"A"
 grid_Write 1,1,10,"M"
 grid_Write 1,1,11,"J"
 grid_Write 1,1,12,"J"
 grid_Write 1,1,13,"A"
 grid_Write 1,1,14,"S"
 grid_Write 1,1,15,"O"
 grid_Write 1,1,16,"N"
 grid_Write 1,1,17,"D"
 grid_Write 1,1,18,"Supp"




 ' creation Bouton  Fin

 button 10
 left 10,140
 top 10,250
 height 10,50

 caption 10 ,"Fin"
 on_click 10, final
  button 400
 left 400,1400
 top 400,800
 height 400,50
end

final:
terminate
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptyDim 4 Avr 2021 - 17:32

j' ai oublié dans la précipitation

Bonne soirée à tous
Revenir en haut Aller en bas
lepetitmarocain




Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018

Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 EmptySam 10 Avr 2021 - 19:45

Bonsoir à tous.

Je constate qu'il n'y a personne qui s’intéresse à Android, alors que je pense que c'est un peu l'avenir, puisque tout le monde a un

téléphone ou une tablette.(Enfin c'est juste mon avis)

Que deviennent les personnes qui ont postés des message sur ce Post???

je ne citerais pas de nom, mais ce serait bien que comme moi, ils postent une liste de demandes, pour que Jack voit qu'il y a des

personnes qui s'attendent à voir arriver rapidement un logiciel modifié pour développer sous Android.

Je plaisante tout de même, car chacun fait ce qu'il lui plait comme dit la chanson.

Bonne soirée à tous

Continuez à vous Protéger





Revenir en haut Aller en bas
Contenu sponsorisé





Panoramic et les APK - Page 10 Empty
MessageSujet: Re: Panoramic et les APK   Panoramic et les APK - Page 10 Empty

Revenir en haut Aller en bas
 
Panoramic et les APK
Revenir en haut 
Page 10 sur 13Aller à la page : Précédent  1, 2, 3 ... 9, 10, 11, 12, 13  Suivant
 Sujets similaires
-
» Logithèque : une base de données en Panoramic pour Panoramic
» IDE Panoramic écrit en Panoramic
» PANORAMIC V 0.9.6 available / PANORAMIC V 0.9.6 disponible
» Logo Panoramic en Panoramic
» DLL :

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage-
Sauter vers: