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

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

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

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

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

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

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

\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,472 امتیاز)

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,345 امتیاز)
انتخاب شده مهر 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
ممنون بابت نوشتن پاسخ؛ اما فقط ساعت‌بندی تاریخ‌های ۱، ۵ و ۹ فروردین درسته. به عنوان مثال تاریخ‌های ۱۳، ۱۷ و ۲۱ فروردین رو در نظر بگیرین که توشون علی ۲ بار ساعت آبیاریش می‌افته ساعت ۰۸:۰۰. در صورتی که فقط یک بار باید ساعت ۰۸:۰۰ داشته باشه. برای وحید و امید هم همین‌طوره.
اصلاح گردید.
...