none
語法轉換問題 RRS feed

  • 問題

  • 不好意思

    在這邊請問一下我一直無法解決的問題 請各位幫忙解答

     FileOpen(1, Text1.Text, OpenMode.Binary)我試著改成下面兩項

     Dim Stream As New FileStream("test.wav", FileMode.Open, FileAccess.Read)

    Dim stream As Stream = System.IO.File.OpenRead("\test.wav")

    可是不知道SEEK(1,5)

    該怎麼去改

    另外也不懂他1 和 5的意思  是指定他存放的位址嗎?

    seek 是與sample類似嗎?

    也不知道該如何去改成WM FOR VB 可以使用的語法 請求各位幫忙教學了

    拜託各位幫忙解答了

    感恩

    附上程式碼

     FileOpen(1, Text1.Text, OpenMode.Binary)
     Seek(1, 5)
    '把語音檔案大小讀進來,存在size內
     FileGet(1, size)
    '萬一檔案大小<0,則選進來的檔案格式或型態一定不合

     

    Function LPC(ByRef sample As Object, ByRef CEPR As Object) As Object
      Dim j, i, n As Object
      Dim m As Short
      Dim s(FLEN - 1) As Object
      Dim r(FLPC) As Object
      Dim e(FLPC) As Object
      Dim a(FLPC, FLPC) As Object
      Dim k(FLPC) As Object
      Dim h(FLPC + 2) As Double
      Dim x, sum As Object
      
      
      
      s(0) = sample(0)
      For i = 1 To FLEN - 1
                s(i) = sample(i) - COFF * sample(i - 1) '  y(n)=x(n)-0.95x(n-1)
       ' end of for (i)
      Next i
           

     

    2010年5月28日 下午 06:53

解答

  • 建議你, 如果要改寫為.NET, 就要有大改的心理準備, 因為VB6和VB.NET架構上差異很大,心理上要先建設拋去VB6的包袱, 否則只會越搞越亂.

    而且你是WM的程式, 在.NET Framework中不是Windows Form能用的東西都可以用在WM上.

    在使用前請先查詢MSDN 文件庫, 確認Compact Framework有支援, 建議你用FileStream與FileSystem類別處裡, My物件不是哪裡都通用的  , 以下來自http://msdn.microsoft.com/zh-tw/library/t71ykwhb%28VS.90%29.aspx , 其中並不包含智慧型裝智專案

    依專案類型的可用性

    專案類型

    是否可用

    Windows 應用程式

    類 別庫

    主 控台應用程式

    Windows 控制項程式庫

    Web 控制項程式庫

    Windows 服務

    網 站


    以下是簽名檔, 請勿沒事對號入座
    MSDN 文件庫很重要
    回應幫助你的人是一種禮貌, 良好的禮貌有助於激發大家對你問題回應的熱情
    進步的人會找尋自己程式中的缺點,半桶水則把自己程式的錯誤推到不相干事物的身上
    • 已標示為解答 pieceshiou 2010年6月1日 下午 07:47
    2010年5月29日 上午 06:11
    版主

所有回覆

  • 1.MSDN Seek方法

     

    2.

    沒看到sample 的定義

    有可能是 一個Object Array

     

    3.

    建議你在提問題時稍微潤稿一下.....

    或是參考 此篇置頂文

     


    先查MSDN文件庫
    再用GOOGLE搜尋
    才到論壇來發問

    這是論壇不是技術支援中心
    沒有人得無償解答你的問題

    在標題或文章註明很急
    不會增加網友回覆速度
    2010年5月29日 上午 01:20
  • 恩.

    不好意思

    我在去研究清楚如何明確敘述我的問題

    謝謝你們幫忙與指教

    感恩

    2010年5月29日 上午 02:42
  • FileStream. Seek 方法 試試看.

     


    以下是簽名檔, 請勿沒事對號入座
    MSDN 文件庫很重要
    回應幫助你的人是一種禮貌, 良好的禮貌有助於激發大家對你問題回應的熱情
    進步的人會找尋自己程式中的缺點,半桶水則把自己程式的錯誤推到不相干事物的身上
    2010年5月29日 上午 03:00
    版主
  • 我目前是以VB6.0的語法想要更改平台

    目前的問題就是seek與FileGet(1, size)

    seek以參考以上大大的幫忙找出答案(但未測試)

    FileGet(1, size)這項 我去參考了 My.Computer.FileSystem.GetFiles 方法與GOOGLE大神

    可是還是不知道該如何去改寫成在WM上可以使用的

    請教各位大大 如果我想要把檔案讀近來後存在SIZE裡 是要用哪種語法呢?

    還是在WM上面的VB.NET要分開寫?

    謝謝各位指導

     

     

     

    2010年5月29日 上午 05:12
  • 建議你, 如果要改寫為.NET, 就要有大改的心理準備, 因為VB6和VB.NET架構上差異很大,心理上要先建設拋去VB6的包袱, 否則只會越搞越亂.

    而且你是WM的程式, 在.NET Framework中不是Windows Form能用的東西都可以用在WM上.

    在使用前請先查詢MSDN 文件庫, 確認Compact Framework有支援, 建議你用FileStream與FileSystem類別處裡, My物件不是哪裡都通用的  , 以下來自http://msdn.microsoft.com/zh-tw/library/t71ykwhb%28VS.90%29.aspx , 其中並不包含智慧型裝智專案

    依專案類型的可用性

    專案類型

    是否可用

    Windows 應用程式

    類 別庫

    主 控台應用程式

    Windows 控制項程式庫

    Web 控制項程式庫

    Windows 服務

    網 站


    以下是簽名檔, 請勿沒事對號入座
    MSDN 文件庫很重要
    回應幫助你的人是一種禮貌, 良好的禮貌有助於激發大家對你問題回應的熱情
    進步的人會找尋自己程式中的缺點,半桶水則把自己程式的錯誤推到不相干事物的身上
    • 已標示為解答 pieceshiou 2010年6月1日 下午 07:47
    2010年5月29日 上午 06:11
    版主