| | formule mathématique |  |
|
|
|
| Auteur | Message |
|---|
papyx
Nombre de messages : 50
Age : 79
Localisation : hénin-beaumont(62)
Date d'inscription : 04/09/2010
| | Sujet: formule mathématique Mar 1 Fév 2011 - 10:01 | |
| Bonjour et bonne année Étant limité en math, je voudrai savoir si on peut avoir une formule , dans un tableau; lequel comporte 12 colonnes et 31 lignes (calendrier). A partir d'un jour choisi au hasard, comment retrouver le n° de la colonne, dans laquelle il se trouve?  | |
|
| | |
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 11:00 | |
| Je ne sais pas si j'ai bien saisi ta question. Voici un petit programme qui charge un tableau de 31x12 avec des valeurs mois*100+jour? Il prend ensuite la date du jour et affiche le numéro du jour, du mois et le contenu de la cellule correspondante. Tu peux ensuite saisir des jours et des mois différents, et l'affichage du contenu de la cellule sera toujours à jour. Voici le code: - Code:
-
label change_jour, change_mois
dim jours%(31,12), max%(12), j%, m%, d$
data 31,28,31,30,31,30,31,31,30,31,30,31
for m%=1 to 12
read max%(m%)
next m%
for j%=1 to 31
for m%=1 to 12
jours%(j%,m%) = m%*100 + j%
next m%
next j%
alpha 1 : top 1,10 : left 1,10 : caption 1,"Jour:"
edit 2 : top 2,10 : left 2,40 : width 2,30
alpha 3 : top 3,10 : left 3,110 : caption 3,"Mois:"
edit 4 : top 4,10 : left 4,140 : width 4,40
alpha 5 : top 5,50 : left 5,10 : caption 5,"Contenu de la case:"
edit 6 : top 6, 50 : left 6,120 : width 6,40
d$ = date$
j% = left$(d$,2)
m% = mid$(d$,4,2)
text 2,str$(j%) : text 4,str$(m%) : text 6, str$(jours%(j%,m%))
on_change 2,change_jour : on_change 4,change_mois
end
change_jour:
m% = val(text$(4))
d$ = text$(2)
if numeric(d$)=1
j% = val(d$)
if j%<1 then return
if j%>max%(m%) then return
text 6, str$(jours%(j%,m%))
end_if
return
change_mois:
j% = val(text$(2))
d$ = text$(4)
if numeric(d$)=1
m% = val(d$)
if m%<1 then return
if m%>12 then return
if j%>max%(m%)
j% = max%(m%)
text 2,str$(j%)
end_if
text 6, str$(jours%(j%,m%))
end_if
return
| |
|
| | |
papyx
Nombre de messages : 50
Age : 79
Localisation : hénin-beaumont(62)
Date d'inscription : 04/09/2010
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 11:29 | |
| Bonjour Klaus En fait, c'est pas tout à fait ce que je voudrai; par exemple en choisissant un jour dans l'année (énième); comment retrouver le mois. | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 11:47 | |
| Tu veux dire convertir le quantième (1 à 365 ou 366) en jour/mois ? ça a déjà été fait, il faut que je cherche un peu, ça doit se trouver dans les sources à partager... - Code:
-
Qjm:
' Mois et Jour en fonction de Quantième et Annee
bi = 0: IF (FRAC(Annee/4) = 0 and (FRAC(Annee/100) > 0) or FRAC(Annee/400) = 0) THEN bi = 1
Mois = 1: IF Q < 32 THEN Jour = Q: GOTO ffq
Qt = 0
qjm1:
IF Mois = 4 OR Mois = 6 OR Mois = 9 OR Mois = 11
lm = 30
ELSE
IF Mois = 2 THEN lm = 28 + bi ELSE lm = 31
END_IF
Qt = Qt + lm: IF Qt < Q THEN Mois = Mois + 1: GOTO qjm1
Jour = Q - Qt + lm
ffq:
RETURN mais finalement je ne suis pas sûr que ce soit ce que tu cherches... Ou alors c'est un problème de physique ? ayant un tableau affiché à l'écran, tu veux savoir dans quelle colonne on a cliqué ? c'est facile aussi, mais ta question n'est pas très claire, comment est-ce qu'on choisit la colonne ? Un clic ? une entrée au clavier ? par programme ? Pour le clic, si ta première colonne commence en xd, avec des largeurs de colonnes de lc, si le clic souris est en xs le numéro de la colonne cliquée (= numéro du mois) est 1+INT((xs-xd)/lc) (en partant de 1). | |
|
| | |
papyx
Nombre de messages : 50
Age : 79
Localisation : hénin-beaumont(62)
Date d'inscription : 04/09/2010
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 14:21 | |
| Merci Klaus, tu m'as donné la réponse.  | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 15:11 | |
| Mais on ne sait toujours pas la question ? En tout cas, bravo Klaus, c'est toi qui as gagné ! | |
|
| | |
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 16:17 | |
| | |
|
| | |
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: formule mathématique Mar 1 Fév 2011 - 22:29 | |
| C'est ce qu'on appelle un dialogue de sourd....  | |
|
| | |
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Mar 1 Fév 2011 - 22:41 | |
| Remarque... ...à force de se frapper la tête sur le clavier... ( Papyx , J'adore ton avatar !  ) | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| |
| | |
jean_debord
Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 10:02 | |
| Comme disait Woody Allen : "La réponse est oui, mais quelle est la question ?" | |
|
| | |
papyx
Nombre de messages : 50
Age : 79
Localisation : hénin-beaumont(62)
Date d'inscription : 04/09/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 10:24 | |
| la question se trouve tout au début (10h01) | |
|
| | |
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 11:03 | |
| Bonjour Papyx ! Vu la réponse de 11h29 on ne comprend pas celle de 14h21... Bonne journée !! | |
|
| | |
papyx
Nombre de messages : 50
Age : 79
Localisation : hénin-beaumont(62)
Date d'inscription : 04/09/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 11:07 | |
| je comprends le désarroi qui vous anime car je me suis trompé en remerciant Klaus au lieu de jl35. | |
|
| | |
musicgames
Nombre de messages : 55
Date d'inscription : 21/01/2008
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 12:15 | |
| Le web 2.0 : un moyen sûr d'expression d'agressivité injustifiée. Cela donne la possibilité de se défouler sur une personne, sans même la connaître. | |
|
| | |
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 13:42 | |
|  Ca ne doit pas être du Woody Allen... je me trompe ? @Papyx : l'essentiel c'est que tu as trouvé ta réponse.  | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 14:33 | |
| - Citation :
- Le web 2.0 : un moyen sûr d'expression d'agressivité injustifiée. Cela donne la possibilité de se défouler sur une personne, sans même la connaître.
@musicgames Qui parle d'agressivité ? tout ça était bon enfant et dit avec le sourire, non ? il me semble que personne d'autre ne l'a ressenti autrement, y compris Papyx j'espère bien ! | |
|
| | |
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: Re Mer 2 Fév 2011 - 15:03 | |
| Un Panoramicien   ne serait un Panoramicien si de temps en temps il ne partait pas en sucette. | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 16:19 | |
| | |
|
| | |
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 16:45 | |
| @JL35: Je voulais dire par là que la remarque de musicgames, n'etait pas une citation de Woody contrairement à celle de Jean Debord... Bref... je me suis replongé dans ma petite DLL... (c'est ygeronimi qui va être content!) | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 17:27 | |
| Pardon Nardo, j'ai parlé trop vite...  allez, au boulot ! | |
|
| | |
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 17:43 | |
| @ygeronimi : Dans ta tribu il en manque un :  (jjn4, le seul, l'UNIQUE !!  ) @Klaus, si tu vois ce message : une petite astuce pour l'affectation d'une chaine Pano en Delphi : - Code:
-
function Toto(AdrStrPanoramic,longueur:integer):integer;stdcall;
var
str:string;
begin
....
str :="chaine de resultat";
CopyMemory(Pbyte(pstring(AdrStrPanoramic)^), Pbyte(str),longueur);
result := 1
end; | |
|
| | |
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: Re Mer 2 Fév 2011 - 17:43 | |
| | |
|
| | |
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 19:12 | |
| @Nardo26: Merci, je prends ! A mon tour de donner un moyen, peut-être déjà connu, pour prendre un string en Delphi passé en paramètre par Panoramic: - Code:
-
function WBUrl(text: integer): integer; stdcall; export;
var
txt: WideString;
ptxt: ^String;
begin
ptxt := pointer(text);
txt := ptxt^;
| |
|
| | |
Nardo26
Nombre de messages : 2294
Age : 56
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: formule mathématique Mer 2 Fév 2011 - 20:43 | |
| Merci Klaus, mais tu peux simplifier : - Code:
-
function WBUrl(text: pstring): integer; stdcall; export;
var
txt: string;
begin
txt := text^;
| |
|
| | |
Contenu sponsorisé
| | Sujet: Re: formule mathématique | |
| |
|
| | |
| | formule mathématique | |
|
Calendrier
