家庭菜園プランター自然農法

#!/usr/bin/env gosh
(use srfi-19)

(define (main args)
  (let* ((year  (x->number (cadr args)))
         (month (x->number (caddr args)))
         (day   (x->number (cadddr args)))
         (date1 (date->modified-julian-day
                 (make-date 0 0 0 0 day month year
                            (date-zone-offset (current-date)))))
         (date2 (date->modified-julian-day
                 (current-date)))
         (date3 (inexact->exact (ceiling (-. date1 date2))))
        )
    (print date3)))

//  Arduino-Scheme-Mini-Keyboard

#include "Keyboard.h"

#define   NUM_KEY     2   // 使用するキーの数

const uint8_t       PIN_KEY[NUM_KEY] = {2, 4};        // キーを接続したピン番号
const char          FUNC_KEY[NUM_KEY] = {'8', '9'};   // キーに割り当てる文字  Shiftキーを押せば、( )が入力できる

const unsigned int  INSENS = 5;                       // チャタリング対策の不感時間[ms]

void setup()
{
  for (uint8_t pos = 0; pos < NUM_KEY; pos++)
  {
    pinMode(PIN_KEY[pos], INPUT_PULLUP);
  }
  Keyboard.begin();
}

void loop()
{
  key_scan();
}

void key_scan()
{
  static boolean prev_key[NUM_KEY];
  static unsigned long prev_press_time[NUM_KEY];    // 前回キーを押した時間（チャタリング対策用）
  static unsigned long prev_release_time[NUM_KEY];  // 前回キーを離した時間（チャタリング対策用）

  /* キーの状態を順番にスキャン */
  for (uint8_t pos = 0; pos < NUM_KEY; pos++)
  {
    boolean key = digitalRead(PIN_KEY[pos]);
    unsigned long time = millis();

    /* キーを押したとき */
    if (prev_key[pos] == HIGH && key == LOW)
    {
      if (time - prev_press_time[pos] > INSENS && time - prev_release_time[pos] > INSENS)
      {
        Keyboard.press(KEY_LEFT_SHIFT);  // Shiftキーを押した状態
        Keyboard.press(FUNC_KEY[pos]);   // 8キー、又は、9キーを押した状態
        prev_press_time[pos] = time;
      }
    }

    /* キーを離したとき */
    if (prev_key[pos] == LOW && key == HIGH && time - prev_press_time[pos] >  INSENS)
    {
      Keyboard.release(KEY_LEFT_SHIFT);  // Shiftキーを離した状態
      Keyboard.release(FUNC_KEY[pos]);   // 8キー、又は、9キーを離した状態
    }

    prev_key[pos] = key;
  }
}