2018-02-26

子供のプレゼントに　Micro:bit

画像検索結果

Micro:bitに興味があります。

イギリスBBCが主体となって教育用に作られたマイコンボードで、イギリスでは11歳〜12歳の100万人の生徒に無償で配布されているものです

プログラムの勉強に手軽でシンプルでかつ未来を創造できます。

価格も2000円程度で安く購入できます。

ブロックの組み合わせでプログラムが作成でき、これからのプログラムを体験できます。また通常のJavaScript（ジャバスクリプト）、Python（パイソン）のプログラムも勉強できます。

光、温度、加速度センサーとコンパス、Bluetooth機能を搭載し、２５個のLEDと２個のボタンがありプログラムの出力をLEDに表示するこが簡単にできます。

拡張性も十分あり、ロボットと接続、スマホと無線で接続などができロボットプログラミングも体験できます。

なかなか面白い基盤です。

是非、プレゼントに！！

2018-02-25

ADDRESS V100 のセルモータ１０年ぶりに復活

BIKE

アドレスV100のセルモーターが１０年ぶりに復活しました。

（※YOUTUBE　ADRESSがADDRESSの間違いです）

最高にうれしい！！

今冬眠中のアドレス、昨年の年末からセルモーター取り外し作業にかかりました。

合間にネットでセルモーターの中古を探していると１０００円のセルモーターが見つかり、それを入手することに成功。

正常な動きは期待してなかったのですが、問題なく稼働しちゃいました。

譲ってくださった方に感謝感激です。

ただ、ここまで来るにはいろいろありました。

マフラーをなかなか外せませんでした。

工具がなく、新たに小さめのラチェットと長めの六角レンチを購入しないと外すことができませんでした。

また、セルモーターに直接関係ないですが、キャブレターを掃除しようとエアフィルターを外すときゴムを破損させ、新たにパワーフィルターに変更しました。

しかし、何事も経験です。１度分解すると組み立てるのは１時間くらいで組み立てることができました。分解は恐る恐るするので何日もかかっちゃいました。

暖かくなって乗ろうと思ってます。いまは冬眠中、エンジンをかけるのに随分役にたってます。

2018-02-20

簡単なTABLEのカウント（重複データを除いた）

EXCEL_VBA

VBAのTABLE内、重複データを除いた件数を計算します。

ソースは以下です。
menber2()テーブル内に重複したデータが存在したら””（ブランク）にします。
------------------------------------------------------------------------------
      work_i = mem_cnt2
        For i = 1 To mem_cnt2
            For j = 1 To mem_cnt2
                If i = j Then
                Else
                
                    If member2(i) = member2(j) Then
                        If member2(i) = "" And member2(j) = "" Then
                        Else
                            work_i = work_i - 1
                            member2(j) = ""
                        End If
                    End If
                End If
            Next j
        Next i
        mem_cnt2 = work_i
        
        Cells(30, 1) = mem_cnt2

2018-02-01

簡単なVBAだけど重宝してます。

IT EXCEL_VBA

シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。

Public Sub シート削除リネーム()

Dim sss
Dim shtname1
Dim shtname2

sss = Range("A1")
shtname1 = sss & "注文データ"
shtname2 = sss & "注文データ (2)"
Worksheets(shtname1).Delete
Worksheets(shtname2).Name = shtname1

End Sub