找回密码
 注册
Simdroid-非首页
查看: 463|回复: 13

[3. Fortran] 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

[复制链接]
发表于 2004-6-8 08:06:13 | 显示全部楼层 |阅读模式 来自 湖北武汉
在fortran中如何使程序运行结束时,发出一声蜂鸣声?
在fortran中是哪个函数可以实现该功能?
我记得c语言是可以的,但是不知道fortran中如何实现?
请高手指点,谢谢!
发表于 2004-6-8 20:50:30 | 显示全部楼层 来自 黑龙江哈尔滨

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

Simdroid开发平台
in CVF  
  1. CALL BEEPQQ (frequency, duration)
复制代码

评分

1

查看全部评分

发表于 2004-6-9 09:44:34 | 显示全部楼层 来自 湖北武汉

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

首先感谢楼上的大侠给出提示
但是我在编译的时候是没有错误提示的
但是就是运行的时候是没有那个beep声音的?
我是在end之前一行调用的,
call beepqq(1,0.5)
上面是我调用的语法,难道是错误的么?
希指教
3x
发表于 2004-6-9 10:19:11 | 显示全部楼层 来自 美国

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

  1. [b]USE DFLIB[/b]
  2. INTEGER(4) frequency, duration
  3. frequency = 4000
  4. duration  = 1000
  5. CALL BEEPQQ(frequency, duration)
复制代码

  
frequency
(Input) INTEGER(4). Frequency of the tone in Hz.  
duration
(Input) INTEGER(4). Length of the beep in milliseconds.
发表于 2004-6-9 12:48:31 | 显示全部楼层 来自 黑龙江哈尔滨

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

呵呵,版主的beep声音好高啊,听着头晕。
发表于 2004-6-9 21:24:33 | 显示全部楼层 来自 美国

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

呵呵,吓了一跳。程序员同志,调一调吧;)。
 楼主| 发表于 2004-6-10 09:09:38 | 显示全部楼层 来自 湖北武汉

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

搞定,谢谢两位高手指点!
发表于 2004-6-11 11:42:56 | 显示全部楼层 来自 湖北武汉

回复: 【讨论】Fotran中如何让程序结束时发出一蜂鸣声?

呵呵
我当时看见那个频率,还以为是每秒发生的次数呢?
我想1是比较合适的
原来要那么高的丫
而那个持续时间我当成秒做单位了,呵呵
  
我也调试成功了
多谢苍山负雪和斑竹的出手
HOHO~~~~~~
superstring 该用户已被删除
发表于 2004-12-8 17:06:39 | 显示全部楼层 来自 山西太原
提示: 作者被禁止或删除 内容自动屏蔽
bobbycao 该用户已被删除
发表于 2004-12-15 01:30:05 | 显示全部楼层 来自 甘肃兰州
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-5-8 08:13:58 | 显示全部楼层 来自 黑龙江哈尔滨
thank u
回复 不支持

使用道具 举报

发表于 2009-12-27 23:30:12 | 显示全部楼层 来自 黑龙江哈尔滨
呵呵,挺有用的
回复 不支持

使用道具 举报

发表于 2010-11-6 02:34:50 | 显示全部楼层 来自 北京
学会了,呵呵~~
回复 不支持

使用道具 举报

发表于 2010-11-18 20:40:36 | 显示全部楼层 来自 北京西城
学习了,谢谢各位
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Simapps系列直播

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-11-1 13:23 , Processed in 0.049776 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表