鄉貢仁 2022-7-17 19:27
[url=https://soundcloud.com/c-chu-imu-i/010-1]https://soundcloud.com/c-chu-imu-i/010-1[/url]
有人能編成program code 嗎
:smile_41:
import vlc
p = vlc.MediaPlayer("file:///path/to/butterfly.mp3")
p.play()
p.close()
** vlc-media player must install in windows
** pip install python-vlc
[[i] 本帖最後由 鄉貢仁 於 2022-7-17 21:31 編輯 [/i]]
鄉貢仁 2022-7-17 21:48
[video=https://1253590913.vod2.myqcloud.com/743b5de7vodhk1253590913/0eb62fa1387702303086500152/387702303086500153.jpg]https://1253590913.vod2.myqcloud.com/743b5de7vodhk1253590913/0eb62fa1387702303086500152/BlMmIlhaiqsA.mp4?videoid=387702303086500152[/video]
元宇宙元 2022-7-17 23:44
係咪5秒寫完 ?! :smile_34: :smile_30:
鄉貢仁 2022-7-17 23:50
[quote]原帖由 [i]元宇宙元[/i] 於 2022-7-17 23:44 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550386291&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
係咪5秒寫完 ?! :smile_34: :smile_30: [/quote]
話咗係簡單, 當然
係好簡單嗰隻...
:smile_30:
元宇宙元 2022-7-18 14:11
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-7-17 23:50 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550386452&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
話咗係簡單, 當然
係好簡單嗰隻...
:smile_30: [/quote]
係個樣同埋番薯同埋雞肉. :smile_34::smile_34::smile_30::smile_30::smile_30:
鄉貢仁 2022-7-24 23:04
[video=https://1253590913.vod2.myqcloud.com/743b5de7vodhk1253590913/b6cca32a387702303370717911/387702303370717912.jpg]https://1253590913.vod2.myqcloud.com/743b5de7vodhk1253590913/b6cca32a387702303370717911/dCXJvsOHGxMA.mp4?videoid=387702303370717911[/video]
1個程式可播成首歌。
歌曲嵌入程式碼中。
[[i] 本帖最後由 鄉貢仁 於 2022-7-24 23:41 編輯 [/i]]
元宇宙元 2022-7-25 00:03
有無諗住整個井, 幫香港人,
或地球人, 方便拎食水 ? :smile_34: :smile_34:
鄉貢仁 2022-7-25 00:28
[quote]原帖由 [i]元宇宙元[/i] 於 2022-7-25 00:03 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=550592048&ptid=30671834][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
有無諗住整個井, 幫香港人,
或地球人, 方便拎食水 ? :smile_34: :smile_34: [/quote]
啱，實用又幫到人先有用。
搞太多高科技，去取代低
技術勞工，肥上瘦下，遲
早搞到人家無飯開，好陰
騭啫。:smile_42:
元宇宙元 2022-7-25 18:47
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-7-25 00:28 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550592592&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
啱，實用又幫到人先有用。
搞太多高科技，去取代低
技術勞工，肥上瘦下，遲
早搞到人家無飯開，好陰
騭啫。:smile_42: [/quote]
你做開起井, 收幾錢 ?
上次做係幾時 ? :smile_34::smile_30:
元宇宙元 2022-7-25 18:48
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-7-25 00:28 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550592592&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
啱，實用又幫到人先有用。
搞太多高科技，去取代低
技術勞工，肥上瘦下，遲
早搞到人家無飯開，好陰
騭啫。:smile_42: [/quote]
有無諗住買隻牛,
送上大陸, 或非洲, 幫手耕田 ?? :smile_34::smile_34:
[[i] 本帖最後由 元宇宙元 於 2022-7-25 18:55 編輯 [/i]]
鄉貢仁 2022-7-25 20:32
[quote]原帖由 [i]元宇宙元[/i] 於 2022-7-25 18:48 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550614783&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
有無諗住買隻牛,
送上大陸, 或非洲, 幫手耕田 ?? :smile_34::smile_34: [/quote]
農耕社會對大自然比較好,
現在的極端天氣是過度
工業化引起的.
:smile_39:
元宇宙元 2022-7-25 23:40
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-7-25 20:32 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550617631&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
農耕社會對大自然比較好,
現在的極端天氣是過度
工業化引起的.
:smile_39: [/quote]
用電腦都用好多電, 對大自然唔好.
自己唔好做罪人, 由自己開始, 叫埋其他人,
以後唔好用了. :smile_34::smile_34::smile_30::smile_30:
[[i] 本帖最後由 元宇宙元 於 2022-7-25 23:56 編輯 [/i]]
鄉貢仁 2022-7-27 12:26
[quote]原帖由 [i]元宇宙元[/i] 於 2022-7-25 23:40 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550622741&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
用電腦都用好多電, 對大自然唔好.
自己唔好做罪人, 由自己開始, 叫埋其他人,
以後唔好用了. :smile_34::smile_34::smile_30::smile_30: [/quote]
;P
[url=https://www.veed.io/view/5fb8f54e-52fb-4f5b-99af-9541f8a429f6]https://www.veed.io/view/5fb8f54e-52fb-4f5b-99af-9541f8a429f6[/url]
[[i] 本帖最後由 鄉貢仁 於 2022-7-27 15:54 編輯 [/i]]
元宇宙元 2022-7-27 15:52
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-7-27 12:26 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550665427&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
;P
https://www.veed.io/view/0e863d3d-1c87-4560-a21a-734adf5a2e15 [/quote]
記得唔好用電器. :smile_30:
鄉貢仁 2022-7-27 22:51
以前的電視劇歌曲真係好正.
[[i] 本帖最後由 鄉貢仁 於 2022-8-2 07:51 編輯 [/i]]
鄉貢仁 2022-8-4 20:07
[url=https://www.youtube.com/watch?v=OKvXBhMNgos]https://www.youtube.com/watch?v=OKvXBhMNgos[/url]
:P
鄉貢仁 2022-8-4 20:14
[url=https://www.youtube.com/watch?v=s-6B8H8Ieuk]https://www.youtube.com/watch?v=s-6B8H8Ieuk[/url]
:smile_15:
鄉貢仁 2022-8-4 20:20
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-8-4 20:14 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550930302&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
https://www.youtube.com/watch?v=s-6B8H8Ieuk
:smile_15: [/quote]
[url=https://justpaste.it/edit/48694117/fxigyuyzglarrpkk]https://justpaste.it/edit/48694117/fxigyuyzglarrpkk[/url]
鄉貢仁 2022-8-4 21:02
[url=https://www.youtube.com/watch?v=h1-zQ0SSS6M]https://www.youtube.com/watch?v=h1-zQ0SSS6M[/url]
鄉貢仁 2022-8-10 20:35
現今想搵個識曲又識code既人不會太易吧！:smile_39:
kormer 2022-8-11 19:30
你用五線譜轉binary? :smile_41:
鄉貢仁 2022-8-11 19:58
[quote]原帖由 [i]kormer[/i] 於 2022-8-11 19:30 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=551130955&ptid=30671834][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
你用五線譜轉binary? :smile_41: [/quote]
師兄好，本會員只是班門弄斧了（showing fishes how to swim)，業餘玩玩的，你們行內人才是專家。:P
[[i] 本帖最後由 鄉貢仁 於 2022-8-11 21:42 編輯 [/i]]
form5 2022-8-11 23:25
in F#
open System
type Duration =
| Whole = 1000
| Half = 500
| Quarter = 250
| Eighth = 125
| Sixteenth = 62
let getDuration step =
match step with
| 1 -> int Duration.Whole
| 2 -> int Duration.Half
| 8 -> int Duration.Eighth
| 16 -> int Duration.Sixteenth
| _ -> int Duration.Whole
type Note =
| C = 0
| Cs = 1
| D = 2
| Ds = 3
| E = 4
| F = 5
| Fs = 6
| G = 7
| Gs = 8
| A = 9
| As = 10
| B = 11
| Size = 12
let getNoteFromString (inputStr:string) =
let s = inputStr.ToUpper()
match s with
| "C" -> Note.C
| "CS" -> Note.Cs
| "D" -> Note.D
| "DS" -> Note.Ds
| "E" -> Note.E
| "F" -> Note.F
| "FS" -> Note.Fs
| "G" -> Note.G
| "GS" -> Note.Gs
| "A" -> Note.A
| "AS" -> Note.As
| "B" -> Note.B
| _ -> Note.E
let Frequency = [
16;17;18;19;21;22;23;24;26;27;29;31;
33;35;37;39;41;44;46;49;52;55;58;62;
65;69;73;78;82;87;92;98;104;110;116;123;
131;139;147;155;165;175;185;196;208;220;233;245;
262;277;294;311;330;349;370;392;415;440;466;494;
523;554;587;622;659;698;740;784;831;880;932;988;
1046;1109;1175;1244;1328;1397;1480;1568;1661;1760;1865;1975;
2093;2217;2349;2489;2637;2794;2960;3136;3322;3520;3729;3951
]
let getFreq (note:Note) (oct:int) =
let _size = int Note.Size
let _note = int note
let idx:int = _size * oct + _note
Frequency.[idx]
let PlayNote note oct durationStep =
let freq = getFreq note oct
let duration = getDuration durationStep
Console.Beep(freq, duration)
printfn "%A" note
()
//PlayNoteFromString "E-5-4"
let PlayNoteFromString (input:string) =
let s = input.Split "-"
if s.Length = 3 then
let note = getNoteFromString s[0]
let octave = s[1] |> int
let durationStep = s[2] |> float |> int
PlayNote note octave durationStep
()
let song = [
"E-5-4,B-4-8,C-5-8,D-5-4,C-5-8,B-4-8,";
"A-4-4,A-4-8,C-5-8,E-5-4,D-5-8,C-5-8,";
"B-4-4.5,C-5-8,D-5-4,E-5-4,";
"C-5-4,A-4-4,A-4-8,A-4-8,B-4-8,C-5-8,";
"D-5-4.5,F-5-8,A-5-4,G-5-8,F-5-8,";
"E-5-4.5,C-5-8,E-5-4,D-5-8,C-5-8,";
"B-4-4,B-4-8,C-5-8,D-5-4,E-5-4,";
"C-5-4,A-4-4,A-4-4,P-4,";
"E-5-2,C-5-2,D-5-2,B-4-2,C-5-2,A-4-2,";
"GS-4-2,B-4-4,P-4,E-5-2,C-5-2,D-5-2,B-4-2,";
"C-5-4,E-5-4,A-5-2,GS-5-2";
]
let notes = // "E-5-4,B-4-8,C-5-8,D-5-4,C-5-8,B-4-8".Split "," //testing
seq {
for line in song do
let note = line.Split ","
for each in note do
if each.Length > 0 && each.Contains("-") then
yield each
}
for n in notes do
PlayNoteFromString n
form5 2022-8-11 23:45
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-8-4 20:14 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=550930302&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
https://www.youtube.com/watch?v=s-6B8H8Ieuk
:smile_15: [/quote]
原本嘅c# source code 係呢度
[url=https://inphamousdevelopment.wordpress.com/2012/11/12/beep-beep/]https://inphamousdevelopment.wordpress.com/2012/11/12/beep-beep/[/url]
感覺幾得意，所以試吓改左個F# 版
元宇宙元 2022-8-12 01:40
[quote]原帖由 [i]鄉貢仁[/i] 於 2022-8-11 19:58 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=551131543&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
師兄好，本會員只是班門弄斧了（showing fishes how to swim)，業餘玩玩的，你們行內人才是專家。:P [/quote]
專家能一秒寫到,
普通人10秒內寫完.
10 秒外才或能完成, 屬癈物. :smile_34::smile_30:
kormer 2022-8-12 04:20
正常人彈琴呢，係有機會10隻手指同時按琴鍵的，要軟件做到出呢啲聲音就要支援咩呢？🤔
kormer 2022-8-12 05:00
6. 7. 1 7. 1 2
1 2 3 4 3
:smile_30:
呢首咩歌呢？🤔
鄉貢仁 2022-8-12 07:50
[quote]原帖由 [i]form5[/i] 於 2022-8-11 23:25 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=551137029&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
in F#
open System
type Duration =
| Whole = 1000
| Half = 500
| Quarter = 250
| Eighth = 125
| Sixteenth = 62
let getDuration step =
match step with
| 1 -> ... [/quote]
拋z引玉, 引咗高手黎了.
:P
[[i] 本帖最後由 鄉貢仁 於 2022-8-13 06:54 編輯 [/i]]
鄉貢仁 2022-8-12 07:52
[quote]原帖由 [i]元宇宙元[/i] 於 2022-8-12 01:40 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=551139172&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
專家能一秒寫到,
普通人10秒內寫完.
10 秒外才或能完成, 屬癈物. :smile_34::smile_30: [/quote]
等緊 J Ching 露番兩手呢 . . . :)
[[i] 本帖最後由 鄉貢仁 於 2022-8-12 07:56 編輯 [/i]]
鄉貢仁 2022-8-12 07:53
[quote]原帖由 [i]kormer[/i] 於 2022-8-12 05:00 發表 [url=https://computer.discuss.com.hk/redirect.php?goto=findpost&pid=551140578&ptid=30671834][img]https://computer.discuss.com.hk/images/common/back.gif[/img][/url]
6. 7. 1 7. 1 2
1 2 3 4 3
:smile_30:
呢首咩歌呢？🤔 [/quote]
似乎直接播mp3實際好多. ;P