史萊姆論壇 - 我又「亂」寫程式了^^a"

史萊姆論壇 (http://forum.slime.com.tw/)

- 生活話題、日常閒聊、喇勒唬爛灌水區 (http://forum.slime.com.tw/f23.html)

- - 我又「亂」寫程式了^^a" (http://forum.slime.com.tw/thread288113.html)

魔術王子	2018-01-24 06:51 PM

我又「亂」寫程式了^^a"

老實說,應該會是一個蠻無聊的程式,因為結合了螢幕保護程式和MP3播放功能
MP3播放功能,看字面就知道可以播放MP3的檔案,而螢幕保護程式呢?
其實無聊就在這,程式執行後可以按播放播放MP3(若有的話)
若沒播放,只要滑鼠一分鐘內沒移動,程式就會自動撥放MP3:on_16:
就這樣:on_52:
老規矩,下面是連結(MEGA還是不能用):on_75:
https://drive.google.com/file/d/1Ehn...ew?usp=sharing

ppp0600

2018-01-24 09:23 PM

Not Found
Error 404

錯誤訊息 :on_31:

魔術王子	2018-01-24 09:38 PM

引用:

作者: ppp0600 (文章 2372608)

Not Found
Error 404

錯誤訊息 :on_31:

哪部分?:on_47::on_47::on_47:
程式還是下載?

ppp0600

2018-01-24 09:53 PM

引用:

作者: 魔術王子 (文章 2372609)

哪部分?:on_47::on_47::on_47:
程式還是下載?

下載，又恢復正常了，真奇怪 :on_22::on_22::on_22:

魔術王子	2018-01-24 10:15 PM

剛剛測試有一個非常非常危險的Bug
就是若沒有任何播放檔案,就按"播放"程式會出現錯誤,只能以工作管理員強迫關閉
這部分明天改進,還有一點忘了說明,程式只會搜尋同一資料夾下的MP3播放檔案
這部分留給有興趣的人發揮

ppp0600

2018-01-24 10:33 PM

引用:

作者: 魔術王子 (文章 2372612)

我有發現這兩個問題 :on_79:

mini	2018-01-25 09:04 AM

程式的防錯往往是費神的一部分 (不只要不崩潰還要繼續正常運行)
每次看魔王的程式碼都很簡潔
相形之下me的就很多...
有時候還真佩服地說~

瞬移行動＋ Ver1.5
看起來簡單但總行數都快達到2000行了... :on_36:
(等功能整合完畢再釋出，趁機廣告一下 :on_65:)

魔術王子	2018-01-25 07:16 PM

引用:

作者: mini (文章 2372616)

哈~~小王子在寫程式和學習魔術方面都算是完美主義者,其他就很隨便
寫程式和學習魔術都是全力以赴,力求完美
其實這些程式在設計之初,也都是雜亂無比,等到完成後
再慢慢規劃,精簡程式碼
這次分享順便把最初版也放進去

https://drive.google.com/file/d/1Ehn...ew?usp=sharing

這版改變蠻大的,雖然沒有加入檔案按鈕,但可以用拖曳的方式將檔案加入,也可拖曳資料夾,程式會將資料夾內所有MP3加入
不過對Unicode可能會出問題,C++ Builder 6並沒有支援到

追加功能:
分成播放清單跟目錄清單,需從目錄清單挑選歌曲,才能撥放
若播放沒有歌曲,自動撥放時間到會自動將目錄清單歌曲加入播放清單
可以拖曳檔案到播放清單
可以拖曳資料夾,資料夾內檔案會加入播放清單

魔術王子	2018-01-25 07:42 PM

播放時千萬別移除或清除清單,會產生裝置錯誤的訊息
只能以工作管理員強制關閉
明天會再修正這個bug,然後分享

魔術王子	2018-01-26 07:24 PM

修改好了
https://drive.google.com/file/d/1Ehn...ew?usp=sharing

順便分享一下VB 2015的設計方式
https://drive.google.com/file/d/1Jtc...ew?usp=sharing
不過因為工具箱上面沒有元件,所以必須要自己加入,加入步驟是在工具箱上按滑鼠右鍵,選[選擇項目],到[COM]的頁面,將[Windows Media Player]選項打勾,就可以在工具箱最下面看到[Windows Media Player]的元件,不過編譯完後,必須要跟AxInterop.WMPLib.dll與Interop.WMPLib.dll放在一起,然後.NET要安裝4.5.2版,才能使用

另外這個是隨興設計的QRPlayer,播放影片用,但要用拖曳的方式
因為之前用的播放器若沒連網路,會跑很久才出來所以才會想寫這個Quick Run Player
https://drive.google.com/file/d/1lWJ...ew?usp=sharing

魔術王子	2018-02-02 08:49 PM

https://drive.google.com/file/d/1FJe...ew?usp=sharing
這個程式跟上面的程式都是與播放跟螢幕保護程式有關
只不過上一個是時間一到就播放,而這個同樣有這個功能,但還增加了攔截螢幕保護程式發生的訊息
也就是說這個程式可以讓螢幕保護程式無法啟動
由於程式是攔截訊息,而系統訊息都是傳給作用中的視窗,所以程式執行時,一定要讓程式處於作用中,才有效果
今天試了結果播放是沒問題,但在開機啟動的程式碼,因為是採用別的程式,然後程式名稱忘了改,所以會無作用(但開機後還是會執行,只不過選項無法打勾)
另外之前的程式是先將檔案保存起來,所以不會再搜尋檔案,而這個程式是每撥放完一個音樂,就會再搜尋檔案,也因為為了測試這部分程式碼,原本該等候一分鐘(60000)的時間,改為5秒(5000),然後忘了改回來
程式執行後,會在NotifyIcon下出現一個圖示,可以在圖示上雙擊,或按右鍵
這些Bug下禮拜回修改,然後分享,目前算是程式設計經驗分享吧

魔術王子	2018-02-05 06:36 PM

https://drive.google.com/file/d/1FJe...ew?usp=sharing
修改好了,有多加一個功能就是"定時關機"
所以程式有三個功能"暫停螢幕保護程式","閒置播放MP3","定時關機"

魔術王子	2018-02-05 07:06 PM

引用:

作者: 魔術王子 (文章 2372734)

https://drive.google.com/file/d/1FJe...ew?usp=sharing
修改好了,有多加一個功能就是"定時關機"
所以程式有三個功能"暫停螢幕保護程式","閒置播放MP3","定時關機"

又出錯了,關機部分被REMARK起來:on_52:
只要將REMARK拿掉重新編譯就行了
明天再修正(關機應該不常用吧:on_90:)

魔術王子	2018-02-06 07:12 PM

https://drive.google.com/file/d/1FJe...ew?usp=sharing
關機部分請小心測試,我就是測試時不小心執行到關機,才會remark起來

魔術王子	2018-02-07 06:55 PM

今天又修正了一些錯誤就是忘了設計[播放]鈕的程式碼連結如下
https://drive.google.com/file/d/1FJe...ew?usp=sharing
另外今天也設計一個同樣功能,但不同模式的程式,連結如下
https://drive.google.com/file/d/1gFl...ew?usp=sharing

還有就是這兩個程式都可以在表單下面的狀態列上按滑鼠右鍵顯示功能表

魔術王子	2018-02-10 08:39 AM

應該是專科吧,好像修組合語言第一個寫的程式就是一個時鐘的常駐程式,那是DOS的環境執行,在螢幕右上角顯示一個時鐘
所以這次小王子挑戰它(WinCLOCK.exe)
不過Windows本身就是多工系統,所以只要寫好程式執行,就可以輕易達成,太簡單了,所以小王子乾脆加入這些額外的功能
https://drive.google.com/file/d/1wd3...ew?usp=sharing

使用"暫停螢幕保護程式"請小心,因為程式每隔一秒便會偵測,所以很有可能當你在打字途中,視窗"作用狀態"被程式搶走了

mini	2018-02-10 05:30 PM

暫停螢幕保護程式
可以試試暫時更改windows註冊表 (離開程式時再更改回去)
(因為沒找到暫停螢幕保護程式程式碼
所以不知魔王是用什麼方式，聽起來好像是用使用者動作來防止windows閒置計數)

http://webcache.googleusercontent.co...&gbv=1&ct=clnk

裡面的方法一是使用 WinAPI : SystemParametersInfo
其實就是一種
更改windows註冊表
的 API函式

魔術王子	2018-02-10 06:06 PM

引用:

作者: mini (文章 2372764)

這是參考陳寬達先生所著"C++ Builder深度歷險"裡面的程式

PHP 語法:


		
			
void __fastcall TForm1::WMSysCommand(TWMSysCommand& Message)

{

  if ((Message.CmdType & 0xfff0) == SC_SCREENSAVE) {

    Message.Result = 0;

    return;

  }

  TForm::Dispatch(&Message);

}

//---------------------------------------------------------------------------

PHP 語法:


		
			
  BEGIN_MESSAGE_MAP

    VCL_MESSAGE_HANDLER(WM_SYSCOMMAND,TWMSysCommand,WMSysCommand);

  END_MESSAGE_MAP(TForm);

它是攔截起動螢幕保護程式的訊息,這就是為什麼程式一定要在作用中,因為只有作用的程式才可收到訊息
書中有提到很多種方式,但小弟偏愛這種方式,因為不會動到系統的設定

SystemParametersInfo()
這就沒轍了,只能以後若有更好的方法再修改吧

魔術王子	2018-02-13 06:55 PM

https://drive.google.com/file/d/1wd3...ew?usp=sharing
這應該是最後的版本了(因為下一個版本又改了新名稱)

祝大家新年快樂:on_66::on_66::on_66:

魔術王子	2018-02-23 07:50 PM

引用:

作者: 魔術王子 (文章 2372776)

https://drive.google.com/file/d/1wd3...ew?usp=sharing
這應該是最後的版本了(因為下一個版本又改了新名稱)

祝大家新年快樂:on_66::on_66::on_66:

https://drive.google.com/file/d/1wd3...ew?usp=sharing
可以很確定這是最後一版了:on_14:

魔術王子	2018-03-09 09:02 PM

https://drive.google.com/file/d/14Lk...ew?usp=sharing
這個程式是依照小王子的興趣設計的,也是最滿意的成果,連程式名稱都很滿意:on_75::on_81::on_14:
當然功能跟前幾版一模一樣,只是操作畫面有很大的改變

魔術王子	2018-03-21 07:34 PM

引用:

作者: 魔術王子 (文章 2373012)

https://drive.google.com/file/d/14Lk...ew?usp=sharing
前版程式有一個小問題,就是執行時程式會找作用中的資料夾,如果是手動執行程式
程式會抓目前程式的位置
但如果是開始自動啟動,那預設資料夾就會便成windows\system32這樣程式就無法找到置放在同位置的mp3檔案
目前已經修正這個問題,另外加了一個功能,就是會自動儲存剪貼簿裡面的擷圖

魔術王子	2018-06-06 09:03 PM

https://drive.google.com/file/d/14Lk...ew?usp=sharing
這版有修正一個蠻嚴重的Bug,閒置撥放置音樂時,因為Form2表單從未啟動,所以就沒有執行搜尋歌單的程式,希望也是最後一個Bug

所有時間均為台北時間。現在的時間是 11:20 AM。

SEO by vBSEO 3.6.1