diff options
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex')
-rw-r--r-- | macros/latex/contrib/profcollege/latex/PfCDefiCalc.tex | 38 |
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 |