Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Открыть новую тему     Написать ответ в эту тему

NEOMATRIX



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Данный топик предназначен только для обсуждения типовых задач на Visual Basic.
Обсуждение задач на VBA (а именно, Excel, Word, Access) строго запрещено!
Пишите в соответствующих топиках.

 
Родственные топики:
  • Excel VBA - часть 1, часть 2 - все вопросы по Excel VBA туда
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • VBScript - программирование "удобняшек" на VBScript
  • QBasic - типовые задачи на QBasic
     
  • Date Time Functions In Visual Basic
  • VB6's Trig, Math, Financial, Boolean, and Random functions
  • Visual Basic 6 String Functions
  • VB6 Number System Functions (Hex, Oct, Etc)
  • VB6's DateAdd function
     
  • Functions (Visual Basic)
  • Keywords and Members by Task
  • Visual Basic Reference
     
  • Visual Basic String Manipulation Tutorials
     
  • Top 10 Visual Basic Sins

     
    Учебники:
    Visual Basic для студентов и школьников. Культин Н. (2010)
    Занимательное программирование на Visual Basic.NET. Климов А. (2005)
    Visual Basic в задачах и примерах. Сафронов (2009)
    Visual Basic 2012 на примерах. Зиборов В. (2012)
    • Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 19:30 16-11-2005 | Исправлено: XPerformer, 10:07 28-10-2014
    murkovich



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zerkalo77

    Цитата:
    Возникла острая необходимость написать программку дикторозависимого распознавания речи.

    Что здесь понимается под "дикторозависимым распознаванием"? То, что распознается и то, ЧТО сказано, и то, КТО это сказал? То есть, результаты в форме "Миша, вверх", "Саша, стоп"?
     
    Не думаю, что отказ от дикторонезависимости тут сильно упрощает задачу, если мы именно о распознавании говорим.
     
    Но, как я понимаю, тут просто 5 команд и Х командиров, и нучно по самплу определить, который из 5*Х предварительно записанных образцов ближе?
     
    Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 13:43 23-11-2011
    zerkalo77



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Под дикторозависимым понимается то, что программа умеет "распознавать" только одного (единственного) диктора, шаблоны (эталоны) команд которого имеются "в запасе" у программы.
     
    Так что просто 5 команд и 1 командир и нужно НА ЛЕТУ определить, который из 5*1 предварительно записанных образцов ближе...
     
    Всего-то навсего.
    Первая трудность возникла на этапе: Найти рабочий код на VB.NET для записи с микрофона в массив данных.  Есть куча кодов на VB.
    Но вот дальше я ничерта не понимаю. Что хранится в этом массиве? Значения амплитуд? Или частот?
    "Рассмотрев" массив увидел, что значения в нём от -30000 до +30000 (в зависимости от качества wave файла). Значит не частота. Скорее всего амплитуда сигнала в есдиницу времени (Гц).
    Мыслю верно?
     
     
     
    Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 01:53 24-11-2011 | Исправлено: zerkalo77, 01:55 24-11-2011
    murkovich



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zerkalo77
    Скорее всего, это нормальная, несжатая инфа в форме, где, скажем, 44100 раза в секунду измерено значение амплитуды с разрешением 16бит на канал.  
    Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 02:34 24-11-2011
    zerkalo77



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    murkovich
    И всё же смею предположить, что в массиве хранятся значения амплитуд, ибо:
     
     
       
    Верхний график получен с помощью программы All free mp3 cutter.
    Нижний получен следующим кодом:

    Код:
     
    for i = 1 to BufferSize
     Picture1.line - (i, buffer(i))
    next i
     
    Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 12:24 24-11-2011 | Исправлено: zerkalo77, 12:33 24-11-2011
    murkovich



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zerkalo77

    Цитата:
    И всё же смею предположить, что ...

    Разве Ваш и мой вариант - не одно и то же?
    Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 12:47 24-11-2011
    zerkalo77



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    murkovich
    точно . С первого раза не просёк смысла.
     
    Ввело в заблуждение:

    Цитата:
    Скорее всего, это нормальная, несжатая инфа в форме,

    Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 12:51 24-11-2011 | Исправлено: zerkalo77, 12:54 24-11-2011
    yse

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    вопрос по данному скрипту  
     
    данный скрипт должен отправить письмо с вложением файла
     
    все работает но прикрепленный файл не приходит прошу подсказки
    objEmail.AddAttachment = "test.txt"
    сам скрипт
     
    on error resume next
    Const EmailFrom = "test@mail.ru"    
    Const EmailPassword = "123456"        
    Const strSmtpServer = "smtp.mail.ru"  ' это почтовый сервер mail.ru
    Const EmailTo = "test@mail.ru"        
    Set objEmail = CreateObject("CDO.Message")
     
    objEmail.AddAttachment = "test.txt"
    objEmail.From = EmailFrom
    objEmail.To = EmailTo
    objEmail.Subject = "Здесь текст заголовка"
    objEmail.Textbody = "Текста Вашего письма"
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
     
    objEmail.Send
    Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 12:20 02-12-2011
    Legio



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Полный путь к файлу не пробовали указывать?
    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 16:30 02-12-2011
    yse

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    спасибо Legio  помогло
     
    Добавлено:
    еще вопрос пытаюсь скопировать папку опера в папку help почему то не копирует  
    ос виста
     
     
    set fso=createobject("sсriрting.filesystemobject")
    set WshShell = WScript.CreateObject("WScript.Shell")
    fso.copyfolder WshShell.ExpandEnvironmentStrings(" C:\Users\%Username%\AppData\Roaming\Opera\Opera"),"C:\Users\admin\Desktop\page\help" ,0
    Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 23:35 02-12-2011 | Исправлено: yse, 11:24 03-12-2011
    Legio



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Попробуйте убрать "WScript." и пробел из начала первого пути:

    Код:
    set fso=createobject("sсriрting.filesystemobject")
    set WshShell = CreateObject("WScript.Shell")
    fso.copyfolder WshShell.ExpandEnvironmentStrings("C:\Users\%Username%\AppData\Roaming\Opera\Opera"),"C:\Users\admin\Desktop\page\Hello" ,0
    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 10:59 03-12-2011
    yse

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    пробел из начала первого пути это где ?
     
    не выходит синтаксис еррор
     
    вот еще пытаюсь создать новую папку скрипт запускается и не выдает ошибок ,а папка не создается даже прописывая полный путь
    On Error Resume Next  
    Set FSO = CreateObject("sсriрting.FileSystemObject")
     
    FSO.CreateFolder="C:\newfolderpath"
    Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 15:27 03-12-2011
    Legio



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

    Цитата:
    пробел из начала первого пути это где ?

    Это там, где вы переменную среды %username% разворачиваете в имя текущего пользователя.
     

    Цитата:
    не выходит синтаксис еррор

    Ну, кхм, да. Я не ожидал, что в слове "scripting" окажутся русские "с" и "р". Наберите его руками, и всё должно заработать.
    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 21:04 03-12-2011
    yse

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    спасибо Legio  
    Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 01:49 05-12-2011 | Исправлено: yse, 02:12 05-12-2011
    biznesoft



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Del
    Всего записей: 854 | Зарегистр. 31-03-2011 | Отправлено: 20:18 09-12-2011 | Исправлено: biznesoft, 22:41 09-12-2011
    marijuannna

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите, пожалуйста.
    Такая задача:
    Вычислить куб суммой всех чисел от x до n, которые не превышают 100.
    Всего записей: 1 | Зарегистр. 13-12-2011 | Отправлено: 18:27 13-12-2011
    vladover

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здраствуйте, дорогие программисты) помогите пожалуйста решить несколько программ по vbs) http://www.7image.ru/v.php?id=216371 это первая)
    вот вторая... http://www.7image.ru/v.php?id=216372
    и третья... http://www.7image.ru/v.php?id=216373
    За ранее благодарю=)
    Всего записей: 1 | Зарегистр. 14-12-2011 | Отправлено: 22:28 14-12-2011 | Исправлено: vladover, 22:31 14-12-2011
    yse

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    плиз подскажите как запретит открытие  той  или иной папки  
    regwrite"HKCRfoldershellopencommand","rundll32.exe" <----- сам выдумал может я тут и не прав
    примерно таким способом через регистр ,если есть другие варианты плиз подскажите
    Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 11:47 15-12-2011 | Исправлено: yse, 11:48 15-12-2011
    MorskayaLink

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте!!! мне прям очень срочно нужно решить две задачи, а я что-то совсем никак не могу сообразить как это сделать. в первой вообще ничего, но мне говорили она легче. Во-второй вывод данных....
     
    вот они:
    1) для числа n , вводимого с клавиатуры (с помощью функции InputBox()) вычислить все значения х, если
    х1=0,3,
    х2=-0,3,
    хi=i+cos(xi-2), i=3,4,..n
    Вывести в столбцах Excel значения xi. подписать выделенные элементы.
     
    2) для числа n , вводимого с клавиатуры (с помощью функции InputBox()) найти все элементы квадратного массива а(i,j) размерностью n x n, если
    а(i,j) = (i,j)/cos(i)
    Найти все значения числа m<2n вводимого с клавиатуры (с помощью функции InputBox()) те элементы массива а(i,j) , сумма индексов которых равна m.
    вывести в excel массив а(i,j) и все найденные элементы с помощью функции Cells. Подписать введенные данные.
     
    заранее ВАМ ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО, УМНЫЕ ЛЮДИ!!!
    Всего записей: 1 | Зарегистр. 16-12-2011 | Отправлено: 12:01 16-12-2011
    NikkiRedd

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    помогите пожалуйста, глупая студентка-первокурсница накопила хвостов, а в вижуале не разбирается абсолютно
     
     
    a = -100, b = 107
    1) Дана последовательность действительных чисел А1, …, А50. Получить последовательность B1, …, В50, которая отличается от исходной тем, что все нечетные элементы удвоены.
    2) Даны натуральное число n, последовательность действительных чисел а1, …, аn. Получить удвоенную сумму всех по-ложительных элементов последовательности а1, …, аn.
     
    Указания. Элементы массива генерируются случайным образом в заданном диапазоне [a, b] и располагаются в первом столбце рабочего листа электронной таблицы. Результат выводится во второй столбец соответствующего листа электронной таблицы.
    Всего записей: 1 | Зарегистр. 22-12-2011 | Отправлено: 19:50 22-12-2011
    BASTETA

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ, ОЧЕНЬ СРОЧНО НАДО РЕШИТЬ
    1.  В каждом столбце и каждой строке матрицы P(n, n) содержится строго по одному нулевому элементу. Перестановкой строк добиться расположения всех нулей по главной диагонали матрицы.
    2.     Из массива   A(n) выбрать случайным образом m  различных элементов и поместить их в массив B(m) .
    Всего записей: 2 | Зарегистр. 21-12-2011 | Отправлено: 01:14 24-12-2011 | Исправлено: BASTETA, 02:27 24-12-2011
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2025

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru