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.
mise a jour calculatrice - Page 3 Emptypar Pedro Aujourd'hui à 8:08

» Un autre pense-bête...
mise a jour calculatrice - Page 3 Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
mise a jour calculatrice - Page 3 Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
mise a jour calculatrice - Page 3 Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
mise a jour calculatrice - Page 3 Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
mise a jour calculatrice - Page 3 Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
mise a jour calculatrice - Page 3 Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
mise a jour calculatrice - Page 3 Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
mise a jour calculatrice - Page 3 Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
mise a jour calculatrice - Page 3 Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
mise a jour calculatrice - Page 3 Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
mise a jour calculatrice - Page 3 Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
mise a jour calculatrice - Page 3 Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
mise a jour calculatrice - Page 3 Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
mise a jour calculatrice - Page 3 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 à ne pas rater :
Smartphone Xiaomi 14 – 512 Go- 6,36″ 5G Double SIM à 599€
599 €
Voir le deal

 

 mise a jour calculatrice

Aller en bas 
+7
Marc
Klaus
papydall
JL35
Jean Claude
Yannick
joeeee2017
11 participants
Aller à la page : Précédent  1, 2, 3
AuteurMessage
joeeee2017




Nombre de messages : 60
Date d'inscription : 13/10/2017

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyDim 3 Déc 2017 - 8:56

.
Revenir en haut Aller en bas
joeeee2017




Nombre de messages : 60
Date d'inscription : 13/10/2017

mise a jour calculatrice - Page 3 Empty
MessageSujet: bonjour   mise a jour calculatrice - Page 3 EmptyDim 3 Déc 2017 - 9:06

est il possible d avoir une option supprimer pour effacer les message que l on poste ,car il arrive que l on se trompe ou qu il y a des bugs
Revenir en haut Aller en bas
Klaus

Klaus


Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyDim 3 Déc 2017 - 9:21

Non, on ne peut pas faire ça. On peut juste éditer et supprimer tout le texte d'un message, mais on ne peut pas le supprimer entièrement. Et c'est visiblement ce que tu as déjà fait...
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
joeeee2017




Nombre de messages : 60
Date d'inscription : 13/10/2017

mise a jour calculatrice - Page 3 Empty
MessageSujet: boniour    mise a jour calculatrice - Page 3 EmptyDim 3 Déc 2017 - 15:19

as tu vu ma question sur le entrée de la machine a calculer?
Revenir en haut Aller en bas
Klaus

Klaus


Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyDim 3 Déc 2017 - 21:16

Oui, mais je n'ai actuellement pas de réponse générale à apporter. C'est plutôt une question pour Paydall, probablement.
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Marc

Marc


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

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyDim 3 Déc 2017 - 22:56

Bonsoir à tous !

Salut Joeee2017 !

J'ai testé ta calculatrice : elle est super et fonctionnelle. Bravo ! cheers
J'aime bien la présentation ainsi que les effets spéciaux quand on clique sur une touche.
Après avoir lu ton code, j'ai remarqué que tu as des variables - sauf erreur de ma part - qui sont déclarées mais pas (ou plus) utilisées : aa$, c$, v1$,  l et h.
En attendant la réponse de Papydall pour la touche ENTREE, je te propose d'ajouter une détection de l'appui de cette touche :
1) Déclare un LABEL Enter
2) Avant ton END ligne 51, ajoute : ON_KEY_DOWN 0, Enter
3) Ajoute un sous programme :
Enter:
  IF KEY_DOWN_CODE = 13 THEN gosub calcul
RETURN

Voilà qui devrait faire fonctionner la touche ENTREE

Autre remarque : il n'y a pas "l'effet d'appui" quand on clique sur la virgule ou sur le C .

Encore bravo et bonne continuation !
Revenir en haut Aller en bas
papydall

papydall


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

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 0:52

jo4e2017 a écrit:
as tu vu ma question sur le entrée de la machine a calculer?

Klaus a écrit:
Oui, mais je n'ai actuellement pas de réponse générale à apporter. C'est plutôt une question pour Paydall, probablement.

Est-ce que tu veux simuler l’appui sur la touche <ENTREE> ? ou quoi au juste ?
Pour simuler l’appui de n’importe quelle touche, j’ai posté ici un code qui répond à cette question.
Tu peux l’adapter à tes besoins.

Hors sujet :
Depuis plus de deux semaines je passe par une dégradation sévère de mon état de santé : admission en urgence pour des analyses médicales, des échographies,  et tout le bazar , etc.
Dans l’état actuel, la situation est stable et tout porte à croire qu’il n’y a rien d’assez grave en attendant un rendez-vous dans les deux semaines à venir.
Tout ça, c’est pour vous dire que je ne serais pas assez actif sur le forum.
Dans l’attente de meilleures conditions, je vous salue tous.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Minibug

Minibug


Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 8:58

Elle est pas mal du tout cette petite calculatrice.
Comment j'ai fais pour passer à coté sans la voir ?! Suspect

Bravo joeeee2017. Belle réalisation pour un débutant ! Laughing Wink

@papydall :
Prends soins de toi je te souhaite un rapide rétablissement. sunny
( Désolé pour le HS )
Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
Klaus

Klaus


Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 9:27

@Papydall:
Je te souhaite de tout coeur que tout aille bien et que tu retrouves le chemin de la santé. C'est le bien le plus précieux que nous possédions, et il importe de touit faire pour la préserver. Alors, courage, et consacre-toi à tes analyses et traitements - c'est prioritaire !
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

mise a jour calculatrice - Page 3 Empty
MessageSujet: re   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 10:43

@ Papydall,

Tous mes voeux de prompt rétablissement t' accompagne, prends soins de toi.
Même si je ne suis plus très actif ces derniers temps, je vous suis...
de près. cyclops

@ Joe,

Très bel ouvrage. Je ne doute pas que tu l' amélioreras dans les temps
futurs. study
Revenir en haut Aller en bas
Ouf_ca_passe




Nombre de messages : 285
Age : 76
Localisation : Villeneuve d'Ascq (59-Dpt du NORD) France
Date d'inscription : 21/12/2015

mise a jour calculatrice - Page 3 Empty
MessageSujet: Prompt rétablissement à Papydall   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 11:11

@ Papydall

Je me joins au collège des followers de Papydall pour lui souhaiter un prompt et complet rétablissement.

Au plaisir de le lire.

Amitiés panoramiciennes.
Revenir en haut Aller en bas
Froggy One

Froggy One


Nombre de messages : 598
Date d'inscription : 06/01/2012

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re:   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 11:19

Tout pareil !
Revenir en haut Aller en bas
http://gaeldwest.wordpress.com
Francis-mr




Nombre de messages : 186
Date d'inscription : 26/11/2012

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 11:49

@ Papydall
Je me joins à tous les panoramiciens pour te souhaiter bon rétablissement.
Revenir en haut Aller en bas
Marc

Marc


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

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 11:55

@Papydall

Je te souhaite tous mes vœux de bon et rapide rétablissement. De tout cœur avec toi !
Revenir en haut Aller en bas
Jean Claude

Jean Claude


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

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyLun 4 Déc 2017 - 12:35

Je viens de découvrir la mauvaise nouvelle. silent

@Papydall,
Prends le temps nécessaire à ton rétablissement, et reviens-nous en forme le plus tôt possible.

A+
Revenir en haut Aller en bas
papydall

papydall


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

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyMer 6 Déc 2017 - 1:44

Merci pour tous.
C’est très gentil de votre part.
Je me sens beaucoup mieux !
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
joeeee2017




Nombre de messages : 60
Date d'inscription : 13/10/2017

mise a jour calculatrice - Page 3 Empty
MessageSujet: re   mise a jour calculatrice - Page 3 EmptyMer 6 Déc 2017 - 20:19

bonsoir tout le monde merci pour vos  commentaires et vos suggestions c est gentil ,et je me joins aussi aux autres pour te souhaiter un trés bon retablissement papydall



marc je viens de modifier
Revenir en haut Aller en bas
joeeee2017




Nombre de messages : 60
Date d'inscription : 13/10/2017

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyDim 18 Aoû 2019 - 18:06

Code:

dim c,i,j,u,uu,x,y,z,zz,vv,op,xpad,ypad,a$,b$,c$,d$,m$
dim g$(20),n(55),t$(5),x1(20),y1(20),tou(300)
label menu,men2,move,mov2,touche,mov3

Left 0,screen_x-1000:top 0,99:width 0,337:height 0,572:caption 0,"Calculatrice"
data "Quitte",50,"edition",50,"copier",23,"coller",23
main_menu 50
        for i=22 to 25:sub_menu i:read a$:caption i,a$:read u:parent i,u:next i
        for i=22 to 25:on_click i,menu:next i
        font_size 0,25:e(51,13,74,287,16,13):e(40,13,13,287,70,24):font_bold 51
' --------------------------------------------------------------
data "7","8","9","/","4","5","6","*","1","2","3","-","0",".","C","+",chr$(27),"="
data 103,104,105,111,100,101,102,106,097,098,099,109,096,110,067,107,008,013
for j=01 to 18:read g$(j):n(j)=65:next j:n(18)=215
for j=01 to 18:read i : tou(i)=j :next j:tou(187)=18:t$(0)="0":j()
zz=15:gosub men2:on_click 0,move:on_key_down 0,touche:on_move 0,mov2:set_focus 0
end
sub j():c=240:for y=121 to 346 step 75
              for x=013 to 239 step 75:p(x):next x:next y:p(13):p(88):end_sub
sub p(x):c=c-1:zz=240-c:x1(zz)=x:y1(zz)=y:to(240,240):end_sub
sub e(a,b,c,d,e,f):edit a:left a,b:top a,c:width a,d:height a,e:font_size a,f
                  inactive a:end_sub
' --------------------------------------------------------------
              sub t1():if m$="=" then a$="":b$=""
              end_sub
              sub t2():if instr(b$,".")>0 and m$="." then m$=""
                        if b$="0" then b$=""
              b$=b$+m$:if b$="." then b$="0."
              end_sub
              sub t3():text 40,b$:affic():end_sub

sub calcul():xz():if x+z<2 then end_sub
      if val(b$)=0 and op=47 then text 40,"Impossible":m$="":end_sub
            select op
              case 47:a$=val(a$)/val(b$)
              case 42:a$=val(a$)*val(b$)
              case 45:a$=val(a$)-val(b$)
              case 43:a$=val(a$)+val(b$)
            end_select
      text 51,d$+"="+a$:text 40,a$:c$=b$:b$="":end_sub

sub signe():if a$="" then a$=b$:b$=""
            if a$="" then a$="0"
            if b$="" then op=u
              affic():calcul():op=u:end_sub

sub egal() :if b$="" then b$=c$
            if b$="" then b$="0"
              affic():calcul():end_sub

sub affic():if a$="" then text 51,b$:end_sub
              d$=a$+chr$(op)+b$:text 51,d$:end_sub
' -------------------------------
move:
    xpad=mouse_x_position(0):ypad=mouse_y_position(0):px(0):zz=240-vv
            if zz=240 then px(16):zz=240-vv
            if zz<1 or zz>18 then return
mov3:
    c=1:to(255,111):wait 30:c=vv:to(240,240)
            if zz=15 or zz=17 then gosub men2:return
            if zz=18 then m$=g$(zz):egal():return
            if numeric(g$(zz))=1 then t1():m$=g$(zz):t2():t3():return
              u=asc(g$(zz)):m$=g$(zz):signe():return
touche:
zz=tou(key_down_code):if zz<1 or zz>18 then set_focus 0:return
vv=color_pixel_blue(0,x1(zz)+5,y1(zz)+5):gosub mov3:set_focus 0:return
' ------------------------------------------------------------------------------
menu:
zz=number_click
men2:
select zz
case 15:text 40,"0":text 51,"":c$="":a$="":b$=""
case 22:terminate
case 24:clipboard_string_copy text$(40)
case 25:b$=clipboard_string_paste$:xz():t$(1)=b$:t1():b$="":m$=t$(x):t2():t3()
case 17:t1():xz():t$(1)=left$(b$,len(b$)-x):b$=t$(x):t3()
end_select
return
sub xz():x=numeric(b$):z=numeric(a$):end_sub
sub px(s):vv=color_pixel_blue(0,xpad-s,ypad):end_sub
sub to(a,b):2d_fill_color a,b,c:2d_rectangle x1(zz),y1(zz),x1(zz)+n(zz),y1(zz)+65
            print_locate x1(zz)+(n(zz)/3),y1(zz)+(65/5):print g$(zz):end_sub
mov2:
xpad=13:ypad=121:px(0):xpad=302:ypad=485:px(0):if vv<>0 then j()
return


Dernière édition par joeeee2017 le Lun 9 Sep 2019 - 18:20, édité 8 fois
Revenir en haut Aller en bas
joeeee2017




Nombre de messages : 60
Date d'inscription : 13/10/2017

mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 EmptyDim 18 Aoû 2019 - 21:07

joeeee2017 a écrit:
Code:

Revenir en haut Aller en bas
Contenu sponsorisé





mise a jour calculatrice - Page 3 Empty
MessageSujet: Re: mise a jour calculatrice   mise a jour calculatrice - Page 3 Empty

Revenir en haut Aller en bas
 
mise a jour calculatrice
Revenir en haut 
Page 3 sur 3Aller à la page : Précédent  1, 2, 3
 Sujets similaires
-
» Mise à jour PANOMAND
» PanExpress : l'éditeur Panoramic avec création d'objet
» Mise a jour PDF ?
» Mise à jour TCCPANO
» Mise à jour PANOCALC

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