2018年5月
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31    

最近のトラックバック

無料ブログはココログ

2018年5月22日 (火)

検査・治療入院することになりました

通院日でした。

5月に入ってから周期的な腹痛に悩まされるようになり、主治医と相談して6月の中旬に検査入院することになりました。

大腸鏡で腸の中を確認して、狭くなっているところがあったら拡張するという話。

去年は緊急入院した病院でやってもらったんだけど、今回は主治医がいるいつもの病院で。拡張術は年1回はやらないといけない感じになっているので、慣れたもんです。

拡張術をやるときは眠くなる薬を使うんだけど、「毎回眠らないぞ」って抵抗するものの、あっさり寝ちゃうんですよね。今回も勝負ですね。勝てないとは思いますが(笑)

それまで悪化しないように食事面には気を使わないといけないんですが、あと1ヶ月弱、耐えられますかねぇ。もし潰瘍が酷い場合、拡張術もできなくなるのでがんばらないといけないんですが、自信がありません(汗

2018年5月18日 (金)

Google Drive File Streamのエラーからの復帰

Windows10が入ったPCに、GoogleのDrive File Streamというソフトを入れています。

これは何かというと、Windowsのエクスプローラーを使って、Googleドライブをあたかもローカルのフォルダのように扱えるというソフトです。

ところが、このDrive File Streamが一時期起動しなくなってしまいました。起動しようとすると、「問題が発生したためドライブファイルストリームが停止されました」というメッセージが表示されます。

イベントビューアを確認すると、以下のようなエラーが発生しています。

「リモートサーバーから受け取った証明書は正しく検証されていません。エラーコードは0x80092013です。TLS接続要求は失敗しました。添付されているデータにサーバーの証明書が含まれています。」

Gfs_

さて困った。

Googleで色々検索しましたが、出てくるのはMacでの不具合ばかり。Windowsの情報はほとんど見つからず、仕方がないので、ソフトを入れ直したりPCを再起動したり。しかし全く直る気配がありません……。

諦めて放置していましたが、「あれをやったらどうなんだろ?」と思い、試してみたところあっさり直りました。試した内容は、インターネットオプションのセキュリティタブにある「信頼済みサイト」にhttps://drive.google.comを追加するだけ。

Gfs__2

ウソのように解決。もし同じような事象が発生している人がいたら、お試しください。

2018年5月16日 (水)

馬券購入の参考になりそうなプログラムを書いた話

「マイナスにならないようにオッズに合わせて馬券を買えば、お金持ちになれるんじゃ?」

そんな邪な考えが頭に浮かんだので、単勝の全頭買いで必要な金額を計算するプログラムを書いてみることにしました。最初は携帯に便利なAndroidアプリを作ろうと思いましたが、どんなもんか確認したくって、簡単に作れるExcel VBAで作成。

ロジック的にはこんな感じ。

1. 全頭に100円ずつ賭け、総掛金を求める。例えば16頭立てなら1600円になる。

2. 1枠から順番に以下の処理を行う。
 オッズとその枠への掛金を乗算して配当を求め、総掛金と比較する。

 (a) 配当 >= 総掛金以上の場合は次の枠へ。
 (b) 配当 < 総掛金の場合は配当が総掛金を超えるように枠への掛金を調整し、1枠から計算をやり直す。

プログラムは以下の通り。細かいところは突っ込まないで欲しいです。あくまで動作確認用なので。

Option Explicit

Private Sub Btn_Calc_Click()

    Dim ListTop As Long
    Dim Counter_A As Long

    ' 初期設定
    Range("C2:C17").Value = 100

    ListTop = 2
    Counter_A = ListTop

    Do Until Cells(Counter_A, 1).Value = ""

        If Cells(Counter_A, 4).Value >= Range("C18").Value Then

            Counter_A = Counter_A + 1

        Else

            Do Until Cells(Counter_A, 4).Value >= Range("C18").Value

                Cells(Counter_A, 3).Value = Cells(Counter_A, 3).Value + 100

            Loop

            Counter_A = ListTop

        End If

    Loop

    MsgBox "計算が終わりました"

End Sub

複雑な計算はせず、というより数学の素養が無いから全く計算式が思いつかないだけですが、実に素直に順番に計算をしています。

で、JRAのサイトから適当なレースのオッズの値を利用し、実行してみました。最初はすぐに終わると思っていたのに、ぜんぜん終わる気配が無い。1時間以上経っても終わらないので中断……。

1時間15分動かした結果がこちら。

Photo

12枠までの計算は順調に進んだのですが、そこから1枠に戻っては掛金の調整が入るというのを繰り返して、13枠以降が全くの手付かずです。最初、プログラムがバグってるんじゃないかと思ってしまいました。

この時点で6億超えてますが……。本当に合ってますかね?

しかし、これを見る限り、全頭買いでお金持ち計画は無理なんだなぁって思いました。だって、6億あったら馬券なんて買わなくていいもんね。

2018年5月15日 (火)

病院に行ってきました

日曜日の21時頃からお腹に違和感を感じていたんですが、日付が変わった月曜日の午前1時過ぎ後から、本格的な痛みに変わりました。

断続的に襲ってくる腹痛。
眠りに落ちては痛みで目が覚め、また眠っては起きてを繰り返し。

朝になっても痛みが引かなかったので、動けるようになってから主治医のいる病院まで行ってきました。自宅から病院まで片道2時間弱……。

採血して、お腹のレントゲンを撮って、それから診察。

炎症反応はそれほど高くなく、レントゲンも通過が悪そうなところはあるものの、腸閉塞っていうほどでもなく。とりあえず元々の受診予定日だった来週まで様子見となりました。帰宅してからも続くこの断続的な腹痛は何なんでしょうね。

しかし、自宅を出てから帰宅するまで約9時間。とにかく疲れた。

様子見になるなら、病院に行かずに自宅で寝てても良かったかもね。

2018年5月14日 (月)

レディ・プレイヤー1を観てきました

遅ればせながら、レディ・プレイヤー1を観てきました。

公式サイト

http://wwws.warnerbros.co.jp/readyplayerone/

ポスター(※公式サイトより転載させて頂きました)

1

ストーリーは、オアシスというVRワールドに隠された製作者の遺産を手に入れるため、3つの鍵を集めていくというものです。

アバターの外見をいくらでも変えられるので、映画に登場する他のプレイヤーキャラクターを見ては「〇〇だ」「あれ? 今〇〇がいなかった?」みたいにワクワクしてました。シン・ゴジラを観た時みたいに、一時停止、巻き戻し、スロー再生をしたいな。Blu-ray買うかな。

あと、他の映画で使われたシーンも出てきて、「ああ、この場面は観たことある気がする」と、その辺りも楽しかったです。

「俺はガンダムで行く」というシーンも大笑い。メカゴジラが出てきたときも、ちゃんとゴジラのテーマが流れてたし(アレンジしてありましたが)。

ストーリーは、まあ良くある王道って感じなので特別どうこう思うことは無かったのですが、オアシスを作った人物の純粋な心が良かった。

ゲーム好きはもちろん、ゲームクリエイターの人もぜひ見て欲しい映画でした。(そういう人達は言われなくても既に観てるでしょうけど)

最後に、「ゲームは1日1時間」という高橋名人の言葉が頭に浮かんだのは私だけでしょうか。

«腹痛が続いています