2026年6月3日水曜日

mmbasic on raspberry pi pico/w(ドラフト)

 https://qiita.com/ksakabe/items/f14c89bdbeeadb3848ea にあるファームウエア群は

https://geoffg.net/picomite.html にある 

https://qiita.com/ksakabe/items/f14c89bdbeeadb3848eaで各々の比較がある

とりあへずPicoMiteRP2040をいれてみた

teratermは115200baudにして、受信をauto、送信をcr+lfにした

フルスクリーンエディタの起動と操作手順
  1. エディタの起動
    コマンドプロンプト(>)の状態で、以下のいずれかを入力・実行します。
    • EDIT と入力して Enter キーを押す
    • または、キーボードの F4 キー を押す
  2. プログラムの入力
    画面全体がエディタに切り替わります。キーボードで自由にBASICのコードを入力・編集してください。
  3. 保存してエディタを閉じる
    入力が終わったら、キーボードの F2 キー を押すと、プログラムを保存して元のコマンドプロンプト画面に戻ります。
  4. プログラムの実行
    プロンプトに戻ったら RUN と入力して Enter キーを押すことで、作成したプログラムを実行できます。
    [1, 2]

エディタ内の便利な機能(ショートカットキー)
エディタ起動中、画面の一番下の行にファンクションキーの機能が表示されます。主なショートカットキーは以下の通りです: [1]

  • F2 キー:プログラムを保存してエディタを終了する
  • F4 キー:変更を破棄して(保存せずに)エディタを終了する
  • F7 キー:行のコピー
  • F8 キー:行の切り取り(カット)
  • F9 キー:行の貼り付け(ペースト)
  • F10 キー:検索と置換 [1]
ーーーーーーーーーーーーーーーーーーーーーーー
Dim Float t, h 
Dim Integer pin = 22 ' 使用するピン番号 
 Print "DHT温湿度センサーの測定を開始します..." 
 Pause 1000 ' センサーの起動待ち
Do ' DHTタイプの指定 (DHT11またはDHT22をコメントアウトで切り替え) 
 DHT pin, DHT22, t, h 
' DHT pin, DHT11, t, h 
' エラーチェック 
 If t = -999.0 Then Print "センサーの読み取りに失敗しました" 
 Else Print "温度: "; Str$(t, 3, 1); " °C" Print "湿度: "; Str$(h, 3, 1); " %" 
 EndIf ' 2秒間隔で測定 (DHTの仕様上、最低でも2秒の間隔をあけてください) 
 Pause 2000 
Loop

そのほかhttp://blog.livedoor.jp/yokoshima_m/tag/MMBASICも参考になりそう。。。

0 件のコメント:

コメントを投稿