نحوه ایجاد کلید سوالات آزمون تستی

Question

سلام کد زیر یک دستور برای تولید پاسخنامه خام سوالات آزمون تستی تعریف می کند:

\documentclass{article}
\usepackage[margin=1in]{geometry}
\usepackage{pgffor}
\usepackage[most]{tcolorbox}
\usepackage{tikz}
\usetikzlibrary{shapes}
\usepackage{multicol}
\usepackage[logo=on]{xepersian}
\settextfont{XB Niloofar}
\setdigitfont{XB Niloofar}

\begin{document}
\pagestyle{empty}
\newcommand{\myellipse}[1]{
\tikz{\node[draw,fill=red!5!white,inner sep=0pt,ellipse]{\textcolor{red}{~#1~}}}}

\tcbset{colframe=red!50!black,colback=white}
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{پاسخنامه خام}‎‎
    \end{tcolorbox}
\newcommand{\makesheet}[1]{
    \begin{tcolorbox}[width=\textwidth]
        \begin{multicols}{3} 
            \begin{center} 
            \noindent
            \foreach \i in {1,...,#1}
            {\fbox{\raisebox{3pt}{\makebox[1cm]{\i}} \foreach \j in {1,2,3,4} {\myellipse{\j}}}\\}
            \end{center}
       \end{multicols}
     \end{tcolorbox} }

\makesheet{60}

\end{document}

که خروجی آن به شکل زیر است:

اکنون فرض کنید لیست پاسخ‌های صحیح (60 سوال) را مثلا به صورت زیر بتوانیم وارد کنیم (چگونه؟):

\answerslist{1,3,4,2,2,1,3,1,2,4,3,2,2,3,4,1,1,3,2,1,1,4,4,4,3,2,1,2,4,3,3,4,2,1,1,1,3,2,4,3,1,2,3,4,2,3,1,1,2,4,1,2,1,3,4,2,1,1,3,2}

چگونه می توان دستوری را تعریف کرد که کلید سوالات را چاپ کند به طوری که خانه‌های مربوط به پاسخ‌های صحیح سیاه شده باشد؟

Comments

درود بر شما با این سوال های زیبا و فنی.+1

---

بسیار ممنون. پاسخ‌های زیبای شما و دیگر دوستان انگیزه تلاش به ما می دهد.

Answer 1

برای این منظور با استفاده از foreach و csname آرایه‌ای از متغیرها درست می‌کنیم که جواب‌های صحیح را در خود نگه می‌دارند سپس هنگام کشیدن بیضی چک می‌کنیم که اگر برابر جواب صحیح بود بیضی را توپر و در غیر این‌صورت بیضی را تو خالی در نظر می‌گیرد.
توجه کنید که کمی کد دستور ساخت بیضی شما را تغییر داده‌ام و همچنین جوابها را دستور makesheet به عنوان آرگومان اختیاری می‌پذیرد
با این توضیحات کد شما به شکل زیر است

\documentclass{article}
\usepackage[margin=1in]{geometry}
\usepackage{pgffor}
\usepackage[most]{tcolorbox}
\usepackage{tikz}
\usetikzlibrary{shapes}
\usepackage{multicol}
\usepackage[logo=on]{xepersian}
\settextfont{Yas}
\setdigitfont{Yas}
\newcounter{anscount}%
\newcounter{optioncount}
\newcounter{correctcount}
\newcommand{\makesheet}[2][]{
    \setcounter{anscount}{0}%
    \foreach \k in {#1}{%
        \stepcounter{anscount}%
        \expandafter\xdef\csname ans\the\value{anscount}\endcsname{\k}%
    }%
    \begin{tcolorbox}[width=\textwidth]
        \begin{multicols}{3} 
            \begin{center} 
                \noindent
                \foreach \i in {1,...,#2}
                {\fbox{\raisebox{3pt}{\makebox[1cm]{\i}}%
                        \ifcsname ans\i \endcsname%
                            \setcounter{correctcount}{\csname ans\i \endcsname}%
                        \else%
                            \setcounter{correctcount}{0}%
                        \fi%
                        \foreach \j in {1,2,3,4} {%
                            \setcounter{optioncount}{\j}%
                            \ifnum\value{optioncount}=\value{correctcount}%
                                \myfillellipse%
                            \else%
                                \myellipse{\j}%
                            \fi%
                        }%
                    }\\
                        }
            \end{center}
        \end{multicols}
\end{tcolorbox}%
}
\begin{document}
\pagestyle{empty}
\newcommand\myellipse[1]{%
\tikz \draw (0,0) ellipse (.3 and .2) node[pos=.5]{#1};
}
\newcommand\myfillellipse{%
    \tikz \draw[fill] (0,0) ellipse (.3 and .2);
}
\tcbset{colframe=red!50!black,colback=white}
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{پاسخنامه خام}‎‎
    \end{tcolorbox}
\makesheet[1,3,2,4,2]{60}%
\end{document}

و خروجی شما به این صورت است.

پیروز باشید.

Comments

ممنون از شما، پاسختون واقعا دقیق و زیباست. سلامت و سربلند باشید. (+1)

---

تندرست باشید

---

خیلی به دردم خورد. ممنون (+1)

---

خوشحالم که براتون مفید بوده

---

درود بر جناب باغبان عزیز+1

Answer 2

سلام

---

با تشکر از پاسخ فنی دوست خوبم جناب باغبان عزیز

---

در روشی که من می‌خواهم بیان کنم سعی کرده‌ام که خود ساختار برگه با همان رنگ‌های پیش‌فرض حفظ شود. برای انجام این کار ابتدا دو دستور داخلی زیر را برای انجام این تغییرات به کار گرفته‌ام:

\def\shfill#1{\gdef\@shfill{#1}}
\def\shcol#1{\gdef\@shcol{#1}}

و سپس ماکروی \myellipse را به صورت زیر تعریف کرده‌ام:

\newcommand{\myellipse}[1]{
\tikz{\node[draw,fill={\@shfill},inner sep=0pt,ellipse]{\textcolor{\@shcol}{~#1~}}}}

توجه کنید که جهت تغییر رنگ از دستور داخلی در ساختار تیکز بهره گرفته‌ام.
تعریف ماکروی \makesheet را از روش جناب باغبان انتخاب کرده‌ام با این تفاوت که دستور شرطی انتها‌ی آن را مطابق تغییرات بالا و به صورت زیر ویرایش کرده‌ام:

...
\shfill{black}\shcol{black}\myellipse{\j}%
\else%
\shfill{red!5!white}\shcol{red}\myellipse{\j}%
...

کد کلی شما به صورت زیر است:

\documentclass{article}
\usepackage[margin=1in]{geometry}
\usepackage{pgffor}
\usepackage[most]{tcolorbox}
\usepackage{tikz}
\usetikzlibrary{shapes}
\usepackage{multicol}
\usepackage[logo=on]{xepersian}
\settextfont{Yas}
\setdigitfont{Yas}
\newcounter{anscount}%
\newcounter{optioncount}
\newcounter{correctcount}
\makeatletter
\def\shfill#1{\gdef\@shfill{#1}}
\def\shcol#1{\gdef\@shcol{#1}}
\newcommand{\myellipse}[1]{
\tikz{\node[draw,fill={\@shfill},inner sep=0pt,ellipse]{\textcolor{\@shcol}{~#1~}}}}
\newcommand{\makesheet}[2][]{
\setcounter{anscount}{0}%
\foreach \k in {#1}{%
\stepcounter{anscount}%
\expandafter\xdef\csname ans\the\value{anscount}\endcsname{\k}%
}%
\begin{tcolorbox}[width=\textwidth]
\begin{multicols}{3} 
\begin{center} 
\noindent
\foreach \i in {1,...,#2}
{\fbox{\raisebox{3pt}{\makebox[1cm]{\i}}%
\ifcsname ans\i \endcsname%
\setcounter{correctcount}{\csname ans\i \endcsname}%
\else%
\setcounter{correctcount}{0}%
\fi%
\foreach \j in {1,2,3,4} {%
\setcounter{optioncount}{\j}%
\ifnum\value{optioncount}=\value{correctcount}%
\shfill{black}\shcol{black}\myellipse{\j}%
\else%
\shfill{red!5!white}\shcol{red}\myellipse{\j}%
\fi}}\\}
\end{center}
\end{multicols}
\end{tcolorbox}}
\makeatother
\begin{document}
\null\vfill
\pagestyle{empty}
\tcbset{colframe=red!50!black,colback=white}
\begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
\LARGE{پاسخنامه خام}‎‎
\end{tcolorbox}
\makesheet[1,2,2,3,3,3,4,4,4,4,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,4,4,4,4,1,1,3,4,3,4,2,2,1,3,3,3,3,3,3,3,3,3,4,4,4,4,4,1,1,1,1,2,2,1,1]{60}%
\newpage
\begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
\LARGE{پاسخنامه خام}‎‎
\end{tcolorbox}
\makesheet[1,3,2,4,2]{60}
\end{document}

---

خروجیهای شما در دو حالت تکیل شده و تکمیل نشده‌ی پاسخ‌نامه و با نسخه‌ی اولیه‌ی تکلایو 2018 مطابق زیر است:

---

---

بهتر است این پرسش و پاسخ را در این زمینه ببینید.

موفق باشید.

Comments

درود بر شما +1

---

بسیار متشکر از اینکه تجربیات ارزنده خود را در اختیار ما قرار می دهید. (+1)

---

درود بر شما

Answer 3

ضمن تشکر از دوستان و اساتید عزیز با کسب اجازه از جناب باغبان با یک تغییر جزیی در پاسخ ایشان (صرفا جهت تمرین اینجانب) می توان بدون تغییر در نحوه تولید بیضی ها ابتدا دو دستور بیضی خالی و بیضی پرشده را با همان ساختار قبل به صورت زیر تعریف می کنیم:

\newcommand{\blankellipse}[1]{
    \tikz{\node[draw,fill=red!5!white,inner sep=0pt,ellipse]{\textcolor{red}{~#1~}}}}

\newcommand{\filledellipse}[1]{
    \tikz{\node[draw,fill=black,inner sep=0pt,ellipse]{\textcolor{white}{~#1~}}}}

برای آنکه بیضی های پرشده ظاهر بهتری داشته باشند رنگ شماره داخل آن ها را سفید انتخاب کرده ایم.
اکنون در دستورهای داخل foreach پارامتر \j را در دستور \filledellipse وارد می کنیم. با این توضیحات کد کامل به صورت زیر است:

\documentclass{article}
\usepackage[margin=1in]{geometry}
\usepackage{pgffor}
\usepackage[most]{tcolorbox}
\usepackage{tikz}
\usetikzlibrary{shapes}
\usepackage{multicol}
\usepackage[logo=on]{xepersian}
\settextfont{Yas}
\setdigitfont{Yas}
\newcounter{anscount}%
\newcounter{optioncount}
\newcounter{correctcount}
\newcommand{\makesheet}[2][]{
    \setcounter{anscount}{0}%
    \foreach \k in {#1}{%
        \stepcounter{anscount}%
        \expandafter\xdef\csname ans\the\value{anscount}\endcsname{\k}%
    }%
    \begin{tcolorbox}[width=\textwidth]
        \begin{multicols}{3} 
            \begin{center} 
                \noindent
                \foreach \i in {1,...,#2}
                {\fbox{\raisebox{3pt}{\makebox[1cm]{\i}}%
                        \ifcsname ans\i \endcsname%
                            \setcounter{correctcount}{\csname ans\i \endcsname}%
                        \else%
                            \setcounter{correctcount}{0}%
                        \fi%
                        \foreach \j in {1,2,3,4} {%
                            \setcounter{optioncount}{\j}%
                            \ifnum\value{optioncount}=\value{correctcount}%
                                \filledellipse{\j}%
                            \else%
                                \blankellipse{\j}%
                            \fi%
                        }%
                    }\\
                        }
            \end{center}
        \end{multicols}
\end{tcolorbox}%
}
\begin{document}
\pagestyle{empty}
\newcommand{\blankellipse}[1]{
    \tikz{\node[draw,fill=red!5!white,inner sep=0pt,ellipse]{\textcolor{red}{~#1~}}}}

\newcommand{\filledellipse}[1]{
    \tikz{\node[draw,fill=black,inner sep=0pt,ellipse]{\textcolor{white}{~#1~}}}}

\tcbset{colframe=red!50!black,colback=white}
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{پاسخنامه خام}‎‎
    \end{tcolorbox}
\makesheet{60}%
\newpage
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید سوالات}‎‎
\end{tcolorbox}
\makesheet[1,3,4,2,2,1,3,1,2,4,3,2,2,3,4,1,1,3,2,1,1,4,4,4,3,2,1,2,4,3,3,4,2,1,1,1,3,2,4,3,1,2,3,4,2,3,1,1,2,4,1,2,1,3,4,2,1,1,3,2]{60}%

\end{document}

که خروجی کلید سوالات به صورت زیر است:

قابل ذکر است که برای داشتن هم پاسخنامه خام و هم کلید سوالات باید دستور \makesheet{60} بدون آرگومان اختیاری را قبل از دستور با آرگومان اختیاری قرار دهیم.

بدیهی است که این پاسخ به منزله یک پاسخ جدید نیست و همان پاسخ آقای باغبان است.

Comments

صاحب اختیاری آقای رضاییانی

---

درود