Путаница программирования QBASIC

Я только что создал конвертер текста в речь, используя этот язык программирования.Путаница программирования 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

Вы знаете, здесь я уже запрограммирован визуальный базовый код, используя этот язык. Моя основная путаница в том, что я могу сказать, что эта программа построена с использованием языка программирования QBASIC, или я должен назвать ее программой Visual Basic?

источник

2016-06-24 Sugam Adhikari

Это QBASIC pogram. Есть ли причина, по которой вы просто не просто напишите файл VBScript напрямую и попросите слово, используя ['InputBox'] (https://msdn.microsoft.com/en-us/library/3yfdhzk5 (v = vs.84) .aspx)? –

Я бы не сказал, что вы создали конвертер текста в речь. Это похоже на ввод «mspaint» в командной строке и утверждение, что вы создали графический редактор растровых изображений. – BdR

На самом деле, я хотел создать программу QBASIC с множеством других функций, и это было бы одним из них. Я мог бы также использовать сценарий VB, но я хотел, чтобы программа QBASIC выполняла все эти вещи. –

Это программа QBasic, которая запускает VBScript.

Хотя я действительно не вижу смысла. Это как кто-то уже прокомментировал, почему бы просто не написать 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

источник

2016-06-25 20:36:04 BdR

ответ

Смежные вопросы