在fortran 90/95中产生声音/哔哔声

Posted 2021-03-28

当我的跑步结束时，我需要在fortran中产生声音。我需要类似于c ++中使用的“ a”或Beep（，）。

答案

尝试在程序结束时添加以下内容

print *, char(7)

另一答案

如果您想要有点创意，可以使用音乐文件结束您的程序。在大多数c：/ windows / media文件夹中，您可以找到许多.wav文件。在这种情况下，我将tada.wav文件复制到我的可执行文件的位置，以便它可以在程序结束时在命令提示符下播放tada.wav文件。

如果您使用英特尔Fortran，那么此实现应该有效：

  program zsound
  use ifport
  implicit none
  integer i
  character(100) :: musicfile

  musicfile = "tada.wav"


  !  Your Program goes here...


  ! CALL EXECUTE_COMMAND_LINE(musicfile)
  i = system(musicfile)

  end