11 音频屏播放 - M系列

本文介绍医用级M系列串口屏如何播放外部SD卡里的视频、音频文件，其中包含以下内容

1. 文件检索：检索SD卡根目录下的文件，如MP3、MP4
2. 列表显示：将检索到的文件，显示出来，通过上下翻页显示
3. 音量控制：调节喇叭的音量大小
4. 循环播放：循环播放遍历出来的歌曲
5. 播放控制：可控制播放的停止、开始，以及指定对应歌曲播放

本例程主要API函数，如下所示

1. 播放音频：play_sound(filename)
2. 停止播放：stop_sound()
3. 音频播放结束回调通知：on_audio_callback (state)
4. 播放视频：play_video(file,left,top,width,height)
5. 停止播放：stop_video()
6. 暂停视频播放：pause_video()
7. 恢复视频播放：resume_video()
8. 视频播放进度回调：on_video_notify(msg，v1, v2)
9. 遍历文件回调函数：on_list_dir(path, filename, type, fsize)
10. 开始遍历：list_dir(sd_dir)

适用范围：M系列

例程下载链接：《M系列-播放SD卡音频频文件》(点击跳转)

路径说明

屏内音视频文件，如果从工程属性加载的音频、视频文件，如下所示

随着工程文件下载到屏内的音视频，Lua脚本引用路径如下所示

play_sound(“3:/sounds/1.mp3”)
play_video(“3:/videos/1.mp4”, 0, 0, 800, 480)

通过串口文件传输、4G下载、复制到屏内等等，Lua脚本引用路径如下所示

play_sound(“3:/1.mp3”)
play_video(“3:/1.mp4”, 0, 0, 800, 480)

播放SD卡、U盘的音视频，Lua脚本引用路径如下所示

local file_path = ‘’

play_sound(file_path..'/'..'1.mp3')
play_video(file_path..'/'..'1.mp4', 0, 0, 800, 480)

function  on_usb_inserted(dir)
    file_path = dir
end

function  on_sd_inserted(dir)
    file_path = dir
end

M系列/ 物联型视频播放相关对比，如下所示

11.1 音频播放

本文播放音乐为SD卡根目录下的‘mp3’文件，通过选定对应的音乐播放

画面配置

在画面ID1中，分为以下5大部分，如下所示

1. 歌曲菜单部分：显示音乐名（文本控件ID6~10）、播放状态（图标控件ID1~5）、选择播放（按钮控件ID11~15）。当用户点击按钮控件时候，会播放对应文本控件显示的音乐，并且标亮音乐名称和图标控件
2. 菜单翻页部分：该部分主要由按钮控件ID16（上一页）、按钮控件ID20（下一页）、文本控件ID 17（当前页）以及文本控件ID 20（总页数）。用户点击上一页或下一页会将遍历的音乐名称相应显示出来
3. 音量调节部分：点按钮控件36显示出调节部分的控件，调节部分，主要由进度条控件ID39和滑动条控件ID40来调节音量大小
4. 播放动态效果部分：当音乐播放的时候，动画控件ID31开始播放，播放完毕后，动画控件ID32开始播放
5. 上/下一首部分：该部分由按钮控件实现，按钮控件ID22上一首、按钮控件ID23开始/暂停、按钮控件ID24下一首功能

LUA脚本编辑

• 遍历歌单：用户插入SD卡后（SD卡根目录有歌曲文件），遍历出所有音频文件并保存在缓冲区里面，当用户翻页或点击播放时，从缓冲区里面显示音乐名或指定音乐播放，LUA脚本如下所示

local music_Tb      = {}
local music_cnt     = 0
local music_curpage = 1
local music_allpage = 1
local paly_music_index = 0
local sd_dir      = ''

-- 获取扩展名 
-- 自定义函数（非回调函数，可以修改）
-- @str 需要获取后缀名的字符串
function my_get_extension(str)  
    local file_type = ''
    local token_s, token_e = string.find(str, "%.", 1)

    if token_s ~= nil
    then
        file_type = string.sub(str, (token_s + 1), string.len(str)) 
        print("file_type -> "..file_type)
    end

    return file_type
end

--变量文件
--@path    :文件路径
--@filename:文件名称
--@type    :0 文件夹，1 文件
--@fsize   :文件大小
function on_list_dir(path, filename, type, fsize)

    if type == 1
    then
        local cur_file_type = my_get_extension(filename)
        ......
        elseif cur_file_type == 'mp3'
        then
            set_enable(sc_music, 23, 1)
            music_cnt = music_cnt + 1
            music_Tb[music_cnt] = path..list_token..filename

        elseif cur_file_type == 'MP3'
        then
            set_enable(sc_music, 23, 1)
            music_cnt = music_cnt + 1
            music_Tb[music_cnt] = path..list_token..filename
        end 
    end
end

--显示当前页的歌曲名单
--xth_musicpage : 第几页
function my_show_cur_musicpage(xth_musicpage)

    if music_cnt > 0 
    then
        --计算音乐索引
        local music_idnex = (xth_musicpage - 1) * 5 

        for i = 1, 5 
        do
            if (music_idnex + i) <= music_cnt 
            then
                local show_music_name = string.match(music_Tb[music_idnex + i], ".+/(.+)")     
                set_text(sc_music, (5 + i), show_music_name)   
                set_visiable(sc_music, (0 + i), 1)
                set_enable(sc_music, (10 + i), 1)                       
            else
                set_text(sc_music, (5 + i), ' ')
                set_visiable(sc_music, (0 + i), 0)
                set_enable(sc_music, (10 + i), 0)    
            end
        end

        if paly_music_index > 0
        then
            local cur_play_page = math.modf(paly_music_index / 5)
            if paly_music_index % 5 > 0
            then
                cur_play_page = cur_play_page + 1
            end

            if cur_play_page == xth_musicpage
            then
                --当前页是播放页，标亮图标、字体
                my_set_music_playstate(paly_music_index)
            else
                --当前页非播放页，取消标亮图标、字体
                my_set_music_playstate(0)
            end
        end 
    end  
end

-- 系统回调函数，插入SD卡自动回调
function on_sd_inserted(dir)
    print("Lua_DebugMsg -> insert sd disk : "..dir)
    local cur_screen = get_current_screen()

    sd_dir = dir
    list_dir(sd_dir)

    if cur_screen == sc_music
    then
        if music_cnt > 0
        then
            music_allpage = math.modf(music_cnt / 5)

            if music_cnt % 5 > 0
            then
                music_allpage = music_allpage + 1
            end

            set_text(sc_music, 17, music_curpage)
            set_text(sc_music, 19, music_allpage)
            my_show_cur_musicpage(music_curpage)
        end
    ......
    end
end

• 翻页显示歌单：UI上每一页显示5首歌，通过页码自加键，计算出在“music_Tb”里面的索引，LUA脚本如下所示

function on_control_notify(screen,control,value)

    if screen == sc_music
    then
        --上一页
        if control == 16 and value == 0 
        then
            local cur_page = 0

            if music_cnt > 0
            then
                --计算上一页
                cur_page = get_value(sc_music, 17)
                cur_page = cur_page - 1
                if cur_page <= 1
                then
                    cur_page = 1
                end

                --刷新页面，更新歌单
                set_value(sc_music, 17, cur_page)
                my_show_cur_musicpage(cur_page)
            end

        --下一页
        elseif control == 20 and value == 0
        then    

            local cur_page = 0
            local all_page = 0

            if music_cnt > 0
            then
                --计算上一页
                cur_page = get_value(sc_music, 17)
                all_page = get_value(sc_music, 19)
                cur_page = cur_page + 1
                if cur_page > all_page
                then
                    cur_page = all_page
                end

                --刷新页面，更新歌单
                set_value(sc_music, 17, cur_page)
                my_show_cur_musicpage(cur_page) 
            end      
        ......
        end
    end
    ......
end

• 选择对应歌曲播放：标亮选中的歌曲、图标，使“唱片”动态播放，LUA脚本如下所示

--显示播放动画效果
function my_set_music_playgif()

    stop_animation(sc_music, 31)
    stop_animation(sc_music, 32)

    play_animation(sc_music, 31)

end

--设置当前播放音频的图标、字体标亮
--xth_music：当前音乐索引，此索引为遍历的索引
function my_set_music_playstate(xth_music)

    local cur_musicname_len = 0

    if xth_music > 0
    then
        --计算在歌单列表第几首（1-5）
        local xth_line = xth_music % 5
        if xth_line == 0
        then
            xth_line = 5
        end

        for i = 1, 5
        do
            cur_musicname_len = string.len(get_text(sc_music, i + 5))
            if i == xth_line
            then
                --标亮播放中的歌曲文字、标亮图标
                set_value(sc_music, i, 1)
                set_fore_color(sc_music, i + 5, play_color)
                if cur_musicname_len > 16
                then
                    set_text_roll(sc_music, i + 5, roll_speed) 
                end
            else
                 --非播放歌曲取消高亮文字、图标
                set_value(sc_music, i, 0)
                set_fore_color(sc_music, i + 5, noplay_color)
                set_text_roll(sc_music, i + 5, 0) 
            end
        end

    else
        for i = 1, 5
        do
            set_value(sc_music, i, 0)
            set_fore_color(sc_music, i + 5, noplay_color)
            set_text_roll(sc_music, i + 5, 0) 
        end
    end

end

function on_control_notify(screen,control,value)
    ......
    if screen == sc_music
    then
        ......      
        elseif (control >= 11 and control <= 15) and value == 0    --选择对应歌曲播放
        then 
            --设置播放状态
            set_value(sc_music, 23, 1)

            --停止视频、初始化视频播放状态
            stop_video()
            set_value(sc_video, 23, 0)

            local cur_page = 0
            if music_cnt > 0
            then
                --计算第几首音乐
                cur_page = get_value(sc_music, 17)
                paly_music_index = (cur_page - 1) * 5 + (control - 10)
                my_set_music_playstate(paly_music_index)

                if paly_music_index <= music_cnt
                then
                    --播放音乐，播放唱片效果
                    stop_sound()
                    play_sound(music_Tb[paly_music_index])
                    my_set_music_playgif()
                end
            end
        ......
    end
    ......
end

• 音量调节：按下音量按钮，显示音乐部分的控件，通过拖动滑动条控件，联动文本控件音量值、图标控件音量等级的控制，代码如下所示

--显示音量部分的控件
function my_set_volume_visiable(state)
    for i = 37, 41
    do
        set_visiable(sc_music, i, state)
        set_visiable(sc_video, i, state)
    end

    if state == 1
    then
        start_timer(volume_timer, 2*1000, 1, 1)
    end
end

--设置音量大小、音量图标等级、音量值
function my_set_volume_value(value)
    --设置音量图标
    if value == 0 
    then
        set_value(sc_music, 35, 0)
        set_value(sc_music, 38, 0)

        set_value(sc_video, 35, 0)
        set_value(sc_video, 38, 0)

    elseif value > 0 and value <= 33
    then
        set_value(sc_music, 35, 1)
        set_value(sc_music, 38, 1)

        set_value(sc_video, 35, 1)
        set_value(sc_video, 38, 1)

    elseif value > 34 and value <= 66
    then
        set_value(sc_music, 35, 2)
        set_value(sc_music, 38, 2)

        set_value(sc_video, 35, 2)
        set_value(sc_video, 38, 2)

    elseif value > 67 and value <= 100
    then
        set_value(sc_music, 35, 3)
        set_value(sc_music, 38, 3)

        set_value(sc_video, 35, 3)
        set_value(sc_video, 38, 3)
    end
    --设置音量数值
    set_text(sc_music,41, value)
    set_text(sc_video,41, value)
    --调节音量
    set_volume(value)
end

 function on_control_notify(screen,control,value)
    ......       
    if screen == sc_music
    then
        ......

        elseif control == 36 and value == 0
        then
            --隐藏音量调节的控件
            my_set_volume_visiable(0)

        elseif control == 36 and value == 1
        then
            --显示音量调节的控件
            my_set_volume_visiable(1)

        elseif control == 40 
        then
            --调节音量
            my_set_volume_visiable(1)
            set_value(sc_video, 39, value)
            set_value(sc_video, 40, value)
            my_set_volume_value(math.modf(value))

        end
    end
      ......
end

• 歌曲控制：上一首、下一首、暂停/停止等等，代码如下所示

 function on_control_notify(screen,control,value)
     if screen == sc_music
     then
        ......
         elseif (control >= 22 and control <= 24) and music_cnt > 0
        then
            stop_video()
            if control ~= 23
            then
                set_value(sc_music, 23, 1)
                set_value(sc_video, 23, 0)

                --上一首，播放索引-1
                if control == 22 and value == 0
                then
                    paly_music_index = paly_music_index - 1
                    --循环，回到最大索引
                    if paly_music_index < 1
                    then
                        paly_music_index = music_cnt
                    end

                --下一首，播放索引+1
                elseif control == 24 and value == 0
                then
                    paly_music_index = paly_music_index + 1
                    --循环，回到最大1
                    if paly_music_index > music_cnt
                    then
                        paly_music_index = 1
                    end
                end

                --计算当前索引的所在页数
                local cur_play_page = math.modf(paly_music_index / 5)
                if paly_music_index % 5 > 0
                then
                    cur_play_page = cur_play_page + 1
                end

                set_value(sc_music, 17, cur_play_page)

                --刷新显示页数、播放显示状态
                my_show_cur_musicpage(cur_play_page)
                my_set_music_playstate(paly_music_index)

                --播放歌曲、动态转动唱片
                play_sound(music_Tb[paly_music_index])
                my_set_music_playgif()

            else
                --暂停
                if value == 0
                then
                    stop_video()
                    stop_sound()
                    stop_animation(sc_music, 31)
                    stop_animation(sc_music, 32)
                --播放
                elseif value == 1
                then
                    stop_video()
                    play_sound(music_Tb[paly_music_index])
                    my_set_music_playgif()
                end
            end
        ......
    end
    ......
end

歌曲循环播放：当声音播放完毕后，自动回调on_audio_callback，则可控制播放下一首，已达到自动播放，循环播放的效果

--音频播放结束通知
function on_audio_callback(state)

    paly_music_index = paly_music_index + 1
    if paly_music_index > music_cnt
    then
        paly_music_index = 1
    end

    local cur_play_page = math.modf(paly_music_index / 5)
    if paly_music_index % 5 > 0
    then
        cur_play_page = cur_play_page + 1
    end

    if cur_play_page == get_value(sc_music, 17)
    then
        my_set_music_playstate(paly_music_index)
    else
        my_set_music_playstate(0)
    end

    my_set_music_playgif()
    play_sound(music_Tb[paly_music_index])

end

运行预览

编译工程，下载到实体屏中，将mp3文件拷贝到SD卡根目录，插入SD卡，即可显示歌单，选择播放

11.2 视频播放

播放视频通过遍历SD卡目录下的‘mp4’文件，通过选定对应的视频进行播放。

画面配置

在画面ID2中，分为以下4大部分，如下所示

1. 视频菜单部分：显示视频名（文本控件ID6~10）、播放状态（图标控件ID1~5）、选择播放（按钮控件ID11~15）。当用户点击按钮控件时候，会播放对应文本控件显示的视频，并且标亮视频名称和图标控件
2. 菜单翻页部分：该部分主要由按钮控ID16（上一页）、按钮控件ID20（下一页）、文本控件ID 17（当前页）以及文本控件ID 20（总页数）。用户点击上一页或下一页会将遍历的视频名称相应显示出来
3. 音量调节部分：点按钮控件36显示出调节部分的控件，调节部分，主要由进度条控件ID39和滑动条控件ID40来调节音量大小。
4. 播放部分：该部分由按钮控件实现，按钮控件ID22上一首、按钮控件ID20开始/暂停、按钮控件ID24下一首功能，按钮控件ID21是控制上一首、下一首播放进度的显示/隐藏效果

LUA脚本

• 遍历显示视频表单：用户插入SD卡后（SD卡根目录有mp4文件），遍历出所有mp4文件并保存在缓冲区里面，当用户翻页或点击播放时，从缓冲区里面显示视频名字，LUA脚本如下所示

-- 获取扩展名 
-- 自定义函数（非回调函数，可以修改）
-- @str 需要获取后缀名的字符串
function my_get_extension(str)  
    local file_type = ''
    local token_s, token_e = string.find(str, "%.", 1)

    if token_s ~= nil
    then
        file_type = string.sub(str, (token_s + 1), string.len(str)) 
        print("file_type -> "..file_type)
    end

    return file_type
end

--显示当前页的视屏文件名称
--xth_videopage:第几页
function my_show_cur_videopage(xth_videopage)

    if video_cnt > 0 
    then
        --计算该页面的起始视频索引
        local video_idnex = (xth_videopage - 1) * 5 

        for i = 1, 5 
        do
            if (video_idnex + i) <= video_cnt 
            then
                local show_video_name = string.match(video_Tb[video_idnex + i], ".+/(.+)")     

                set_text(sc_video, (5 + i), show_video_name)   
                set_visiable(sc_video, (0 + i), 1)
                set_enable(sc_video, (10 + i), 1)                       
            else
                set_text(sc_video, (5 + i), ' ')
                set_visiable(sc_video, (0 + i), 0)
                set_enable(sc_video, (10 + i), 0)    
            end
        end

        if paly_video_index > 0
        then
            local cur_play_page = math.modf(paly_video_index / 5)
            if paly_video_index % 5 > 0
            then
                cur_play_page = cur_play_page + 1
            end

            if cur_play_page == xth_videopage
            then
                my_set_video_playstate(paly_video_index)
            else
                my_set_video_playstate(0)
            end
        end

    end  
end

--@path    :文件路径
--@filename:文件名称
--@type    :0 文件夹，1 文件
--@fsize   :文件大小
function on_list_dir(path, filename, type, fsize)

    if type == 1
    then
        local cur_file_type = my_get_extension(filename)
        if cur_file_type == 'mp4'
        then
            set_enable(sc_video, 23, 1)
            video_cnt = video_cnt + 1
            video_Tb[video_cnt] = path..list_token..filename

        elseif cur_file_type == 'MP4'
        then
            set_enable(sc_video, 23, 1)
            video_cnt = video_cnt + 1
            video_Tb[video_cnt] = path..list_token..filename
        ......
        end 
    end
end

-- 系统回调函数，插入SD卡自动回调
function on_sd_inserted(dir)
    local cur_screen = get_current_screen()

    sd_dir = dir
    list_dir(sd_dir)

    ......
    elseif cur_screen == sc_video
    then

        if video_cnt > 0
        then

            video_allpage = math.modf(video_cnt / 5)

            if video_cnt % 5 > 0
            then
                video_allpage = video_allpage + 1
            end

            set_text(sc_video, 17, video_curpage)
            set_text(sc_video, 19, video_allpage)
            my_show_cur_videopage(video_curpage)
        end
    end
end

• 翻页显示视频表单：UI上每一页最多显示5个视频，通过页码自加键，计算出在“video_Tb”里面的索引，LUA脚本如下所示

function on_control_notify(screen,control,value)    
    ......
    if screen == sc_video
    then
        if control == 16 then

            local cur_page = 0

            if video_cnt > 0
            then
                cur_page = get_value(sc_video, 17)

                cur_page = cur_page - 1
                if cur_page <= 1
                then
                    cur_page = 1
                end

                set_value(sc_video, 17, cur_page)
                my_show_cur_videopage(cur_page) 
            end

        elseif control == 20 
        then    
            local cur_page = 0
            local all_page = 0

            if video_cnt > 0
            then
                cur_page = get_value(sc_video, 17)
                all_page = get_value(sc_video, 19)

                cur_page = cur_page + 1
                if cur_page > all_page
                then
                    cur_page = all_page
                end

                set_value(sc_video, 17, cur_page)
                my_show_cur_videopage(cur_page) 
            end
        ......
        end
    end
end

• 选择对应视频播放：标亮选中的视频名字、图标，LUA脚本如下所示

--标亮当前播放视频的图标、文字
function my_set_video_playstate(xth_video)

    local cur_videoname_len = 0

    if xth_video > 0
    then
        local xth_line = xth_video % 5
        if xth_line == 0
        then
            xth_line = 5
        end

        for i = 1, 5
        do
            cur_videoname_len = string.len(get_text(sc_video, i + 5))
            if i == xth_line
            then
                set_value(sc_video, i, 1)
                set_fore_color(sc_video, i + 5, play_color)
                if cur_videoname_len > 12
                then
                    set_text_roll(sc_video, i + 5, roll_speed) 
                end
            else
                set_value(sc_video, i, 0)
                set_fore_color(sc_video, i + 5, noplay_color)
                set_text_roll(sc_video, i + 5, 0) 
            end
        end

    else
        for i = 1, 5
        do
            set_value(sc_video, i, 0)
            set_fore_color(sc_video, i + 5, noplay_color)
            set_text_roll(sc_video, i + 5, 0) 
        end
    end

end


function on_control_notify(screen,control,value)
    .......
    if screen == sc_video
    then
        ......
        elseif (control >= 11 and control <= 15) and value == 0
        then 
            set_value(sc_video, 23, 1)

            --暂停音乐部分
            stop_sound()
            set_value(sc_music, 23, 0)
            stop_animation(sc_music, 31)
            stop_animation(sc_music, 32)

            --计算选择的视频，在video_Tb的索引，得出视频路径
            local cur_page = 0
            if video_cnt > 0
            then
                cur_page = get_value(sc_video, 17)
                paly_video_index = (cur_page - 1) * 5 + (control - 10)
                my_set_video_playstate(paly_video_index)

                if paly_video_index <= video_cnt
                then    
                    play_video(video_Tb[paly_video_index], video_x, video_y, video_w, video_h)
                    --显示播放进度、时间
                        my_setvisable_video_progress(1)
                end
            ......
            end 
        end
    end
end

• 视频控制：上一个、下一个、暂停/停止等等，代码如下所示

function on_control_notify(screen,control,value)    
    ......    
    if screen == sc_video
    then
        ........
        elseif (control >= 22 and control <= 24) and video_cnt > 0
        then
            stop_sound()

            if control ~= 23
            then
                set_value(sc_video, 23, 1)

                --停止音频播放、初始化状态
                set_value(sc_music, 23, 0)
                stop_animation(sc_music, 31)
                stop_animation(sc_music, 32)

                --上一首
                if control == 22 and value == 0
                then
                    paly_video_index = paly_video_index - 1

                    if paly_video_index < 1
                    then
                        paly_video_index = video_cnt
                    end

                --下一首
                elseif control == 24 and value == 0
                then
                    paly_video_index = paly_video_index + 1
                    if paly_video_index > video_cnt
                    then
                        paly_video_index = 1
                    end
                end

                --计算页码、标亮图标、视频文字等
                local cur_play_page = math.modf(paly_video_index / 5)
                if paly_video_index % 5 > 0
                then
                    cur_play_page = cur_play_page + 1
                end

                set_value(sc_video, 17, cur_play_page)

                my_show_cur_videopage(cur_play_page)
                my_set_video_playstate(paly_video_index)

                play_video(video_Tb[paly_video_index], video_x, video_y, video_w, video_h)
                --显示视频播放进度
                my_setvisable_video_progress(1)

            else
                if value == 0
                then
                    stop_sound()
                    pause_video()

                elseif value == 1
                then
                    stop_sound()
                    set_value(sc_music, 23, 0)
                    stop_animation(sc_music, 31)
                    stop_animation(sc_music, 32)

                    resume_video()
                    --显示视频播放进度
                    my_setvisable_video_progress(1)
                end    
            end
        end
    ......
    end    
end

• 音量调节：按下音量按钮，显示音乐部分的控件，通过拖动滑动条控件，联动文本控件音量值、图标控件音量等级的控制，代码如下所示

--显示音量部分的控件
function my_set_volume_visiable(state)
    for i = 37, 41
    do
        set_visiable(sc_music, i, state)
        set_visiable(sc_video, i, state)
    end

    if state == 1
    then
        start_timer(volume_timer, 2*1000, 1, 1)
    end
end

--设置音量大小、音量图标等级、音量值
function my_set_volume_value(value)
    --设置音量图标
    if value == 0 
    then
        set_value(sc_music, 35, 0)
        set_value(sc_music, 38, 0)

        set_value(sc_video, 35, 0)
        set_value(sc_video, 38, 0)

    elseif value > 0 and value <= 33
    then
        set_value(sc_music, 35, 1)
        set_value(sc_music, 38, 1)

        set_value(sc_video, 35, 1)
        set_value(sc_video, 38, 1)

    elseif value > 34 and value <= 66
    then
        set_value(sc_music, 35, 2)
        set_value(sc_music, 38, 2)

        set_value(sc_video, 35, 2)
        set_value(sc_video, 38, 2)

    elseif value > 67 and value <= 100
    then
        set_value(sc_music, 35, 3)
        set_value(sc_music, 38, 3)

        set_value(sc_video, 35, 3)
        set_value(sc_video, 38, 3)
    end
    --设置音量数值
    set_text(sc_music,41, value)
    set_text(sc_video,41, value)
    --调节音量
    set_volume(value)
end

 function on_control_notify(screen,control,value)
    ......       
    if screen == sc_video
    then
        ......
          elseif control == 36 and value == 0
        then
            my_set_volume_visiable(0)

        elseif control == 36 and value == 1
        then
            my_set_volume_visiable(1)

        elseif control == 40 
        then
            my_set_volume_visiable(1)

            set_value(sc_music, 39, value)
            set_value(sc_music, 40, value)
            my_set_volume_value(math.modf(value))
        end
    end
      ......
end

视频循环播放：在on_video_notify这个函数里面可知道播放进度、总进度、播放状态（播放中/播放完），则可控制播放下一首，已达到自动播放，循环播放的效果，LUA脚本如下所示

function on_video_notify(msg,v1,v2)

    local token_time = ':'
    --播放中
    if msg == 1
    then
        local v1_h = string.format("%02d", math.modf(v1/60/60))
        local v1_m = string.format("%02d", math.modf((v1/60) % 60))
        local v1_s = string.format("%02d", math.modf(v1%60))
        local show_v1 = v1_h..token_time..v1_m..token_time..v1_s


        local v2_h = string.format("%02d", math.modf(v2/60/60))
        local v2_m = string.format("%02d",  math.modf((v2/60) % 60))
        local v2_s = string.format("%02d", math.modf(v2%60))
        local show_v2 = v2_h..token_time..v2_m..token_time..v2_s


        set_value(sc_video, 26, (v1/v2)*1000)
        set_text(sc_video, 27, show_v1)
        set_text(sc_video, 28, show_v2)

    --播放完
    elseif msg == 0
    then 
        paly_video_index = paly_video_index + 1
        if paly_video_index > video_cnt
        then
            paly_video_index = 1
        end

        local cur_play_page = math.modf(paly_video_index / 5)
        if paly_video_index % 5 > 0
        then
            cur_play_page = cur_play_page + 1
        end

        if cur_play_page == get_value(sc_video, 17)
        then
            my_set_video_playstate(paly_video_index)
        else
            my_set_video_playstate(0)
        end
        play_video(video_Tb[paly_video_index], video_x, video_y, video_w, video_h)
        my_setvisable_video_progress(1)
    end
end

运行预览

编译工程，下载到实体屏中，将mp4文件拷贝到SD卡根目录，插入SD卡，即可显示歌单，选择播放