ぐ~たら ぷろぐらまー にっき

最近すぐ忘れるけー。

アスペルガーの息子が合宿免許行きました

色々あって、息子さんは進学をやめて就職することになりました。
ちょっとおそい反抗期がきたと思ってる。

一番向いてないであろうと思う大手飲食業の内定をいただき、
運転免許が必須ということで、大至急自動車学校を調べる・・・のは勿論わたし。

内定が1月中旬。
時間がなさすぎる。
合宿しかない。

めちゃめちゃ調べた。
調べすぎて迷子になった。

結局どこにすればいいのよ。

こことか
激安合宿免許のユーアイ免許

こことか
合宿免許受付センター

こことか
春休み合宿免許は年内のお申し込みで最大15,000円割引!!

こことか
入学お祝い金が必ずもらえる合宿免許

2日くらい調べていたんだけど、結局そんなに変わらない。
家からの交通費が全額出るところで、行きやすいところ(片道3時間から4時間)
相部屋より個室。



Tポイントが貯まる合宿免許yi免許

あ、Tポイントつくんだ。って感じで、ここから島根の教習所に申し込み。

ポチっとしたら速攻で電話かかってきて、希望の入校日(1月末)では入れず

「2月初旬になります。」

という事だったので

「一旦考えます」

と電話を切った。
何故かというと、この時期は入校日が1週間ずれると5万高くなるから躊躇してしまった。
4時間くらいまた調べて、考えて、仕方ないかーともう一度電話したら

「2月中旬になります」と・・・。

あれれ?
4時間前には2月初旬が空いていたのにもういっぱいになってる。
なのでさらに5万高く・・・。
2月入校は少しの迷いが命取り。
春休みにかけて、週単位で値上げしていく。

これ以上迷っても仕方ないのでそこで決める。
結局10万あがって33万になったけど。


2月3月は高いので早めに予約が大事。
3月から4月にかけて(ちょうど今時期からの申し込み)はまた安くなってる。
閑散期なら15万くらいで行けるんじゃないかなぁ・・・。

ちなみにTポイントは、免許をとる本人名義のTポイントカードにしか付けられないのでちょっと残念。
「Tポイント希望」とメールで、入校日、名前、T会員番号を連絡するとOK。
卒業から2か月後の付与。
大体、100円で1ポイントとかなのかな?
33万払ったから3000円くらいなのかな??

お金払うのは親なのに、ポイントは息子のかーっ。

めでたく島根自動車学校へ2/12入校で予約確定。
33万ほどお振込。
行き帰りの交通費、宿泊費、食費が付いて、1か月までは延泊しても追加料金なしと考えれば安いのかな。



DataGridViewでEnterキーが押された時に横のセルに移動したい

ちょっと苦手なDataGridViewのメモ

CellEnterイベントとかでEnterキーの時はTabキーを送るようにしていたんだけど
ReadOnlyのセルはとばしたかったり、最終行がReadOnlyだったらとか
制御が面倒になってきて、結局DataGridViewを継承したカスタムコントロールを作るのが一番手っ取り早かったので。

あちこち参考にさせていただき、今はこれに落ち着きました。
今回のバグはこれで何とかなりそう~。たぶん

*******

Enterキーでフォーカス横移動
ReadOnly=Trueのセルは飛ばす
最終列がReadOnlyの場合は次の行へ移動
最終行だった場合は最初の行に戻る

********

'///////////////////
' DataGridView
'///////////////////

''' <summary>
''' DataGridView
''' Enterキーが押された時に、Tabキーが押されたのと同じ動作をする
''' (現在のセルを隣のセルに移動する)
''' ReadOnlyのセルはとばす
''' </summary>
Public Class DataGridViewEx
    Inherits DataGridView

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean

        If (keyData And Keys.KeyCode) = Keys.Tab OrElse (keyData And Keys.KeyCode) = Keys.Enter Then

            '現在のセルの次の列
            Dim col As Integer = Me.CurrentCell.ColumnIndex + 1

            While col < Me.Columns.Count

                If Not Me.Rows(Me.CurrentCell.RowIndex).Cells(col).ReadOnly And Me.Rows(Me.CurrentCell.RowIndex).Cells(col).Visible Then
                    Exit While
                End If
                col = col + 1
            End While

            If col < Me.Columns.Count Then
                Me.CurrentCell = Me.Rows(Me.CurrentCell.RowIndex).Cells(col)

            Else
                '行
                Dim row As Integer = Me.CurrentCell.RowIndex + 1
                Dim Flg As Boolean = False '無限ループ防止フラグ

                If row = Me.Rows.Count Then
                    '最終行の場合は最初の行に戻す
                    row = 0
                    Flg = True
                End If

                While row < Me.Rows.Count
                    For col = 0 To Me.Columns.Count - 1
                        If Not Me.Rows(row).Cells(col).ReadOnly And Me.Rows(row).Cells(col).Visible Then
                            Exit While
                        End If
                    Next

                    If row = Me.Rows.Count - 1 And Flg = False Then
                        '1回だけ最初の行に戻す
                        row = 0
                        Flg = True
                    Else
                        row = row + 1
                    End If
                End While


                If col < Me.Columns.Count Then
                    Me.CurrentCell = Me.Rows(row).Cells(col)
                End If

            End If

            Return True

        End If

        Return MyBase.ProcessDialogKey(keyData)
    End Function

    Protected Overrides Function ProcessDataGridViewKey(ByVal e As KeyEventArgs) As Boolean

        If e.KeyData = Keys.Tab OrElse e.KeyData = Keys.Enter Then

            Dim col As Integer = Me.CurrentCell.ColumnIndex + 1

            While col < Me.Columns.Count
                If Not Me.Rows(Me.CurrentCell.RowIndex).Cells(col).ReadOnly And Me.Rows(Me.CurrentCell.RowIndex).Cells(col).Visible Then
                    Exit While
                End If
                col = col + 1
            End While

            If col < Me.Columns.Count Then

                Me.CurrentCell = Me.Rows(Me.CurrentCell.RowIndex).Cells(col)
            Else

                '行
                Dim row As Integer = Me.CurrentCell.RowIndex + 1
                Dim Flg As Boolean = False '無限ループ防止フラグ

                If row = Me.Rows.Count Then
                    '最終行の場合は最初の行に戻す
                    row = 0
                    Flg = True
                End If

                While row < Me.Rows.Count

                    For col = 0 To Me.Columns.Count - 1
                        If Not Me.Rows(row).Cells(col).ReadOnly And Me.Rows(row).Cells(col).Visible Then
                            Exit While
                        End If
                    Next

                    If row = Me.Rows.Count - 1 And Flg = False Then
                        '1回だけ最初の行に戻す
                        row = 0
                        Flg = True
                    Else
                        row = row + 1
                    End If
                End While


                If col < Me.Columns.Count Then
                    Me.CurrentCell = Me.Rows(row).Cells(col)
                End If
            End If
            Return True

        End If

        Return MyBase.ProcessDataGridViewKey(e)
    End Function

End Class

【1号情報】薬の副作用のような

アスペルガー1号氏、ストラテラを80㎎飲んでいます。

ADHDのお薬です。

40㎎から80㎎に増やして3週間くらいかな。

最近よくトイレにこもります。

お腹が痛いとか。

今日、塾からも電話があって、

トイレにこもっていて授業に30分くらい遅れてくることがよくあるのでもったいない

とのこと。

ストラテラの副作用に、下痢、便秘とあるのでそれかな。

どうしたらいいのかな。

ちょっと薬が効いてきたのか、最近はいい感じになってきていたので

薬を減らしたくはないのですが。




困ったね。

【1号情報】塾の自習室

アスペルガー1号氏、某大手塾の自習室に行っています。

自習室もこみで高い授業料払っているので、頑張って自習室にいかせています。


なのに


「塾の自習室が居心地が悪いってことに気が付いてしまった」

らしいです。

どうも隣との距離が近いそうです。
しかも席は指定席なので選べない。


うーん、困ったね。


もっと早く気が付いてほしかったです。

【1号勉強】物理編

アスペルガー1号氏、物理で苦戦中。
(数学も英語も国語も苦戦)

某大手塾では、スモールステップで45級までテストを受けて
わからないところを潰していくんですが
入塾して5か月で3級しか受かっていないんです。
これはマズい。

予習してきてと言われるけど
そもそも予習ができる子だったらわざわざウン十万かけて塾に行かせないし・・・。
入塾するときは「すべてお任せください」と言われたのだけど
最近は担任の先生もお手上げの様子。

個別指導を進められ、1か月4回で4万。


ひぃ



1か月4万で1号氏の将来が変わるのなら・・・と悩んだんだけど
やっぱちょっと無理です。


高校物理「2」のポンコツな私が、
私なりに考えて、調べて、悩んで・・・

やっぱり基礎からやっていくか。と。
焦っても仕方ない。
いやちょっと焦る。


これ買いました。
「宇宙一わかりやすい高校物理(力学・波動」
10月中に終わらせたい。
まず力学。

宇宙一わかりやすい高校物理(力学・波動) [ 鯉沼拓 ]

価格:1,598円
(2018/10/1 16:20時点)
感想(10件)


まだ読み始めて2日目ですが、わかりやすいと言っています。

力学が終わったら、次はこっちを買おうかなと思っています。
「宇宙一わかりやすい高校物理(電磁気・熱・原子」

宇宙一わかりやすい高校物理(電磁気・熱・原子) [ 鯉沼拓 ]

価格:1,706円
(2018/10/1 16:22時点)
感想(7件)


並行して、この本でひたすら単位とか覚えていこうと思います。
「化学と物理の基礎の基礎がよくわかる本」

化学と物理の基礎の基礎がよくわかる本増補版 [ 飯出良朗 ]

価格:3,024円
(2018/10/1 16:23時点)
感想(2件)

<SQLServer>テーブルの保存でエラー

自分メモ

テーブルをちょこっと変更して保存しようとしたらエラー。

変更の保存が許可されていません。

f:id:nekobasu6126:20181001155907p:plain

時々遭遇してたんだけど、調べるの面倒だし時間ないしとか色々あって
テーブルの再作成してごにょごにょしてました。

ちょっと今日はその気になったので調べました。

すぐ出てきました。

https://support.microsoft.com/ja-jp/help/956176/error-message-when-you-try-to-save-a-table-in-sql-server-saving-change

もしかしたらテーブルの再作成するより早かったかもしれない・・・。

「ツール」-「オプション」のデザイナーにある
□テーブルの再作成を必要とする変更を保存できないようにする
のチェック外す。

f:id:nekobasu6126:20181001160340p:plain