2016-06-24 4 views
0

私は、このプログラミング言語を使用して、音声合成プログラムを作成しました。QBASICプログラミングの混乱

コードは、あなたが知っている

DO 
    CLS 
    PRINT "This is the program built by Adhikari Newtorks Team Using QBASIC..........." 
    PRINT "This is a text to speech converter.." 
    PRINT 
    PRINT 
    INPUT "Enter the word to pronounce: ", speak$ 
    OPEN "sound.vbs" FOR OUTPUT AS #1 
    PRINT #1, "dim speechobject" 
    PRINT #1, "set speechobject=createobject ("; CHR$(34); "sapi.spvoice"; CHR$(34); ")" 
    PRINT #1, "speechobject.speak"; CHR$(34); speak$; CHR$(34) 
    CLOSE #1 
    SHELL "sound.vbs" 
    KILL "sound.vbs" 
LOOP 

は、ここで私は、この言語を使用したVisual Basicのコードをプログラムしました。私の主な混乱は、私はこのプログラムがQBASICプログラミング言語を使用して構築されていると言うことができますか、それをVisual Basicプログラムと呼ぶべきですか?

+0

それはQBASICのpogramだそれは、あまりにもこのような何かはるかに短いコードになります。 VBScriptファイルを直接作成して[InputBox'](https://msdn.microsoft.com/en-us/library/3yfdhzk5(v = vs.84))を使って単語を尋ねるだけではない理由はありますか? ).aspx)? –

+1

私はあなたが音声合成プログラムを作成したとは言いません。これは、コマンドプロンプトに "mspaint"と入力して、グラフィカルビットマップエディタを作成したということです。 – BdR

+0

実際、私は他の多くの機能を備えたQBASICプログラムを作成したいと考えていました。私はVBスクリプトもやっていましたが、QBASICプログラムでこれらの作業をすべて行いたいと思っていました。 –

答えて

5

これは、VBScriptを起動するQBasicプログラムです。

私は実際にはポイントが表示されません。それは誰かが既にコメントしたようなもので、なぜvbscriptを直接書くのではないのですか?

Do 
    str = InputBox("Enter the word to pronounce","Enter text") 
    Dim speechobject 
    Set speechobject = createobject("sapi.spvoice") 
    speechobject.speak str 
Loop Until (str = "") 

そして、あなたは、コマンドプロンプトでそれを実行したい場合は、次のように入力することができます:cscript /nologo myscript.vbs