息子介護物語-エピソード18（令和2年3月）

--このブログは母親の介護奮闘記・3月（令和2年）--

【被介護者】
母：87才
要介護1：Ⅱa
身長/体重；153/44Kｇ

【介護プラン】
2回/週、 火曜・ 土曜は半日
【介護関連企業】
DS（デイサービス）：きらら /長田
ケアマネ：すずみな
介護用具：ひまわり館

【病歴】
平成30年5～10月；大腿骨頸部骨折（左足）で入院 平成30年10月～令和元年8月：DSでリハビリ 令和元年8月2週間；誤嚥性肺炎、及び熱中症で入院 帯状疱疹治りかけ

【状態】
左足の太ももに筋肉痛あり、歩行能力は杖やシルバーカーなどを使って20ｍぐらいは歩けるかぁ？
見当障害がある為、自分は3人息子を生んだと思い込んでる。

【お知らせ】

--------記--------

3/1
昨日疲れが出たせいか？寝ているババァ

3/2
申告して来た。正式は明日からだった。
ババァ、朝6時、誰かに呼ばれたと思い、外に出ていった。気のせいだろう

3/3(火)
DSの日。今日は薬を忘れて行ったと思い、薬を届けたら持っていた。こたつの上に置いていたから忘れたのかと思った。
帰りに、スーパーによったら、除菌シートが無い！それから、ハムとウインナが消えた。


3/4
今日は朝から寝ているばかり、どうしたのかなぁ？昼も忘れている。
VBのサンプルをダウンロードしたら、まともに動いた。

VB2017でも、VB2019でも大丈夫
昨夜は風呂から上がったら、服を片付け初めたが、「シャツが無い」と言い始めた、終いには「お前が売りに行ったんだろう」と言う
「着ているものは何だ！」と、争い始めた。嫌になちゃうよなぁ！何でもかんでも、忘れて人のせいにする。

3/5
昨日と同じ、朝からめまいがすると言って寝ている。それにしても、北風が家を揺らすくらい強い。
相変わらず、話す内容がおかしい！下着にウッコついていた。力んでも出ないため、下剤の数を多めに飲んだ。

3/6
今日は起きて来ない！腹痛のため、寝不足みたいだ
午後から起床し、DSの準備をする。「明日は泊まるから、何持っていくべ」と言う。DSはお泊りしないだよ。ババァ

3/7
DSの日。今日はすんなり出かけた。

DSの帰り、スーパーに寄った。一人一箱のティシューを2箱買ってきた。マスクは無い！

3/8
テレビを見ながら、目がトロンとしている。ババァ
へぇ、「コロナではありません」缶バッチがあるのかｂｙサンジャポ
昨夜は、「テセウスの船」をくいるように見ていた。「ストーリが分かるのか？」と訪ねたら、
「犯人を探している」のは分かると、答えた。

3/9
10時頃、珍しく皿洗いをした。今日は調子がいいのかなぁ？
夜、尿もれパットを何回もパンツに貼る。いくつ貼ったか、わけが分からい様だ。

3/10（火）
DSの日。「今日は茶わんを持っていく行く」と、言い出した。いらないと職員に言われた。
最近、夢と現実がごちゃに成ってきた。

雨降る中、スーパーによって、アサリを買ってきた。「タラの芽の天ぷらを金を出して買う時代が着たのか」と、ババァ呟く

3/11
昼、飯の支度でババァと喧嘩する。11；00頃から騒ぐババァ、プログラムに集中できない！
夜、服を盗まれたと騒ぐ！自分で片付けたのを忘れて

3/12
オイル交換の予約を入れた。来週水曜日
相変わらず、寝てばかりいるババァ、鼻水が出るらしい。花粉のせいなのに風邪薬を飲もうとする。
久しぶりに、かぼちゃを煮た。
ゴミの分別が出来ずに喧嘩する。燃えるゴミと燃えないゴミと資源ごみの区別がつかないババァ！

3/13
今月はピンチ金が底ついた。
ババァ朝起きてもボーっとしてるだけ、パンがこげても見ているだけ！「煙が出ているじゃねーよ」
ブロッコリーをババァに茹でさせた。
お風呂入るのに時間が掛かる。着る服と脱いだ服が分からなくなる。

3/14（土）
今日はDSの日。入れ歯を入れるのに苦労する。いつも噛まれる。

帰りにスーパーによった。知らないうちにポンカンをかごの中に入れたので返した。

3/15
今日はすんなり起きたババァ。飯が無い！どうしょう。そうだ。コンビニに行こう！
いつに成ったら、新型コロナの騒動が終わるのだろう？予期せぬ出費が出る。

3/16
今日はかかりつけ医、病院の受付嬢が羽生イオンに買い物に行ってきたと聞いて、「新型コロナ大丈夫？」と訪ねたら、「？？？」。新聞に書いてあったよね。羽生イオンから感染者が出たと、苦笑いして「移ったかなぁ？」と言ったので、「2週間以内に熱が出たらOUTだね」と答えた。
帰り、7-11で事故処理していたお巡りさんと会話した。
俺；「お巡りさん、新型コロナに加須は感染したんだって？」
お巡り：「してないよ。」
俺：「テレビで川口って言ってたよ。」
お巡り：「川口市の管轄の警察官です。」と言った。
俺；「それなら、安心して免許書き換えに入れるね。」
以上

3/17(火)
DSの日。昨夜、めまいのため転倒し、頭を打って休んだ。
オイラがこれから入金に行く、今日は一日中寝ていた。

3/18
朝から親子喧嘩、米とぎしているオイラに「トースターを持って来い」と、
「その前にジュースやバナナ」を用意したのかと、母に言い返す。
「親を邪険するなら、出て行け！おらは死にてー」
午後、オートアールズでオイル交換をした。待ってる間、ドトールコーヒー店で公認会計士を勉強している夫婦に会い、会話した。
一時間したかぁ？オートアールズから呼び出された。

3/19認知症の被害妄想（物盗られ妄想）
今日はやけに足がもつれるぁ、ババァ！相変わらず、「服が盗まれた」と、言い続けている。実際は、自分が片付けた場所を忘れただけの事。
かなり、認知が進んだのかなぁ？
買い物に行った後、「足が痛くてDSに行けない」と、言うババァ　どうすればいいのか？

3/20
今日は春分。兄が墓参りに来た。昼にぼたもちを食った。新型コロナのせいで仕事が減ったので、母に小遣いを置いて行かずに帰った。

3/21（土）
DSの日。今日、DSでババァはパンツを盗まれた話(盗られ妄想)と、嫁の悪口を話したらしい。職員は黙って聞いていた。ｗｗｗ


認知症の進行

認知症の治療薬
アルツハイマー病などで不足しているアセチルコリン（神経伝達物質）を増やすために使用されるドネペジル塩酸塩、ガランタミン臭化水素酸塩、リバスチグミンなど

3/22
夜中、「二人の子はどこ行った」と２階まで上がってきた。どうして、妄想を見るのだろう
それから、一階におろして寝かせつけた。
オヤジが生きてる妄想をお越し、オイラにどこにいるが聞く、とっくに死んでると言っても信じない。

3/23
朝から物盗られ妄想が起き、「近所の奴らに取られた」と騒ぐ、どうすればいいか分からない！ネットで調べたら、一緒に成って探す方がいいらしい？いつまで、続くのかなぁ？（（泣））

冷蔵庫に、黒ずんだキャベツやレタスが有る。最近、多くなったァ

3/24(火)
DSの日。今日はめまいがすると言って休んだ。なんだか妄想がひどくなった様な気がする。「今日はDSで日光に行くことに成っていたが、体がフラフラするから休んだ」と、訳が分からない事を話している。
新型コロナのため、ケアマネージャーの訪問は無くなった。
5時になると、飯の支度をしろと、うるさいババァ

3/25
今朝のババァは、胸騒ぎがすると言って、王子の叔父に電話する。話が噛み合わない！「お前に、買ってもらったパンツが盗まれた。」叔父「忘れろ！また買ってやる」実際は買ってない！叔父も腰痛のため、100ｍしか歩けないのだ
ババァが10円貯金を数えだした。割烹着を買いたい為、年金まで待てないババァ

3/26
ババァがどこからかへそくりを出してきて、これで割烹着を買うと言い張る。
今月はピンチ、年金まで3万円で過ぎさなければならない！米10キロを買う金が無い！
誰か、くれないかなぁ？

スーパーに買い出しに行ったら、米・カップラーメンが品薄に成っていた。それから、割烹着が2000円で売っていた為、
エプロンに成ってしまった。料理しないのに必要かぁ？

大変だ！カレーの材料の人参・じゃがいもがネズミに齧られて無くなっている。（泣）

3/27
今日のババァは、少し元気だ。かぼちゃを煮てる。
オイラはPCやっていて、急に立ち上がったら、腰がしびれて、よろめいた。
AM11：00頃、きららから電話あり、「鼻水が出て、明日はいけねだー」と答えた為、すぐにオイラが電話を代わり、
「恐らく、平熱だから花粉症だと思う。」、DS「明日、8：55です。」

3/28(土)
DSの日。朝から行くの、行かないので親子喧嘩。花粉症で鼻水出ているにも関わらず、風邪と言い張るババァ！でも熱は平熱で頭も臭い！


3/29
今日は素直なババァです。
雪降る中、庭の椿が咲きました。

午後6時頃、組長さんから非常食セットが配られた。

3/30
朝起きて、オイラに「朝帰りしたのか？今までどこに行ってた」と聞く、「オイラの顔を見て誰だか分からんの？次男だよ。自分の部屋で寝ていたんだよ。どこにも行ってない！」と答えるオイラ

志村けんの死亡の報告がテレビから流れ、驚いた。

今夜は麻婆豆腐なので、ババァはもやしを茹でる。

3/31（火）
DSの日。今日も無事に行った。

帰りスーパーに寄った。焼き芋は終わり

光回線を乗り換えるには--メモ

光回線の乗り換え

【乗り換えに際して必要な書類】
1.現在の事業者変更承諾番号
2.現在のお客様ID

【手続き】
1と2を申し込んだプロバイダに伝えると、工事が不要になる。
また、違約金が発生しないように時期を考える

本格アプリの作り方-その4/ファイル保存

本格アプリの作り方-ファイル保存

【開発環境】
os:Windows 10 （64ビット）
IDE（統合開発環境）:VisualStudio 2017及び2019
言語；VB

【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原　博之/宮崎　昭世

【コーデング】
■家計簿（一覧画面）
Public Class Form1
'-----------------------------------------------------------------------------
'初期化
'----------------------------------------------------------------------------
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("給料", "入金")
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("食費", "出金")
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("雑費", "出金")
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("住居", "出金")
'ファイルの読み込み
LoadData()
End Sub
'-------------------------------------------------------
'サブルーチン
'-------------------------------------------------------
'----------------------------
'データをデータセットに格納す
'----------------------------
Private Sub AddData()
Dim frmItem As ItemForm = New ItemForm(CategoryDataSet1)
Dim drRet As DialogResult = frmItem.ShowDialog()

If drRet = System.Windows.Forms.DialogResult.OK Then
MoneyDataSet.moneyDataTable.AddmoneyDataTableRow(
frmItem.monCalendar.SelectionRange.Start(),
frmItem.cmbCategory.Text,
frmItem.txtItem.Text,
Integer.Parse(frmItem.mtxtMoney.Text),
frmItem.txtRemarks.Text)
End If

End Sub
'----------------------------
'データのファイル保存
'----------------------------
Private Sub SaveData()
Dim path As String = "MoneyData.csv" ' 出力ファイル名
Dim strData As String ' 1行分のデータ

Dim sw As System.IO.StreamWriter _
= New System.IO.StreamWriter(path,
False, System.Text.Encoding.Default)

'-----------------------------------------
'For～Next文→繰り返し制御文
'ToString()→日付や整数を文字型に変換
'ToShortDateString()→時刻を除いた日付のみ
'-------------------------------------------

For Each drMoney As MoneyDataSet.moneyDataTableRow _
In MoneyDataSet.moneyDataTable
strData = drMoney.日付.ToShortDateString() _
+ "," + drMoney.分類 _
+ "," + drMoney.品名 _
+ "," + drMoney.金額.ToString() _
+ "," + drMoney.備考
sw.WriteLine(strData) 'データをファイルへ書き込む
Next
　　’ファイルを閉じる
sw.Close()
End Sub

'--------------------------------
'ファイルからのデータ読込み
'--------------------------------
Sub LoadData()
Dim path As String = "MoneyData.csv" ' 入力ファイル名
Dim delimStr As String = "," ' 区切り文字
Dim delimiter() As Char = delimStr.ToCharArray ' 区切り文字をまとめる
Dim strData() As String ' 分解後の文字の入れ物
Dim strLine As String ' 1行分のデータ

Dim fileExists As Boolean _
= My.Computer.FileSystem.FileExists(path)

'if文
If fileExists Then 'ファイルが存在すれば読み込む
Dim sr As IO.StreamReader =
New IO.StreamReader(path, System.Text.Encoding.Default)

'--------------------------------------------
'While～next文（条件付きループ処理）
'Parse()→文字型を他の型に変換する
'ToString()→日付や整数を文字型に変換
'----------------------------------------
While (sr.Peek() >= 0)
strLine = sr.ReadLine()
strData = strLine.Split(delimiter)
MoneyDataSet.moneyDataTable.AddmoneyDataTableRow(
Date.Parse(strData(0)),
strData(1).ToString(),
strData(2).ToString(),
Integer.Parse(strData(3)),
strData(4).ToString()
)
End While
sr.Close()
End If
End Sub

'--------------------------------
'アップロード→データの変更
'--------------------------------
Private Sub UpdateData()
Dim nowRow As Integer = dgv.CurrentRow.Index
Dim oldDate As Date _
= Date.Parse(dgv.Rows(nowRow).Cells(0).Value.ToString())
Dim oldCategory As String = dgv.Rows(nowRow).Cells(1).Value.ToString()
Dim oldItem As String = dgv.Rows(nowRow).Cells(2).Value.ToString()
Dim oldMoney As Integer _
= Integer.Parse(dgv.Rows(nowRow).Cells(3).Value.ToString())
Dim oldRemarks As String = dgv.Rows(nowRow).Cells(4).Value.ToString()
Dim frmItem As ItemForm = New ItemForm(
CategoryDataSet1, oldDate, oldCategory, oldItem, oldMoney, oldRemarks)
Dim drRet As DialogResult = frmItem.ShowDialog()

'登録画面で登録ボタンがクリックされた処理
If drRet = DialogResult.OK Then
dgv.Rows(nowRow).Cells(0).Value _
= frmItem.monCalendar.SelectionRange.Start()
dgv.Rows(nowRow).Cells(1).Value = frmItem.cmbCategory.Text
dgv.Rows(nowRow).Cells(2).Value = frmItem.txtItem.Text
dgv.Rows(nowRow).Cells(3).Value = Integer.Parse(frmItem.mtxtMoney.Text)
dgv.Rows(nowRow).Cells(4).Value = frmItem.txtRemarks.Text
End If
End Sub

'--------------------------------
'データの削除
'-------------------------------
Private Sub DeleteData()
Dim nowRow As Integer = dgv.CurrentRow.Index
dgv.Rows.RemoveAt(nowRow) '現在行を削除
End Sub

'-----------------------------------------------------------------------------
'イベントハンドラ
'----------------------------------------------------------------------------
Private Sub buttonAdd_Click(sender As Object, e As EventArgs) Handles buttonAdd.Click
'データ追加
AddData()
End Sub

Private Sub 追加AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 追加AToolStripMenuItem.Click
'データ追加
AddData()
End Sub

Private Sub buttonEnd_Click(sender As Object, e As EventArgs) Handles buttonEnd.Click
Me.Close()
End Sub

Private Sub 終了XToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 終了XToolStripMenuItem.Click
Me.Close()
End Sub

Private Sub 保存SToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 保存SToolStripMenuItem.Click
'データ保存
SaveData()
End Sub

Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
SaveData()
End Sub

Private Sub buttonChange_Click(sender As Object, e As EventArgs) Handles buttonChange.Click
UpdateData()
End Sub

Private Sub 変更CToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 変更CToolStripMenuItem.Click
UpdateData()
End Sub

Private Sub buttonDelete_Click(sender As Object, e As EventArgs) Handles buttonDelete.Click
DeleteData()
End Sub

Private Sub 削除DToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 削除DToolStripMenuItem.Click
DeleteData()
End Sub
End Class

■家計簿（登録画面）
Public Class ItemForm
'1つ目のインストラクタ（引数1）
Public Sub New(ByVal dsCategory As CategoryDataSet)
InitializeComponent() ' 初期化処理
CategoryDataSet.Merge(dsCategory)
End Sub

'2つ目のインストラクタ（引数6）
Public Sub New(
dsCategory As CategoryDataSet,
nowDate As Date,
category As String,
item As String,
money As Integer,
remarks As String)

InitializeComponent() ' 初期化処理
CategoryDataSet.Merge(dsCategory)
monCalendar.SetDate(nowDate)
cmbCategory.Text = category
txtItem.Text = item
mtxtMoney.Text = money.ToString()
txtRemarks.Text = remarks
End Sub

End Class
【操作画面】
家計簿の「追加」ボタンをクリックすると、登録画面が現れる

登録画面にデータを入れ、「登録」ボタンを押すと、家計簿のグリッドにデータが表示される


【データファイルの場所】

Visual Basic2017をはじめ以前のバージョンをダウンロードするには

以前のバージョンをダウンロードするには

【開発環境】
os:Windows 10 （64ビット）

【旧Visual Studio ダウンロード】
一般にVisual Studio ダウンロードしようとすると、Visual Studio 2019がインストールされてしまう。
そこで、以前のバージョンをしたい時は、Visual Studio 2017で検索をかけると、下記のサイトが現れる。


その後、使いたいバージョンをダウンロードするだけ。

【インストール】
インストールはサイト検索で調べてからやったほうが良い。

本格アプリの作り方-その3/メインフォームの処理

----メイン画面の----

【開発環境】
os:Windows 10 （64ビット）
IDE（統合開発環境）:VisualStudio 2017
言語；VB

【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原　博之/宮崎　昭世

【コーデング・メイン画面】
1）登録画面の表示

2）「追加」ボタンをダブルクリックし、コードを書く
Private Sub buttonAdd_Click(sender As Object, e As EventArgs) Handles buttonAdd.Click
'登録フォームの作成
Dim frmItem As ItemForm = New ItemForm()
'モダン画面で開く
Dim drRet As DialogResult = frmItem.ShowDialog()
End Sub
実行し、「追加」ボタンを押すと、登録画面の表示される。

3)CategoryDataSetコンポーネントを貼り付ける


4）家計簿のコーデング
Public Class Form1
'-----------------------------------------------------------------------------
'初期化
'----------------------------------------------------------------------------
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　データセットの初期化→「BC30469 非共有メンバーを参照するには、オブジェクト参照が必要です。」とエラーが出たら、はじめからセットし直す。

CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("給料", "入金")
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("食費", "出金")
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("雑費", "出金")
CategoryDataSet1.CategoryDataTable.AddCategoryDataTableRow("住居", "出金")
End Sub
'-----------------------------------------------------------------------------
'サブルーチン
'----------------------------------------------------------------------------
Private Sub AddData()
Dim frmItem As ItemForm = New ItemForm(CategoryDataSet1)
Dim drRet As DialogResult = frmItem.ShowDialog()

If drRet = System.Windows.Forms.DialogResult.OK Then
MoneyDataSet.moneyDataTable.AddmoneyDataTableRow(
frmItem.monCalendar.SelectionRange.Start(),
frmItem.cmbCategory.Text,
frmItem.txtItem.Text,
Integer.Parse(frmItem.mtxtMoney.Text),
frmItem.txtRemarks.Text)
End If

End Sub
'-----------------------------------------------------------------------------
'イベントハンドラ
'----------------------------------------------------------------------------
Private Sub buttonAdd_Click(sender As Object, e As EventArgs) Handles buttonAdd.Click
'サブルーチン
AddData()
End Sub

Private Sub 追加AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 追加AToolStripMenuItem.Click
'サブルーチン
AddData()
End Sub

Private Sub buttonEnd_Click(sender As Object, e As EventArgs) Handles buttonEnd.Click
Me.Close()
End Sub

Private Sub 終了XToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 終了XToolStripMenuItem.Click
Me.Close()
End Sub
End Class

【登録・コーデング】
Public Class ItemForm
Public Sub New(ByVal dsCategory As CategoryDataSet)
InitializeComponent() ' 初期化処理
CategoryDataSet.Merge(dsCategory)
End Sub


End Class

【実行】
追加ボタンを押すと、登録の分類がセットされていた。


【重要】
データセットとDataGridViewコントロールは自動的に関連されている為、データセットのデータを変更すると、表示も変更される。