Myu: 2月 2024

2024年2月24日土曜日

アレルギー症状を起こす小麦粉

小麦粉（グルテン）（パン、麺類、お菓子など）を食べる量を減らすと、アレルギーは減るらしい。確かに、昔の日本人はほとんど小麦粉は食べず、米、大麦、芋などをたべていたようだから。。油、砂糖などもほどほどがいいようだ。グルテン不耐性の人は、日本人では８割程度とか。。最近、鼻炎（後鼻漏など）がひどくなりつつあるから、パンや菓子は、まったく食べないほうがいいようだ。３か月ぐらいで効果が出るとか。グルテンは中毒性が高いらしいので、、

　米を食べなくなって、減反までして、アレルギーが増えてしまったということか。。

2024年2月23日金曜日

esp32でステッピングモータ操作　改良版

操作のたびに、画面がちらつかないように、こちらを参考にさせていただき、非同期に書き換えてみた。ステッピングモーターの回転量は、スライドバーで変更できるようにしてみた。また、もうひとつカメラ専用のEsp32も用意して、iframeでバリコンやMLA周辺の状況を映して確認できるようにしてみた。（<iframe title="camera" width="700" height="600" src="http://192.168.1.56">の部分）

　あとは、実際にアンテナに組み込んで試してみる予定。

#include <Stepper.h>
#include <Stepper.h>
#include <Arduino.h>
#include <WiFi.h>
#include <ESPAsyncWebServer.h>
#include "SPIFFS.h"

#define PIN_STP_IN1 19
#define PIN_STP_IN2 18
#define PIN_STP_IN3 5
#define PIN_STP_IN4 17

const int stepsPerRevolution = 2048; //1回転のステップ数

const IPAddress ip(192,168,1,53); //IPアドレス
const IPAddress subnet(255,255,255,0); //サブネットマスク
const IPAddress gateway(192, 168, 1, 1);

Stepper myStepper(stepsPerRevolution, PIN_STP_IN1, PIN_STP_IN3, PIN_STP_IN2, PIN_STP_IN4);

/* Function Prototype */
void doInitialize();
void connectToWifi();
String editPlaceHolder(const String&);
String getMessage();

// ルーター接続情報
#define WIFI_SSID "********"
#define WIFI_PASSWORD "********"

/* 基本属性定義  */
#define SPI_SPEED   115200

// Webサーバーオブジェクト
#define HTTP_PORT 80
AsyncWebServer server(HTTP_PORT);

/* HTMLページ */
const char* strHtml = R"rawliteral(
<!DOCTYPE HTML>
<html>
  <head>
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <style>
      html { font-family: Helvetica; display: inline-block; margin: 0px auto;text-align: center;} 
      h1 {font-size:28px;}
      body {text-align: center;} 
      table { border-collapse: collapse; margin-left:auto; margin-right:auto;}
      th { padding: 12px; background-color: #0000cd; color: white; border: solid 2px #c0c0c0;}
      tr { border: solid 2px #c0c0c0; padding: 12px;}
      td { border: solid 2px #c0c0c0; padding: 12px;}
      .value { color:blue; font-weight: bold; padding: 1px;}
      .btn_on {width:100px; height:43px; padding:1px 1px; vertical-align: middle; text-decoration:none; font-size:16px; background-color:
        #668ad8; color: #FFF; border-bottom: solid 4px #627295; border-radius: 4px;}
      .btn_on:active { -webkit-transform: translateY(0px); transform: translateY(0px);
        border-bottom: none;}
    </style>
  </head>
  <body>
    <h1>Asynchronous Server</h1>
    <p><table>
    <tr>
     <td>         
      status:<span id="message" class="value">%MESSAGE%</span>　　currentValue:<span id="currentValue"></span>
	    <br>
      <input id="slider" type="range" min="0" max="100" value="50" step="5"><span id="sliderValue"></span>
      <br>
      <button class='btn_on' onclick='btnClicked(this)' id='btnf'>CHANGE_F</button>
      <button class='btn_on' onclick='btnClicked(this)' id='btnr'>CHANGE_R</button>
    </td>
    <td>
     <iframe title="camera" width="700" height="600" src="http://192.168.1.56"></iframe>
    </td> 
   </tr>
   </table></p>
  </body>
  <script>

let slider = null;
let sliderValue = null;
let currentValue = null;

// スライダー値を取得して表示
const setValue = ()=> {
  const value = slider.value;
  sliderValue.textContent = value;
  
}

// 起動時の処理
window.addEventListener("load", ()=>{
  // スライダー、スライダー値DOM
  slider = document.getElementById("slider");
  sliderValue = document.getElementById("sliderValue");
  currentValue= document.getElementById("currentValue");

// スライドさせたときの処理
  slider.addEventListener("input", setValue);

// スライダー初期値を表示
  setValue();
});

/*****************************************************************************
 *                          Predetermined Sequence                           *
 *****************************************************************************/
void setup(){
    doInitialize();             // 初期化処理をして
    connectToWifi();            // Wi-Fiルーターに接続する

// GETリクエストに対するハンドラーを登録して
    server.on("/", HTTP_GET, [](AsyncWebServerRequest *request){
       Serial.print("root");
        request->send_P(200, "text/html", strHtml, editPlaceHolder);
    });

server.on("/message", HTTP_GET, [](AsyncWebServerRequest *request){
       Serial.print("massage");
       
        request->send_P(200, "text/plain", getMessage().c_str());
    });
    
    server.on("/updatef", HTTP_GET, [](AsyncWebServerRequest *request){
        //サーボモーターを回転  
         String val = request->getParam("rotation_value")->value();
         myStepper.step(val.toInt());  
       // request->send_P(200, "text/plain", "fwd");
    });
    
    server.on("/updater", HTTP_GET, [](AsyncWebServerRequest *request){   
       String val = request->getParam("rotation_value")->value();     
         myStepper.step(-1*val.toInt());           
       // request->send_P(200, "text/plain", "rev");
    });

// サーバーを開始する
    server.begin();
}
 
void loop(){
}

/*****************************************************************************
 *                          'GET' Request Handlers                           *
 *****************************************************************************/
/* プレースホルダー処理 */
String editPlaceHolder(const String& var) {
    if (var == "MESSAGE") {
        return getMessage();
    }
   
}

/* LEDの状態を通知する */
String getMessage() {
   // return ledState;
   return "start";
}

/*****************************< Other functions >*****************************/
/* 初期化処理 */
void doInitialize() {

myStepper.setSpeed(15); //速度の指定
  
    Serial.begin(SPI_SPEED);

}

/****************************< Connect functions >****************************/
/* Wi-Fiルーターに接続する */
void connectToWifi() {
    Serial.print("Connecting to Wi-Fi ");
       if (!WiFi.config(ip,gateway,subnet)){
      Serial.println("Failed to configure!");
  }
    WiFi.begin(WIFI_SSID, WIFI_PASSWORD);
    while (WiFi.status() != WL_CONNECTED) {
        delay(500);
        Serial.print(".");
    }
    Serial.println("");
    // モニターにローカル IPアドレスを表示する
    Serial.println("WiFi connected.");
    Serial.print("  *IP address: ");
    Serial.println(WiFi.localIP());
    server.begin();
}

2024年2月21日水曜日

ひらがな音声ワープロをELMで

久しぶり、ELMで、子ども向けに簡易的なひらがな音声ワープロを作ってみた。elmコードは、jsファイルにコンパイルして、htmlから呼び出して使います。似たようなアプリはいろいろありますが、コードがあれば、カスタマイズ可能かと思い作ってみました。

html:
  
  <!DOCTYPE html>
<html lang="ja">

app.ports.speak.subscribe(function(data){
              const uttr = new SpeechSynthesisUtterance(data)
              uttr.rate = 0.6
              speechSynthesis.speak(uttr)
            });

}, false)
    </script>
    <title></title>
</head>

</body>

elm:
 port module Gojuon exposing (main)

import Browser
import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)

import Html.Attributes exposing (style)

-- ひらがなリスト
hiraganaListo : List (List String)
hiraganaListo = [
    [ "あ", "い", "う", "え", "お","　", "か",  "き", "く",  "け",  "こ"]
    , ["さ", "し",  "す", "せ", "そ","　", "た",  "ち",  "つ", "て",  "と"]
    ,[ "な", "に", "ぬ", "ね", "の","　","は", "ひ",  "ふ", "へ", "ほ"]
    , ["ま", "み", "む", "め", "も","　","や", "ゆ", "よ"]
    , ["ら", "り", "る", "れ", "ろ","　", "わ", "を", "ん"]
    ]

hiraganaListd = [
    [ "が",  "ぎ", "ぐ",  "げ",  "ご","　","ざ", "じ",  "ず", "ぜ", "ぞ"]
    , ["だ",  "ぢ",  "づ", "で",  "ど" ,"ば", "び",  "ぶ", "べ", "ぼ","　" ]
    ]

hiraganaListh = [
    ["ぱ", "ぴ", "ぷ","ぺ","ぽ","　"] ]

hiraganaListy =[
    [   "っ","　"  ] 
    ,[ "ゃ", "ゅ", "ょ","　" ] 
    ]

main : Program () Model Msg
main =
    Browser.element
        { init = init
        , view = view
        , update = update
        , subscriptions = \_ -> Sub.none  
        }

-- モデル
type alias Model =
    { output : String
     ,hiraganaList: List (List String)
    }

init : () -> ( Model, Cmd Msg )
init _ = (   { output = "" ,hiraganaList=hiraganaListo} ,Cmd.none   )

port speak: String -> Cmd msg

-- ボタンを作成する
buttonForHiragana : String -> Html Msg
buttonForHiragana hiragana =
    button [ onClick (ClickHiragana hiragana) ] [ text hiragana ]

-- メッセージハンドラ
update : Msg -> Model -> (Model,Cmd Msg)
update msg mdl =
    case msg of
        ClickHiragana h ->
           ( { mdl | output = mdl.output ++ h ,hiraganaList = hiraganaListo}, if h/="　" then speak(h) else Cmd.none)
        Allplay ->
           ( mdl,  speak(mdl.output))
        Allclear ->
            ( { mdl | output = "" }, Cmd.none)
        Backspace ->
           let
             removeLastCharacter str =
                      if String.length str > 0 then
                          String.left (String.length str - 1) str
                      else
                           str          
           in
            ( {mdl | output = removeLastCharacter mdl.output } ,Cmd.none)

Dakuten ->
           ( {mdl | hiraganaList = hiraganaListd } ,Cmd.none)
        Handakuten ->
            ( {mdl |  hiraganaList = hiraganaListh } ,Cmd.none)
        Yoon ->
             ( {mdl |  hiraganaList = hiraganaListy  } ,Cmd.none)

-- ビュー
view : Model -> Html Msg
view model =
    let
     customStyle =
            [ style "font-size" "50px"
            , style "background-color" "#e6e6fa"
            ]

customStyle2 =
            [ style "font-size" "50px"
            , style "background-color" "#00ff00"
            ]
    
     buttonForHiraganaWithStyle customStylex hiragana =
      button (customStylex ++ [ onClick (ClickHiragana hiragana) ]) [ text hiragana ]

buttonCreate msg caption color = button [style "font-size" "60px", style "background-color" color,onClick msg ] [text caption]
    
     listCreate list= div [] (List.map (buttonForHiraganaWithStyle customStyle) list )

in
    div []
        [   div customStyle2 [ text model.output ] , buttonCreate Allplay "はなす" "#ff0000"
        ,buttonCreate Dakuten "\"" "#009900",buttonCreate Handakuten "。" "#009900",buttonCreate Yoon "っゃゅょ" "#009900"
       -- ,div [] (List.map (buttonForHiraganaWithStyle customStyle) model.hiraganaList)
        ,div [] (List.map listCreate model.hiraganaList)
        ,buttonCreate Allclear "クリア" "#0000ff",buttonCreate Backspace "けす" "#0000ff"
           
        ]

2024年2月18日日曜日

esp32を使いルーター経由でステッピングピングモーター操作

ChatGptの助けも借りながら、ようやく、コードが動いた。Soft-APモードはけっこうサイトにあったが、ルーター経由の例は少なく、ちょっと苦労した感じ。(Esp32ボードのアースとステッピングモータドライバのアースをつなぎ忘れるという初歩的ミスでだいぶ時間ロスあり）まだ、IOTには慣れていない。あとは、IFRAMEでカメラのesp32のほうも表示すれば、MLAのバリコンの様子を監視（高圧がかかるので、誰かが触らないようにチェックという意味もあり(^^);）しながら、調整できそうだ。

#include <Stepper.h>
#include <WiFi.h>
 
// 使用するWi-Firooterのssidとそのパスワードに書き換えてください
const char* ssid     = "*****";
const char* password = "********";
 
// ポート80番を使用
WiFiServer server(80);
 // HTTPリクエストを格納する変数
String header;
String valueString = String(5);
String delay_valueString = String(500);
int pos1 = 0;
int pos2 = 0;

#define PIN_STP_IN1 19
#define PIN_STP_IN2 18
#define PIN_STP_IN3 5
#define PIN_STP_IN4 17
#define PIN_DI 0
#define TIME_OFF -1 //タイマーを使用しない場合
#define TIME_UP 0 //タイムアップ
#define BASE_CNT 10 //ベースタイマカウント値
#define LED_OFF 100

const int stepsPerRevolution = 2048; //1回転のステップ数

const IPAddress ip(192,168,1,53); //IPアドレス
const IPAddress subnet(255,255,255,0); //サブネットマスク
const IPAddress gateway(192, 168, 1, 1);

String speed;
String deg;
String btn;
int16_t deg_v;
uint32_t beforetimCnt = millis();
int16_t timstepoff = TIME_OFF;
bool mstart;

Stepper myStepper(stepsPerRevolution, PIN_STP_IN1, PIN_STP_IN3, PIN_STP_IN2, PIN_STP_IN4);

void setup() {
  pinMode(4, OUTPUT);
    myStepper.setSpeed(15); //速度の指定
  //ledc setting
 // ledcSetup(0, 50, 10);  // 0ch 50 Hz 10bit resolution
 // ledcAttachPin(servo_pin, 0); // 15pin, 0ch
 
  //シリアル通信開始
  Serial.begin(115200);
 
  //起動時にフラッシュライトを点滅させる
  for(int i=0; i<5; i=i+1) {
    digitalWrite(4, HIGH);
    delay(50);
    digitalWrite(4, LOW);
    delay(50);
  }
  
  // Wi-Fiに接続
  Serial.print("Connecting to ");
  Serial.println(ssid);
   if (!WiFi.config(ip,gateway,subnet)){
      Serial.println("Failed to configure!");
  }
  WiFi.begin(ssid, password);
  while (WiFi.status() != WL_CONNECTED) {
    delay(500);
    Serial.print(".");
  }
  // ローカルIPを表示（このIPにスマホなどからアクセスします）
  Serial.println("");
  Serial.println("WiFi connected.");
  Serial.println("IP address: ");
  Serial.println(WiFi.localIP());
  server.begin();
}
 
void loop(){
  WiFiClient client = server.available();   // Listen for incoming clients
 
  if (client) {                             // If a new client connects,
    Serial.println("New Client.");          // print a message out in the serial port
    String currentLine = "";                // make a String to hold incoming data from the client
    while (client.connected()) {            // loop while the client's connected
      if (client.available()) {             // if there's bytes to read from the client,
        char c = client.read();             // read a byte, then
        Serial.write(c);                    // print it out the serial monitor
        header += c;
        if (c == '\n') {                    // if the byte is a newline character
          // if the current line is blank, you got two newline characters in a row.
          // that's the end of the client HTTP request, so send a response:
          if (currentLine.length() == 0) {
            // HTTP headers always start with a response code (e.g. HTTP/1.1 200 OK)
            // and a content-type so the client knows what's coming, then a blank line:
            client.println("HTTP/1.1 200 OK");
            client.println("Content-type:text/html");
            client.println("Connection: close");
            client.println();
        
           String str = "";
  str += "<!DOCTYPE html>";
  str += "<html lang = 'ja'>";
  str += "<head>";
  str += "<meta charset = 'UTF-8'>";
  str += "<title>ステッピングモーターの動作確認</title>";
  str += "</head>";
  str += "<body>";
  str += "<h1>ステッピングモーターの動作確認</h1>";
  str += "<form method='post'>";
  str += "<table border ='1pt' style='background:lightyellow'>";
  str += "<tr><th>回転方向</th></tr>";
    str +="<td>";
  str +="<br>";
  str += "<a href=\"http://192.168.1.53/&hoko=forward\">forward</a>";
  str += "<br><br>";
  str +="</td>";
  str +="<tr>";
  str +="<td>";
  str +="<br>";
  str +="<a href=\"http://192.168.1.53/&hoko=reverse\">reverse</a>"; 
  str +="</td>";
  str +="</tr>";
  str +="</table>";
  str +="</form>";
  str +="</body>";
  str +="</html>";

client.println(str);

//HTTPリクエストの処理部分
            delay_valueString = "500";
         
            if(pos1!=-1 && pos2!=-1) {
             
 
            } else {
       
            }
    
  
            Serial.print("URLパラメーター:");
            
             String substring1 = "forward";
             String substring2 = "reverse";
             bool resultF = containsSubstring(header, substring1);
              bool resultR = containsSubstring(header, substring2);

if(resultF){
                              Serial.println("Forward"); 
                        }
                        
                        if(resultR){
                              Serial.println("Reverse"); 
                        }
 
            if(resultF) {
             
              //モーターを回転
              digitalWrite(4, HIGH);
              delay(50);
              digitalWrite(4, LOW);
  myStepper.step(10);              
             
              digitalWrite(4, HIGH);
              delay(50);
              digitalWrite(4, LOW);
             
              
            }else if(resultR){
                 //モーターを回転
              digitalWrite(4, HIGH);
              delay(50);
              digitalWrite(4, LOW);
  myStepper.step(-10);              
             
              digitalWrite(4, HIGH);
              delay(50);
              digitalWrite(4, LOW);
             
            }
            else {
              Serial.println("URLパラメーター　エラー！");
            }
            
 
            // HTTPレスポンスの終了
            client.println();
            // Break out of the while loop
            break;
          } else {
            currentLine = "";
          }
        } else if (c != '\r') {
          currentLine += c;
        }
      }
    }
    // Clear the header variable
    header = "";
    // 接続を切断
    client.stop();
    Serial.println("Client disconnected.");
    Serial.println("");
  }
}

bool containsSubstring(const String &mainString, const String &substring) {
    return mainString.indexOf(substring) != -1;
}

久しぶりの移動運用

今日は、風もなく気温も日中１８°C近くまであがったので、河川公園で久しぶりの移動運用。ようやく、釣り竿アンテナでも少し安定した運用ができるようになってきた。ポイントは、やはりアンテナの整合とアース。釣り竿アンテナをつけたベースを、車のタイヤでおさえる方式だと、車へのマグネットアースはいまいちだった。地面にアルミ箔を数ｍしいて、風で飛ばないように、スコップやらタイヤ交換用十字レンチなど置いたら、けっこうＳＷＲが下がる。地面はあえて少し濡れたところを選んでみた。５０Ｗ　７ＭＨｚで交信もなんとか、成功。

登録: 投稿 (Atom)