ws 薬学部における情報関連教育

薬学部における情報関連教育

薬学部 八 木 沢 暗 記

yagisawa@ne

.nagasaki‑u.ac.jp

他の分野と同様、薬学でも日常のデスクワークはパソコンを利用した仕事がほとんど になっています。計算機はワープロとしての利用のほかに、データベース検索、表計算 ソフトによるデータ処理、化学構造表示、分子軌道計算などにも利用されています。ま た、卒業後就職の可能性の高い薬局でも薬歴管理など多くの点でコンピュータ化されつ つあり、多くの医薬品情報もインターネット上で公開されています。この様な状況で、

薬学部生は計算機についてある程度習熟していることが必要です。そのための薬学部で の情報教育ですが、学部生については全学教育のγ 般情報処理概論(必修)と一般情報 処理演習(選択;ほぼ全員選択)があること、卒業研究で各研究室に入れば計算機を多 用し自然に習熟することもあり、情報専門の科目は設けられていません。ただし、

2

(医療薬剤学実習の一部)が行われていますD ここではこれらを合わせて紹介します。

2 .

2 .  1

学部大学院の演習を目的に計算機室があり以下の機器が設置されている^O ウインドウズパソコン

NEC  Value8tar V20  22

NEC  8800  1

レザープリンター

Canon LBP‑430  1

EpsonGT ・ 9500WIN 1

P o l a r o i d  HR600W ・ B95 1

これらは演習時間外は解放され、論文作成、メール送受信などに常時利用されているD

また、研究室にはネットワークに繋がれている約

120

2 . 2

薬学部は以下のデータベースを持っているO

CACD  (Chemical A b s t r a c t  CD

月一回追加、年間 ~70 万件、工学部と共同購入、図書中央館サーバー

Current C o n t e n t s (

週一回追加 薬学図書室マッキントッシュ

CCSD  (Cambridge C r y s t a l o g r a p h i c  8 t r u c t u r a l   Data Base) 

25

ws

3計算機を使う実習科目

3 .  1 

1

1

これは全学教育の科目であるが、薬学部生の主に選択する時間では、ワープロ、メ ール、ニュースと

V i s u a lb a s i c

o V i s u a l  B a s i cは基本操作、文法、

問題演習からなり、最終的に

PDB ( P r o t e i n  Data Bank)

3 . 2  

2

2

エクセルの基本操作を演習、反応速度データの処理、酸塩基解離と化学反応経過(一 次反応、

2

3 . 3  

3

. . . . . . 3

Windows

2 )

フェノバルピタールの加水分解反応を

pH

E x c e l

3 )

モデル実験系を用いフェノールレッドの体内動態のシミュレーション実験を行い、

エクセルを用い排池速度定数、半減期、分布容積、全身クリアランス、平均滞留時 間などのパラメータを求める。また、パラメータを変えて血中濃度パターンのシミ ュレーションを行う O

3 . 4  

3

2

インターネットによる情報収集: 医薬品についての情報を患者、医師、研究者に提 供すること[医薬品情報学]は薬剤師の重要な仕事です。そこで、この実習では医薬品 について、

1

2

3

保存あるいは提供するため、および

4

80

o

演習例題

1 

2

3 

4 Ca桔抗薬による歯肉増殖症について教えてください。(内科医師からの質問)

2

いるが，効果はどのように違うのか教えて欲しい。また，一緒に吸入する時には，

どういう順番で吸入すればよいのか。(病棟で入院患者さんからの質問)

3 . 5  

1  0

1) 

Windows

MO

プロによる文書作成を演習するO

2 )

ネットワークの概念、サーバー・クライアント、ファイル共有、資源共有(プリン ターなど)、セキュリティー、

T C P / I P

I P

DNS

WWW

FTP

T e l n e t

WWW

3 )

基本的概念、応用範囲、基本操作(ワークシート、セル、ブック形式、数式、関 数、その他便利な使い方)検量線、統計計算などを説明、演習として薬物点滴投 与後の血禁中濃度パターンのシミュレーション、統計計算などを行う O

4 )

データベースの概念、データベースの形式、フィールドの設定、並び替え、検索 などを説明、エクセルおよびファイルメーカ・ーを使いカレントコンテント、

m e d l i n e

CACD

5) データベース検索

C u r r e n t  C o n t e n t s

m e d l i n e

PubMed

C A S o n l i n e

Phamweb

m e d l i n e

CACD

6 )   UNIX

T e l n e t

FTP ( M S f t p )

u n l X

UNIX

UNIX

7 )

メールの仕組みと種々のメールソフトを説明。

m a i l x

I E

gn

8) 計算化学ソフト

MOPAC

C a s c h e

A n c h o r   2

B i o r e s e a r c h3 D (

WinMopac

9) 

V i s u a l  B a s i c  

基本操作、文法(主に文字列操作)を説明、

m e d l i n e

4 終わりに

薬学部での情報教育の問題点、課題などを列挙します。

[ウインドウズとマッキントッシュ]

薬学部では、研究室では大部分がマッキントッシュ、演習では全てウインドウズが使 われています。これは当初心配したほど問題はないようです。ソフトはほとんど同じで

すし、マッキントッシュの操作が簡単でウインドウズ利用者は直ぐにマッキントッシュ が使えます。一方、逆にマッキントッシュ利用者がウインドウズを使うのは多少障壁が あり、社会に出たときのことを考えるとウインドウズでスタートするのが良いかもしれ ない。いずれにせよ、それほど問題はない。

[プログラミング教育]

薬学部で担当している全学教育と大学院の教育では

V i s u a lB a s i c

薬学部でもワープロ、ケミドロー(化学構造描画ソフト)とエクセルが出来れば通常の 研究は間に合います。それで、もプログラミング教育を行っている理由は次のようなもの です。学生の興味が強い(アンケート結果)、個人では習得が困難(市販ソフトは自然 に使えるようになるが、プログミングは個人で習得する可能性が低い)、実用性もある (シミュレーション、データベースのテキストの一括整形に手軽に使える)、ワード、

エクセルなどの VBへの足がかりになる(これらは実際の仕事で役立つ可能性が高いが、

直接取り組むのは難しい)などです。また、計算機を道具として使うだけでなく、その 仕組み(ここではアルゴリズム)に興味を持つことも教育上意味があると考えています。

[Un

Unix

unixの mailx

mule

WinYatが入っていないと云う事情もあります。パソコンのメ

[計算化学]

一般的な意味での情報教育からは少し外れますが、薬学部で教える必要があるものに 計算化学の分野があります。現在は時間的制約と専門に使っている教官がいないことで、

ほとんど教育をしていませんが、薬学研究には今後必要な分野です。これも個人では取 り付きにくいので、演習の形で行う意味があります。計算化学は化学と薬学の分野で重 要な量子化学の教育にも有効と云われています。

以上の薬学部の情報教育を全体としてみると、全学教育などの一斉教育では入門的な こと、薬学の専門に関係すること、個人では取り付きにくいことを主に教えており、市 販ソフトの細かな操作などはあまり教えていません。これは通常のソフトは研究室で実 際に使うことで習熟する、また、細かな点はソフトで変わると云う考えによっています。

また、ここにはウインドウズとマッキントッシュの問題、ソフトのライセンスの問題な どがあります。

V i s u a l  B a s i c

テキストデータの整形 (薬学部医療情報実習)

[データの構造]

通常、データーベースのデータは複数の項目からなる。例えば住所録は氏名、住所、電話番号など である。これをフィールドと云う。データをデータベースソフトに入れるには各フィールドの聞が特 定の記号

(TAB

CACD

TAB

Medline

CAonline

TAB

t x t

Word

[実習]

Medline

medprg) 

フロッピーに

med

t x t

medline

( m e d l i n e

Form1

4

s p a c e

l i n k

t a b

end

コードを入れる。

end

C I s

end

2

(注意) 長いコードは

run

Notepad

VB

[  1 

( s p a c e

( 1 )

s p a c e

NEC

c :

a :

Open " c : m e d

t x t "  For Input As #1 

Open " c : t e m p

t x t "  For Output As #2 

a 1 :  

L i n e  I n p u t  #1

r $  

If 

EOF(1) Then GoTo a10  P r i n t  r $  

Print#2

r $   Goto a1  a 1 0 :  

c l o s e  

P r i n t  "END" 

End Sub 

テンポラリファイルを開く

1

r $

もし、ファイルの終ならば

テンポラリファイルに書き込む

(2)  medprg

s p a c e

(  3  )スペース削除

実行停止後、下線の行を追加する。

' s p a c e  

Open " c : m e d

t x t "  For Input As #1  Open "c:mtemp

t x t "  For Output As #2  a 1 :  

Line Input #1

r $  

If 

EOF(l) Then GoTo a10  n=Len(r$) 

i = l  

Do w h i l e  Mid$(r$

1 ) = "" 

i = i + 1   Loop 

w$=  R i g h t $ ( r $

n ・ i + 1 ) P r i n t   w$ 

Print#2

w$ 

Goto a1  a 1 0 :   c l o s e  

P r i n t  "END" 

注釈文

ファイルを開く

1 行 r $ に読み込む

もし、ファイルの終ならば 行の長さを

に入れる。

i 

はカウンタ

この DoLoop で先頭のスペースの数を調べる。

"  "の聞にスペース(英字)が必要。

iが1づっ増える。

ここまでを繰り返す。 DoLoop の意味は文法参照 SPACE を除いたものを w$ に入れる。

ファイルに書き込む

End Sub 

保存後実行、フロッピーの temp

t x t を聞き、行頭のスペースがなくなっていることを確認。

[ 2  ]  行を連結する

l i n k ボタンに以下をコピーなどを使って入れる。

Open " c : t e m p

t x t "  For Input As #1  Open " c : t e m p 2 . t x t "  For Output As #2  b 3 :  

Line Input #1

r $  

If 

EOF(l) Then GoTo b10 

If 

L e f t $ ( r $

1 )  = 

Then GoTo b4 

I f  r $  =  "Unique I d e n t i f i e r "  Then GoTo b4 

r $  =  " A u t h o r s "  Then GoTo b4 

If 

r $  =  " I n s t i t u t i o n "  Then GoTo b4 

r $  =  " T i t l e "  Then P r i n t :  GoTo b4 

r $  =  " S o u r c e "  Then P r i n t :  GoTo b4 

︑ 在 音 山

'b

・

︒

と す こ 出

/

¥ き

C

開 書 を に

+ ι U 4 1 u  

x X  

4i

u

ゐl u

W 1i9h‑

p p  

ムI

u u

&

E U

1

行 r $ に読み込む

もし、ファイルの終ならば

<2> などの行か調べる

If 

r $  

" A b s t r a c t "  

en P r i n t :  GoTo b4  P r i n t  r $  

P r i n t  #2 ，  r $  

GoTo b3  b 4 :  

P r i n t :  P r i n t  r $  

P r i n t  #2

P r i n t  #2

r $   GoTo b3 

b

P r i n t  #2

r $   C l o s e  

P r i n t  "END" 

End Sub 

Authors

P r i n t

P r i n t #

'は行の間に

SPACE

タグのある場合の操作

前の行にリターンを入れてから書き出す。

最後の行を入れる。

保存実行後、フロッピーの

t e m p 2 . t x t で A b s t r a c t

[ 3 ]  TAB

t a b

' t a b  

Open " c : t e m p 2 . t x t "  For I n p u t  As #1  Open " c : m e d

t a b "  For Output As #2  c 3 :  

L i n e  I n p u t  #1 ，  r $  

If 

EOF(l) Then GoTo c 1 0  

If 

L e f t $ ( r $

1 )   = 

l e nGoTo c 4  

If 

r $   =  "Unique I d e n t i f i e r "  Then GoTo c 4  

If 

r $   =  " A u t h o r s "  Then P r i n t :  P r i n t  #2

GoTo c 5  

r $  

" I n s t i t u t i o n "  Then GoTo c 5  

If 

r $   =  " T i t l e "  Then P r i n t :  GoTo c 5  

r $  

" S o u r c e "  Then P r i n t :  GoTo c 5  

r $   =  " A b s t r a c t "  Then P r i n t :  GoTo c 5   P r i n t  r $  

P r i n t  #2

r $  

GoToc3 

c 4 :  

L i n e  I n p u t  #1

r $  

If 

EOF(l) Then GoTo c

注釈文

GoToc3  c 5 :  

Line Input #1

r $  

If 

EOF(1) Then GoTo c 1 0   P r i n t  r $  +  C h r $ ( 9 ) ;   P r i n t  #2

r $  +  C h r $ ( 9 ) ;   GoToc3 

c1

0 :  

Print#2

C l o s e  

Form1.Print "END" 

End Sub 

<1> 

" A u t h o r s "

C h r $ ( 9 )

保存実行後、フロッピーの

m e d t a b . t x t

E x c e l

[ 4 ]

s p a c e

l i n k

t a b

med.

p )

s t a r t

End Sub

s p a c e

l i n k

P r i n t"END"

c l s

グラム中のラベルに

a

c

f

[ 5  

先頭の

open" c : m e d

t x t "

= i n p u t b o x $ ( " f i l e  name?") 

Open " c : " + f $  For Input As #1

また、最後の

open

(Open" c : m e d 4 . t x t "  For Output As # 2 )

Open " c : " +

+ " . t a b "   For Output As #2

うまく実行されたら、最後に下のテンポラリファイルを消す命令を付ける。

k i l l  " c : t e m p

t x t "  

k i l l  " c : t e m p 2 . t x t "  

通常のソフトのように、ドライブ選択、ファイル選択のボックスを作ることもできる。

詳しくは

VB

[ 6 ]  e x e

e x e

VB

VBver5

f e x e