搜索 社区服务 统计排行 帮助
发帖 回复
« 返回列表
«123»
共3页
上一主题下一主题
  • 4538阅读
  • 40回复

[转贴]卡拉时间精确控制

 楼层直达
qiyuwanjia
级别: 新手上路
注册时间:
2006-01-21
在线时间:
0小时
发帖:
227
只看该作者 30楼 发表于: 2007-01-02
引用
最初由 MeteorRain 发布
横向放大，然后播放……配合你可爱的鼠标和不停地暂停和播放，然后你就会发现一切是如此轻松……

手都是放在空格和F2上的囧
回复 引用
举报顶端
ngng
级别: 新手上路
注册时间:
2006-04-21
在线时间:
0小时
发帖:
42
只看该作者 31楼 发表于: 2007-01-04
真可行嗎..？
回复 引用
举报顶端
feelingmtg
级别: 工作组
注册时间:
2006-01-10
在线时间:
2小时
发帖:
1080
只看该作者 32楼 发表于: 2007-01-13
其实
偶是标准的频谱派
别打偶

偶尝试做了些Kara
用Audition

大约一句10分钟
速度我认为还可以接受

最近一直在尝试
普通的时间轴的频谱表做法
现在速度稳定在1分钟2句
大多能在3小时内做完

个人感觉是
频谱表做完后
作个简单的查错
就可以达到不错的效果

恩
我总结频谱表做时间轴的一个比较致命的问题
也就是影响此方法效率的因素
是：
把时间复制粘贴的时间
不少与总时间的1/3
正在找人帮忙写程序
作个可以想POPSUB那样的按钮那样的小东西
不知能不能顺利
PS：那人说要让我用20分钟的非线编+一个PS作业+一个100帧的Flash交换
苦啊！
回复 引用
举报顶端
qiyuwanjia
级别: 新手上路
注册时间:
2006-01-21
在线时间:
0小时
发帖:
227
只看该作者 33楼 发表于: 2007-01-13
已经说过了某MR有某东西
回复 引用
举报顶端
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 34楼 发表于: 2007-01-13
想要的话，我可以贡献一些核心代码。
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
feelingmtg
级别: 工作组
注册时间:
2006-01-10
在线时间:
2小时
发帖:
1080
只看该作者 35楼 发表于: 2007-01-13
引用
最初由 MeteorRain 发布
想要的话，我可以贡献一些核心代码。


啥东西的核心代码？
是偶说的可以代替Ctrl C+V的东东么？
还是成型的工具？
回复 引用
举报顶端
云羽
级别: 工作组
注册时间:
2006-08-12
在线时间:
0小时
发帖:
89
只看该作者 36楼 发表于: 2007-01-14
用按键精灵咯
天天看流星雨的办法：
拿棒子敲头，如果快晕了就有了，最好还有纪念品——包子

回复 引用
举报顶端
雷鸣
级别: 工作组
注册时间:
2005-05-03
在线时间:
0小时
发帖:
2914
只看该作者 37楼 发表于: 2007-01-14
试试看这段代码
拿去编译，自动获取剪贴板里面的时间信息并粘贴到窗口中的程序
我这里现在发文件不够方便，自己拿去编译
PureBasic 4.00源代码：
复制代码
  1. Enumeration
  2. #Win
  3. #file
  4. #file2
  5. #menu
  6. #msave
  7. #mopen
  8. #mexport
  9. #mimport
  10. #mrun
  11. #mtop
  12. #list
  13. EndEnumeration
  16. Procedure gettime(aa.l)
  17. While 1=1
  18. If GetMenuItemState(#menu,#mrun)=1
  19. ct.s=GetClipboardText()
  20. If Not(ct.s="") And GetMenuItemState(#menu,#mrun)=1
  21. SetClipboardText("")
  22. ln=GetGadgetState(#list)
  23. ctp.s="0:"+Trim(Mid(ct.s,1,Len(ct.s)-1))
  24. If Not (ln=-1)
  25. SetGadgetItemText(#list,ln,ctp.s,0)
  26. EndIf
  27. If Not (GetGadgetState(#list)=CountGadgetItems(#list)-1)
  28. SetGadgetState(#list,ln+1)
  29. EndIf
  30. EndIf
  31. EndIf
  32. Delay(10)
  33. Wend
  34. EndProcedure
  36. OpenWindow(#win,0,0,530,150,"Audition Sub")
  37. CreateMenu(#menu,WindowID(#win))
  38. MenuTitle("Main")
  39. MenuItem(#mopen,"Open Project")
  40. MenuItem(#msave,"Save Project")
  41. MenuItem(#mimport,"Import Text")
  42. MenuItem(#mexport,"Save as SSA...")
  43. MenuItem(#mrun,"Get")
  44. MenuItem(#mtop,"On top")
  45. SetMenuItemState(#menu,#mtop,1)
  46. StickyWindow(#win,1)
  47. CreateGadgetList(WindowID(#win))
  48. ListIconGadget(#list,0,0,530,130,"Start",100)
  49. AddGadgetColumn(#list,1,"Text",425)
  51. CreateThread(@gettime(),1)
  52. Repeat
  53. wid=WaitWindowEvent()
  54. If wid=#PB_Event_Menu
  55. Select EventMenu()
  56. Case #mopen
  57. fn.s=OpenFileRequester("Open","","*.csp|*.csp",0)
  58. If Not (fn.s="")
  59. OpenFile(#file,fn.s)
  60. While Not Eof(#file)
  61. AddGadgetItem(#list,-1,ReadString(#file)+Chr(10)+ReadString(#file))
  62. Wend
  63. CloseFile(#file)
  64. EndIf
  65. Case #msave
  66. fn.s=SaveFileRequester("Save","","*.csp|*.csp",0)
  67. If Not(fn.s="")
  68. CreateFile(#file,fn.s)
  69. For i=0 To CountGadgetItems(#list)-1
  70. WriteStringN(#file,GetGadgetItemText(#list,i,0)+Chr(10)+GetGadgetItemText(#list,i,1))
  71. Next
  72. CloseFile(#file)
  73. EndIf
  74. Case #mtop
  75. SetMenuItemState(#menu,#mtop,1-GetMenuItemState(#menu,#mtop))
  76. If GetMenuItemState(#menu,#mtop)=1
  77. StickyWindow(#win,1)
  78. Else
  79. StickyWindow(#win,0)
  80. EndIf
  81. Case #mrun
  82. SetMenuItemState(#menu,#mrun,1-GetMenuItemState(#menu,#mrun))
  83. Case #mimport
  84. fn.s=OpenFileRequester("Open","","*.txt|*.txt",0)
  85. If Not (fn.s="")
  86. OpenFile(#file,fn.s)
  87. ClearGadgetItemList(#list)
  88. While Not (Eof(#file))
  89. AddGadgetItem(#list,-1,Chr(10)+ReadString(#file))
  90. Wend
  91. SetGadgetState(#list,0)
  92. CloseFile(#file)
  93. EndIf
  94. Case #mexport
  95. fn.s=OpenFileRequester("Save As","","*.SSA|*.SSA",0)
  96. If Not(fn.s="")
  97. CreateFile(#file,fn.s)
  98. OpenFile(#file2,"head.txt")
  99. While Not (Eof(#file2))
  100. WriteStringN(#file,ReadString(#file2))
  101. Wend
  102. CloseFile(#file2)
  103. starttime.s=GetGadgetItemText(#list,i,0)
  104. text.s=GetGadgetItemText(#list,i,1)
  105. For i=1 To CountGadgetItems(#list)-1
  106. starttime2.s=GetGadgetItemText(#list,i,0)
  107. text2.s=GetGadgetItemText(#list,i,1)
  108. If Not (text.s="")
  109. prew.s="Dialogue: Marked=0,"+starttime.s+","+starttime2.s+",Default,,0000,0000,0000,,"+text.s
  110. EndIf
  111. WriteStringN(#file,prew.s)
  112. text.s=text2.s
  113. starttime.s=starttime2.s
  114. Next
  115. CloseFile(#file)
  116. EndIf
  117. EndSelect
  118. EndIf
  119. Until wid=#PB_Event_CloseWindow


还有一个文件，文件名叫做"head.txt"，文件内容：
复制代码
  1. [Script Info]
  2. ScriptType: v4.00
  3. Collisions: Normal
  4. PlayResX: 640
  5. PlayResY: 480
  6. Timer: 100.0000
  8. [V4 Styles]
  9. Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, TertiaryColour, BackColour, Bold, Italic, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, AlphaLevel, Encoding
  10. Style: Default,simhei,24,&Hffffff,&H00ffff,&H444444,&H444444,-1,0,1,1,0,2,5,5,10,15,1
  12. [Events]
  13. Format: Marked, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text


原理全部模仿MR大的某物……本程序适合配合按键精灵类似软件使用

顺便借这块地方问一下MR大，为什么我对CoolEdit的那个显示时间的框框进行sendmessage它不返回东西？对记事本等物（甚至开始菜单）都有返回东西……
回复 引用
举报顶端
feelingmtg
级别: 工作组
注册时间:
2006-01-10
在线时间:
2小时
发帖:
1080
只看该作者 38楼 发表于: 2007-01-14
偶也找人给偶写出了一个小东西
虽然延时还有点问题
调了优先级以后就可以暂时解决

恩
先用用试试
回复 引用
举报顶端
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 39楼 发表于: 2007-01-15
有可能是那个时间框不是标准的windows控件。

顺便贡献一些代码，C#里调用FMOD加载音频产生波峰数据的。
复制代码
  1. private void loadaudio(string filename)
  2. {
  3. if(curraudio != "")
  4. {
  5. sound.release();
  6. peakdata = null;
  7. weakdata = null;
  8. }
  9. hScrollBar1.Value = 0;
  10. curraudio = filename;
  11. statusBar1.Text = string.Format(lang._("message", "openfile"), curraudio);
  12. menuclosea.Enabled = true;
  13. FMOD.RESULT result = system.createStream(curraudio, FMOD.MODE.HARDWARE | FMOD.MODE.ACCURATETIME, ref sound);
  14. sound.seekData(0);
  15. ERRCHECK(result);
  17. // build waveform data
  18. /* the following variables used when loading from cache file:
  19. *
  20. * audiolength
  21. * peakdata[], weakdata[], globalpeak, samplerate
  22. *
  23. */
  24. if(System.IO.File.Exists(curraudio + ".peak"))
  25. {
  26. // loading from cache file
  28. /* cache file structure
  29. * audiolength 4 bytes
  30. * global peak 4 bytes
  31. * samplerate 4 bytes
  32. * peakdata[0], weakdata[0], p1, w1, ... (interlaced) any bytes
  33. */
  34. statusBar1.Text = lang._("message", "loadcache");
  35. FileStream fs = new FileStream(curraudio + ".peak", FileMode.Open, FileAccess.Read);
  36. BinaryReader r = new BinaryReader(fs);
  37. audiolength = r.ReadInt32();
  38. globalpeak = r.ReadInt32();
  39. samplerate = r.ReadUInt32();
  40. int i;
  41. peakdata = new short[audiolength];
  42. weakdata = new short[audiolength];
  43. for(i = 0; i < audiolength; i++)
  44. {
  45. peakdata[i] = r.ReadInt16();
  46. weakdata[i] = r.ReadInt16();
  47. }
  48. r.Close();
  49. r = null;
  50. fs.Close();
  51. fs = null;
  53. }
  54. else
  55. {
  56. uint l1 = 0, l2 = 0;
  57. sound.getLength(ref l1, FMOD.TIMEUNIT.PCM);
  58. sound.getLength(ref l2, FMOD.TIMEUNIT.MS);
  59. l1 = (uint)((ulong)l1 * 1000 / l2);
  60. l2 *= wscale;
  61. samplerate = l1 / wscale;
  62. short peak, weak;
  63. int pos = 0, i;
  64. short[] buffer = new short[samplerate * 2];
  65. peakdata = new short[l2 / 1000 + 50];
  66. weakdata = new short[l2 / 1000 + 50];
  67. uint samplerateb = samplerate * 4;
  68. IntPtr buff = System.Runtime.InteropServices.Marshal.AllocHGlobal((int)samplerateb);
  69. do
  70. {
  71. sound.readData(buff, samplerateb, ref l1);
  72. System.Runtime.InteropServices.Marshal.Copy(buff, buffer, 0, (int)samplerateb / 2);
  73. peak = weak = 0;
  74. for(i = 0; i < l1 / 4; i++)
  75. {
  76. if(buffer[i] > peak)
  77. peak = buffer[i];
  78. if(buffer[i] < weak)
  79. weak = buffer[i];
  80. }
  81. peakdata[pos] = peak;
  82. weakdata[pos] = weak;
  83. pos++;
  84. if(pos < (l2 / 1000 + 5) && pos % 500 == 0)
  85. statusBar1.Text = string.Format(lang._("message", "openfile"), curraudio) + " " + (pos * 100 / (l2 / 1000 + 5)) + "%";
  86. Application.DoEvents();
  87. } while (l1 == samplerateb);
  88. audiolength = pos;
  89. System.Runtime.InteropServices.Marshal.FreeHGlobal(buff);
  90. peak = 0;
  91. statusBar1.Text = lang._("message", "normalize");
  92. for(i = 0; i < audiolength; i++)
  93. {
  94. if(peakdata[i] > peak)
  95. peak = peakdata[i];
  96. if(-weakdata[i] > peak)
  97. peak = (short)-weakdata[i];
  98. }
  99. globalpeak = peak;
  101. // creating peak cache file
  102. FileStream fs = new FileStream(curraudio + ".peak", FileMode.CreateNew);
  103. BinaryWriter w = new BinaryWriter(fs);
  104. w.Write(audiolength);
  105. w.Write(globalpeak);
  106. w.Write(samplerate);
  107. for(i = 0; i < audiolength; i++)
  108. {
  109. w.Write(peakdata[i]);
  110. w.Write(weakdata[i]);
  111. }
  112. w.Close();
  113. w = null;
  114. fs.Close();
  115. fs = null;
  116. }
  117. statusBar1.Text += " Done";
  118. calcscrollbar();
  119. pictureBox1.Refresh();
  120. sound.release();
  122. system.createStream(curraudio, FMOD.MODE.ACCURATETIME, ref sound);
  123. system.playSound(FMOD.CHANNELINDEX.FREE, sound, true, ref channel);
  124. }
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
雷鸣
级别: 工作组
注册时间:
2005-05-03
在线时间:
0小时
发帖:
2914
只看该作者 40楼 发表于: 2007-01-15
引用
最初由 云羽 发布
用按键精灵咯


云羽能把你现在用的按键精灵给我一份吗？
:)
回复 引用
举报顶端
发帖 回复
« 返回列表
«123»
共3页
上一主题下一主题
快速回复
限150 字节
上一个 下一个