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

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



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

    Всего записей: 357 | Зарегистр. 22-02-2005 | Отправлено: 23:43 28-10-2008
    RER_27



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ребята, может кто поможет........
    Препод ничего не объясняя задал задание:
     
      Создать проект, в котором  с помощью псевдографических операторов  
                  построить графики функций, полученных от интегрирования системы  
                  дифференциальных уравнений вида:
                                      dYa/dX = - A1*Ya
                                      dYb/dX = A1*Ya – A2*Yb  
                                      dYc/dX = A2*Yb
                                  при:    Ya(0) = A0;     Yb(0) = 0       Yc(0) = 0
                  Коэффициенты   полинома задать на    форме.   Из   полученного   графика
                  выбрать произвольный  диапазон, в котором методом трапеций необходимо  
                  определить значение определенного интеграла с заштриховыванием  
                  интегральной области.
     
    .... примерно видел, что создаются Text1 и Text2, Command1
    .... а куда чего вводить, чтобы график этот вышел не знаю.

     

    Всего записей: 52 | Зарегистр. 13-04-2007 | Отправлено: 20:38 01-11-2008 | Исправлено: RER_27, 20:39 01-11-2008
    sVIKs



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Я повторюсь, но...
     
    Надо с микрофона получить звук и разложить на частоты(спектр частот).Я знаю, делается это с помощью БПФ(сам модуль БПФ у меня есть, взято с alglib.sources.ru), а вот дальше проблема, не знаю как пользоваться данным модулем, да и не совсем понятно как это потом можно вывести, причем так, чтобы можно было разложить на диапазон высоких и низких частот, может кто-то сможет помочь? Был бы безмерно благодарен.

    Всего записей: 357 | Зарегистр. 22-02-2005 | Отправлено: 20:45 05-11-2008
    GuitarloverX

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору  Помогите плиз..
    Вот строка бат файла:
    echo Do Until v>=1  >> %temp%\temp.vbs
    а созданная строка в temp.vbs получается такая:
    Do Until v
     
    А если в бате так:
    echo Do Until v<=40 >> %temp%\temp.vbs
    то в скрипт строка не пишется вообще.
     
    Мне что-то не допереть, что надо сделать, чтобы строка писалась целиком...
     
    И ещё вопросик:
    как убить  процесс, например explorer?
    Что-то вроде этого? :
    s.run "Rundll32 explorer.exe, ???exit???"
      или как нить по другому?
    как загрузить процесс, к примеру его же?
     
     
    О! Вспомнил, ещё интересует как сделать чтобы скрипт срабатывал к примеру через 20 минут после загрузки компа? или вообще каждые 20 минут?  )))
     
    Эх, когда нибудь я стану большим и умным, а пока помогите плиз  =)

    Всего записей: 8 | Зарегистр. 22-01-2008 | Отправлено: 22:18 08-11-2008
    ItsJustMe

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    1: Напиши скрипт на самом vbs. Уверен, впрочем, что есть простой способ редиректить строки с символами < > , но моя лень не позволила его найти.
    2: PsTools
    3: use "sleep <number of seconds>" in command prompt (and loops)

    Всего записей: 2025 | Зарегистр. 02-09-2005 | Отправлено: 00:23 09-11-2008
    GuitarloverX

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ItsJustMe
    Спасибо.
    Вопросы сняты, подсказали

    Всего записей: 8 | Зарегистр. 22-01-2008 | Отправлено: 18:56 09-11-2008
    RER_27



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

    Цитата:
    Ребята, может кто поможет........  
    Препод ничего не объясняя задал задание:  
     
      Создать проект, в котором  с помощью псевдографических операторов  
                  построить графики функций, полученных от интегрирования системы  
                  дифференциальных уравнений вида:  
                                      dYa/dX = - A1*Ya  
                                      dYb/dX = A1*Ya – A2*Yb  
                                      dYc/dX = A2*Yb  
                                  при:    Ya(0) = A0;     Yb(0) = 0       Yc(0) = 0  
                  Коэффициенты   полинома задать на    форме.   Из   полученного   графика  
                  выбрать произвольный  диапазон, в котором методом трапеций необходимо  
                  определить значение определенного интеграла с заштриховыванием  
                  интегральной области.  
     
    .... примерно видел, что создаются Text1 и Text2, Command1  
    .... а куда чего вводить, чтобы график этот вышел не знаю.  
     

     
    ..... хотя бы что вводить в Text1 ; Text2 и Command1

    Всего записей: 52 | Зарегистр. 13-04-2007 | Отправлено: 15:02 10-11-2008
    Legio



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    А что непонятно-то?.. Кроме "интегрирования системы дифференциальных уравнений" (про которое я давно и успешно забыл и которого VB не умеет, насколько мне известно -- если я правильно интерпретирую задачу, конечно же) всё довольно просто.
    В Text1 и Text2, скорее всего, те самые "коэффициенты полинома" и вводятся. По нажатию на Command1 рисуется график для заданных коэффициентов (как предполагается выбирать "произвольный диапазон", правда, не очень понятно -- но хоть inputbox'ами устанавливать, главное откуда-нибудь установить). Границы графика, судя по условиям, должны быть прописаны самостоятельно где-то внутри программы. Равно как и шаг, с которым будет рисоваться график (ну, там, от -100 до 100 с шагом 0,1, скажем -- типа такого вот).
    Непосредственно для рисования в данном случае нужен будет только Line. Заштрихованные прямоугольники тоже рисуются им, да; заполнение прямоугольника -- штриховка в данном случае -- задаётся свойством FillStyle, если рисовать будете по форме -- свойством FillStyle формы, если по PictureBox'у -- свойством FillStyle PictureBox'а и т. п.
    Ещё неплохо понять, как работают Scale*-свойства, но это не очень сложно, а можно и вовсе без этого обойтись.
     
    Так что, повторюсь, что непонятно-то?

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 18:50 10-11-2008
    RER_27



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Legio
     
    Не понятно как задавать массив.....DIM и т.д., как выглядит прога......
    С пределами и шагом графика можно позже разобраться.... подогнать....
    Чайник я в этом.... и препод говорит: "додумывайте сами".... вот так.
    Если можешь и есть возможность помоги.
    Методичка - так нагляднее.
    Лаба2, вариант 10

    Всего записей: 52 | Зарегистр. 13-04-2007 | Отправлено: 09:26 11-11-2008
    RER_27



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ну всё....... двойка обеспечена.

    Всего записей: 52 | Зарегистр. 13-04-2007 | Отправлено: 12:05 18-11-2008
    Igor_V_Mitichev

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Граждане, есть ли у кого код, обеспечивающий проход по всем подкаталогам дерева и выполняющий там определенные действия?
     
    То есть вот сам алгоритм обхода дерева у меня как-то в голове не формируется...
    Программер я никакой, опыта нет. Может дадите правильное направление, в какую сторону думать? Дерево большое. Команда dir /s/b/ad D:\share\  > dirs_spisok.txt создала файл из 4915 строк.
     
    Можно, конечно, теперь этот файл открыть и пройтись по каталогам циклом
     
    Open "dirs_spisok.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, RunningFolder
     
    действия в каталоге RunningFolder
     
    Loop
    Close #1
     
    но хотелось бы обойтись без внешних утилит.
     
     
    И еще один вопрос. Я из книжки не понял, как правильно открыть несколько файлов.
     
    Dim file1, file2, file3 as New TextStream
    set fso = CreateObject("Scripting.FileSystemObject")
     
    set file1=fso.OpenTextFile("c:\temp\file1.txt"), ForWriting)
    set file2=fso.OpenTextFile("c:\temp\file2.txt"), ForWriting)
    set file3=fso.OpenTextFile("c:\temp\file3.txt"), ForWriting)
     
    операторы программы
     
    file1.close
    file2.close
    file3.close
     
    Так что-ли? То есть вот эту set fso = CreateObject("Scripting.FileSystemObject") достаточно один раз объявить на все случаи жизни, или для каждого файла ее надо по-новой объявлять?
     
    И, если это будет не сильным нарушением топика, то как открыть эти же три файла в VBS?
     
    Добавлено:
    И еще. Сейчас попробовал - оно  у меня не работает почему-то...  
    http://f9n6001.narod.ru/tmp/fso.jpg
    В чем косяк?

    Всего записей: 32 | Зарегистр. 26-07-2008 | Отправлено: 13:43 25-11-2008 | Исправлено: Igor_V_Mitichev, 13:44 25-11-2008
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Igor_V_Mitichev
    http://vb.mvps.org/samples/project.asp?id=DirDrill
    http://www.xtremevbtalk.com/archive/index.php/t-5050.html
    http://www.codeproject.com/KB/vb/dirsinc.aspx
    http://www.visualbasic.happycodings.com/Files_Directories_Drives/code55.html
     
    http://www.google.com/search?hl=en&q=vb+dir+recursive

    Цитата:
    оно  у меня не работает почему-то...  

    Цитата:
    To use FileSystemObject, you must select the Microsoft Scripting Run-time in the Project References dialog box for your project.  
     

    http://support.microsoft.com/kb/186118
    http://www.virtualsplat.com/tips/visual-basic-fso.asp

    Цитата:
    То есть вот эту set fso = CreateObject("Scripting.FileSystemObject") достаточно один раз объявить на все случаи жизни, или для каждого файла ее надо по-новой объявлять?  
    Достаточно однго присвоения.

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 20:51 25-11-2008 | Исправлено: dneprcomp, 23:39 25-11-2008
    Legio



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    dneprcomp
    Оно, боюсь, по другому поводу не работает -- на снэпшоте Set вне процедуры/функции написан.

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 21:21 25-11-2008
    dneprcomp



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

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 23:32 25-11-2008
    Igor_V_Mitichev

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

    Цитата:
    на снэпшоте Set вне процедуры/функции написан

     
    Но если set писать в процедуре, то все равно сначала надо его объявлять через dim?
     
    dim fso as что-то?
     
    потому что внутри функции наблюдается та же самая потеха:
    http://f9n6001.narod.ru/tmp/fso2.jpg

    Всего записей: 32 | Зарегистр. 26-07-2008 | Отправлено: 10:03 26-11-2008
    Legio



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Ну, хм, типа да, переменную надо объявить (ровно потому, что Option Explicit выставлено). И если Microsoft Scripting Run-Time, как верно заметил dneprcom, подключено -- всё должно будет работать.
     
    Добавлено:

    Цитата:
    та же самая потеха

    Совершенно другая. В первом случае было вполне по делу написано -- "Invalid outside procedure". В этом, и тоже по делу, -- "Variable not defined".

    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 18:05 26-11-2008
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Igor_V_Mitichev
    Путаешь объявление - Dim с присвоением - Set
    В конце концов, можешь делать обе в процедуре. Но тогда в другой процедуре надо будет объявлять опять(смотри SCOPE или в хелпе)
     
    PS. Переменную надо объявлять не потому, что Option Explicit выставлено, а потому, что НАДО

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:33 26-11-2008 | Исправлено: dneprcomp, 21:44 26-11-2008
    Barbukas



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Извините, ошибочно написал не в тот форум!
     
    Прошу модератора удалить данное сообщение!

    Всего записей: 48 | Зарегистр. 17-06-2006 | Отправлено: 22:13 27-11-2008 | Исправлено: Barbukas, 22:22 27-11-2008
    sadasaf



    BANNED
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    есть список сайтов (грубо говоря папки). необходимо в каждой конкретной папке (задан список) добавить конкретных юзеров (также задаются) и дать им конкретные права (Read Execute, Read Execute Modify).  
    т.е. допустим папка А, если есть в неё добавляется юзер А1, в папку А2 если есть юзер А1 и А2... ну это уже лирика.  
    Далее разрешить наследование и принудительно заменить права всем чайлдам текущими правами (2 галочки в Advanced Options)  
     
    Интересует как это автоматизировать, опыта с VB совсем нет, но что-то мне подсказывает что в cmd это сделать нереально

    Всего записей: 216 | Зарегистр. 18-08-2008 | Отправлено: 04:16 03-12-2008
    apexfmm



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    sadasaf
    Даже не думай, установка прав доступа - это API + вызов системных библиотек.
    Поройся в готовых модулях (интернет тебе в руки!) и пошукай установку прав доступа.

    ----------
    -Если вы не испытываете желания преступить хоть одну из десяти заповедей - значит, с вами что-то не так
    [WINXP SP3eng, Intel P75, CoreDuoE7400 2.8GHz, 2Gb DDR2, Radeon HD4830]

    Всего записей: 782 | Зарегистр. 28-04-2005 | Отправлено: 10:42 03-12-2008
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 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