اولین بار است که به اینجا می‌آیید؟ راهنمای سایت را بخوانید!
Close Sidebar
وب‌سایت پرسش و پاسخ پارسی‌لاتک جایی برای پرسش و پاسخ درباره سیستم حروف‌چینی لاتک و بسته زی‌پرشین است. در اینجا می‌توانید سوال‌های خود را بپرسید و به سوال‌های دیگران پاسخ دهید.

محبوب‌ترین برچسب‌ها

رفع خطا جدول مراجع xepersian ریاضی‌نویسی شکل فهرست مطالب فونت شماره‌گذاری منابع bidi پانویس بیب‌تک tikz تک‌لایو parsilatex بیمر اسلاید زی‌پرشین پاورقی سربرگ bibtex نماد فرمول‌نویسی رسم شکل قالب ارجاع‌دهی biditexmaker هدر ویرایشگر beamer واژه‌نامه اندازه فونت texstudio عنوان فصل ماتریس اعمال نشدن تغییرات در پی‌دی‌اف رسم جدول bidipresentation شماره صفحه حاشیه رنگ عنوان شکل اسلاید فارسی محیط قضیه گراف مکان شکل tikzpicture حروف‌چینی کد شماره فصل enumerate tabriz_thesis نمایه align زیرنویس شکل کادر itemize listings الگوریتم عدم اجرا نیم‌فاصله متن لاتین و فارسی فهرست اشکال بسته فاصله بین خطوط قالب پایان‌نامه فرمول نصب تک‌لایو فارسی‌تک hyperref شماره فرمول glossaries کپشن نمودار حروف‌چینی چندستونی فونت فارسی و انگلیسی ماکرونویسی خروجی biditools شماره پاورقی پیوست‌ فاصله‌گذاری فرمول چندضابطه‌ای لاتک سوال امتحانی subfigure extrafootnotefeatures header texmaker pdf tex biditufte-book تصویر شمارنده texlive2015 longtable زیرنویس خطا رسم نمودار شماره‌گذاری صفحات پایان نامه دیاگرام فهرست جداول میک‌تک texlive2016 تنظیم جدول kashida texworks caption اندیس lollipop iust-thesis multicol فصل‌نویسی شعر سوال چهارگزینه‌ای بولد تورفتگی آکولاد اعداد فارسی فاصله عمودی xindy چپ‌چینی اوبونتو میکروسافت ورد قاب geometry fancyhdr تک لایو 2015 عنوان بخش به‌روزرسانی بسته aimc46 صفر توخالی فرمول طولانی بیرون‌زدگی کاما وسط‌چینی پوستر شماره گذاری فاصله سطرها نوشتافت شکست خط tex-programming فونت اعداد pgfplots قرآن tabriz-thesis ایتالیک winedt جستجوی معکوس xelatex texlive فلش جایابی تصویر tcolorbox قالب کتاب پاراگراف‌بندی بازیابی اطلاعات هایپرلینک فهرست نمادها شمارنده فصل محیط ریاضی رسم کادر جداکننده جدول طولانی فهرست تصاویر شماره‌گذاری فرمول algorithm2e فونت بولد proof equation bidipoem eps جدول افقی عکس به‌روزرسانی پانویس چندستونی کمک مالی فاصله خطوط حروف‌چینی شعر font زیرشکل minipage قلم پانویس پاراگرافی ltrfootnote پیوست computeautoilg متن فارسی و انگلیسی فرمول چندخطی neveshtuft غلط‌گیری املایی تک‌پارسی پیکان لاتکس tabular baselineskip شماره قسمت قسمت عنوان جدول
2 نفر آنلاین
0 عضو و 2 مهمان در سایت حاضرند
بازدید امروز: 4354
بازدید دیروز: 9805
بازدید کل: 20054350

چطور برنامه‌ای برای زمان‌بندی و ساعت‌بندی آبیاری باغم بنویسم؟

+1 رای
726 بازدید

فرض کنین من، امید و علی ۳ تا باغ کنار همدیگه داریم. ما هر ۴ روز یک‌بار اجازه داریم از ساعت ۰۸:۰۰ به مدت ۲۴ ساعت هر ۳ باغ رو آبیاری کنیم؛ یعنی هر نفر ۸ ساعت وقت داره. با این شرط که اگه من امروز ساعت ۰۸:۰۰ نوبتم بود، ۴ روز دیگه نوبتم بیافته ساعت ۱۶:۰۰ و ۴ روز بعد از اون، ساعت ۰۰:۰۰. برای امید و علی هم این شرط برقرار باشه.

حالا می‌خوام از تاریخ مثلاً ۱ فروردین ۹۷ برای مدت ۱ سال یه جدول به صورت خودکار تولید کنم که این زمان‌بندی و ساعت‌بندی رو به صورت خودکار انجام بده. در واقع یه دستور به صورت

\mytable{97}{1}{1}{98}{1}{1}

می‌خوام که چیزی مثل خروجی زیر رو تولید کنه. چطور می‌تونم این کار رو انجام بدم؟ اگه این کار بدون استفاده از بسته خاصی انجام بشه، خیلی عالی می‌شه.

enter image description here

\documentclass{article}
\usepackage{multirow}
\usepackage{longtable}
\usepackage[]{xepersian}
\settextfont{Yas}

\newcounter{row}
\setcounter{row}{1}
\def\myrow{\arabic{row}\stepcounter{row}}     
\begin{document}
\begin{center}
برنامه زمان و ساعت آبیاری باغ 

\begin{longtable}{|c|c|r|}
\hline  &  تاریخ  & نام و ساعت  \\ \hline
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۰۱}
                   &                           وحید  - ۰۸:۰۰ \\
                   &                        & امید  - ۱۶:۰۰   \\
                   &                        & علی  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۰۵}
                   &                           علی  - ۰۸:۰۰ \\
                   &                        & وحید  - ۱۶:۰۰   \\
                   &                        & امید  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۰۹}
                   &                           امید  - ۰۸:۰۰ \\
                   &                        & علی  - ۱۶:۰۰   \\
                   &                        & وحید  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۱۳}
                   &                           وحید  - ۰۸:۰۰ \\
                   &                        & امید  - ۱۶:۰۰   \\
                   &                        & علی  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۱۷}
                   &                           علی  - ۰۸:۰۰ \\
                   &                        & وحید  - ۱۶:۰۰   \\
                   &                        & امید  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۲۱}
                   &                           امید  - ۰۸:۰۰ \\
                   &                        & علی  - ۱۶:۰۰   \\
                   &                        & وحید  - ۰۰:۰۰ 
\\ \hline 
\end{longtable}
\end{center}
\end{document}
سوال شده مهر 15, 1396 توسط وحید دامن‌افشان (6,487 امتیاز)

1 پاسخ

+1 رای
 
بهترین پاسخ

وحیدجان همانطوری که می‌دانید زی‌پرشین فقط و فقط یکبار \today را محاسبه نموده و بارها بکار می‌برد. برای حل مساله شما از بسته advdate استفاده کرده‌ام و برای اینکه تاریخ را بتوانم در هر روز محاسبه کنم مجبور شدم کد محاسبه امروز را از بسته xepersian-persiancal استخراج نموده و در کد قرار دهم.
تنها نکته‌ای که در راه حل ذیل وجود دارد این است که روز اول سال را خودتان باید به صورت دستی وارد نمایید آنهم به صورت میلادی. قطعا با ملاحظه کد نکات آن را در می‌یابید.

\documentclass{article}

\usepackage{multirow}
\usepackage{longtable}
\usepackage{forloop}
\usepackage{advdate}

\usepackage[]{xepersian}
\settextfont{Yas}


\newcounter{row}
\setcounter{row}{1}
\def\myrow{\arabic{row}\stepcounter{row}}     
\newcounter{ct} 

\newcount\nrow
\newcommand\getname[2]{\nrow=#1%
\loop\ifnum\nrow>3 \advance \nrow by -3\repeat
\ifcase\nrow%
\ifcase#2\or  علی  - ۰۸:۰۰\or وحید  -۱۶:۰۰\or امید  - ۰۰:۰۰\fi%1
\or\ifcase#2\or  امید  - ۰۸:۰۰\or علی  -۱۶:۰۰\or وحید  - ۰۰:۰۰\fi%2
\or\ifcase#2\or  وحید  - ۰۸:۰۰\or امید  -۱۶:۰۰\or علی  - ۰۰:۰۰\fi%0
\or\ifcase#2\or  علی  - ۰۸:۰۰\or وحید  -۱۶:۰۰\or امید  - ۰۰:۰۰\fi%1
\fi%
}

\makeatletter
\gdef\computedate{%
}
\makeatother


\def\advdate{\AdvanceDate[4]\computedate}
\newcount\days
\days=-4

\begin{document}
\getname{0}{1}
\getname{0}{2}
\getname{0}{3}

\ThisDay{21}
\ThisMonth{3}
\ThisYear{2017}

\begin{center}
برنامه زمان و ساعت آبیاری باغ 

\begin{longtable}{|c|c|r|}
\hline  &  تاریخ  & نام و ساعت  \\ \hline
\forloop{ct}{1}{\value{ct} < 92}{
\multirow{3}{*}{\myrow} & \multirow{3}{*}{\global\advance\days by 4\relax\AdvanceDate[\days]\computedate\today}
                   &                            \getname{\value{row}}{1} \\
                   &                        & \getname{\value{row}}{2}  \\
                   &                        & \getname{\value{row}}{3}
\\ \hline }
\multirow{3}{*}{\myrow} & \multirow{3}{*}{\global\advance\days by 4\relax\AdvanceDate[\days]\computedate\today}
                   &                            \getname{\value{row}}{1} \\
                   &                        & \getname{\value{row}}{2}  \\
                   &                        & \getname{\value{row}}{3}
\\ \hline
\end{longtable}
\end{center}
\end{document}

enter image description here

پی‌نوشت:
۱- از آنجایی که کد طولانی شد تعریف \computedate را از بسته تاریخ زی‌پرشین برگرفته شده است را در بخش نظرات قرار دادم.
۲- شخصا برای کاربردهای خودم یک بسته تاریخ نوشته‌ام که بتواند براحتی با تاریخ فارسی و تبدیلات بین آن کار کند ولی حیف که هنوز فرصت نوشتن راهنمای و منتشر کردن آن را نیافته‌ام.

پاسخ داده شده مهر 16, 1396 توسط سید جواد (4,412 امتیاز)
انتخاب شده مهر 30, 1396 توسط وحید دامن‌افشان
\makeatletter
    \gdef\computedate{%
    \XePersian@y=\year \XePersian@m=\month \XePersian@d=\day
    \XePersian@temp=\XePersian@y
    \divide\XePersian@temp by 100\relax
    \multiply\XePersian@temp by 100\relax
    \XePersian@yModHundred=\XePersian@y
    \advance\XePersian@yModHundred by -\XePersian@temp\relax
    \ifodd\XePersian@yModHundred
       \XePersian@leapfalse
    \else
       \XePersian@temp=\XePersian@yModHundred
       \divide\XePersian@temp by 2\relax
       \ifodd\XePersian@temp\XePersian@leapfalse
       \else
          \ifnum\XePersian@yModHundred=0%
             \XePersian@temp=\XePersian@y
             \divide\XePersian@temp by 400\relax
             \multiply\XePersian@temp by 400\relax
             \ifnum\XePersian@y=\XePersian@temp\XePersian@leaptrue\else\XePersian@leapfalse\fi
          \else\XePersian@leaptrue
          \fi
       \fi
    \fi
    \XePersian@latini=31\relax
    \ifXePersian@leap
      \XePersian@latinii = 29\relax
    \else
      \XePersian@latinii = 28\relax
    \fi
    \XePersian@latiniii = 31\relax
    \XePersian@latiniv  = 30\relax
    \XePersian@latinv = 31\relax
    \XePersian@latinvi = 30\relax
    \XePersian@latinvii = 31\relax
    \XePersian@latinviii = 31\relax
    \XePersian@latinix = 30\relax
    \XePersian@latinx = 31\relax
    \XePersian@latinxi = 30\relax
    \XePersian@latinxii = 31\relax
    \XePersian@thirtytwo=32\relax
    \XePersian@temp=\XePersian@y
    \advance\XePersian@temp by -17\relax
    \XePersian@temptwo=\XePersian@temp
    \divide\XePersian@temptwo by 33\relax
    \multiply\XePersian@temptwo by 33\relax
    \advance\XePersian@temp by -\XePersian@temptwo
    \ifnum\XePersian@temp=\XePersian@thirtytwo\XePersian@kabisehfalse
    \else
       \XePersian@temptwo=\XePersian@temp
       \divide\XePersian@temptwo by 4\relax
       \multiply\XePersian@temptwo by 4\relax
       \advance\XePersian@temp by -\XePersian@temptwo
       \ifnum\XePersian@temp=\z@\XePersian@kabisehtrue\else\XePersian@kabisehfalse\fi
    \fi
    \XePersian@tempthree=\XePersian@y                 % Number of Leap years
    \advance\XePersian@tempthree by -1
    \XePersian@temp=\XePersian@tempthree              % T := (MY-1) div 4
    \divide\XePersian@temp by 4\relax
    \XePersian@temptwo=\XePersian@tempthree           % T := T - ((MY-1) div 100)
    \divide\XePersian@temptwo by 100\relax
    \advance\XePersian@temp by -\XePersian@temptwo
    \XePersian@temptwo=\XePersian@tempthree           % T := T + ((MY-1) div 400)
    \divide\XePersian@temptwo by 400\relax
    \advance\XePersian@temp by \XePersian@temptwo
    \advance\XePersian@tempthree by -611       % Number of Kabise years
    \XePersian@temptwo=\XePersian@tempthree           % T := T - ((SY+10) div 33) * 8
    \divide\XePersian@temptwo by 33\relax
    \multiply\XePersian@temptwo by 8\relax
    \advance\XePersian@temp by -\XePersian@temptwo
    \XePersian@temptwo=\XePersian@tempthree           %
    \divide\XePersian@temptwo by 33\relax
    \multiply\XePersian@temptwo by 33\relax
    \advance\XePersian@tempthree by -\XePersian@temptwo
    \ifnum\XePersian@tempthree=32\advance\XePersian@temp by 1\fi % if (SY+10) mod 33=32 then Inc(T);
    \divide\XePersian@tempthree by 4\relax     % T := T - ((SY+10) mod 33) div 4
    \advance\XePersian@temp by -\XePersian@tempthree
    \advance\XePersian@temp by -137            % T := T - 137  Adjust the value
    \XePersian@persiani=31
    \advance\XePersian@persiani by -\XePersian@temp                 % now 31 - T is the persiani
    \XePersian@persianii = 30\relax
    \ifXePersian@kabiseh
      \XePersian@persianiii = 30\relax
    \else
      \XePersian@persianiii = 29\relax
    \fi
    \XePersian@persianiv  = 31\relax
    \XePersian@persianv   = 31\relax
    \XePersian@persianvi  = 31\relax
    \XePersian@persianvii = 31\relax
    \XePersian@persianviii= 31\relax
    \XePersian@persianix  = 31\relax
    \XePersian@persianx   = 30\relax
    \XePersian@persianxi  = 30\relax
    \XePersian@persianxii = 30\relax
    \XePersian@persianxiii= 30\relax
    \XePersian@dn= 0\relax
    \XePersian@sn= 0\relax
    \XePersian@mminusone=\XePersian@m
    \advance\XePersian@mminusone by -1\relax
    \XePersian@i=0\relax
    \ifnum\XePersian@i < \XePersian@mminusone
    \loop
    \advance \XePersian@i by 1\relax
    \advance\XePersian@dn by \csname XePersian@latin\romannumeral\the\XePersian@i\endcsname
    \ifnum\XePersian@i<\XePersian@mminusone \repeat
    \fi
    \advance \XePersian@dn by \XePersian@d
    \XePersian@i=1\relax
    \XePersian@sn = \XePersian@persiani
    \ifnum \XePersian@sn<\XePersian@dn
    \loop
    \advance \XePersian@i by 1\relax
    \advance\XePersian@sn by \csname XePersian@persian\romannumeral\the\XePersian@i\endcsname
    \ifnum \XePersian@sn<\XePersian@dn \repeat
    \fi
    \ifnum \XePersian@i < 4
       \XePersian@m = 9 \advance\XePersian@m by \XePersian@i
       \advance \XePersian@y by -622\relax
    \else
       \XePersian@m = \XePersian@i \advance \XePersian@m by -3\relax
       \advance \XePersian@y by -621\relax
    \fi
    \advance\XePersian@sn by -\csname XePersian@persian\romannumeral\the\XePersian@i%
    \endcsname
    \ifnum\XePersian@i = 1
      \XePersian@d = \XePersian@dn \advance \XePersian@d by 30 \advance\XePersian@d by -\XePersian@persiani
    \else
      \XePersian@d = \XePersian@dn \advance \XePersian@d by -\XePersian@sn
    \fi
    }
    \makeatother
ممنون بابت نوشتن پاسخ؛ اما فقط ساعت‌بندی تاریخ‌های ۱، ۵ و ۹ فروردین درسته. به عنوان مثال تاریخ‌های ۱۳، ۱۷ و ۲۱ فروردین رو در نظر بگیرین که توشون علی ۲ بار ساعت آبیاریش می‌افته ساعت ۰۸:۰۰. در صورتی که فقط یک بار باید ساعت ۰۸:۰۰ داشته باشه. برای وحید و امید هم همین‌طوره.
اصلاح گردید.
...