インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Portability Subroutine: Sounds the speaker at the specified frequency for the specified duration in milliseconds.
USE IFPORT
CALL BEEPQQ (frequency,duration)
frequency |
(Input) INTEGER(4). Frequency of the tone in Hz. |
duration |
(Input) INTEGER(4). Length of the beep in milliseconds. |
BEEPQQ does not return until the sound terminates.
USE IFPORT
INTEGER(4) frequency, duration
frequency = 4000
duration = 1000
CALL BEEPQQ(frequency, duration)