ホーム ≫ プログラミング ≫

実践・連作障害回避スケジューリングツールを作る④

2021-06-19 2024-08-24

GAS ツール プログラミング

B!

限られた農地を上手に活用する方法をプログラム側から考える。

ここまでの記事

実践・連作障害回避スケジューリングツールを作る①

ゲームプログラマーの農業日誌

実践・連作障害回避スケジューリングツールを作る②

ゲームプログラマーの農業日誌

実践・連作障害回避スケジューリングツールを作る③

ゲームプログラマーの農業日誌

プログラムの続きを書いてとりあえずの完成を目指します！
目次



今回のソースファイル全文

今回の追加分です。

それぞれ、前回作成したコードファイルに追加していきます。
「～以下に追加」となっていますが、基本どこでもOKです。

define.gsに追加 
  1. // -------------------------------------------------------------------------------------------------------
  2. // tmpシート.
  3. // -------------------------------------------------------------------------------------------------------
  4. var TmpDataStartX             = 3;        // 開始 X.
  5. var TmpDataStartY             = 3;        // 開始 Y.
  6. var TmpYearX                  = 2;        // 年度 X.
main.gsに追加 
  1. // -------------------------------------------------------------------------------------------------------
  2. // エントリーポイント以下に追加.
  3. // -------------------------------------------------------------------------------------------------------
  4. // -------------------------------------------------------------------------------------------------------
  5. // 「作物決定」ボタンを押した.
  6. // -------------------------------------------------------------------------------------------------------
  7. function PushEntry() {
  8.   
  9.   // シートの取得.
  10.   var mngSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameMng );
  11.   var dataSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameData );
  12.   var defineSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameDefine );
  13.   
  14.   if ( mngSheet === null ) { return; }
  15.   if ( dataSheet === null ) { return; }
  16.   if ( defineSheet === null ) { return; }
  17.   
  18.   // 作物名が存在するかどうかチェック.
  19.   var dataID = SearchDataSheet( dataSheet );
  20.   if ( dataID === -1 ) { return; }
  21.   
  22.   var dataIdx = GetLastRow( mngSheet, MngListIDX ) + 1;
  23.   var num, tmp;
  24.   
  25.   // ID.
  26.   mngSheet.getRange( dataIdx, MngListIDX ).setValue( dataID );
  27.   
  28.   // 作物名.
  29.   mngSheet.getRange( dataIdx, MngListNameX ).setValue(
  30.     dataSheet.getRange( dataID, DataNameX ).getValue() );
  31.   
  32.   // 科目.
  33.   mngSheet.getRange( dataIdx, MngListSubjectX ).setValue(
  34.     GetDataToSubject( dataSheet, defineSheet, dataID, DefineVarietySubjectX ) );
  35.  
  36.   // 作業開始.
  37.   num = dataSheet.getRange( dataID, DataSowingSeedStartX ).getValue();
  38.   tmp = dataSheet.getRange( dataID, DataSowingSeedResultX ).getValue();
  39.   if ( num === 0 ) {
  40.     // 種まき作業がないので定植で考える.
  41.     num = dataSheet.getRange( dataID, DataPlantingStartX ).getValue();
  42.     tmp = dataSheet.getRange( dataID, DataPlantingResultX ).getValue();   
  43.     mngSheet.getRange( dataIdx, MngListIsSowingSeedX ).setValue( false );
  44.   } else {
  45.     mngSheet.getRange( dataIdx, MngListIsSowingSeedX ).setValue( true );
  46.   }
  47.   mngSheet.getRange( dataIdx, MngListWorkStartX ).setValue( num + '月' );
  48.  
  49.   // 収穫.
  50.   mngSheet.getRange( dataIdx, MngListWorkEndX ).setValue(
  51.     dataSheet.getRange( dataID, DataHarvestStartX ).getValue() + '月' );
  52.  
  53.   // 作業終了週.
  54.   mngSheet.getRange( dataIdx, MngListWorkEndWeekX ).setValue(
  55.     dataSheet.getRange( dataID, DataCultivationPeriodEndX ).getValue()　);
  56.  
  57.   // 輪作年限BASE.
  58.   mngSheet.getRange( dataIdx, MngListCropRotX ).setValue(
  59.     GetDataToSubject( dataSheet, defineSheet, dataID, DefineCropRotResultX ) );
  60.   // 輪作年限残り.
  61.   mngSheet.getRange( dataIdx, MngListCropRotRestX ).setValue(
  62.     GetDataToSubject( dataSheet, defineSheet, dataID, DefineCropRotResultX ) );
  63.   
  64.   // カラ期間.
  65.   if ( dataIdx !== MngListStartY ) {
  66.     // 1個前の作業終了週をget.
  67.     num = mngSheet.getRange( (dataIdx - 1), MngListWorkEndWeekX ).getValue();
  68.     // 選択した作物の作業開始週と比較.
  69.     if ( num < tmp ) {
  70.       // カラ期間計算.
  71.       num = tmp - num;
  72.     } else {
  73.       num = OneYearToWeeks + (tmp - num);
  74.     }
  75.  
  76.     // カラ期間.
  77.     mngSheet.getRange( dataIdx, MngListIntervalX ).setValue( num );
  78.     
  79.     // 前の輪作年限を全部更新.
  80.     num = num + dataSheet.getRange( dataID, DataCultivationPeriodResultX ).getValue(); // カラ期間+栽培期間（ざっくり）.
  81.     for ( var y = MngListStartY; y < dataIdx; ++y ) {
  82.       tmp = mngSheet.getRange( y, MngListCropRotRestX ).getValue();
  83.       if ( tmp  === 0 ) { continue; }
  84.       tmp = tmp - num;
  85.       if ( tmp < 0 ) { tmp = 0; }
  86.       mngSheet.getRange( y, MngListCropRotRestX ).setValue( tmp );
  87.     }
  88.   }
  89.   
  90.   return;
  91. }
  92.  
  93. // -------------------------------------------------------------------------------------------------------
  94. // 「スケジュール作成」ボタンを押した.
  95. // -------------------------------------------------------------------------------------------------------
  96. function PushCreateSchedule() {
  97.   
  98.   // シートの取得.
  99.   var mngSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameMng );
  100.   var dataSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameData );
  101.   var defineSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameDefine );
  102.   
  103.   if ( mngSheet === null ) { return; }
  104.   if ( dataSheet === null ) { return; }
  105.   if ( defineSheet === null ) { return; }
  106.   
  107.   // 指定シート名が存在するか.
  108.   var newSheetName = mngSheet.getRange( MngConfigSheetName ).getValue();
  109.   var newSheet = GetSheet( newSheetName );
  110.   
  111.   if ( newSheet !== null ) {
  112.     // シートを削除する.
  113.     DeleteSheet( newSheet );
  114.   }
  115.   
  116.   // 新たに作成.
  117.   newSheet = CopySheet( SheetNameTmp, newSheetName );
  118.   
  119.   // 作物リストを頭から解釈してく.
  120.   var dataEnd = GetLastRow( mngSheet, MngListIDX ) + 1;
  121.   var year = 0, ID, isSeed, start, end, index = 1, col, name;
  122.   
  123.   // ～年目入力.
  124.   DrawYear( newSheet, (year + 1) );
  125.   
  126.   for ( var y = MngListStartY; y < dataEnd; ++y ) {
  127.     
  128.     // ID.
  129.     ID = mngSheet.getRange( y, MngListIDX ).getValue();
  130.     // 種まきか否か.
  131.     isSeed = mngSheet.getRange( y, MngListIsSowingSeedX ).getValue();  
  132.     // 作業終了週.
  133.     end = dataSheet.getRange( ID, DataCultivationPeriodEndX ).getValue(); 
  134.     // 色.
  135.     col = GetBGColorToSubject( defineSheet, mngSheet.getRange( y, MngListSubjectX ).getValue() );
  136.     // 名前.
  137.     name = mngSheet.getRange( y, MngListNameX ).getValue(); 
  138.     
  139.     if ( isSeed === true ) {
  140.       // 種まき開始週.
  141.       start = dataSheet.getRange( ID, DataSowingSeedResultX ).getValue();
  142.     } else {
  143.       // 定植開始週.
  144.       start = dataSheet.getRange( ID, DataPlantingResultX ).getValue();
  145.     }
  146.     
  147.     // 色塗り開始.
  148.     if ( y !== MngListStartY ) {
  149.       if ( index >= start ) {
  150.         // 1年ずらす.
  151.         ++year;
  152.         // ～年目入力.
  153.         DrawYear( newSheet, (year + 1) );
  154.       }
  155.     }
  156.  
  157.     index = start;
  158.  
  159.     // 名前入力.
  160.     newSheet.getRange( (TmpDataStartY + year), (index + TmpDataStartX - 1) ).setValue( name );
  161.     
  162.     while ( true ) {
  163.       
  164.       // 終了チェック.
  165.       if ( index === end ) { break; }
  166.       
  167.       // 色塗り.
  168.       newSheet.getRange( (TmpDataStartY + year), (index + TmpDataStartX - 1) ).setBackground( col );
  169.             
  170.       ++index;
  171.       if ( index > OneYearToWeeks ) {
  172.         // 年数を増やす.
  173.         ++year;
  174.         // ～年目入力.
  175.         DrawYear( newSheet, (year + 1) );
  176.         index = 1;
  177.       }
  178.     }
  179.   }
  180.   
  181.   return;
  182. }
  183.  
  184. // -------------------------------------------------------------------------------------------------------
  185. // 「１つ消す」ボタンを押した.
  186. // -------------------------------------------------------------------------------------------------------
  187. function PushOnePrev() {
  188.   
  189.   // シートの取得.
  190.   var mngSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameMng );
  191.   var dataSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameData );
  192.  
  193.   if ( mngSheet === null ) { return; }
  194.   if ( dataSheet === null ) { return; }
  195.   
  196.   var endY = GetLastRow( mngSheet, MngListIDX );
  197.   
  198.   if ( endY < MngListStartY ) { return; }
  199.   
  200.   // 消してしまうカラ期間 + 栽培期間.
  201.   var baseNum, tmp;
  202.   var num =
  203.       mngSheet.getRange( endY, MngListIntervalX ).getValue() +
  204.       dataSheet.getRange( mngSheet.getRange( endY, MngListIDX ).getValue(), DataCultivationPeriodResultX ).getValue();
  205.   
  206.   RangeClear( mngSheet, MngListIDX, endY, 10, 1 );
  207.   
  208.   // 輪作年限を再設定.
  209.   for ( var y = MngListStartY; y < endY; ++y ) {
  210.     baseNum = mngSheet.getRange( y, MngListCropRotX ).getValue();
  211.     
  212.     if ( baseNum === 0 ) { continue; }// 輪作年限がもともとない作物はスキップ.
  213.     
  214.     tmp = mngSheet.getRange( y, MngListCropRotRestX ).getValue();
  215.     tmp = tmp + num;
  216.     
  217.     // base以上にならないようにする.
  218.     if ( tmp > baseNum ) {
  219.       tmp = baseNum;
  220.     }
  221.     
  222.     mngSheet.getRange( y, MngListCropRotRestX ).setValue( tmp );
  223.   }
  224.   
  225.   return;
  226. }
  227.  
  228. // -------------------------------------------------------------------------------------------------------
  229. // 「全部消す」ボタンを押した.
  230. // -------------------------------------------------------------------------------------------------------
  231. function PushAllDelete() {
  232.   
  233.   // シートの取得.
  234.   var mngSheet = SpreadsheetApp.openById( SheetID ).getSheetByName( SheetNameMng );
  235.  
  236.   if ( mngSheet === null ) { return; }
  237.   
  238.   RangeClear( mngSheet, MngListIDX, MngListStartY, 10, 0 );
  239.   
  240.   return;
  241. }
  242.  
  243. // -------------------------------------------------------------------------------------------------------
  244. // private以下に追加.
  245. // -------------------------------------------------------------------------------------------------------
  246. // -------------------------------------------------------------------------------------------------------
  247. // 現在のスプレッドシートの中の指定の名前のシートを取得.
  248. // -------------------------------------------------------------------------------------------------------
  249. function GetSheet( sheetName ) {
  250.   return SpreadsheetApp.getActive().getSheetByName( sheetName );
  251. }
  252. // -------------------------------------------------------------------------------------------------------
  253. // スプレッドシートを削除.
  254. // -------------------------------------------------------------------------------------------------------
  255. function DeleteSheet( sheet ) {
  256.   SpreadsheetApp.getActive().deleteSheet( sheet );
  257.   return;
  258. }
  259. // -------------------------------------------------------------------------------------------------------
  260. // スプレッドシートをコピー作成＆リネーム.
  261. // -------------------------------------------------------------------------------------------------------
  262. function CopySheet( copySheetName, newSheetName ) {
  263.   var copy = GetSheet( copySheetName );
  264.   if ( copy === null ) { return null; }// 失敗.
  265.   
  266.   var newSheet = copy.copyTo( SpreadsheetApp.getActive() );
  267.   
  268.   if ( newSheet === null ) { return null; }//失敗.
  269.   
  270.   // リネーム.
  271.   newSheet.setName( newSheetName );
  272.   
  273.   return newSheet;
  274. }
  275. // -------------------------------------------------------------------------------------------------------
  276. // ～年目入力.
  277. // -------------------------------------------------------------------------------------------------------
  278. function DrawYear( tmpSheet, year ) {
  279.   tmpSheet.getRange( ((TmpDataStartY - 1) + year), TmpYearX ).setValue( year + '年目' );
  280.   return;
  281. }
  282. // -------------------------------------------------------------------------------------------------------
  283. // 科目名の背景カラーを取得.
  284. // -------------------------------------------------------------------------------------------------------
  285. function GetBGColorToSubject( defineSheet, subjectName ) {
  286.   
  287.   var endIdx = GetLastRow( defineSheet, DefineSubjectX ) + 1;
  288.  
  289.   var ranges = defineSheet.getRange( DefineDataStartY, DefineSubjectX, endIdx, 1 ).createTextFinder( subjectName ).findAll();
  290.  
  291.   if ( ranges.length === 0 ) { return '#ffffff'; }
  292.   
  293.   return ranges[0].getBackground();
  294. }

【解説】「作物決定」ボタンの処理実装

18～62行目

  1.   // 作物名が存在するかどうかチェック.
  2.   var dataID = SearchDataSheet( dataSheet );
  3.   if ( dataID === -1 ) { return; }
  4.   
  5.   var dataIdx = GetLastRow( mngSheet, MngListIDX ) + 1;
  6.   var num, tmp;
  7.   
  8.   // ID.
  9.   mngSheet.getRange( dataIdx, MngListIDX ).setValue( dataID );
  10.   
  11.   // 作物名.
  12.   mngSheet.getRange( dataIdx, MngListNameX ).setValue(
  13.     dataSheet.getRange( dataID, DataNameX ).getValue() );
  14.   
  15.   // 科目.
  16.   mngSheet.getRange( dataIdx, MngListSubjectX ).setValue(
  17.     GetDataToSubject( dataSheet, defineSheet, dataID, DefineVarietySubjectX ) );
  18.  
  19.   // 作業開始.
  20.   num = dataSheet.getRange( dataID, DataSowingSeedStartX ).getValue();
  21.   tmp = dataSheet.getRange( dataID, DataSowingSeedResultX ).getValue();
  22.   if ( num === 0 ) {
  23.     // 種まき作業がないので定植で考える.
  24.     num = dataSheet.getRange( dataID, DataPlantingStartX ).getValue();
  25.     tmp = dataSheet.getRange( dataID, DataPlantingResultX ).getValue();   
  26.     mngSheet.getRange( dataIdx, MngListIsSowingSeedX ).setValue( false );
  27.   } else {
  28.     mngSheet.getRange( dataIdx, MngListIsSowingSeedX ).setValue( true );
  29.   }
  30.   mngSheet.getRange( dataIdx, MngListWorkStartX ).setValue( num + '月' );
  31.  
  32.   // 収穫.
  33.   mngSheet.getRange( dataIdx, MngListWorkEndX ).setValue(
  34.     dataSheet.getRange( dataID, DataHarvestStartX ).getValue() + '月' );
  35.  
  36.   // 作業終了週.
  37.   mngSheet.getRange( dataIdx, MngListWorkEndWeekX ).setValue(
  38.     dataSheet.getRange( dataID, DataCultivationPeriodEndX ).getValue()　);
  39.  
  40.   // 輪作年限BASE.
  41.   mngSheet.getRange( dataIdx, MngListCropRotX ).setValue(
  42.     GetDataToSubject( dataSheet, defineSheet, dataID, DefineCropRotResultX ) );
  43.   // 輪作年限残り.
  44.   mngSheet.getRange( dataIdx, MngListCropRotRestX ).setValue(
  45.     GetDataToSubject( dataSheet, defineSheet, dataID, DefineCropRotResultX ) );
選択中のセルの作物名から「data」シートを検索し、縦列をIDとして利用しています。
（別途IDをつけたい場合はdataシートを改造）

その後IDを使用し必要なデータを取り出しています。

64～77行目

  1.   // カラ期間.
  2.   if ( dataIdx !== MngListStartY ) {
  3.     // 1個前の作業終了週をget.
  4.     num = mngSheet.getRange( (dataIdx - 1), MngListWorkEndWeekX ).getValue();
  5.     // 選択した作物の作業開始週と比較.
  6.     if ( num < tmp ) {
  7.       // カラ期間計算.
  8.       num = tmp - num;
  9.     } else {
  10.       num = OneYearToWeeks + (tmp - num);
  11.     }
  12.  
  13.     // カラ期間.
  14.     mngSheet.getRange( dataIdx, MngListIntervalX ).setValue( num );
このツールでは「カラ期間」を計算しています。

…勝手に命名してますので好きに呼んでやってください。

ここで言うカラ期間は選択した作物間の空きの期間（週数）です。
スケジュールの作成がしやすいように保持しています。

79～87行目

  1.     // 前の輪作年限を全部更新.
  2.     num = num + dataSheet.getRange( dataID, DataCultivationPeriodResultX ).getValue(); // カラ期間+栽培期間（ざっくり）.
  3.     for ( var y = MngListStartY; y < dataIdx; ++y ) {
  4.       tmp = mngSheet.getRange( y, MngListCropRotRestX ).getValue();
  5.       if ( tmp  === 0 ) { continue; }
  6.       tmp = tmp - num;
  7.       if ( tmp < 0 ) { tmp = 0; }
  8.       mngSheet.getRange( y, MngListCropRotRestX ).setValue( tmp );
  9.     }
  10.  
カラ期間の計算ののち、現在選択中の作物の輪作年限数の消化をしています。
コメントにも書かれていますが、（ざっくり）してます。

【解説】「スケジュール作成」ボタンの処理実装

126～179行目

  1.   for ( var y = MngListStartY; y < dataEnd; ++y ) {
  2.     
  3.     // ID.
  4.     ID = mngSheet.getRange( y, MngListIDX ).getValue();
  5.     // 種まきか否か.
  6.     isSeed = mngSheet.getRange( y, MngListIsSowingSeedX ).getValue();  
  7.     // 作業終了週.
  8.     end = dataSheet.getRange( ID, DataCultivationPeriodEndX ).getValue(); 
  9.     // 色.
  10.     col = GetBGColorToSubject( defineSheet, mngSheet.getRange( y, MngListSubjectX ).getValue() );
  11.     // 名前.
  12.     name = mngSheet.getRange( y, MngListNameX ).getValue(); 
  13.     
  14.     if ( isSeed === true ) {
  15.       // 種まき開始週.
  16.       start = dataSheet.getRange( ID, DataSowingSeedResultX ).getValue();
  17.     } else {
  18.       // 定植開始週.
  19.       start = dataSheet.getRange( ID, DataPlantingResultX ).getValue();
  20.     }
  21.     
  22.     // 色塗り開始.
  23.     if ( y !== MngListStartY ) {
  24.       if ( index >= start ) {
  25.         // 1年ずらす.
  26.         ++year;
  27.         // ～年目入力.
  28.         DrawYear( newSheet, (year + 1) );
  29.       }
  30.     }
  31.  
  32.     index = start;
  33.  
  34.     // 名前入力.
  35.     newSheet.getRange( (TmpDataStartY + year), (index + TmpDataStartX - 1) ).setValue( name );
  36.     
  37.     while ( true ) {
  38.       
  39.       // 終了チェック.
  40.       if ( index === end ) { break; }
  41.       
  42.       // 色塗り.
  43.       newSheet.getRange( (TmpDataStartY + year), (index + TmpDataStartX - 1) ).setBackground( col );
  44.             
  45.       ++index;
  46.       if ( index > OneYearToWeeks ) {
  47.         // 年数を増やす.
  48.         ++year;
  49.         // ～年目入力.
  50.         DrawYear( newSheet, (year + 1) );
  51.         index = 1;
  52.       }
  53.     }
  54.   }
このツールのキモと言っても過言ではない部分です。

作業期間部分のみを色塗りしていきます。色は「define」シートのセルの背景色から取得しています。

【解説】「１つ消す」「全部消す」ボタンの処理実装

200～223行目

  1.   // 消してしまうカラ期間 + 栽培期間.
  2.   var baseNum, tmp;
  3.   var num =
  4.       mngSheet.getRange( endY, MngListIntervalX ).getValue() +
  5.       dataSheet.getRange( mngSheet.getRange( endY, MngListIDX ).getValue(), DataCultivationPeriodResultX ).getValue();
  6.   
  7.   RangeClear( mngSheet, MngListIDX, endY, 10, 1 );
  8.   
  9.   // 輪作年限を再設定.
  10.   for ( var y = MngListStartY; y < endY; ++y ) {
  11.     baseNum = mngSheet.getRange( y, MngListCropRotX ).getValue();
  12.     
  13.     if ( baseNum === 0 ) { continue; }// 輪作年限がもともとない作物はスキップ.
  14.     
  15.     tmp = mngSheet.getRange( y, MngListCropRotRestX ).getValue();
  16.     tmp = tmp + num;
  17.     
  18.     // base以上にならないようにする.
  19.     if ( tmp > baseNum ) {
  20.       tmp = baseNum;
  21.     }
  22.     
  23.     mngSheet.getRange( y, MngListCropRotRestX ).setValue( tmp );
  24.   }
作物リストから１つ消す場合は残り輪作年限をもとに戻さないといけません。

改善点など

ソースを見直して、軽くできそうな箇所は軽くしたいですね(;'∀')

ざっくりスケジュールなので、リアルベースでツールを考えてみる？

スケジュールを作成する時の文字色も「define」シートから引っ張っても良いと思います。

…などなど、色々手を加えられそうな部分は山ほどありそうです。

これで一旦完成という事になります！長丁場お疲れ様です。
こんな感じでプログラムと農業、色々とできそうな気がして、考えるだけでワクワクしませんか？(｀･ω･´)ﾉ
私だけか…？


ブログランキング・にほんブログ村へ

Translate

魔王と愉快な仲間

このブログを検索

ラベル

Blogger (7) FX (1) GAS (11) Utility (1) ゲーム (1) ツール (7) プログラミング (17) レポート (2) 移住 (3) 金策 (9) 土壌 (2) 独り言 (5) 読み物 (21) 農業 (3)

ブログ アーカイブ

メッセージ

名前

メール *

メッセージ *

Powered by Blogger.

フリー写真素材ぱくたそ

QooQ