生成慢放、快放、顺放、逆放效果的视频 If (res AVIERR_OK) Then GoTo error Set bmp = New cDIB List2.ListIndex = 0 If bmp.CreateFromFile(zmaPath & "mypicture\" & List2.Text) True Then MsgBox "Could not load first bitmap file in list!", vbExclamation, App.title Exit Sub
针对近距离煤层群高瓦斯工作面的地质和开采条件,建立了高瓦斯工作面巷道掘进期间和工作面推采期间的瓦斯立体抽放巷模型。巷道掘进期间采用预掘内错底板低位巷或内错顶板高位巷并布置穿层钻孔或布置随掘进的瓦斯抽放钻场进行瓦斯的立体抽放;工作面推采期间采用内错顶板高位巷穿层钻孔和工作面巷道顺层钻孔预抽瓦斯的立体抽放技术。以瓦斯立体抽放模型为基础,结合矿井实际地质条件、矿井巷道围岩与开采环境条件和技术工艺条件,进行了瓦斯立体抽放的实地实验和应用,确定瓦斯抽放巷的垂距和内错距离为15 m、高位巷钻场间距100 m