日本テクノ・ラボ(株)【3849】の掲示板 2023/04/19〜2023/08/13

>>231

> 昨今一般の方にも浸透してきたchat gpt など黒船的な流れなどがありますが、世の中の流れを先の先の先まで先行して見据えて、是非、今後さらなる大活躍をされることを期待します。

ド素人でもプリンタードライバーを作れる!🤪

"以下は、Fortran 90を使って三色の "Hello World" を印刷するプログラムです。

```fortran
program HelloWorld
implicit none
integer :: iunit=stdout
! ターミナル上での出力には "stdout" を使います
! ただし、Windows環境によってはエラーが発生する場合があるので、
! 変数iunitに別の値を指定することもできます

! 赤
write(iunit,"(a,a,a)") char(27), "[1;31m", "Hello "

! 黄色
write(iunit,"(a,a)") char(27), "[1;33m"
write(iunit,"(a)") "World"

! 青
write(iunit,"(a,a)") char(27), "[1;34m"
write(iunit,"(a)") "!"

! リセット
write(iunit,"(a)") char(27) \/\/ "[0m"
end program HelloWorld
```

このプログラムでは、`stdout`を使用してFortranからメッセージを表示しています。また、エスケープシーケンスを使って、文字の色を赤、黄色、青に変更し、クリアする際にもリセットコードを使用しています。

ビルドして実行する場合は、環境に合わせて`iunit`の設定を確認することが重要です。"