職案人

求職・歴史・仏教などについて掲載するつもりだが、自分の思いつきが多いブログだよ。適当に付き合って下さい。

息子介護物語-エピソード12(令和元年9月)

2019年09月22日 | 医療
--このブログは母親の介護奮闘記・9月(令和元年)--


【被介護者】
母:86才
要介護1
身長/体重;153/44Kg

【介護プラン】
2回/週、 火曜・ 土曜は半日

【介護関連企業】
DS(デイサービス):きらら
ケアマネ:すずみな
介護用具:ひまわり館

【病歴】
平成30年5~10月;大腿骨頸部骨折(左足)で入院
平成30年10月~令和元年8月:DSでリハビリ
令和元年8月2週間;誤嚥性肺炎、及び熱中症で入院
帯状疱疹



【状態】
誤嚥性肺炎は抗生物質により、完治したが、貧血気味である。入院中は夜間せん妄を起こし、点滴を外した。帰宅後は入院前とほぼ同じ様に回復した。
左足は相変わらず、筋肉痛が有るが、杖やシルバーなどで使って10mぐらいは歩けるが、まだ買い物に出かけるようには成っていない。ほとんど、横になってTVを見ている

--記--

9/1
首の後に水ぶくれが出来た。
夜中2頃、足が痛い為、一人で風呂に入り、アイスを食べた

9/2
退院後、初めての診察。帯状疱疹が出来た為、帯状疱疹用の軟膏(アラセナ-A)をもらった。
誤嚥性肺炎は治ってるが、まだタンが出る見たいだ。
貧血を表すヘマトクリット(HCT)は31%と低いが鉄分(Fe)は高いので貧血の薬は要らない

夜2時頃、アイスを食べた為、怒った。

9/3(火)
DSの日、熱が有ると言ってDSに行くのを拒んだ。念の為、熱を測ったら36.3の平熱、無理やり行かせた。
最近、DSに行きたがらない。
6日8:30に大工が、寝床の扉を直しに来る。

帰り、1000円カットに寄り道して来た。

9/5
朝、尿漏れでパット交換する。本人は「汗だ」と否認。最近、夜行性になりつつ有る。

9/6
押入れの戸2枚をひまわり館の下請けの大工に頼んだ。便所と合わせて18000円請求された。
年金生活者支援給付金の申し込みを済ませた。

9/7(土)
DSの日。帯状疱疹が出来ている為、風呂には入れ無かったが、シャワーは浴びた。


9/8
台風15号が来る日にサボテンが咲いた。


9/9
側溝が壊れた。行田県土整備事務所に電話した。


9/10(火)
DSの日。いつの間にか、行田県土整備事務所が側溝の蓋を直して行った。


9/12
近所のスーパーに行った。トマト一個120円、ブロッコリ一個320円、キューリ一本100円、何を買えばいいんだ?
夕食、母は茶碗を3つ並べだした。家には二人しかいないのに?
最近、物忘れがひどくなった様な気がする。

9/13
明日はDS。余り気がすすまない様である。ちまみに、オイラの名前は忘れられた。
夜中、急に二階の俺の部屋に来て「みんなはどこに居る」と聞いてきた。「俺しかいない」と答えると、
黙って自分の寝床に帰って行った。最近、夢か、現実か、分からなくなって来た。
以上

9/14(土)
DSの日。昨夜、毛布を出すのに転んだみたいで、足が痛いと言いながら、DSに行った。

介護報酬が改定に成った。


9/15
怠さを訴える。検索すると、高齢者は睡眠薬や降圧剤を飲んでると怠さを訴えるケースが多いらしい。

9/16
明日のDSはお休み!きららに電話を掛けた。

9/17(火)
DSを休みました。火災保険の更新をしに、JAに行ってきたよ。火災保険は火災以外保証されないと言われた!良く調べると風や雹による災害もセットに成っている。ダメだJAは

9/18
かかりつけ医に行った。オイラの肺に怪しい影があるとの事で胸部CTを取られた。異常なし
母の方は胃がむかつくとの事でランソプラゾールOD錠30mgが出された。
また、側溝の蓋が壊れたよ。

9/19
昨夜、作った湯豆腐に膜が張り、酸っぱい味がした。腐ってるのかなぁ?
トマトが一個110円ブロッコリ320円、ほうれん草210円、ますます貧乏になる。

9/20
DSのきららに電話して、書類とサービス料を提出して来た。明日は無理にでもDSで頭を洗ってもらうぞ!

9/21(土)
DSに行った。怠いとみんなが言っているらしい

9/22
彼岸、兄来る。


コメント

仲間を探せ

2019年09月15日 | VB
仲間を探せゲーム


【開発環境】
os:Windows 10
IDE(統合開発環境):VisualStudio 2017
言語;VB

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

【アプリのイメージ】


■仕様
・「スタート」ボタンをクリックすることでゲームが始まる
・ゲームが始まると、秒読みも始まる
・正解の文字と違う文字が表示される。正しい文字の位置はランダムで良い
・正解の文字をクリックすると、タイマーが止まる
以上

【画面デザイン】
1)form1コントロールのプロパティを設定
・form1.Text =仲間を探せ
・form1.Size = 700,730

2)form1にSplitContainerコントロールを貼る

SplitContainerコントロールの▶をクリックし、「上下分割の方向」を選択する。

SplitContainer.Splitter = 70に設定

3)パネル1の部分に各コントロールを貼る


・textbox1コントロール
textbox1.Font = メイリオ,16pt
textbox1.Size = 55,55

・textbox2コントロール
textbox2.Font = メイリオ,16pt
textbox2.Size = 160,55
textbox2.TextAlige = Right

・Label1コントロール
Label1.Text = を探せ

・Label2コントロール
Label2.Text = 記録:

・Label3コントロール
Label3.Text = 秒

・Button1コントロール
Button1.name = ButtonStart
Button1.Font = メイリオ,16pt
Button1.Size = 211,55
Button1.Text = スタート


パネル2のデザイン画面を作る
パネル2に縦5個✕横5個のButtonコントロールを貼る

1)パネル2にButtonを貼る

・プロパティを設定する
Button1.Font = メイリオ,36pt
Button1.Size = 125,100
Button1.Text = ""空白


2)Button1コントロールを横に4個、コピーする
・Button1コントロールを選択し、「Ctrl」ボタンを押しながら、マウスをクリックする

最後に、左右の間隔を均等にするボタンを押す

3)縦横25個のButtonコントロールを完成させる
・縦横25のButtonコントロールが出来たら、上下の間隔を均等にする

・縦を選択する

左のボタンを押す



4)Timerコントロールを貼る
Timer1.interval = 20

【コーデング】
Public Class Form1
'スタート
Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles      ButtonStart.Click
 処理を書く
End Sub

'25個のボタン
Private Sub Buttons_Click(sender As Object, e As EventArgs) Handles        Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button26.Click, Button25.Click, Button24.Click, Button23.Click, Button22.Click, Button21.Click, Button20.Click, Button2.Click, Button19.Click, Button18.Click, Button17.Click, Button15.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click, Button1.Click
  処理を書く
End Sub

'タイマー
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  処理を書く
End Sub
End Class

完成
Public Class Form1
Dim 正解 As String = "烏" '正解の文字
Dim 不正解 As String = "鳥" '不正解の文字

Dim nowTime As Double '経過時間

'スタート
Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click
TextBox1.Text = 正解  '探す文字を表示

Dim Rnd As Random = New Random() '乱数を生成するためのインスタンスを生成
Dim randomRessult As Integer = Rnd.Next(25) '0~24の乱数を取得

'SplitContainerの下部のpanel2に乗っている
'ButtonのTextをすべて不正解の文字にする
'forループ文
'For ループカウンタ変数名 As データ型名 = 
     初期値 To 終了値
' 繰り返す処置
' Next

For i As Integer = 0 To SplitContainer1.Panel2.Controls.Count - 1
SplitContainer1.Panel2.Controls(i).Text = 不正解
Next

'ランダムで1つだけ正解の文字にする
SplitContainer1.Panel2.Controls(randomRessult).Text = 正解
'タイマー
nowTime = 0 'タイマーの初期化
Timer1.Start()

End Sub

'25個のボタン
Private Sub Buttons_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button25.Click, Button24.Click, Button23.Click, Button22.Click, Button21.Click, Button20.Click, Button2.Click, Button19.Click, Button18.Click, Button17.Click, Button15.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click, Button1.Click
If CType(sender, Button).Text = 正解 Then
Timer1.Stop() '時間の計算終了
Else
nowTime = nowTime + 10 'ペナルティー

End If
End Sub

'タイマー
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
nowTime = nowTime + 0.02
TextBox2.Text = nowTime.ToString("0.00")

End Sub
End Class

【実行】

「スタート」ボタンを押す

「烏」ボタンを押すとタイマーが止まる。再スタートしたい時は、「スタート」ボタンを押す








コメント

息子介護物語-エピソード11(令和元年)

2019年08月31日 | 医療
--このブログは母親の介護奮闘記・8月(令和元年)--


【被介護者】
母:86才
要介護1
身長/体重;153/44Kg

【介護プラン】
2回/週
火曜は一日
土曜は半日

【介護関連企業】
DS(デイサービス):きらら
ケアマネ:すずみな
介護用具:ひまわり館

【病状】
・ 大腿骨頸部骨折後、腰から左足にしびれる(神経痛)。更に、立ちくらみとめまいを起こす。認知程度は日付・時間が良くわからない。時々、人の気配を感じたり、半日経つと、DSに行ったことが、あやふやになる。運動は立ってトイレに行ける。その他はシルバーカーor杖じゃないとダメ

【高齢者の運動】
後期高齢者の筋力を維持・改善する運動

--記--


8/1
草取りをやった。今日は37℃なので散歩やめた。

8/2
ネズミに顆粒状のだしの素を食われた。
夜、ネズミが現れた。

8/3(土)
DSの日。大坪さんによると、身体がだるく、咳き込んでいた様だ。帰りに、風邪薬を買えに行った。
熱は平熱で、お風呂には入った。


8/4
オイラも風邪気味になった。母は頭痛がするらしい

8/5
まだ、母は風邪気味である。
JAほくさいから「うどん」を駐車場の地主(矢口産業での同僚)に送る。H15の秋より
翌日、10:00返事が来た

8/6(火)
DSの日。DSから帰ったら(午後4:45)、軽い熱中症に掛かったらしいので救命救急安心システム(#7119)に電話した。

病状:頭がぼーっとしている。手足に力が入らない。会話は少しできる。
対策:エアコンに効いた部屋に運び、麦茶、梅干し、ヨーグルトを食わせた。
2時間後、フラフラしながら、一人で立ちながらトイレに行けるようになった。

8/7
母入院す

病状、
体温が35℃から36.8℃(普段より1℃高くなった)
フラフラ歩き、転ぶとなかなか立てない
咳・タンがよく出る
声がかすれている
寝ると、胸が苦しくなる。
普段より、怠い

診断
肺炎(誤嚥性肺炎のあり)で下側半分に炎症あり、貧血のため輸血が必要、熱中症も起こしている
肺炎のレベルは重症に入り、入院見込みは2週間程度

現状
べット上から動けない。

8/8
兄が見舞いに来る。共に保証金を入れる。
兄嫁のことで、喧嘩する。なぜ「お見舞いに来ないのか?」
介護パンツとパジャを持ってくる様に言われた。
兄、墓参りをして帰った。

8/9
ツイッターのフォロワーから聞くと、油断は禁物らしい。肺炎から肺気腫になったらダメらしい
母の面会に行く
抗生物質のみとなった。また、せん妄が起きたようだ。
ついでにバッテリーが終わった。
兄の胆のうのCT検査判定不能のため、19日MRIの再検査、結石だか、腫瘍か判別付かないのか赤十字!

8/10
昨日の洗濯物を今朝、しまい込んだ。オイラ、相当疲れているのかなぁ
午後、ブレーキランプの不具合とバッテリ交換が終わりた。

8/11
面会に行く、トイレはポータブルで出来るようになった。共通の冷蔵庫が使えるのを知らなかった。
水を一日1L飲まないといけないらしい。まだ、部屋から出られない

8/13(火)
面会に行く、ようやく病院に慣れて来たようだ。夜、少しは大人しくなったが、昼間は勝手に歩いてしまう。
まだ、喉は枯れている。テレビのカードを買った。
ついでにこれもらった。


8/14
洗濯物を干しって1000円カットに行ったら、雨が降ってきた。びしょ濡れ、台風10号どうしてくれるんだ。今日は曇りのはずなのに

8/15
面会に行く。兄夫婦と孫が来たが、幼いひ孫は来ない
土産はゼリー4個?
明日から入浴が可能に成った。
同室が二人に成った。

8/16
便所の汲み取り完了

8/17
退院の許可が出た。19日の血液検査次第で具体的な曜日が決まる。病院から王子の叔父さんに電話した。

8/19
部屋が4人部屋から大部屋に変わった。部屋代が無くなった。嬉しい
退院の許可は21日の水曜日に出すみたいだ。
大部屋は糞尿の匂いで満ちている。

8/20
DSから請求書が届いた。買い物帰りにきららに寄った。

8/21
見舞いに行って、主治医と退院日を決めた。
明日(22日午後3:00)に決まった。
母が言うのに6月から右胸が痛かった。タン・咳が出たのは7月下旬





8/22(木)
本日午後3:00に退院しました。
看護要約

9/4に来院する事。

3:40
DSの人が来て、DSの日程をあらかた決めって行った。週2回の半日

8/23
本日、ケアマネが来る
今後の日程を決めて帰った。

4時から餓鬼界供養が始まる。

8/26
2019年版プレミアム商品券を役場に申し込んだ。商工会加盟店が対象らしい。ベイシアは加盟するのかが心配だ!本当は現マナが良いのだが
ちなみに公共料金はダメらしい!
バッテリー交換のお金を払った。

8/27(火)
退院後、初のDS!。肺炎で2週間でた退院できたのは奇跡に近いと、みんなに言われた。

夜、寝床で泣いていた。思うように身体が動かないないし、体中が痛い身体からだ

8/31(土)
今月最後のDS。
朝から連絡表が無いとDSから電話。結局、他の職員が持っていた。
馬鹿野郎!



コメント (1)

カラス占い

2019年08月28日 | VB
カラス占い


【開発環境】
os:Windows 10
IDE(統合開発環境):VisualStudio 2017
言語;VB

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

【カラス占い】
内容は
占いたい曜日を入れ、「占い」を押すと、キョエちゃんが答えたを出す様にする。

◆画面デザイン
Label1及びLabel2、Button、DateTimePicker、pictureBoxなどのコントロールを配置する


◆各コントロールのプロパティ設定
1)formコントロール
form.Text = キョエ占い
form.SizeGripStyle = Show←サイズ変更グリック

2)Label1コントロール
Label1.AutoSize = False
Label1.text = キョエが、お前らの運勢を占ってやる!占いたい日付を書いてね

3)Buttonコントロール
Button.text = 占う

4)Label2コントロール
Label1.AutoSize = False
Label1.text =お告げ

5)pictureBoxコントロール
pictureBox.size = 300,169
pictureBox.SizeMode = Zoom
pictureBox.Anchor = すべて




◆リソースの扱い方
ⅰ)カラス占いプロジェクトを「右クリック」し、「プロパティ」をクリック

ⅱ)プロパティ画面が表示されたら、左側の「リソース」を選択し、「リソースの追加」-「新しいイメージ」-「JPEGイメージ」選択する


ⅲ)新しいリソースの名前を入力する

・「title」と入力したら、「Add」ボタンをクリックする


ⅳ)ペイントと関連させる
「Resource」-「title.jpg」をクリック


「title.jpg」をWクリックすると、ペイントが立ち上がる

ⅴ)ペイントで好きな画像を取り込む

取り込めたら、一旦閉じる

ⅵ)画像を表示させる
「pictureBox」の▶をクリックする

「プロジェクトリソース」にチェックし、「title」選択し、「OK」ボタンをクリック

「title」が表示される


・「title」画像を変えてみる
「Resource」-「title.jpg」をWクリックして、ペイントを立ち上げ別な画像と差し替えて閉じる


ⅶ)大吉、中吉、小吉、吉、凶の6データを揃える


【コーデング】
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dateNumber As Integer '年間累積日を記憶する変数
dateNumber = DateTimePicker1.Value.DayOfYear '選んだ日付から、年間累積日を計算

'Select~Case文
Select Case dateNumber Mod 5 '年間累積日を5で割った余り

Case 0 '大吉
PictureBox1.Image = My.Resources.daikihi
Label2.Text = "宝くじが当たるかもwwドーン"

Case 1 '中吉
PictureBox1.Image = My.Resources.cyuukichi
Label2.Text = "五輪チケットが当たるかも"

Case 2 '小吉
PictureBox1.Image = My.Resources.syoukichi
Label2.Text = "岡村に会えるかも"

Case 3 '吉
PictureBox1.Image = My.Resources.kichi
Label2.Text = "NHKのど自慢に出られるかも"

Case 4 '凶
PictureBox1.Image = My.Resources.kyou
Label2.Text = "ぼーっと生きてんじゃねよ。落下物に注意"

Case Else 'ミス
MsgBox("プログラムミスが有る")

End Select

End Sub
End Class

【プログラム実行】




コメント

メモ帳

2019年08月14日 | VB
メモ帳の作り方


【開発環境】
os:Windows 10
IDE(統合開発環境):VisualStudio 2017
言語;VB

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

Windows.Forms.✗✗はVisualStudio 2012以降廃止になった

【メモ帳を作る】
イメージ


1.画面デザイン
ⅰ)パーツの配置
「Label」を2つ、「TextBox」を2つ、ColorDialogを貼る


ⅱ)プロパティを設定する
Label1.text = 今日
Label1.Font = MS 明朝 12pt


ⅲ)TextBox1タスクのMulutLineプロパティにチェックを入れる

TextBox1.Dock = full
TextBox1.backcolor=255,192,255


Label1.text = 明日
Label1.Font = MS 明朝 12pt

TextBox2タスクのMulutLineプロパティにチェックを入れる
TextBox.Dock = Bottom
TextBox1.backcolor =128, 255,255

ⅳ)各パーツの順序
ツールを右クリックすると表示位置が現れるので、「最前」か、「最背」かを選ぶ


ⅴ)Formプロパティの設定
・タイトルバー消す

FormプロパティのFormBorderStyleを「None」に変更する


・半透明にする
Opacity=60%

・最上位に表示させる
TopMost=True
・(Name)プロパティをFormFusenに変更

ⅵ)ColorDialogの設定
・(Name)プロパティをColorDialgFusenに変更する


【コーディング】
ⅰ)まずForm1-1.vbをクリックして
Public Class FormFusen

End Class
を確認する。
ⅱ)イベントのコードを書く
TextBoxのKeyDownイベントをクリックする


イベントハンドラが表示される
Public Class FormFusen
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

End Sub

End Class

【実際のイベントハンドラのコーディング】
Public Class FormFusen
Private MouseX As Integer 'マウスの横位置(X座標)
Private MouseY As Integer 'マウスの縦位置(Y座標)

'テキストボックス1にキーボードから文字を入力した時
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
'<判定>押されたキーがエスケープキー?
If (e.KeyCode = Keys.Escape) Then
'「yes」の場合
'アプリケーションを終了
Me.Close()
End If

End Sub

'テキストボックス1をマウスでクリックした時
Private Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
'<判定>押されたキーがマウスの左ボタン?
If (e.Button = MouseButtons.Left) Then
'「yes」の場合
Me.MouseX = e.X 'マウスの横位置(X座標)を記憶
Me.MouseX = e.Y 'マウスの縦位置(Y座標)を記憶
End If
End Sub

'テキサスボックス1でクリックしたマウスを移動させた時
Private Sub TextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseMove
'<判定>押されたキーがマウスの左ボタン?
If (e.Button = MouseButtons.Left) Then
'「yes」の場合
Me.Left = Me.Left + e.X - MouseX 'フォームの横位置を更新
Me.Top = Me.Top + e.Y - MouseY 'フォームの縦位置を更新
End If
End Sub

'テキストボックス1をマウスでダブルクリックした時
Private Sub TextBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDoubleClick
'色の設定ダイアログを表示する
ColorDialogFusen.ShowDialog()
'テキストボックスの背景色を色の設定ダイアログで選んだ色に設定する
TextBox1.BackColor = ColorDialogFusen.Color
End Sub

'テキストボックス2をマウスでダブルクリックした時
Private Sub TextBox2_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles TextBox2.MouseDoubleClick
'色の設定ダイアログを表示する
ColorDialogFusen.ShowDialog()
'テキストボックスの背景色を色の設定ダイアログで選んだ色に設定する
TextBox2.BackColor = ColorDialogFusen.Color
End Sub
End Class


◆画面デザインの変更
ラベルの所にテキストの文字が隠れる為、2つラベルをTextBox1にドッキングした
Label1.Dock = Top
Label2.Dock = Bottom
に変更



【実行】


①停止は「Esc」キーを押す
②移動はテキストのマウスで左クリックしたまま移動する
③色を変えたい問はテキストをWクリックする




コメント