ドローン

ドローン HS120D (3)動画撮影(送信機で)

JUGEMテーマ:ドローン

 

SDカード8GBが内蔵されていて、カードリーダーがついていたので、簡単にPCにデーターを移すことができました。
静止画JPEG、動画AVI
静止画は1枚、0.5MBから0.9MBと幅がありました。
動画は、1分で50MBほどの容量を必要とするようです。

風邪や操作が不慣れなどで、本体が揺れるので、動画も安定しないようです。
動画を撮ってから、よい場面を静止画にする方がよい感じがしました。

  • 2019.07.08 Monday
  • 15:52

ドローン

ドローン HS120D (1)室内でプロペラを回すまで

JUGEMテーマ:ドローン

 

ネットでドローンを探した所、私にあったものがこのHS120Dでした。有名なメーカーではなさそうですが、最新の物と感じました。
操作
準備
1 電池を充電する
  点滅:充電中
  消灯:充電完了
フライト
1 機体の電源を入れる。(長押し)
2 送信機の電源を入れる。
  電源の切り方→二回押す 二回目は長押し
3 機体と送信機のペアリングをする。
  送信機の左ステックを上側に倒し、下側に倒す。
  機首のピンク色LEDと機尾のパープルLEDが点滅する。
4 コンパスリセットをする。
 (1) 送信機の左スティックを右上に倒し、右スティックを左上に倒す。
   機体の4つのLEDが速く点滅するまで倒す。
  (2) 機体を水平にし、360度回転させる。
   機尾のパープルLEDが点灯したらやめる。
 (3) 機首を上にし垂直に持って360度回転させる。
      機首のピンク色LEDが点灯したらやめる。
5 ジャイロリセットをする。
    送信機の左スティックを左上に倒し、右スティックを右上に倒す。
    機首の白色LEDと機尾の青LEDが速く点灯している間続け、ゆいっくりな  点灯になったらやめる。
6 GPSモードをOFFにする。(室内で行う場合)
  送信機の左上のコンパスの絵がついているボタンを長押しする。
  機体のLEDは緩く点滅する。
7 ロック解除
     送信機の左スティックを右下に倒し、右スティックを左下に倒す。
  機体のプロペラが回る。
8 プロペラを止める
  ロック解除と同じで、左スティックを右下に倒し、右スティックを左下に倒  す。

  • 2019.07.06 Saturday
  • 23:01

中学生のためのExcel VBA

4-7 請求書長子(7)兄弟表示

JUGEMテーマ:Office VBA

 

.Offset(2, 0).Value = Worksheets("moto").Cells(g, "p").Value

  • 2019.07.06 Saturday
  • 21:47

中学生のためのExcel VBA

3-15 会計金額挿入(11)書式設定

JUGEMテーマ:Office VBA

 

3桁ごとにコンマを打つ書式設定
  Range(Cells(g, "z"), Cells(gyou, "ad")).NumberFormatLocal = "#,###"
    
 

  • 2019.07.05 Friday
  • 21:38

中学生のためのExcel VBA

3-15 会計金額挿入(10)長子用命令文

JUGEMテーマ:Office VBA

 

Call 電話ソート
    Call hani
    g= 4
    Range(Cells(g, "z"), Cells(gyou, "ad")).Value = ""
    '兄弟記録1
    For g = 4 To gyou
        If Cells(g, "y").Value = 1 Then
        Cells(g, "z").Value = Cells(g, "ae").Value
        Cells(g, "aa").Value = Cells(g, "af").Value
        Cells(g, "ab").Value = Cells(g, "ag").Value
        Cells(g, "ac").Value = Cells(g, "ah").Value
        End If
    Next g
    '兄弟記録2
    For g = 4 To gyou
        If Cells(g, "o").Value = Cells(g + 1, "o").Value Then
        Cells(g + 1, "z").Value = Cells(g, "ae").Value + Cells(g + 1, "ae").Value
        Cells(g , "z").Value = ""
        Cells(g + 1, "ab").Value = Cells(g, "ag").Value + Cells(g + 1, "ag").Value
        Cells(g , "ab").Value = ""
        Cells(g + 1, "ac").Value = Cells(g, "ah").Value + Cells(g + 1, "ah").Value
        Cells(g , "ac").Value = ""
    End If
    Next g
   '兄弟3
   For g = 4 To gyou
      If Cells(g, "o").Value = Cells(g + 2, "o").Value Then
       Cells(g +2, "z").Value = Cells(g , "ae").Value + _
       Cells(g + 1, "ae").Value + Cells(g + 2, "ae").Value
       Cells(g + 1, "z").Value = ""
       Cells(g +2, "ab").Value = Cells(g , "ag").Value + _
       Cells(g + 1, "ag").Value + Cells(g + 2, "ag").Value
       Cells(g + 1, "ab").Value = ""
       Cells(g +2, "ac").Value = Cells(g , "ah").Value + _
       Cells(g + 1, "ah").Value + Cells(g + 2, "ah").Value
       Cells(g + 1, "ac").Value = ""
    End If
    Next g
Call 年組名前ソート

  • 2019.07.04 Thursday
  • 20:59

中学生のためのExcel VBA

3-15 会計金額挿入(9)長子用命令文

JUGEMテーマ:Office VBA

 

動画集:http://okmrt.mods.jp/1-3/
ブログ(中学生のためのVBA):http://nyan.okmrt.work/

長子の金額に兄弟の金額を足す命令文
学年会費

    Call 電話ソート
    Call hani
    g= 4
    Range(Cells(g, "z"), Cells(gyou, "ad")).Value = ""
    '兄弟記録1
    For g = 4 To gyou
        If Cells(g, "y").Value = 1 Then
        Cells(g, "z").Value = Cells(g, "ae").Value
        End If
    Next g
    '兄弟記録2
    For g = 4 To gyou
        If Cells(g, "o").Value = Cells(g + 1, "o").Value Then
        Cells(g + 1, "z").Value = Cells(g, "ae").Value + Cells(g + 1, "ae").Value
        Cells(g , "z").Value = ""
    End If
    Next g
   '兄弟3
   For g = 4 To gyou
      If Cells(g, "o").Value = Cells(g + 2, "o").Value Then
       Cells(g +2, "z").Value = Cells(g , "ae").Value + _
       Cells(g + 1, "ae").Value + Cells(g + 2, "ae").Value
       Cells(g + 1, "z").Value = ""
    End If
    Next g
Call 年組名前ソート

  • 2019.07.03 Wednesday
  • 17:25

中学生のためのExcel VBA

3-15 会計金額挿入(8)長子用ボタン

JUGEMテーマ:Office VBA

 

長子の金額に兄弟の金額を足す命令文
学年会費

    Call 電話ソート
    Call hani
    g= 4
    Range(Cells(g, "z"), Cells(gyou, "ad")).Value = ""
    '兄弟記録1
    For g = 4 To gyou
        If Cells(g, "y").Value = 1 Then
        Cells(g, "z").Value = Cells(g, "ae").Value
        End If
    Next g
    '兄弟記録2
    For g = 4 To gyou
        If Cells(g, "o").Value = Cells(g + 1, "o").Value Then
        Cells(g + 1, "z").Value = Cells(g, "ae").Value + Cells(g + 1, "ae").Value
        Cells(g , "z").Value = ""
    End If
    Next g
   '兄弟3
   For g = 4 To gyou
      If Cells(g, "o").Value = Cells(g + 2, "o").Value Then
       Cells(g +2, "z").Value = Cells(g , "ae").Value + _
       Cells(g + 1, "ae").Value + Cells(g + 2, "ae").Value
       Cells(g + 1, "z").Value = ""
    End If
    Next g
Call 年組名前ソート

  • 2019.07.02 Tuesday
  • 16:40

中学生のためのExcel VBA

3-15 会計金額挿入(7)3桁ごとにカンマ

JUGEMテーマ:Office VBA

 

右揃え
プロパティTextAlign →fmTextAlignRight

書式設定3桁ごとにカンマを入れる
Private Sub  gaku1_Change()
 gaku1.Text = Format( gaku1.Text, "#,##0")
End Sub

  • 2019.07.01 Monday
  • 21:35

中学生のためのExcel VBA

3-15 会計金額挿入(6)テキストボックス規定値

JUGEMテーマ:Office VBA

 

g = 5
r = 1
  With Worksheets("data")
       For r =1 to 3
    Controls("gaku" & r).Value = .Cells(g, "b")
        Controls("kyou" & r).Value = .Cells(g, "d")
    Controls("sono" & r).Value = .Cells(g, "e") 
       g = g + 1
    Next r
        ptz.Text = .Cells(5, "c")
  End With
 

  • 2019.06.30 Sunday
  • 18:53