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

Question

در پاسخ مربوط به نحوه ایجاد کلید سوالات آزمون تستی در پاسخ اول کد زیر ارائه شده است که برای چاپ چند کلید کامل (همه سوالات دارای پاسخ باشند) مشکل گشا است.

\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[2,1,3,1,4,4,2,4,3,1,3,4,2,2,2,3,1,1,4,3,4,1,1,2,1,1,3,2,2,1,2,3,3,4,2,2,4,3,1,2,3,1,1,2,4,1,4,2,1,1,4,3,3,4,1,3,2,2,1,3]{60}%

\end{document}

حال اگر بخواهیم چند کلید متفاوت که بعضی از آنها ناقص باشند را در یک سند چاپ کنیم مشکل پیش می آید به این صورت که خروجی یک کلید ممکن است تحت تاثیر کلیدهای قبل از خود قرار گیرد. کد زیر این مشکل را نشان می دهد.

\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[2,1,3,1,4,4,2,4,3,1,3,4,2,2,2,3,1,1,4,3,4,1,1,2,1,1,3,2,2,1,2,3,3,4,2,2,4,3,1,2,3,1,1,2,4,1,4,2,1,1,4,3,3,4,1,3,2,2,1,3]{60}%
\newpage
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید دوم}‎‎
\end{tcolorbox}
\makesheet[1,3,4,2,2,1,3,1,4,1,1,2,2,2,3]{60}%
\newpage
\begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید سوم}‎‎
\end{tcolorbox}
\makesheet[3,2,4,1,1,3,2,2]{60}%

\end{document}

مثلا هر کلید تا جایی که آرگومان اختیاری آن وارد شده است نتیجه خودش و از آن به بعد نتیجه کلید قبل از آن (در صورت کامل تر بودن) چاپ می شود.
برای رفع این مشکل چکار باید کرد؟
البته می توان با غیر فعال کردن دستور مربوط به هر پاسخنامه به ترتیب با اجرای برنامه، خروجی هر کدام را به صورت جداگانه به دست آورد. اما آیا می توان به نحو اصولی تر و با ارزش تری در یک اجرا خروجی مطلوب را به دست آورد؟

Answer 1

مشکل از اینجا ناشی می‌شود که من برای اینکه متغیر‌هایی که برای نگهداری جواب تعریف شده‌اند خارج از حلقه for قابل دسترس باشد، آنها را بصورت global تعریف کرده‌ام. اما راه حل مشگل شما ساده است و فقط کافی است در انتهای تعریف ماکروی 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}%
                                \filledellipse{\j}%
                            \else%
                                \blankellipse{\j}%
                            \fi%
                        }%
                    }\\
                        }
            \end{center}
        \end{multicols}
\end{tcolorbox}%
    \setcounter{anscount}{0}%
   \foreach \k in {#1}{%
    \stepcounter{anscount}%
    \expandafter\xdef\csname ans\the\value{anscount}\endcsname{0}%
}%
}
\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[2,1,3,1,4,4,2,4,3,1,3,4,2,2,2,3,1,1,4,3,4,1,1,2,1,1,3,2,2,1,2,3,3,4,2,2,4,3,1,2,3,1,1,2,4,1,4,2,1,1,4,3,3,4,1,3,2,2,1,3]{60}%
\newpage
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید دوم}‎‎
\end{tcolorbox}
\makesheet[1,3,4,2,2,1,3,1,4,1,1,2,2,2,3]{60}%
\newpage
\begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید سوم}‎‎
\end{tcolorbox}
\makesheet[3,2,4,1,1,3,2,2]{60}%

\end{document}

و خروجی بصورت زیر است.



پیروز باشید

Comments

درسته. قبل از دیدن پاسخ شما داشتم پرسش آخر رو مخفی می کردم که لینک رو دیدم. بسیار متشکرم. +1

---

درود

---

با آرزوی موفقیت روزافزون و تندرستی برای شما. ایده شما برای پاسخ به این سوال و سوال اولیه بسیار جالب بود.
برای کسانی که بعدا این صفحه را ببینند این تبصره را به پاسختان اضافه می کنم که به ازای هر سوال خط نزده در اول یا اثنای پاسخنامه می توانیم عددی دلخواه غیر از 1و2و3و4 (مثلا صفر) را در لیست پاسخ ها وارد کنیم. به این ترتیب خروجی کامل و درست خواهد بود.

---

پیروز و سرافراز باشید.

---

@M J Rezaeiani: این شیوه پرسیدن سوال به صورت ۱ و ۲ و ۳ باعث بی‌نظمی در سایت می‌شه. لطفاً از این به بعد هر مشکلی دارین، توی همون پست اصلی بپرسین. بخش کامنت‌ برای همین کاره که مشکل کد رو رفع کنین.

---

درست می‌فرمایید ممکنه باعث بی نظمی در سایت بشه. البته چون تصور من این بود که پرسش جدید کار قبلی را توسعه می‌دهد و معمولا دوستان در این گونه موارد پیشنهاد طرح یک پرسش جدید را می‌دهند به این شیوه عمل کردم. باز هم متشکر

Answer 2

سلام
با تشکر از پاسخ جناب باغبان عزیز
یک راه ساده‌ی دیگر این است که آرگومان دوم را به تعداد سوالات مورد نیاز انتخاب کنید و مانند نمونه‌ی زیر عمل کنید(چون در واقع، عملاً نیازی به شماره‌های دیگر ندارید):

---

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

---

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

---

موفق باشید.

Comments

متشکرم (+1). در مواردی لازم است که شکل ظاهری پاسخنامه ثابت بماند. مثلا اگر یک موسسه بخواهد به همراه کارنامه آزمون پاسخ های داوطلبان را نیز به منظور مقایسه چاپ نماید.

---

کاملاً درست میفرمایید. برای هر دو سلیقه الان راه وجود دارد. برای دوستانی که بعد به این صفحه رجوع می کنند خوبه چون شاید این روش  هم نیاز باشد. درود بر شما

---

@شاپور
درود بر شما
در صورتی که بخواهیم فقط جواب‌های ارائه شده چاپ شود دیگر به آرگومان دوم هم نیازی نیست زیرا که anscount مقدار آن را در خود دارد

---

البته در سیستم من چنانچه آرگومان دوم را خالی قرار دهید و یا قرار ندهید خطا می دهد. لطفا تست کنید.

---

من منظورم با کمی دستکاری دستور بود.

---

سپاس.

Answer 3

یک راه دیگر این است که به ازای هر سوال خط نزده عددی دلخواه غیر از 1و2و3و4 (مثلا صفر) وارد کنیم. این روش در مواردی که سوال خط نزده در وسط پاسخنامه داشته باشیم نیز به خوبی جواب می دهد. مثلا به صورت زیر:

\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[2,1,3,1,4,4,2,4,3,1,3,4,2,2,2,3,1,1,4,3,4,1,1,2,1,1,3,2,2,1,2,3,3,4,2,2,4,3,1,2,3,1,1,2,4,1,4,2,1,1,4,3,3,4,1,3,2,2,1,3]{60}%
\newpage
 \begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید دوم}‎‎
\end{tcolorbox}
\makesheet[1,2,0,2,4,1,4,3,0,3,0,0,1,1,0,0,0,0,0,0,0,0,0,2,1,4,3,1,1,0,0,0,3,3,0,0,0,2,2,4,0,0,0,0,0,3,2,4,0,0,0,0,0,0,0,0,0,0,0,0]{60}%
\newpage
\begin{tcolorbox}[width=\textwidth,colback=red!5!white,halign=center]
    \LARGE{کلید سوم}‎‎
\end{tcolorbox}
\makesheet[3,2,4,1,1,3,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]{60}%

\end{document}

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

Comments

درود

Answer 4

با سلام و تشكر
با استفاده‌ از كدهای شما اساتید عزیز، من هم با یك تغییر كوچك جوابهای ١، ٢، ٣، ٤ را به‌ A,B,C,D,E تبدیل كردم

\documentclass{article}
\usepackage[margin=1.0in]{geometry}
\usepackage{pgffor}
\usepackage[most]{tcolorbox}
\usepackage{tikz}
\usetikzlibrary{shapes}
\usepackage{multicol}
\usepackage[logo=on]{xepersian}
\settextfont{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 \letter/\position in {A/1, B/2, C/3, D/4, E/5} {%
                            \setcounter{optioncount}{\position}%
                            \ifnum\value{optioncount}=\value{correctcount}%
                                \filledellipse{\letter}%
                            \else%
                                \blankellipse{\letter}%
                            \fi%
                        }%
                    }\\
                        }
            \end{center}
        \end{multicols}
\end{tcolorbox}%
    \setcounter{anscount}{0}%
   \foreach \k in {#1}{%
    \stepcounter{anscount}%
    \expandafter\xdef\csname ans\the\value{anscount}\endcsname{0}%
}%
}
\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[1,2,3,5,1,3,4,5,1,3,2,5,1,2,3,3,1,3,2,5,1,3,3,5,1,2,3,1,1,3,2,5,2,5,4,5,1,2,3,5,1,3,4,2,1,4,4,5,1,5,3,5,4,3,4,5,1,3,4,5]{60}%
\end{document}

که‌ خروجی این كدها:

با درود فراوان

Comments

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

---

بسیار عالی. تشکر از کار مفیدتون.

---

با تشكر از شما اساتید محترم در سایت كه‌ اطلاعات خودتون رو در اختیار دیگران میگذارید و اموزش میدهید.
خدا اجرتون بده‌.