Novembre 2024 | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
---|
| | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | | Calendrier |
|
|
| mise a jour calculatrice | |
|
+7Marc Klaus papydall JL35 Jean Claude Yannick joeeee2017 11 participants | |
Auteur | Message |
---|
joeeee2017
Nombre de messages : 60 Date d'inscription : 13/10/2017
| Sujet: Re: mise a jour calculatrice Dim 3 Déc 2017 - 8:56 | |
| | |
| | | joeeee2017
Nombre de messages : 60 Date d'inscription : 13/10/2017
| Sujet: bonjour Dim 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 | |
| | | Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: mise a jour calculatrice Dim 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... | |
| | | joeeee2017
Nombre de messages : 60 Date d'inscription : 13/10/2017
| Sujet: boniour Dim 3 Déc 2017 - 15:19 | |
| as tu vu ma question sur le entrée de la machine a calculer? | |
| | | Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: mise a jour calculatrice Dim 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. | |
| | | Marc
Nombre de messages : 2466 Age : 63 Localisation : TOURS (37) Date d'inscription : 17/03/2014
| Sujet: Re: mise a jour calculatrice Dim 3 Déc 2017 - 22:56 | |
| Bonsoir à tous ! Salut Joeee2017 ! J'ai testé ta calculatrice : elle est super et fonctionnelle. Bravo ! 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 Enter2) Avant ton END ligne 51, ajoute : ON_KEY_DOWN 0, Enter3) 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 ! | |
| | | papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: mise a jour calculatrice Lun 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. | |
| | | Minibug
Nombre de messages : 4570 Age : 58 Localisation : Vienne (86) Date d'inscription : 09/02/2012
| Sujet: Re: mise a jour calculatrice Lun 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 ?! Bravo joeeee2017. Belle réalisation pour un débutant ! @papydall : Prends soins de toi je te souhaite un rapide rétablissement. ( Désolé pour le HS ) | |
| | | Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: mise a jour calculatrice Lun 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 ! | |
| | | Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Lun 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. @ Joe, Très bel ouvrage. Je ne doute pas que tu l' amélioreras dans les temps futurs. | |
| | | Ouf_ca_passe
Nombre de messages : 285 Age : 76 Localisation : Villeneuve d'Ascq (59-Dpt du NORD) France Date d'inscription : 21/12/2015
| Sujet: Prompt rétablissement à Papydall Lun 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. | |
| | | Froggy One
Nombre de messages : 598 Date d'inscription : 06/01/2012
| Sujet: Re: Lun 4 Déc 2017 - 11:19 | |
| | |
| | | Francis-mr
Nombre de messages : 186 Date d'inscription : 26/11/2012
| Sujet: Re: mise a jour calculatrice Lun 4 Déc 2017 - 11:49 | |
| @ Papydall Je me joins à tous les panoramiciens pour te souhaiter bon rétablissement. | |
| | | Marc
Nombre de messages : 2466 Age : 63 Localisation : TOURS (37) Date d'inscription : 17/03/2014
| Sujet: Re: mise a jour calculatrice Lun 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 !
| |
| | | Jean Claude
Nombre de messages : 5950 Age : 70 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Re: mise a jour calculatrice Lun 4 Déc 2017 - 12:35 | |
| Je viens de découvrir la mauvaise nouvelle. @Papydall, Prends le temps nécessaire à ton rétablissement, et reviens-nous en forme le plus tôt possible. A+ | |
| | | papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: mise a jour calculatrice Mer 6 Déc 2017 - 1:44 | |
| Merci pour tous. C’est très gentil de votre part. Je me sens beaucoup mieux !
| |
| | | joeeee2017
Nombre de messages : 60 Date d'inscription : 13/10/2017
| Sujet: re Mer 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 | |
| | | joeeee2017
Nombre de messages : 60 Date d'inscription : 13/10/2017
| Sujet: Re: mise a jour calculatrice Dim 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 | |
| | | joeeee2017
Nombre de messages : 60 Date d'inscription : 13/10/2017
| Sujet: Re: mise a jour calculatrice Dim 18 Aoû 2019 - 21:07 | |
| - joeeee2017 a écrit:
-
- Code:
-
| |
| | | Contenu sponsorisé
| Sujet: Re: mise a jour calculatrice | |
| |
| | | | mise a jour calculatrice | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |