Можно ли спрятать время выполнения курсора в консоли в Fortran? - PullRequest
2 голосов
/ 08 апреля 2019
  • Я написал специальное программное обеспечение, и оно работает для генерации 6 файлов со случайными числами в разных диапазонах.

  • Но я хочу скрыть курсор , когда он работает .

Is there any possible way to do this?

enter image description here


• Update •

:: Ответ из @Daniel R Livingston

решить дело с чем-то незначительным адаптацией на 1-м посту: ::

"При этом сначала напечатайте управляющий код \e[?25l, чтобы скрыть курсор.

\e[?25h включит его снова. "

write (*,*)char(27)//char(91)//char(63)//char(50)//char(53)//char(108)

! for some reason, by using the 'result = systemqq' 
! may force the screen to "apply" the line above, only 
! after this, that escape gone works in Windows!

result = systemqq('@cls &@%windir%'//char(92)//'system32'//char(92)//'chcp.exe 850 2>nul >nul 1<&2&@color 0a')
write (*,*)char(27)//'[37;41;4m'//char(255)//char(250)//char(255)//'Generating',x,' Random Numbers!',char(27)
           &//'[0m'//char(10)//char(10)

!    Obs.: --------------------------------------------------------------------
!    Turn the cursor back by adding:
!    write (*,*),char(27)//'[?25h'  before end program (latest line) 
!     \e[?25l == char(27)//char(91)//char(63)//char(50)//char(53)//char(108)

enter image description here

1 Ответ

1 голос
/ 08 апреля 2019

Два способа сделать это.

Во-первых, печать управляющего кода \e[?25l скроет курсор. \e[?25h включит его снова.

Во-вторых, позвонив по Windows API :

BOOL WINAPI SetConsoleCursorInfo(
  _In_       HANDLE              hConsoleOutput,
  _In_ const CONSOLE_CURSOR_INFO *lpConsoleCursorInfo
);
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...