https://qiita.com/ksakabe/items/f14c89bdbeeadb3848ea にあるファームウエア群は
https://geoffg.net/picomite.html にある
https://qiita.com/ksakabe/items/f14c89bdbeeadb3848eaで各々の比較がある
とりあへずPicoMiteRP2040をいれてみた
teratermは115200baudにして、受信をauto、送信をcr+lfにした
フルスクリーンエディタの起動と操作手順
エディタ内の便利な機能(ショートカットキー)
エディタ起動中、画面の一番下の行にファンクションキーの機能が表示されます。主なショートカットキーは以下の通りです: [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 件のコメント:
コメントを投稿