串口屏LUA例程-音频播放器V1.0

LUA例程-音频播放器V1.0工程技术笔记修订历史版本日期原因编制审查V1.02019/02/28创建文档林青田刘启鑫目录1.适合范围 (1)2.开发环境版本 (2)3.概述 (3)4.参考资料.........................................................................错误！未定义书签。

5.教程实现 (4)5.1准备工程素材 (4)5.1.1硬件平台 (4)5.1.2UI素材准备 (4)5.1.3LUA编辑器 (5)5.2API函数说明 (6)5.3实现功能 (8)5.3.1工程配置 (8)5.3.2程序具体解析 (8)6.完整程序清单 (13)7.免责声明 (24)1.适合范围该文档适合所有广州大彩物联型系列。

2.开发环境版本1．VisualTFT软件版本：V3.0.0.944及以上的版本。

版本查看：a)打开VisualTFT软件启动页面如图2-1软件版本，右上角会显示的软件版本号；图2-1软件版本b)打开VisualTFT，在软件右下角可以查看软件版本图2-2软件版本，最新版本可登录大彩官网进行下载。

图2-2软件版本2.串口屏硬件版本：V3.0.301.0及以上的版本。

版本查看：a)查看屏幕背面版本号贴纸；b)VisualTFT与屏幕联机成功后，右下角显示的版本号。

3.LUA语言版本V5.5。

3.概述物联型串口屏通过LUA脚本配合工程可以实现播放循环屏内部或者外部音频的功能。

4.教程实现本文将分为以下是3个阶段讲述教程DEMO是如何实现的：1.准备工程素材，2.实现功能，3.下载工程。

4.1准备工程素材在实现教程DEMO前需要作以下三个准备：1.硬件平台，2.UI素材，3.LUA编辑器。

4.1.1硬件平台该例程使用大彩物联型7寸串口屏DC80480W070为验证开发平台。

如图5-1所示。

图5-1物联型7寸串口屏其他尺寸的物联型串口屏均可借鉴此教程。

4.1.2UI素材准备准备好相应的美工UI。

如图5-2所示图5-2素材准备4.1.3LUA编辑器上位机VisualTFT内部已集成了LUA开发编译环境，点击菜单栏工具，选择LUA编辑器，如图5-3所示。

图5-3打开LUA编辑器打开编辑器后，Visual TFT画面如图5-4所示；图5-4LUA编辑器4.2API函数说明大彩科技针对LUA脚本提供了丰富的API接口函数，具体函数可以查阅文档《物联型LUA脚本API》，如图5-5所示。

图5-5API函数文档1.本教程文档中所涉及到的部分的相关接口函数如下函数pause_sound(state)注释：继续播放State：播放状态，1继续播放，2停止播放函数play_sound(fliepath)注释：暂停播放。

Fliepath：音频路径函数set_volume(volume)注释：设置音量。

Volume音量0~100函数on_screen_change(screen)注释：当画面切换至目标画面ID时，执行此回调函数参数：screen表示目标画面ID注：更多API函数请参考文档《物联型LUA脚本API_V1.0》4.3实现功能本章节主要讲述调用部分API函数在串口屏上的如何实现循环播放视频，DEMO分以下三个部分解释：1.配置工程属性，2.程序详细解析，3.编译以及运行程序。

4.3.1工程配置1.教程DEMO画面如图5-6所示，关于画面中控件具体属性配置请参考教程DEMO。

图5-6音频播放4.3.2程序具体解析大彩组态控件中的视频播放控件可以根据视频路径播放视频，同时为了可以播放更多的视频，我司在LUA脚本中提供了设置视频播放相关的API函数，通过这些API函数可以实视频循环播放的功能。

详细程序分以下几个部分说明：1.遍历外部存储的视频，将外部视频的路径遍历到一个表中，程序如所示；local musicfilecount=0--音频计数local musicplay_index=0--当前值local music_names={}--音频表local music_playing=1--播放标志位local playing=0--播放标志位local volume=80--音量line_number=0--行号local current_page=1--显示的页码（按上一页下一页查看所有的歌曲，不影响正在播放的歌曲）now_page=1--正在播放的歌曲所在的页码stop_music=0--音乐播放结束是否播放下一首的的标志位pause_flag=0--暂停/继续或者是停止的标志位all_page=0--最大页数，初始化为零u_dir='c:/'--U盘路径music_path=""--音乐路径初始化--获取扩展名function getExtension(str)return str:match(".+%.(%w+)$")endfunction listdir(rootpath)--遍历目录function listdir(rootpath)--遍历目录for entry in lfs.dir(rootpath)doif entry~='.'and entry~='..'thenlocal path=rootpath..'/'..entrylocal attr=lfs.attributes(path)if attr.mode~='directory'thenext=getExtension(path)if ext=='wav'or ext=='mp3'thenmusic_names[musicfilecount]=pathmusicfilecount=musicfilecount+1endelselistdir(path)endendendendfunction on_usb_inserted(dir)--U盘函数u_dir=dir--U盘路径current_page=1musicfilecount=0--音频计数music_names={}--音频表set_value(0,34,current_page)set_value(0,35,1)listdir(dir)--遍历目录all_page=math.modf(musicfilecount/10)--计算总页数,如果总数等于10的倍数会多留一页update_music_ui()end2.显示歌曲名--[[*************************************************************************** **Function name:update_music_ui**Descriptions:显示遍历出来的歌曲名字（非回调函数，可以修改）***************************************************************************--]] function update_music_ui()--显示遍历出来的歌曲名字local page=(current_page-1)*10local music_num=0for i=0,9domusic_num=i+pageif music_num<musicfilecount thenlocal filename=string.match(music_names[music_num],".+/(.+)")set_text(0,1+i,filename)set_value(0,11+i,0)set_visiable(0,11+i,1)elseset_text(0,1+i,'')set_visiable(0,11+i,0)endendend3.上一首和下一首的功能函数--[[*****************************************************************************Function name:next_music**Descriptions:播放下一音乐（非回调函数，可以修改）***************************************************************************--]] function next_music()--播放下一首stop_roll()update_music_ui()line_number=line_number+1if line_number>10thenline_number=line_number-10now_page=now_page+1set_value(0,34,now_page)current_page=now_pageupdate_music_ui()endset_value(0,34,now_page)local music=get_text(0,line_number)if string.len(music)>4thenif string.len(music)>40thenset_text_roll(0,line_number,50)endmusic_path=u_dir..musicplay_sound(music_path)update_icon((line_number-1))line_number=1now_page=1current_page=now_pageset_value(0,34,now_page)update_music_ui()play_music(line_number)endend--[[*****************************************************************************Function name:pre_music**Descriptions:播放上一音乐（非回调函数，可以修改）***************************************************************************--]]function pre_music()--播放上一首stop_roll()update_music_ui()line_number=line_number-1if line_number==0thenline_number=10now_page=now_page-1if now_page<1thennow_page=math.modf(musicfilecount/10)--通过计算音乐数量，计算总页数local num_fmod=math.fmod(musicfilecount,10)--取余数now_page=now_page+1line_number=num_fmodendcurrent_page=now_pageset_value(0,34,current_page)update_music_ui()endset_value(0,34,now_page)--设置页码local music=get_text(0,line_number)if string.len(music)>1thenif string.len(music)>40thenset_text_roll(0,line_number,50)endmusic_path=u_dir..musicplay_sound(music_path)update_icon((line_number-1))elseline_number=1play_music(line_number)end……编写完程序后将工程和脚本一起进行编译，编译成功后可以使用软件中的虚拟屏查看程序是否实现功能，点击工具栏中编译工程按钮，可将工程和脚本的一起编译，操作如图5-7所示图5-7编译工程注意：目前在软件Visual TFT集成的LUA脚本编译器无法进行语法检测，所以编写LUA程序是尽量分模块编写，已达到节省调试的时间。