play_wav.prg

来自「门诊收费管理系统」· PRG 代码 · 共 23 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: PLAY_WAV.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER I_PARA
 S = VAL2RMB(I_PARA)
 II = LEN(S)
 I = 1
 DO WHILE I <= II
    W = ''
    W = SUBSTR(S,I,2)
    I = I + 2
    IF I < II AND INLIST(SUBSTR(S,I,2),'仟','万','佰','拾','元','角','分')
       W = W + SUBSTR(S,I,2)
       I = I + 2
    ENDIF 
    = PLAYWAVES('..\lib\' + M.W + '.WAV')
    = ALLCLEAR()
    = LOCSTRINGDISPLAY(10,30,ALLTRIM(STR(I_PARA,10,2)) + '元')
 ENDDO 
*