test.f90

Fortran Console 彩色文本屏幕输出的方法

Program Main
  Use Colorized_Text_Mod !//使用本模块
  Implicit None
  Logical(kind=ctmKIND_LOGICAL) :: bRes !//定义函数返回值接收变量
  bRes = ctm_Init() !//初始化
  If ( .Not.bRes ) then
    write(*,*) '初始化失败！'
  EndIf
  bRes = ctm_SetColor( ctmCOLOR_LIGHTBLUE , ctmSET_TEXT ) !//设置文本颜色为亮绿
  Write(*,*) '蓝色文字'
  bRes = ctm_ResetColor( ctmSET_TEXT ) !//恢复默认的文本颜色
  Write(*,*) '恢复文字显示颜色'
  bRes = ctm_SetColor( ctmCOLOR_LIGHTRED , ctmSET_TEXT ) !//设置文本颜色为亮红
  Write(*,*) '红色文字'
  bRes = ctm_SetColor( ctmCOLOR_YELLOW , ctmSET_BG ) !//设置背景颜色为黄色
  Write(*,*) '黄色背景'
  bRes = ctm_ResetColor( ctmSET_BG ) !//恢复默认的背景颜色
  Write(*,*) '恢复背景显示颜色，保留字体颜色'
  bRes = ctm_SetColor( ctmCOLOR_GREEN , ctmSET_BG ) !//设置背景颜色为绿色
  Write(*,*) '绿色背景'
  bRes = ctm_UnInit() !//终止化
  Write(*,*) '恢复默认样式'
  Read(*,*)
End Program Main