summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex')
-rw-r--r--macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex38
1 files changed, 38 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex b/macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex
new file mode 100644
index 0000000000..8e26111a31
--- /dev/null
+++ b/macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex
@@ -0,0 +1,38 @@
+%%%
+% Defi Calculatrice
+%%%
+\setKVdefault[DefiCalculatrice]{NbCasesNoires=6,ListeTouches={!},Impression=false}%
+
+\newtoks\toktexteecran{}
+\newtoks\tokcibleecran{}
+\def\UpdatetoksTexteEcran#1\nil{\addtotok\toktexteecran{_}}
+\def\UpdatetoksCibleEcran#1\nil{\addtotok\tokcibleecran{"#1"}}
+
+\NewDocumentCommand\DefiCalculatrice{om}{%
+ \useKVdefault[DefiCalculatrice]%
+ \setKV[DefiCalculatrice]{#1}%
+ \defKV[DefiCalculatrice]{Impression=\setKV[ClesCalculatrice]{Impression}}%
+ \toktexteecran{"}%
+ \tokcibleecran{}%
+ \xdef\PfCFooDCListe{\useKV[DefiCalculatrice]{ListeTouches}}
+ \setsepchar{,}\ignoreemptyitems%
+ \readlist*\PfCDCListeEffacer{\PfCFooDCListe}%
+ \reademptyitems%
+ \xintFor* ##1 in{\xintSeq{1}{\useKV[DefiCalculatrice]{NbCasesNoires}}}\do{%
+ \expandafter\UpdatetoksTexteEcran##1\nil
+ }%
+ \addtotok\toktexteecran{"}
+ \expandafter\UpdatetoksCibleEcran#2\nil
+ % Dessin de la calculatrice
+ \begin{tcolorbox}[nobeforeafter,left=0pt,right=0pt,top=0pt,bottom=0pt,width=69pt]
+ \setlength{\tabcolsep}{0.01\tabcolsep}
+ \begin{tabular}{*{4}{m{20pt}}}
+ \ifboolKV[DefiCalculatrice]{Impression}{\multicolumn{4}{c}{\Calculatrice[Ecran,Largeur=40,Impression]{\the\toktexteecran/\the\tokcibleecran}}}{\multicolumn{4}{c}{\Calculatrice[Ecran,Largeur=40]{\the\toktexteecran/\the\tokcibleecran}}}\\
+ \multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{7}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/7}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{8}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/8}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{9}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/9}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{/}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/$\div$}}}\\
+ \multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{4}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/4}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{5}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/5}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{6}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/6}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{*}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/$\times$}}}\\
+ \multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{1}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/1}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{2}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/2}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{3}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/3}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{-}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/$-$}}}\\
+ \multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{0}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/0}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{.}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/.}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{=}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/$=$}}}&\multicolumn{1}{c}{\IfSubStr{\useKV[DefiCalculatrice]{ListeTouches}}{+}{\Calculatrice{/\faScrewdriver}}{\Calculatrice{/$+$}}}\\
+ \end{tabular}
+ \setlength{\tabcolsep}{100\tabcolsep}
+ \end{tcolorbox}
+}% \ No newline at end of file