易語言朗讀源碼

❶ 易語言視頻播放器源碼

易語言的支持庫常式裡面有，具體打開易語言
如下：
.版本 2
.支持庫 eMMedia
.支持庫 iext2

.程序集 窗口程序集1

.子程序 _播放按鈕_被單擊

媒體播放1.播放 (-1)
媒體播放1.取長度 ()

.子程序 _暫停按鈕_被單擊

.如果 (媒體播放1.取狀態 () ＝ 1)
媒體播放1.暫停 ()
.否則
媒體播放1.播放 (媒體播放1.取位置 ())
.如果結束

.子程序 _停止按鈕_被單擊

媒體播放1.停止 ()

.子程序 _打開_被選擇

通用對話框1.過濾器 ＝ 「媒體文件|*.wav;*.mid;*.avi;*.mpg;*.mp3;*.wmv;*.rm」
.如果真 (通用對話框1.打開 () ＝ 真)
媒體播放1.打開 (通用對話框1.文件名)
.如果 (媒體播放1.是否視頻 () ＝ 真)
_啟動窗口.標題 ＝ 「視頻文件」
.否則
_啟動窗口.標題 ＝ 「聲音文件」
.如果結束

.如果真結束

.子程序 __啟動窗口_創建完畢

播放按鈕.圖片 ＝ 取圖片組圖片 (#圖片組, 0, 取默認底色 ())
暫停按鈕.圖片 ＝ 取圖片組圖片 (#圖片組, 1, 取默認底色 ())
停止按鈕.圖片 ＝ 取圖片組圖片 (#圖片組, 2, 取默認底色 ())

.子程序 _選擇框1_被單擊

.如果 (選擇框1.選中 ＝ 真)
媒體播放1.置句柄 (分組框1.取窗口句柄 ())
.否則
媒體播放1.置句柄 (0)
.如果結束

.子程序 _媒體信息_被選擇
.局部變數 信息文本, 文本型

信息文本 ＝ 「比率:」 ＋ 到文本 (媒體播放1.取比率 ()) ＋ #換行符 ＋ 「總時間:」 ＋ 到文本 (媒體播放1.取總時間 ()) ＋ #換行符 ＋ 「長度:」 ＋ 到文本 (媒體播放1.取長度 ()) ＋ #換行符 ＋ 「播放位置:」 ＋ 到文本 (媒體播放1.取位置 ()) ＋ #換行符 ＋ 「MCI別名:」 ＋ 媒體播放1.取別名 ()
信息框 (信息文本, 0, )

❷ 求教如何用易語言製作 讀取網頁源代碼的工具並把某一行 顯示到編輯框

首先引入「精易模塊」，灶高沒有到網上自己下載下。

• 讀源代碼：文本型變數 = 到文本(網頁_訪問("這里寫網址"))

• 提取代碼：結果 = 文本_取出中間文本虛羨(文本型變數,"隱譽尺_gamepath = "+#引號,#引號+",")

• 最後：消息框(結果)

❸ 誰給我個易語言MP3播放器源碼啊 要進度條和顯示歌詞和列表

.版本 2
.支持庫 edroptarget
.支持庫 eMMedia
.程序集 窗口程序集_啟動窗口
.程序集變數 文件, 文本型
.程序集變數 類型, 整數型
.子程序 _播放按鈕_被單擊
播放MP3 (-1, 列表框1.取項目文本 (列表框1.現行選中項))
同步播放MP3 (列表框1.取項目文本 (列表框1.現行選中項), 0, 標簽1, )
文件 ＝ 列表框1.取項目文本 (列表框1.現行選中項)
類型 ＝ _專輯圖片_文件名取專輯圖片類型 (文件)
_專輯圖片_文件名取專輯圖片_到圖片框 (文件, 圖片框1, 類型)
.子程序 _按鈕1_被單擊
通用對話框1.打開 ()
列表框1.加入項目 (通用對話框1.文件名, )
' ------------------------------------------------------------------------------------
' 打開對話框，然後在列表框中加入對話框中選擇的文件
.子程序 _標簽1_反饋事件, 整數型
.參數 參數一, 整數型
.參數 參數二, 整數型
進度條1.位置 ＝ 參數一
' ------------------------------------------------------------------------------------------------------
' 參數一是MP3的播放進度，進度條的位置將實時同步參數一
' ：)
.子程序 _暫停按鈕_被單擊
暫停播放MP3 ()
.子程序 _繼續按鈕_被單擊
繼續播放MP3 ()
.子程序 _時鍾1_周期事件
.如果真 (取MP3播放狀態 () ＝ 0)
_啟動窗口.標題 ＝ 「等待播放」
.如果真結束
.如果真 (取MP3播放狀態 () ＝ -1)
_啟動窗口.標題 ＝ 「暫停」 ＋ 「 」 ＋ 到文本 (進度條1.位置) ＋ 「%」
.如果真結束
.如果真 (取MP3播放狀態 () ＝ 1)
_啟動窗口.標題 ＝ 到文本 (「播放中」 ＋ 「 」 ＋ 到文本 (進度條1.位置) ＋ 「%」)
.如果真結束
' ------------------------------------------------------------------------------------------------------------------------
' 每1毫秒都會檢測上面「如果真」的代碼，真的真將會執行代碼
.子程序 __啟動窗口_位置被改變
.如果真 (_啟動窗口.位置 ＝ 2)
_啟動窗口.可視 ＝ 假
置托盤圖標 (#托盤, _啟動窗口.標題)
.如果真結束
' -------------------------------------------------------------------------------------------------------------------------
' 如果窗口被最小化，將會看不到窗口，程序將會放到托盤里
.子程序 __啟動窗口_托盤事件
.參數 操作類型, 整數型
.如果真 (操作類型 ＝ #單擊左鍵)
_啟動窗口.位置 ＝ 1
_啟動窗口.可視 ＝ 真
.如果真結束
.如果真 (操作類型 ＝ #單擊右鍵)
彈出托盤菜單 (托盤菜單)
.如果真結束
' -----------------------------------------------------------------------------------------------------------------
' 如果單擊了左鍵，將會把窗口回復，可以看到窗口
' 如果單擊了右鍵，將會彈出「托盤菜單」這個菜單
.子程序 _播放_被選擇
播放MP3 (-1, 列表框1.取項目文本 (列表框1.現行選中項))
.子程序 _暫停_被選擇
暫停播放MP3 ()
.子程序 _繼續_被選擇
繼續播放MP3 ()
.子程序 _關閉_被選擇
銷毀 ()
.子程序 _恢復_被選擇
_啟動窗口.位置 ＝ 2
_啟動窗口.可視 ＝ 真
.子程序 __啟動窗口_創建完畢
.局部變數 左聲道, 整數型
.局部變數 右聲道, 整數型
拖放對象1.注冊拖放控制項 (取窗口句柄 ())
系統音量1.打開 (4)
滑塊條1.最小位置 ＝ 系統音量1.取最小音量 ()
滑塊條1.最大位置 ＝ 系統音量1.取最大音量 () ÷ 5
系統音量1.取音量 (左聲道, 右聲道)
滑塊條1.位置 ＝ 左聲道 ÷ 5
' -------------------------------------------------------------------------------------------------------------------------
' 來自這里 https://jingyan..com/article/0320e2c1db0a181b86507b61.html
' 注冊那個命令是讓窗口可以把文件拖放進來
.子程序 _拖放對象1_得到文件
.參數 接收到的文件路徑, 文本型
列表框1.加入項目 (接收到的文件路徑, )
' -----------------------------------------------------------------------------------------------------------------------------
' 把拖進來的文件加入到列表框里
.子程序 _圖片框1_被雙擊, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
載入 (窗口1, _啟動窗口, 真)
.子程序 _滑塊條1_位置被改變
系統音量1.置音量 (滑塊條1.位置 × 5, 滑塊條1.位置 × 5)
' -------------------------------------------------------------------------------------------------------------
' 來自這里 https://jingyan..com/article/0320e2c1db0a181b86507b61.html

❹ 求高手給個易語言漢字轉全拼，全拼轉漢字的源碼，謝謝

1 拼音首字母 ：取聲母 取拼音
2 用時鍾記時間：即
秒：第一全局變數秒（miao_temp），每過一秒就 miao_temp=miao_temp+1，。。一個+miao_temp，另外一個-miao_temp，60秒時重新開始
分：第一全局變數分（fen_temp），每過一秒就 fen_temp=fen_temp+1，。。一個+fen_temp，另外一個-fen_temp，60分時重新開始

大概思路兄弟理解？自己寫，相信兄弟一定能寫出來。。。