忍者ブログ



JO3GBD

JO3GBDアマチュア無線局長のブログ。無線、UD、IT、家電、電子工作、IchigoJam、IchigoHAM、その他もろもろ。

カレンダー

02 2024/03 04
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

ブログ&サイト内検索

最近の記事

最近の動画

リンク

hamlife.jp

にほんブログ村

にほんブログ村 その他趣味ブログ アマチュア無線へ
にほんブログ村

人気ブログランキング


楽天で探す
楽天市場

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

    


先週、カセットテープ風のオリジナルユニバーサル基板を使って「光るカセットケース x IchigoJam」を作りましたが、それに傾斜スイッチを追加してみました。

傾きを検知して光の動きを変えられます。動画をご覧ください。


回路実装はこんな感じです。



BASICのプログラム。なお、別途、マシン語部分のコードはこちらの福野さんのブログより使わせていただきました。


30 CLV:V=100:A=#700:U=USR(A,0):

50 S=IN(4)-IN(1)
60 IF S=0 GOSUB 100
70 IF S>0 GOSUB 200
80 IF S<0 GOSUB 300
90 GOTO 50

100 FOR I=0 TO 35:[I]=RND(V):NEXT
110 U=USR(A,0):WAIT10
120 RETURN

200 LET[33],RND(V),RND(V),RND(V):LET[15],0,0,0:U=USR(A,0):WAIT10
220 LET[30],RND(V),RND(V),RND(V),0,0,0:LET[0],RND(V),RND(V),RND(V):U=USR(A,0):WAIT10
230 FOR I=0 TO 12 STEP3:LET[I],0,0,0,RND(V),RND(V),RND(V):LET[27-I],RND(V),RND(V),RND(V),0,0,0:U=USR(A,0):WAIT10:NEXT
240 RETURN

300 LET[15],RND(V),RND(V),RND(V):LET[33],0,0,0:U=USR(A,0):WAIT10
320 FOR I=15 TO 27 STEP3:LET[I],0,0,0,RND(V),RND(V),RND(V):LET[27-I],RND(V),RND(V),RND(V),0,0,0:U=USR(A,0):WAIT10:NEXT
330 LET[30],0,0,0,RND(V),RND(V),RND(V):LET[0],0,0,0:U=USR(A,0):WAIT10
340 RETURN

注:10行、20行に、別途、WS2812B(フルカラーLED+コントローラー)制御のマシン語部分のコードが必要です。(こちらの福野さんの記事をご参照ください。)


ケース内には、まだまだスペースがあるので、センサーを追加したりして、いろいろ試してみようと思います。

なお、後日になりますが、この基板の回路図を描いてアップしようと思っています。

#自作室 #IchigoJam
PR
    



コメント

コメントのタイトル
お名前/コールサイン
メールアドレス
URL
文字色
コメント
パスワード Vodafone絵文字 i-mode絵文字 Ezweb絵文字
コメントは承認制にさせて頂いております。
投稿頂いてから公開までお時間を頂きますのでご了承をお願いします。


にほんブログ村
にほんブログ村 その他趣味ブログ アマチュア無線へ
にほんブログ村 アマチュア無線へ

このブログのTopへ


------こちらもよろしく!------

ハム川柳.詠み人知らず.com
ハム川柳.
詠み人知らず.com

カムバック・ハム・
ハンドブック

JO3GBD
ホームページ


最近の記事


  • 本ページに掲載されている全てのコンテンツの無断転載を禁止します。
  • 本ページの内容を予告なく変更する場合があります。
  • 本ページに掲載されている内容のご利用に関してはご自身の判断と自己責任でお願い致します。
  • このホームページはリンクフリーです。
  • Copyright (C) 2005-2018 JO3GBD.  All rights reserved.

<トピックス>

便利な検索窓集

Yahoo! JAPAN

  • ウェブ全体を検索
  • このブログを検索


無線局等
情報検索


Callsign lookup:

Provided by QRZ.com

楽天で探す
楽天市場

IchigoJam





















  • 本ページに掲載されている全てのコンテンツの無断転載を禁止します。
  • 本ページの内容を予告なく変更する場合があります。
  • 本ページに掲載されている内容のご利用に関してはご自身の判断と自己責任でお願い致します。
  • このホームページはリンクフリーです。
  • Copyright (C) 2005-2019 JO3GBD.  All rights reserved.
  • 忍者ブログ
  • [PR]
  • CQ ハム アマチュア無線