特になし

　会社に行って、帰って寝た。それ以上書くこと無し・・・。

ボタンなどのドラッグアンドドロップ

　帰ってから数時間だけVisual Basic をやる。ボタンや、スライドバーの上でドラッグできなくなるというのは、DragOverにそれぞれ記述することで対処した。

　おかげで、ボタンやスライドバーと種類を増やすごとに設定する必要があるが・・・まぁ、仕方ない。未だにドラッグアンドドロップ関係で止まっているが、まぁ仕方ない。

スライドバーのリミッター機能をつけてみる

　脇道からそれる細かい設定を作る。マイコン側で角度の限界を設定するのではなく、エディタ側で設定する機能を製作してみた。他の設定は、スライドバーの名前を設定したり、スライドバーを有効、無効に設定する機能である。
　リミッターは、スライドバーの最小値、最大値を設定するものなので、それら限界値を超えることはない。まぁ、一種の保険のようなものだ。
　なるべく処理が分散しないように処理を共通化した関数を作り、そこへ飛ぶようにプログラミングしているが・・・これがなかなか難しい。そんなこんなで今日は終了。

こんな感じ

　MDIマルチフォームとかいうのを使ってみることにした。フォームがデスクトップ上にホイホイでるのもうっとうしいので、まとめられるかなと・・・。またバグの原因が増えたような気もする。
　概観はこんな感じになる予定。親Formを600x800に収まるように作りたいが、現状ではみ出している・・・。まぁ、ドラッグアンドドロップで並び替えができる予定なので、その辺はなんとかなるかなぁ。
　現在ある機能はスライドバー、テキストボックス、そして、トラッキング機能。ここまではHeartToHeartにもある機能だ。この他に、モーションの補完形式や、センサのゲインなどを設定できるようにする予定であるが、現状はこんなとこですね。
　で、これらは今まで３２個配置していたんですが、今回からプログラムで３２個生成して再配置してます。起動が若干遅くなったので、その辺をごまかすものをつけたいところ。

見出し画面

　起動前に表示されるスプラッシュウィンドウを作ってみた。EXEファイルを起動してから表示されるまでの間、この画面が表示されるわけである。まだ処理があんまり重くないためか、あっという間に消えてしまうが・・・。
　企業のアプリケーションを起動した時になんで表示されるのか分かった気がする。ところで、R.C.S.Editorって何の略なのかというと、Robot Control and Sensor Editorの略ということにしておく。
　まだセンサをいじれないじゃないかっ！っというツッコミはナシという方向で。元々は違う意味だったのでは？という噂も一部ではあるが、まぁ気にしないでおく。

いるような・・・いらないような

　インターフェースの付録であるSH2/7144Fのシリアルのボーレートを計算してくれるソフトを作ってみた。そのうち気が向いたら、もちっと内容を充実させようかなぁ・・・。
　まぁ、プログラム的には面白みがほとんどない内容である。計算ボタン押して計算結果表示させるだけだしねぇ・・・。
　一応、EXEファイルをダウンロードできるようにしておきます。

*** Download ***

ソースはこちら

　まぁ、大したソースではないので載せておきます。参考にならんね・・・まったく。まぁ、他のソースもそのうち掲載しておきます。説明をしようとか、コメントを多くしようとかしているといつまで経っても更新しないので・・・。
　誰かの役には立つでしょう・・・たぶん。そういっているそばからコメントがまったくないし・・・。（＝_＝；

Private Sub Command1_Click()
    Dim x As Double, i As Integer, n  As Integer, b0 As Integer, b1 As Double, P As Integer
    
    P = Text1.Text
    
    For i = 0 To 3
        If n = 0 Then
            x = Round((P * 1000000) / (32 * 2 ^ (2 * n) * Text2.Text) - 1)
            b1 = (P * 1000000) / (32 * 2 ^ (2 * n) * (x + 1))
        Else
            x = Round((P * 1000000) / (32 * 2 ^ (2 * n + 1) * Text2.Text) - 1)
            b1 = (P * 1000000) / (32 * 2 ^ (2 * n + 1) * (x + 1))
        End If
        If x > 255 Then
            n = n + 1
        End If
    Next i
    
    Label3.Caption = "N = " & x & ", n = " & n
    Label4.Caption = "誤差 = " & Round((b1 / Text2.Text - 1) * 100, 2) & "%"
    Text3.Text = "SCI" & Combo1.ListIndex & ".SMR.BYTE = " & n & ";" & Chr(13) & Chr(10)
    Text3.Text = Text3.Text & "SCI" & Combo1.ListIndex & ".BRR = " & x & ";"
    Text3.Visible = True
    
End Sub

Private Sub Form_Load()
    Text1.Text = 24
    Text2.Text = 38400
    Label3.Caption = ""
    Label4.Caption = ""
    Combo1.AddItem "SCI0"
    Combo1.AddItem "SCI1"
    Combo1.AddItem "SCI2"
    Combo1.AddItem "SCI3"
    Combo1.ListIndex = 1
    Text3.Visible = False
End Sub
  

第３回ロボットフェスティバルが今年も開催

　今年も芝浦工業大学　大宮キャンパスにてロボットフェスティバルが開催されることになった。今年もロボワントーナメントとバトルフラッグを行うそうだ。
　バトルフラッグは団体戦なので、結構楽しかった（去年は不調で立っているだけだったが）。今年は、是非とも参加したいですなぁ。では、少しだけこの競技に触れておきますか。

エントリー方法

　エントリーについてで、エントリーの方法が書いてありますが、基本的にメールでエントリーします。メールには

件名：ロボフェス参加 
本文： 
氏名 
住所(郵便番号もお願いします) 
連絡先(電話番号orメールアドレス) 
参加人数 
ロボット名 
チーム名(特にない場合は製作者のお名前をご紹介させていただきます) 
ロボットの身長体重 
特徴やコメントなど 
可能であれば写真を添付してください 
HPがあればご紹介させていただきたいので、そのアドレスを教えてください 

　ということらしいです。開催日は5月21日で、参加費は１０００円です。詳しいことは 　こちら でどうぞ。

　ロボフェス　公式ホームページ