|
Delphi Programming / Object Pascal
  
[掲載 2000年05月07日] [更新 2001年07月22日] PC-9801 目次 |
PC-9801
エックス線診療室の遮蔽計算プログラム Ver.2.0 |
| 動作確認等 |
掲載の図は、Windows 2000 + Anex86 での実行結果 |
 |
SHIELD.zip [732 KB] (Ver. 2.0) |
このプログラム SHIELD.EXE は、平成元年4月1日の医療法施行規則改正および、平成元年7月17日付け健政発第 383 号による、エックス線室の画壁等の遮蔽に関する計算方法の通知に伴い作成したものです、
しかし、現在ではすでに法規も変更となって、実用的ではありませんが、拙作 CRT 画面制御ライブラリを使用すれば、当時のパソコンでもこの程度のプログラムが可能であったということで提供します。
実行画面の図で、反転表示の項目にキーボードから数値等を入力または変更すると、その計算結果を直ちに表示する様になっています。
今回のホームページ開設に伴い、手元にある PC-9821 Np を使用して動作だけは確認しました。 |
| 実行画面はこれだけ |
 |
ダウンロードしたファイルを解凍したら、解凍したファイルを全て適当なフォルダに移動します。次に PC-9801 を MS-DOS モードで起動します。もし Windows 95/98 が動作していたら、MS-DOS で再起動して下さい。
- PC-9801 の MS-DOS プロンプトでは動作しません。
これは PC-9801 の仕様です。起動したら作成したフォルダに移動して、SHIELD.EXE を実行します。 |
|