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

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

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите новичку!
    На всех доступных мне документах DriveListBox изображен в виде списка дисков, а у меня он открывается только с одним!
    В чем тут дело?
    Всего записей: 3 | Зарегистр. 04-04-2008 | Отправлено: 22:29 24-12-2011
    ItsJustMe

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    У вас только один диск
    Всего записей: 2040 | Зарегистр. 02-09-2005 | Отправлено: 23:14 24-12-2011
    fel12

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    В системе два диска SATA, на них пять разделов, но в DriveListBox иден только тот раздел, в котором пытаюсь открыть проект, и маленький треугольник выбора не работает!
    Опишу конкретную задачу, которую пытаюсь решить.
    Папка DICOM содержит только подпапки с цифровыми именами (т.н. STUDY), каждая study также содержит цифровые подпапки (SERIES), в каждой series имеется от нуля до тысяч цифровых файлов.
    Задача - в каждой study из первого находящегося в ней файла извлечь несколько параметров (тэгов). Задачу я решил в MSACCESS и в QBASIC, но длинно и неприемлемо для юзеров (врачей), а вот в VB6 решение не могу начать!
    Так что  же может происходить с DriveListBox?
    Спасибо!
    Всего записей: 3 | Зарегистр. 04-04-2008 | Отправлено: 06:35 25-12-2011
    sportvanino

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет помогите пожалуйста студенту первого курса с задачей по информатике.)))
    Даны три целых числа: А, В, С. Проверить, верно ли утверждение: «Хотя
    бы одно из чисел А, В, С положительное». Надо написать программу с помощью  visual basiс.
    Помогите плиз))))
    Всего записей: 2 | Зарегистр. 26-12-2011 | Отправлено: 09:33 26-12-2011
    AndVGri

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

    Код:
     
    Public Function IsPositive(ByVal A As Long, ByVal B As Long, ByVal C As Long) As Boolean
        IsPositive = (A > 0) Or (B > 0) Or (C > 0)
    End Function
     
    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 10:28 26-12-2011
    sportvanino

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    этот язык Visual Besic??? Чето как то не похоже. Когда мы решали задачи мы начинали с
    Private sub Command ....
    Dim a as single и так далие.....
    Всего записей: 2 | Зарегистр. 26-12-2011 | Отправлено: 11:29 26-12-2011
    AndVGri

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    sportvanino
    Ну, так и суй функцию в свою
    Цитата:
    Private sub Command
    - обработчик нажатия кнопки, передавая параметрами в функцию, что там у тебя?, значения TextBox, приведя и к типу Long
    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 14:25 26-12-2011
    fel12

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет умникам! Где вы среди трех целых чисел: -1,0,-2 видите положительное?
    И вопрос к администраторам - почему письма приходят на fel123@km.ru?
    Феликс Четвертков.
     
    Добавлено:
    Ура!
    Нашел почти готовое решение Александра Бельбакова: recursivesearch.
    В нем только три строчки закомментировать, и это то, что мне было (и есть) нужно.
    Всего записей: 3 | Зарегистр. 04-04-2008 | Отправлено: 18:36 26-12-2011
    AndVGri

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

    Цитата:
    Привет умникам! Где вы среди трех целых чисел: -1,0,-2 видите положительное?  

    Написано же

    Цитата:
    Проверить, верно ли утверждение: «Хотя бы одно из чисел А, В, С положительное»

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 06:49 27-12-2011
    Vegoss

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте, помогите решить задачу если не сложно! Буду очень благодарен!
    Вот условие задачи:
    В тексте вставить между словами вместо одного пробела  запятую и пробел.
    Текст (произвольный)
    Спасибо! =)
    Всего записей: 2 | Зарегистр. 03-01-2012 | Отправлено: 22:16 03-01-2012
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Vegoss
    Попробуй Replace Function (Visual Basic)

    Код:
    Replace([в чем искать], " ",  ", ")
    Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 23:11 03-01-2012
    Vegoss

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    dneprcomp
    Спасибо огромное! ))
    Всего записей: 2 | Зарегистр. 03-01-2012 | Отправлено: 18:47 05-01-2012
    Legio



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Спамботы какие-то понабежали...
    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 10:34 06-01-2012
    Fr33l

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Создать проект, в котором вычеслить часть пользователей ИНтернет в каждой стране в 2010.  В отдельном списке вивести страны, в которыхз часть пользователей выше  50%.
     
    Эсть таблица с даными, нужен код.  
     
    Очень Срочно, я на Екзамене.  Vb 2008   Через DataGridView
    Всего записей: 1 | Зарегистр. 18-01-2012 | Отправлено: 13:57 18-01-2012
    PALbICH

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

    Цитата:
     
    что-то вроде такого:  

    Код:
     
    for each чего-то in myMail.Body
    if найдено Eq No then заменить его на Eq No C1
    next
     
     
    ?
     
    Добавлено:
    Нашел. Вот так.
     
     
    dim sTemp
    А внутрь вышеуказанного цикла добавляем:

    Код:
     
    sTemp = "Eq No " + Equip(i)
    myMail.HTMLBody = Replace(myMail.HTMLBody, "Eq No", sTemp)
     
     
     
    И все работает. Спасибо, что натолкнули!

     
    Снова проблемка с Replace HTMLBody письма в Outlook. При такой замене, если в переменной sTemp встречаются подряд несколько пробелов, то после Replace остается только один пробел, остальные удаляются.  
    Например, если sTemp = "Дата       Время      Значение", то после Replace в теле письма получается "Дата Время Значение". Как сделать, чтобы все пробелы сохранялись?
    Всего записей: 11 | Зарегистр. 11-09-2009 | Отправлено: 14:24 26-01-2012
    dneprcomp



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

    Цитата:
    Как сделать, чтобы все пробелы сохранялись?

    С помощью Replace никак. Используйте Mid, Left, Right,Len, InStr в цикле.
    Проверяйте, сколько пробелов между словами и стройте логику замены на If Then
    http://msdn.microsoft.com/en-us/library/e3s99sd8(v=vs.80).aspx
    Было бы неплохо показывать именно свой код, а не "что-то вроде такого:"
    Приведенный код не заменяет пробелы. Поэтому непонятно, что собственно хочется сделать.
    Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 18:21 26-01-2012 | Исправлено: dneprcomp, 18:25 26-01-2012
    Legio



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    PALbICH
    Сами по себе пробелы не удаляются. Так что поддерживаю dneprcomp'а, показывайте код, скорее всего у вас там где-то лишняя обработка текста происходит.
    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 18:44 26-01-2012
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Legio PALbICH
    Сами по себе нет. Но Replace заменяет все найденные стринги.
    Т.е., если параметром поиска в Replace единичный спейс, то все найденные спейсы будут заменены на значение параметра замены. Даже если спейсы следуют подряд один за другим. Пример:

    Код:
    sTemp = "Дата       Время      Значение"
    sTemp = Replace(sTemp , " " ,  "-")
    'Значение sTemp изменится на "Дата-------Время------Значение"

    Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 00:35 27-01-2012 | Исправлено: dneprcomp, 00:43 27-01-2012
    Legio



    Advanced Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    dneprcomp
    Я ровно об этом написал -- где-то происходит лишняя обработка текста
    Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 06:40 27-01-2012
    dneprcomp



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

    Цитата:
    где-то происходит лишняя обработка текста  

    Ну, можно и так сказать
    Использование Replace - лишнее
    Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 07:31 27-01-2012 | Исправлено: dneprcomp, 07:32 27-01-2012
    Открыть новую тему     Написать ответ в эту тему

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