カテゴリー: Scratch

5/9に東大福武ホールで行われたScratch Day 2015 in Tokyoに参加してきました。
ブースに来て下さった皆様、ありがとうございました。

会場で展示していた資料をGoogle Driveで公開しました。
https://drive.google.com/file/d/0B6mV1yPXBSvtdzBUNGlrQXdtRk0/view

ScratchDay 2011でデモを行ったScratchGainerのイメージおよびソースファイルを公開します。

http://info.scratch.mit.edu/Source_Code で配布されているBased On Scratchのイメージを上書きすればScratchでGainerを扱うことができるようになります。

インストール方法や使い方についてのご相談はtwitter上のアカウント @nqthm まで遠慮なくどうぞ。

なお、利用される場合は現在進行形のプロジェクトなので予告なく内容が変わることをご了承ください。

ダウンロード

イメージファイル（zip圧縮済）： ScratchSourceCode1.4.image.zip
チェンジファイル： ScratchGainer1.6.cs

ライセンス

GPL v3

5/21に青山学院大学アスタジオで行われたScratch Day 2011のセミナー資料を公開します。
20110521発表

ScratchDefartやScratchGainerなどのファイルは近日中に公開する予定です。

無事に学園祭が終わりました。今年の目玉の一つはKHR-1HVによるダンスです。おかげさまで、当日かなりの注目を浴びることができました。徹夜でモーションを完成させたロボットチームはお疲れ様でした。

２体のロボットを同時にスタートさせたいというところから、HTHやRCBCommander3では対応していないためにプログラムで制御しようということになり、せっかくだからScratchで制御しようと進んできました。

何とか使えそうなところまできたので公開いたします。

チェンジファイル：DefartNetworkConnection.cs
Scratchソース：Scratch Source Code

Scratch Sourceで公開されているソースに手を加え、いくつかの言語ファイルを追加した「なんちゃってVPL」のイメージ、チェンジセット、POファイルを公開します。

なんちゃってVPLソース：Nanchatte-VPL.zip
Scratchソース：Scratch Source Code
Scratch1.4：Scratch Download

動作させるにはScratch 1.4のフォルダにNanchatte-VPL.zipの内容を展開し、ScratchSourceCode1.4.imageをScratchの実行形式(.exe)にドラッグ＆ドロップして実行する必要があります。

CBlockMorph – CommandBlockMorph – BlockMorph – Morph
　if-thenやforeverなどのブロック

IfElseBlockMorph – CommandBlockMorph – BlockMorph – Morph
　if-then-elseブロック

SetterBlockMorph – CommandBlockMorph – BlockMorph – Morph
　変数のブロック

CommandBlockMorph addLabel
　コマンドや引数のMorphを生成

CommandBlockMorph fixBlockLayout
　生成したMorphの配置？

BlockMorph class initialize
CBlockBracketThickness: CBlockMorphやIfElseBlockMorphのバーの太さ

SetterBlockMorph initChangerForVar: varName
　’change %v by %n’のブロックを生成？

SetterBlockMorph initSetterForVar: varName
　’set %v to %n’のブロックを生成？

ScratchでKHR-1HVを制御できないか奮闘しています。単なるシリアル通信だとバカにしてかかったのですが、思うようにうまくいきません。
付属のソフトでは問題ないのですが、シリアル通信ソフトなどを利用して真似しても通信が再現できません。

ウェブで参考にしていたRubyの例ではうまくいくのでScratchでもOKだと思ったのですが…
近藤科学KHR-2HVをMac OSX Leopardから操作する
ところが上のページのサンプルを別のPCで動かしてみたら動作しませんでした。

どうやらRCB-3のタイミングが結構厳しいようです。
マイコンボードと通信 sizuのセローに乗ってどこにいこう！/ウェブリブログ

そこで今まで試していたサンプルの各所にDelayを埋め込んだところ、なんとか動作させることができました。

port := SerialPort2 new openPortNamed: '/dev/cu.usbserial-KOS1VRMH' baud: 115200.
port nextPut: 13.
Delay waitMSecs: 10.
a := port readByteArray.
port nextPut: 244.
port nextPut: 1.
port nextPut: 0.
port nextPut: 245.
Delay waitMSecs: 10.
b := port readByteArray.
Delay waitMSecs: 100.
port close.

上記はモーションの１番を実行させる例です。

とりあえず前進できてよかったのですが、機種によってDelayの値が変わりそうで怖いです。