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

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



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

    Всего записей: 116 | Зарегистр. 23-05-2007 | Отправлено: 22:31 25-12-2007
    BrdGuest



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    bonya19
    i[точка]j[точка]r - это i*j*r?
    индексы в массиве начинаются с нуля?

    Всего записей: 43 | Зарегистр. 07-12-2007 | Отправлено: 07:29 26-12-2007
    bonya19



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    BrdGuest
    ну это правда задача на визуал студио, но вроде различия не так важны. там условие
    i-j-r

    Всего записей: 116 | Зарегистр. 23-05-2007 | Отправлено: 09:21 26-12-2007
    Bersa



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите пожалуйста, как сделать чтобы выбрав в таблице строку с заказом, открывались данные по этому заказу. , чтобы содержимое автоматически менялось на основании выбранной позиции в родительской таблице. как в MS Access . Использую Visual Basic 2005

    Всего записей: 58 | Зарегистр. 20-12-2006 | Отправлено: 00:21 28-12-2007
    vasya113

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    y=sin x+2-e-x  ;   x[0;2п]  ;   x=п/6

    Всего записей: 3 | Зарегистр. 12-01-2008 | Отправлено: 10:31 12-01-2008
    avenger463

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет)  
    Делаю программу тест на VB. Нужно сделать так, чтобы вопросы и варианты ответов она брала из текстового файла и собственно ключи правильных ответов. Но VB знаю очень плохо. Помогите написать процедуру! Если можно поподробнее, пожалуйста.  
    Спасибо! )  
    Если считать построчно в массив mas. А том в цикле передавать значения свойствам, то как тогда слать задержку, чтобы можно было выбрать ответ, а потом опять поменять текст в объектах?  
    for i=1 to 20  
    label.caption = mas(i)  
    box1.caption =mas (i)  
    box2.caption =mas (i)  
    if mas (i) = true then otv =otv+1  
    loop

    Всего записей: 2 | Зарегистр. 05-10-2007 | Отправлено: 15:29 13-01-2008
    Troitsky



    Водник Водкин
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    avenger463
    К примеру, создаешь пользовательский тип (инструкция Type) вопроса, в котором элементами будут, собственно, формулировка вопроса, варианты ответов и правильный ответ (м.б. даже и путь к файлу поясняющего рисунка);
    считываешь из текстового файла (инструкция Open) данные в массив переменных определенного выше типа;
    выводишь первый вопрос, а на событие дачи ответа (черт знает как там у тебя это будет реализовано. либо при нажатии кнопки, либо при выставлении отметки в чекбоксе, либо еще как) вешаешь выдачу второго вопроса;
    при ответе на последний вопрос массива выдаешь результат тестирования.
    Естественно, во многом состав методов и функций зависит от интерфейса программы и задуманной ее функциональности, так что не описав функциональность (логику) в программинг лучше не соваться.


    ----------
    Мы в хорошем настроении гуляем по лесам.
    Кто обидеть нас захочет – сам получит по усам.
    Сам полу- получит по усам. Сам полу- получит по усам!

    Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 23:28 13-01-2008
    Dmi_Tro

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    подскажите как написать программу, открывающую по очереди папки и читающую все файлы которые там есть...

    Всего записей: 3 | Зарегистр. 08-02-2008 | Отправлено: 16:54 08-02-2008
    Dem_anywhere



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

    Всего записей: 230 | Зарегистр. 28-02-2006 | Отправлено: 04:35 09-02-2008
    emira



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Имеются следующие данные данные о температуре остывания изделия по школе Кельвина.
    ________________________________________
    Время:    | 0    | 1    |   3 |3ч15мин |   4  | 4,2   |
    Темпер:  | 780 | 650| 470| 460       |  34 | 300  |
    --------------------------------------------------------
    С помощью алгоритма линейной интерполяции определить температуру изделия через 2 часов, 5 часов.
    Вычисление параметров функции оформить в виде отдельной процедуры. Постороить график.
    Help!

    Всего записей: 82 | Зарегистр. 29-06-2007 | Отправлено: 23:48 22-02-2008
    ItsJustMe

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

    Цитата:
    смотри объект Filesystem и вокруг него

    Поправочка: FileSystemObject

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



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FileSystemObject - это в VBScript, а в VB - FileSystem
    автор не уточнил, а топик всё-таки по второму...

    Всего записей: 230 | Зарегистр. 28-02-2006 | Отправлено: 00:09 24-02-2008
    Rush

    Уже за тридцать...
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Dem_anywhere

    Цитата:
    FileSystemObject - это в VBScript, а в VB - FileSystem

    Не выдумывай. FSO - он везде FSO. Часть Microsoft Windows Script Runtime.  
    С одинаковым успехом его можно использовать и в VB, и VBScript, и в JawaScript, и в других языках.

    Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 16:26 26-02-2008
    DIoriev

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ЗАДАЧА: Необходимо из VisualBasic внести изменения (вставить данные в соответствующие позиции) в файл Excel, а именно заполнить формы на трех листах данными из VB.

    Всего записей: 218 | Зарегистр. 26-04-2007 | Отправлено: 20:49 10-03-2008
    Nthnsq



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите, в чем тут дело: есть скрипт, который заполняет на вебстарничке прова логин+пароль через ИЕ и жмет "Войти". Типа залогинивается в инетсессии. На ХР чудно работало. А попробовал на Висте - вылетает: старничка-то открывается, а дальше - не могет
       
    что сделать?
     
    Добавлено:

    Цитата:
    set ie=createobject("internetexplorer.application")
    url="https://ХХХ-hpool.quantum.ru/index.php"
    user="USER"
    pass="11111"
    ie.navigate(url)
    do while ie.readystate<4
         wscript.sleep 100
    loop
    set doc=ie.document
    set forms=doc.forms
    if not forms.item("loginform") is Nothing then
         set username=doc.getElementById("username")
         set password=doc.getElementById("password")
         username.value=user
         password.value=pass
         forms.item("loginform").submit
         ie.visible=-1
    end if


    Всего записей: 4875 | Зарегистр. 15-02-2006 | Отправлено: 08:58 17-03-2008
    Henta

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

    Цитата:
    Ввести одномерный массив a={2.35,-4.15,0,-3.1, 7.8, 6.3,-3.05,1.5}.
    Найти и вывести среднее геометрическое положительных элементов массива  a и индекс элемента, наиболее близкого к среднему геометрическому.
     
    Помогите пожалуйста с лабой, горю..
     
     
    Добавлено:
    Вот смог наковырять приминить не получаеться за недостатком знаний:

    Цитата:
    Private Sub MidGeom()
    'массив из пяти элементов
    Dim A(5) As Integer
    'переменная ср. геометрического
    Dim MidGeom As Single
    'индекс массива близкий к ср. геом
    Dim IndexMidGeom As Integer
    'рабочие переменные
    Dim MinInd As Single
    Dim i As Integer
     
    'инициализируем переменную
    MidGeom = 1
    'заполняем массив случайными элементами от 1 до 10
    For i = 1 To 5
    A(i) = Int((10 * Rnd + 1))
    Next
    '--------------------------------------------------
    'вычисляет среднее геометрическое
    For i = 1 To 5
    If A(i) > 0 Then
    MidGeom = MidGeom * A(i)
    End If
    Next
    MidGeom = MidGeom ^ (1 / 5)
    '-----------------------------------------------------
     
    'вычисляем индекс массива близкий к среднему геометрическому
    MinInd = Abs(1 - MidGeom)
    IndexMidGeom = 1
    For i = 2 To 5
    If Abs(i - MidGeom) < MidInd Then
    MinInd = Abs(i - MidGeom)
    IndexMidGeom = i
    End If
    Next
    '-------------------------------------------------------------
     
     
    'выводим результыты из переменных
    'MidGeom
    'IndexMidGeom
    End Sub


    Всего записей: 1 | Зарегистр. 18-03-2008 | Отправлено: 13:58 18-03-2008
    Mew



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Не могли бы вы мне помочь? У нас в компании есть программа, похоже написанная на Визуал Бейсике, дистрибутив который был утерян. Теперь надо эту программу установить на компьютер после переустановки Виндов. Пробую запустить екзешник из переписанной папки с программой (перенеся также требуемые файлы библиотек), но программа ругается, говорит Run-time error 713, Класс не зарегистрирован, looking for object with CLSID.... Я предполагаю, что нужно установить run-time библиотеку для визуал бейсика. Не подскажете где ее взять, чтобы попробовать такой вариант?  
     
    В логе установки программы записано такое:
     
     %% PLEASE DO NOT MODIFY OR DELETE THIS FILE! %%  
     %% This file contains information about the installation of an application. %%  
     %% It will be used to automatically remove all application components from your computer if you choose to do so. %%  
     
    NOTE: Beginning of the bootstrapper section
    CONFIG: Title: "Клиенты"
    ACTION: RegKey: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "SharedDLLs"
    ACTION: SystemFile: "C:\WINDOWS\system32\VB6STKIT.DLL"
    (File was not found or was an older version -- new file copied)
    ACTION: SystemFile: "C:\WINDOWS\system32\COMCAT.DLL"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\system32\ASYCFILT.DLL"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\system32\olepro32.dll"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\system32\OLEAUT32.DLL"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\system32\STDOLE2.TLB"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\system32\MSVBVM60.DLL"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\system32\MSVCRT40.DLL"
    (File currently on disk was already up to date)
    ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\COMCAT.DLL"
    ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\olepro32.dll"
    ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\OLEAUT32.DLL"
    ACTION: TLBRegister: "C:\WINDOWS\SYSTEM32\STDOLE2.TLB"
    ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\MSVBVM60.DLL"
    NOTE: End of the bootstrapper section
    NOTE: Now spawning the main Setup program 'Setup1.exe'....
    ACTION: CreateDir: "C:\Program Files\Клиенты"
    ACTION: CreateDir: "C:\Documents and Settings\Admin\Главное меню\Программы\Клиенты"
    ACTION: ShellFolder: "Клиенты"
    ACTION: PrivateFile: "C:\Program Files\Клиенты\RunMe.exe"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\MSCOMCTL.OCX"
    (File currently on disk was already up to date)
    ACTION: SharedFile: "C:\WINDOWS\System32\COMCT332.OCX"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\MSCOMCT2.OCX"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\DBGRID32.OCX"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\DBLIST32.OCX"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\comdlg32.ocx"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\MSWORD8.OLB"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\EXCEL8.OLB"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\VB5DB.DLL"
    (File was not found or was an older version -- new file copied)
    ACTION: SystemFile: "C:\WINDOWS\System32\msrepl35.dll"
    (File was not found or was an older version -- new file copied)
    ACTION: SystemFile: "C:\WINDOWS\System32\msrd2x35.dll"
    (File was not found or was an older version -- new file copied)
    ACTION: SystemFile: "C:\WINDOWS\System32\EXPSRV.DLL"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\System32\vbajet32.dll"
    (File currently on disk was already up to date)
    ACTION: SystemFile: "C:\WINDOWS\System32\msjint35.dll"
    (File was not found or was an older version -- new file copied)
    ACTION: SystemFile: "C:\WINDOWS\System32\msjter35.dll"
    (File was not found or was an older version -- new file copied)
    ACTION: SystemFile: "C:\WINDOWS\System32\msjet35.dll"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL"
    (File was not found or was an older version -- new file copied)
    ACTION: SharedFile: "C:\WINDOWS\System32\WIN32.TLB"
    (File was not found or was an older version -- new file copied)
    ACTION: PrivateFile: "C:\Program Files\Клиенты\Клиенты.exe"
    (File was not found or was an older version -- new file copied)
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\MSCOMCTL.OCX"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\COMCT332.OCX"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\MSCOMCT2.OCX"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\DBGRID32.OCX"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\DBLIST32.OCX"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\comdlg32.ocx"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\msrd2x35.dll"
    ACTION: DllSelfRegister: "C:\WINDOWS\System32\msjet35.dll"
    ACTION: DllSelfRegister: "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL"
    ACTION: TLBRegister: "C:\WINDOWS\System32\WIN32.TLB"
    ACTION: ShellLink: "Клиенты", "Клиенты"
    ACTION: RegKey: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "App Paths\Клиенты.exe"
    ACTION: RegValue: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Клиенты.exe", ""

    Всего записей: 148 | Зарегистр. 09-07-2004 | Отправлено: 17:03 25-03-2008 | Исправлено: Mew, 17:07 25-03-2008
    Cyril Konst



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    народ, как назначить порт для определённого принтера при логоне пользователя (скриптом)?
    причём нужно учитывать информацию из описания порта.

    Всего записей: 634 | Зарегистр. 12-08-2003 | Отправлено: 19:04 25-03-2008 | Исправлено: Cyril Konst, 19:04 25-03-2008
    Fatal2006

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    надо программка которая рисует треугольник по трём заданным сторонам (исходник на vb) если  
    можно дайте.
     
    Добавлено:
    Mew, тут:
    http://download.microsoft.com/download/vb60pro/Redist/sp5/WIN98Me/EN-US/vbrun60sp5.exe

    Всего записей: 161 | Зарегистр. 19-12-2006 | Отправлено: 15:22 27-03-2008
    on_levion

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    пожалуйста помогите с задачей: задан текст в текстовом окне, найти самое длинное словр встречающееся не менее двух раз.заранее спасибо.

    Всего записей: 1 | Зарегистр. 01-04-2008 | Отправлено: 14:57 02-04-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