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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
    co_bratva

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

    Цитата:
    Думаю, что не так сложно "облагородить" это в отдельную функцию/процедуру, которая бы принимала два текстовых параметра и возвращала чаемое каким-нибудь понятным способом.

    Legio
    Проверь, совпадают ли все проперти для форм и контролов. Если выложишь два проекта - рабочий и нет - то можно попробовать посмотреть.  
    PS. ME всего лишь keyword, заменяющий имя вызывающей формы. С тем же успехом можно подставлять имя формы. Кстати, тут и может быть ошибка, если вызываешь из одной формы, а расчитываешь получить эффект в другой.

    Всего записей: 6 | Зарегистр. 13-02-2010 | Отправлено: 18:05 06-09-2011
    alin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Возможно ли решить мою задачу?
    Имеем много файлов (в моём случае фото) с именем дата. Есть файл "file.txt" (или file.csv), в котором в столбец даны названия каждой фотографии. Сортировка по имени фото совпадает с порядком названий в текстовом файле. Как мне "пакетно" переименовать фото согласно названиям из текстового файла? Можно в Екселе изменить названия добавив в начало дату из имени файла, чтобы совпадали первые символы в имени файла, и в названии из file.csv. Но как переименовать пакетно файлы я не нашёл способа.

    Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 16:06 15-09-2011
    asbo

    BANNED
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    alin
    Вот тут ну о-очень похожая задача :)
     
    Если в Екселе удается создать схему переименования, то циклом по строкам:  
    Name oldpathname As newpathname
     
    Using Name on an open file produces an error. You must close an open file before renaming it. Name arguments cannot include multiple-character (*) and single-character (?) wildcards.

    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 16:26 15-09-2011
    Legio



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    alin
    Не совсем понял, чего вам надо. Можете привести в качестве примера немного исходных данных и результат, который требуется получить?

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 20:01 15-09-2011
    alin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Legio
    В папке файлы отсортированы по имени:
    123.jpg
    124.jpg
    125.jpg
    131.jpg
    132.jpg
    ......jpg
    Есть текстовый файл (или файл в формате .csv, одно в другое легко перевести) в котором в столбец написаны названия изображений:
    На море
    На даче
    Мы с детьми
    и т.д.
     
    Количество файлов и имён, а так же порядок названий соблюдены в текстовом файле
    Задача переименовать файлы согласно списка.  
    123.jpg -> На море.jpg
    124.jpg -> На даче.jpg
    125.jpg -> Мы с детьми.jpg

    Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 20:31 15-09-2011 | Исправлено: alin, 20:32 15-09-2011
    asbo

    BANNED
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    alin
    Ответил здесь

    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 21:34 15-09-2011
    alin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    asbo
    Спасибо!  
    Отблагодарил там же

    Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 21:50 15-09-2011
    Legio



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

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 22:04 15-09-2011
    alin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Legio
    Огромное спасибо!
    С удовольствием протестирую, пожалуйста, поясни как использовать твой скрипт?

    Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 22:15 15-09-2011
    Legio



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Открываешь Visual Basic Editor в, например, Excel'е (Alt+F11); создаёшь новый модуль (Insert > Module) или открываешь уже существующий; в модуле создаёшь новую процедуру и в неё вставляешь этот код:

    Код:
    Private Sub TestSub()
         
        ' код вставить куда-нибудь сюда
         
    End Sub

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 22:30 15-09-2011
    banaji



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Токой вопрос. Есть txt список со ссылками типа

    Цитата:
    http://www.google.by/
    http://ya.ru/
    http://www.xxx.com/

    Какой написать vbs, чтоб он открыл в Opere-e все ссылки из этого txt файла.
    Файл txt будет меняться.

    Всего записей: 2253 | Зарегистр. 22-09-2010 | Отправлено: 01:23 21-09-2011 | Исправлено: banaji, 01:23 21-09-2011
    rrromano



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    banaji
    Может, лучше для этого Excel использовать?
    И ссылки там, и код )))
     
    Sub LeggiDatiID()
       On Error GoTo lbl_Error
       
       Dim objIE As InternetExplorer
       Dim sh1 As Worksheet
       
       Set objIE = CreateObject("InternetExplorer.Application")
       objIE.Visible = True
       
       With objIE
          'open first url
          .Navigate "www.google.it"
          'wait until page is completely downloaded
          Do While .Busy: DoEvents: Loop
          Do While .readystate <> 4: DoEvents: Loop
             
          'wait 3 seconds
          Application.Wait (Now + TimeValue("0:00:03"))
           
          'open second url
          .Navigate "www.libero.it"
          'wait until page is completely downloaded
          Do While .Busy: DoEvents: Loop
          Do While .readystate <> 4: DoEvents: Loop
       End With
       
    lbl_Exit:
       'objIE.Quit
       Set objIE = Nothing
       Exit Sub
     
    lbl_Error:
       MsgBox "Error occurred: " & Err.Description, vbOKOnly
       Resume lbl_Exit
    End Sub
     
    Вот это можно попробовать под оперу адаптировать, да цикл по строкам со ссылками организовать ).
     
    Добавлено:
    ActiveSheet.Range("B1").Hyperlinks(1).Follow - так запускать ссылку из Excel

    Всего записей: 283 | Зарегистр. 20-09-2006 | Отправлено: 12:41 21-09-2011
    Legio



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    banaji
    Читаете ссылки из файла в одну текстовую строку, разделяя адреса пробелами (а-ля "<адрес1> <адрес2>"), а затем в функцию Shell скармливаете в первый параметр путь оперы и через пробел эту строку:

    Код:
    Dim allAddresses As String, operaPath As String
    operaPath = "<полный путь к opera.exe>"
    'в этом месте читаем адреса из файла (например через FileSystemObject)
    allAddresses = "<адрес1> <адрес2>" ' заглушка
    Shell operaPath & " " & allAddresses

    Как вызвать Shell из vbs не помню, погуглите сами.

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 17:50 21-09-2011
    rrromano



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

    Цитата:
    Как вызвать Shell из vbs не помню, погуглите сами.

     
    set sh=WScript.CreateObject("Wscript.Shell")
    sh.run "rar.exe"
     
    или
     
    command_line = WshProcEnv("COMSPEC") & " /c " & path_pkzip & " -add -path=full " & archiv_log & ".zip " & archiv_log
    return = WshShell.Run (command_line, 1, True)

    Всего записей: 283 | Зарегистр. 20-09-2006 | Отправлено: 18:07 21-09-2011
    DLysenko



    Newbie
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Приветствую.
    Требуется помощь.
    Пишу софт на VB 2010
    Необходимо проверять авторизирован ли пользователь в домене, если да, запоминать его логин в переменную a.
    Далее требуется информация из поля Description того же пользователя. Её нужно записывать в переменную b.
     
    пересмотрел много примеров, но не совсем могу понять как это сделать.
    Подскажите пожалуйста как это можно реализовать.

    Всего записей: 21 | Зарегистр. 19-03-2006 | Отправлено: 18:47 27-10-2011
    reliab

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Вопрос: В проекте на Visual Basic 6.0 пытаюсь использовать TextBox из состава Microsoft Forms 2.0 Object Library, который поддерживает уникод. Мне необходимо в форме отобразить немецкий текст из базы Аксесс, при том, что вторым языком винды является русский. Цели я вроде достигаю - все отображается нормально. Однако имеет место какое-то глючное поведение TextBox при редактировании. В частности - при щелчке мышью курсор оказывается на случайном месте. Также не происходит обновление картинки TextBox при нажатии Enter - если курсор находится в начале строки, то строка пропадает из виду и появляется (вместе с новой строкой) только после дополнительных действий по обновлению картинки. Может кто сталкивался с подобным? То-ли это глюк контрола, то-ли так и должно быть, то-ли я виноват?

    Всего записей: 51 | Зарегистр. 20-07-2003 | Отправлено: 20:17 30-10-2011
    Stanislav canep

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Пытаюсь решить задачу, но что то ни как не выходит.
    Подскажите как организовать поиск из формы По 3 столбцам, по трём критериям из формы либо только по одному из трёх, чтоб результат либо в Листе Excel, в этой форме. Хочу организовать сортировку по радиодеталям, а также для быстрого поиска необходимых элементов.

    Всего записей: 1 | Зарегистр. 03-11-2011 | Отправлено: 14:26 03-11-2011
    grbdv

    BANNED
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Stanislav canep
    Этот вопрос не в VB, а, скорее, в VBA, если чисто по коду заморочки. Если "в этой форме" - то в Access, ну а если "в Листе Excel" - в Excel. А если до кода еще не дошло, то там же в шапках ссылки на соответствующие темы собственно по продуктам.

    Всего записей: 1163 | Зарегистр. 20-08-2011 | Отправлено: 14:48 03-11-2011
    zerkalo77



    Junior Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Приветствую всех форумчан.
    Возникла острая необходимость написать программку дикторозависимого распознавания речи. Скорее всего принцип голосового набора в мобильных телефонах. Нужно распознать 5 команд: вверх, вниз, влево, вправо, стоп.
    На всех нагугляндексеных ресурсах переливают из пустого в порожнее.
    Из реально рабочего нашёл только эту ссылку : http://sz.ru/speech-recognition/
    Правда в ней дикторонезависимое распознавание (что очень круто, как я понимаю, и мне не нужно). Плюс к этому исходников, естественно, нет.
     
    Мне нужна помощь в алгоритме действий. Что и в какой последовательности делать.
    Буду признателен за любую помощь.
     

    Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 13:06 23-11-2011
    terminat0r



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zerkalo77
    ну можно начать отсюда
    http://frolov-lib.ru/books/hi/index.html
     
    алгоритмы и сорцы здесь
    http://en.wikipedia.org/wiki/Speech_recognition#Algorithms
    http://en.wikipedia.org/wiki/List_of_speech_recognition_software#Open_Source
     
    Но учтите, что на даном этапе развития распознавания речи все это стало очень сложным.
     
    Вам надо делать проще: посмотреть и сделать фурье спектр ваших команд и выбрать алгоритм который бы достаточно надежно сравнивал текущий спектр с образцом вашей комманды
     

    Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 13:30 23-11-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-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru