加齢黄斑変性について（NHKチョイスより）

たしか3月14日(土)だったと思いますが、NHKのチョイスというような名前の番組で、加齢黄斑変性について放送されていました。


原因は、黄斑の部分に弱い血管ができてしまう、(弱い血管がはえやすくなる）、その部分から水がもれたり出血をおこしたりすることのようです。

タバコや食べ物の影響があります。

加齢黄斑変性は1998年には、37万人だったのが、2012年には89万人となっており増えています。初期であれば治療できます。

加齢黄斑変性は欧米では、中途失明理由の第一位となっています。

もっとも有効な治療法は、抗VEGF薬で、血管ができるのをふせいだりします。ただし脳こうそくの危険がある場合には使用できません。

目に注射を行なうもので、治療は続けないといけません。1回につき5万円かかります。

眼底カメラで前兆がわかります。

網膜の細胞が出すドルーゼンという物質が 目の奥にたまると新しい血管ができてくるので加齢黄斑変性になりやすくなります。

眼底検査は、3割負担で1,200円程度です。網膜の断面を見るOCT検査は600円です。造影は、1350円です。

食事とかタバコが影響します。

ドルーゼンがたまると見え方にゆがみがでてきます。

緑黄色野菜をバランスよくとることにより、ドルーゼンの発生をおさえることができます。

緑黄色野菜が持つ抗酸化作用によります。

サプリメント、ビタミンA、C、E、ルテイン、亜鉛などを摂取することも大事です。

食べるとよい野菜としては

ほうれん草
小松菜
ブロッコリー
にんじん
かぼちゃ
パブリカ


油と一緒にとるとルテインの吸収率が上がります。

肉をとると逆によくありません。

βカロチンの取りすぎはあまりよくない場合も

また禁煙が大事です。


視界がゆがむ、ぼやける、黒い点が見えるなどの場合には要注意です。

LibreOffice のマクロ

以下は、昨日に作成したLibreOffice用（Windows上で動作）のマクロです。

私は、Access2003 は持っていますが、Excel は持っておらず、Excel の代わりにLibreOffice やOpenOfficeの Calc を使用しています。LibreOffice の Calc のデータを、Access のデータベースにコピーするためのマクロです。 Calc ファイルの、2列目、3列目、4列目のデータを、サンプルデータベース.mdb というAccessデータベースのサンプルテーブルにコピーしています。入力するデータは、日付、JANコード、商品名です。同じJANコードのレコードがすでに、Accessデータベース側に存在する場合には、メッセージを出力し、コピーは行われません。

なお、以前にも LibreOffice のマクロでAccessデータベースにレコードを入力するサンプルを紹介させていただいたことはありました。


sub adodb_put_mdb2

    Dim hiduke as String
    Dim jancode as String
    Dim shouhinmei as String
     Dim j as Integer
     Dim kison as Boolean
       
       
    j = inputbox("行数を入れてください","はじめる行数","3")
   
    j = j-1
   

 Set conn = CreateObject("ADODB.Connection")
 Set rs = CreateObject("ADODB.Recordset")
   
   conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\Users\hiroshi\Dropbox\doc\mdb\サンプルデータベース.mdb"
  
   
    rs.Open "select * from サンプルテーブル", conn ,3,3
'

    do while j < 2000


    hiduke= ThisComponent.Sheets.getByName("3月").getCellByPosition(1,j).string
    jancode= ThisComponent.Sheets.getByName("3月").getCellByPosition(2,j).string
    shouhinmei= ThisComponent.Sheets.getByName("3月").getCellByPosition(3,j).string

    ' msgbox jancode
   
   
    if jancode = "" then
         exit do
    end if
       
   
    rs.Movefirst()
    kison = false
   
    do until rs.EOF
   
   
        'msgbox rs.Fields.Item("JANコード").value
       
        if    jancode = rs.Fields.Item("JANコード").Value then
            msgbox "既にあります。" & jancode & rs.Fields.Item("商品名").value
            kison = true
            '& rs.Fields.Item("日付").value
           
        end if
       
        rs.Movenext()           
    loop

    if kison = false then
   

    rs.AddNew
     rs.Fields.Item("日付").value=hiduke
     rs.Fields.Item("JANコード").value=jancode
     rs.Fields.Item("商品名").value=shouhinmei
     rs.Update

      end if
     
 
  j = j+1
 
  loop
 
    rs.Close
    conn.Close
   
msgbox "end"

end sub

ucanaccess を Android アプリ開発で使用

Javaでマイクロソフト社のAccessにアクセスするライブラリとしてucanaccessというライブラリがあります。このucanaccess を Android アプリ開発で使用しています。

Android上からAccessのmdbファイルやaccdbファイルの内容を見たり編集したりできるアプリの開発をしているのです。


ucanaccessを使ってレコードを追加するサンプル

しかしながら、java でプログラムを作ってPC上でできる操作が、Androidアプリ上でやろうとするとうまくいかないことがあることがわかりました。


ucanacess を使って、レコードの削除や編集をしようとしても、そのテーブルに日付時刻型のフィールドがある場合にエラーとなってしまうようです。理由はわかりません。


このことから、日付時刻型のフィールドを含むテーブルのレコードを削除や更新をするためには、ucanaccess ではなくて jackcess というライブラリを使用するしかないのだと考えています。

100円ショップで LANケーブルを購入

100円ショップで、またLANケーブルを購入してしまいました。

Nexus7 (2012) の USBコネクタ接続がゆるくなった

Nexus7 (2012) のマイクロUSBの接続部分がゆるくなってしまい、USBコネクタを挿入しても充電できないことがあります。 USB接続を使用しない充電方法として、専用ドッキングステーションを使用するという方法があるようなのですが、値段が高いので躊躇してしまいます。さっき調べた時点では、12,500円でした。


ASUS Nexus7 専用 ドッキングステーション 90-XB3XOKDS00030




USB接続がゆるくなったのは、USBのメスのコネクタがゆるいのか、ケーブル側のオスのほうがゆるいのかを確認してみる必要があると感じました。100円ショップで購入したUSBケーブルで試してみたところ、充電できたので、オスのほうに問題があったのかもしれません。

以下のサイトを参考にさせていただいております。自分で修理した方や、ドッキングステーションを自作した方のブログのようです。


http://dr-ky.blogspot.jp/2014/03/nexus720129.html

http://total-idea-plan.com/blog/9980

Dock 用のコネクタから強制的に充電した方もいらっしゃるようです。

http://nanoappli.com/blog/archives/6353

Nexus7 のふたは、割と簡単に開くようなので、Dock　用のコネクタから強制的に充電するという方法をいつか試してみたいと思っております。

(2015.8.26)
以下のサイトは、Nexus7(2013)のUSBコネクタの部品を自身で交換された方のものです。

http://fotopota.sakuraweb.com/archives/2015/05/diy_nexus_7usb.shtml

なお、以下は Nexus7 のバッテリー関連の動画です。

Android Studio のインストール

今まで、Android アプリは、eclipse で開発を行ってきましたが、Android Studio に移行してみようと考えました。

そこで、Android Studio をダウンロードしてインストールしてみました。Android Studio ではプロジェクトごとに、ウインドウが開かれることがわかりました。

使っているマシンは、Dell Dimension 4600C でOSはWindows7です。Android Studio はこの環境では、結構　重く感じられました。


また、今までEclipse で作成してきたプロジェクトを、Android Studio のほうでインポートして移行するということができるようです。移行の方法としてまずEclipse側でエクスポートするという手段もあるようですが、それをせずにて、Android Studio の側から直接インポートするという方法が推奨されているようです。



なお、およそ　一年前　にもAndroid Studio をダウンロードして使用してみたことがありました。

Open Office 4.1.1 をインストール

Windows7 のパソコンに　OpenOffice 4.1.1 をインストールしてみました。
もともと、そのパソコンには LibreOffice がはいっていたのですが、LibreOffice とOpenOffice が共存できるのかどうかは、よくわかりません。よくわからないまま、インストールしてしまったのです。