在CVF中,如何实现C语言中GETCHAR()的功能?

主题：在CVF中,如何实现C语言中GETCHAR()的功能?

mangreat [专家分：0] 发布于 2010-09-25 13:18:00

在C语言中,有个直接读取键盘的函数GETCHAR(),即只要按键盘,通过该函数,就可获得键盘输入,判断出是哪个键被按下.那么在fortran 中,有没有这种功能的函数呢? 如果没有,又如何实现呢?请行家里手不吝赐教.谢谢.

沙发

cgl_lgs [专家分：21040] 发布于 2010-09-25 13:39:00

可以直接声名并调用GETCHAR。

板凳

jstzhurj [专家分：4680] 发布于 2010-09-25 13:43:00

  character(len=256)::a
  do while(a/='exit'.and.a/='EXIT')
   read(*,*) a
   write(*,*) trim(a)
  enddo

功能，直到键盘输入exit或EXIT退出。
缺点：不能获取键盘功能键。

抛砖引玉！

3 楼

cgl_lgs [专家分：21040] 发布于 2010-09-25 13:54:00

Integer GETCHAR,ret

ret=GETCHAR()

4 楼

mangreat [专家分：0] 发布于 2010-09-25 14:14:00

谢谢.3楼给出的方案,我试了一下,编译没有通过.我的版本为CVF6.6,操作系统为Windows XP.

5 楼

cgl_lgs [专家分：21040] 发布于 2010-09-25 16:17:00

这样吧：
integer getch,ret

ret=getch()
然后把编译选项中的大小写改成：as-is就行了。

6 楼

BiCGSTAB [专家分：780] 发布于 2010-09-25 17:12:00

[quote]可以直接声名并调用GETCHAR。[/quote]
请问为什么可以这样调用？

您尚未登录，请登录后再回复。点此登录或注册