vbで録音するには?


ひっきー  2006-04-14 05:44:37  No: 130973

はじめまして、よろしくお願いします。

VB2005を使用しています。
Mci等でWAVファイルに音声を録音したいと考えたのですが、
はじめは、MciSendStringで試しましたが、
メディアプレイヤーで再生で傷に断念、、
MCIコントロールも使い方が分からずに断念、、
そうなるとどうしたら良いのか分からなくて困っています。
もし、MciSendStringなどで録音できる方法がありましたら教えてください。
他の方法でももちろんかまいません。


ガッ  2006-04-14 08:02:52  No: 130974

こちらが本家ですよね?:
http://hpcgi1.nifty.com/rucio/mb1/mb1.cgi


ひっきー  2006-04-14 16:20:27  No: 130975

そうですね、そちらが本家ですね。

しかし、いろんなところに質問したら、
さまざまな回答を得られると思いましたので、こちらにも質問させていただきました。


ガッ  2006-04-14 17:32:18  No: 130976

うーん…気づいていないのだろうか…
http://glossary.tank.jp/t022B.html


??  2006-04-15 01:07:37  No: 130977

そしてこちらは分家ですか?
http://dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=one&namber=15282&type=0&space=0&no=0

マルチは嫌われたりするのでかえって回答つかなくなるかもですよ。


ひっきー  2006-04-15 01:29:14  No: 130978

大変失礼いたしました。
僕は、少しでもいろいろな回答を得ようと書き込んだつもりで、
このような違反行為を行っているとは思っていませんでした、
本当に、管理人さんにも皆さんにも、ご迷惑をおかけして申し訳ございませんでした。

今後、質問は一箇所だけにします。


Blue  2006-04-15 01:45:08  No: 130979

やってしまったことは仕方ないので、
マルチした全ての掲示板に、

どのようなアドバイスをもらい
どのようなコードをくんだら解決までいたりました。

という報告をきちんとしてください。(リンクを張るのはダメ)
# 大抵のマルチをするひとが、これをやらずに放置するのでいっそう嫌われます。


ひっきー  2006-04-15 03:00:50  No: 130980

分かっていただいて、良かったです。

>どのようなアドバイスをもらい
>どのようなコードをくんだら解決までいたりました。
>という報告をきちんとしてください。

分かりました、報告させていただきます。

Visual Basic 中学校の管理人さんに、こちらの掲示板でアドバイスを頂き、解決いたしました。「http://hpcgi1.nifty.com/rucio/mb1/mb1.cgi

mciSendString("set file time format milliseconds channels 2 samplespersec 44100 bytespersec 44100 alignment 1 bitspersample 16", Ret2, 255, 0)
と言う、音質の設定コードを、
Dim CommandString As String 
        Dim SampleRate As Integer = 44100 
        Dim BitperSample As Integer = 16 
        Dim Channels As Integer = 2 
        Dim BytesPerSec As Integer 
        Dim BlockAlignment As Integer 

        BytesPerSec = (BitperSample * Channels * SampleRate) / 8 
        BlockAlignment = (BitperSample * Channels) / 8 

        CommandString = "set file time format milliseconds channels " & Channels & " " 
        CommandString &= "samplespersec " & SampleRate & " " 
        CommandString &= "bytespersec " & BytesPerSec & " " 
        CommandString &= "alignment " & BlockAlignment & " " 
        CommandString &= "bitspersample " & BitperSample 

        Ret = mciSendString(CommandString, Ret2, 255, 0)
のようにしたら、解決できました。

僕も、どうしてこのようにして解決で気なのかが分からないので、
アドバイスをいただいた管理人さんにお聞きしています。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加