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

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

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

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

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

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

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

\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 توسط وحید دامن‌افشان (5,728 امتیاز)

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