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

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



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

    Цитата:
    Кроме того - запись в константу и гораздо компактнее и удобнее, чем городить структуру Case
    Ключевое значение: добавка новых значений. Что будем делать при необходимости добавки второй константы и разветвления условий? Все равно придется добавлять IF...THEN или SELECT CASE. Скорость обработки CASE в задаче melniki вряд ли будет самым узким местом.
     
    melniki
    Все предложенные решения имеют бОльшую проблему, чем использование CASE. Ни одно не останавливается по нахождении первого положительного значения. Вот где потеря времени и ресурсов - ненужное перелопачивание базы до EOF.
     
     
    Добавлено:
     
    melniki
     
    А можно вообще 'почти' исключить VB и сделать действительно все на SQL.
    Заводим таблицу константных значений - каждое значение в отдельном поле.  
    Создаем постоянное Query2
    Код:
    SELECT Left(tbl!номер, 6) AS Expr1  
    FROM tbl;
    Затем через через
    Код:
    SELECT tblConst.const, Query2.Expr1
    FROM tblConst INNER JOIN Query2 ON tblConst.const = Query2.Expr1;
    узнаем RecordCount.  
    If recordset.RecordCount > 0 then
        Переключатель16.Visible = False    
        Переключатель14.Visible = True    
    Else    
       Переключатель16.Visible = True    
       Переключатель14.Visible = False    
    End If  
    Константы легко добавлять и менять. Все автоматизировано.  
    Можно конечно и Select in Select сделать вместо Query, но мне откровенно лень

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:50 25-07-2007 | Исправлено: dneprcomp, 21:41 26-07-2007
    5555555



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

    Всего записей: 2589 | Зарегистр. 01-04-2004 | Отправлено: 08:52 26-07-2007
    fl1pp3r



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте. У меня вопрос такой, с помощью vbs можно реализовать архивацию одной папки встроенным в winXP zip'ом?

    Всего записей: 446 | Зарегистр. 22-11-2004 | Отправлено: 16:13 30-07-2007
    kolesnik75

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем добрый вечер! Подскажите, плис, каким образом решить след-ю задачку: есть некий реестр операций в excel, в строках есть как данные так и формулы, так и значения получаемые с помощью макросов. Необходимо после ввода данных по строке запретить изменение данных в строке, т.е. чтобы она стала только в режиме просмотра, но не редактирования. Оттолкнуться при этом нужно от наличия данных в определенной ячейке, или и от перехода на другой лист.  
     

    Всего записей: 2 | Зарегистр. 30-07-2007 | Отправлено: 18:12 30-07-2007
    5555555



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    fl1pp3r
    kolesnik75
    Вы по-моему всеже не сюда пишите, басик-то басик, но это не ключевое слово,
    вероятно лучше что-то типа Ссылка

    Всего записей: 2589 | Зарегистр. 01-04-2004 | Отправлено: 21:18 30-07-2007
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    fl1pp3r
    http://forum.ru-board.com/forum.cgi?action=filter&forum=33&filterby=topictitle&word=vbs

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:32 30-07-2007
    Vitalik_Atas

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Я учитель физики, предложили вести информатику. В 11 классе идет программирование по программе. Язык можно выбрать Basic или Паскаль. 10 лет назад изучала в институте, а сейчас в голове ничего нет. Какой язык легче? С чего начать? Как научиться самостоятельно овладеть программированием? Где найти? Помогите!

    Всего записей: 10 | Зарегистр. 01-08-2007 | Отправлено: 22:53 03-08-2007
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Vitalik_Atas
    Компьютерные (IT) книги на РУССКОМ языке
    Обучающие видеокурсы по ИТ
    Книжульки по VBA
    Компьютерные (IT) книги на АНГЛИЙСКОМ
    Книги по Веб-дизайну  
    Компьютер для начинающих  
    Книги O'Reilly
    Учебники по MS Office 02,03,07 на русском
     
    Рекомендую начинать с VB

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 10:18 04-08-2007
    AndronH



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

    Всего записей: 21 | Зарегистр. 14-12-2006 | Отправлено: 16:36 06-08-2007
    5555555



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Вообще, забавный учитель
     
    Обои - Wallpapers

    Цитата:
    Донецк говорит спосибо!!!!

     
    Style XP (StyleXP) & StyleBuilder

    Цитата:
    Доброй ночи! Нуждаюсь в програме которая оповещала о приходе моей почты и достовляла почту на мой диск.Зарание благодарен!

     
    Хотел пошутить, но передумал - все это скорее печалит.

    Всего записей: 2589 | Зарегистр. 01-04-2004 | Отправлено: 16:53 06-08-2007
    Kexit



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    5555555, семейный комьютер просто. Скорее всего. Даже пол в постах разный.
     
    Vitalik_Atas, не вижу особой разницы. В 11 классе поздно уже учить языкам высокого уровня. Это надо в классе 7-8 делать, а то и раньше. Бери Basic, учи алгоритмам и логике, это хоть в жизни пригодится.
     
     

    Всего записей: 968 | Зарегистр. 16-02-2003 | Отправлено: 05:24 07-08-2007 | Исправлено: Kexit, 06:57 07-08-2007
    Vitalik_Atas

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

    Всего записей: 10 | Зарегистр. 01-08-2007 | Отправлено: 11:09 07-08-2007
    vitalya2903

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Вопрос1: Как в VB сделать так чтобы программа скрывала себя в диспетчере задач?
     
    Вопрос2: Функция в VB SavePicture сохраняет изображение с размером как у .BMP
    Даже если написать так:
    SavePicture Picture1.image, "C:\pic.jpg"
    все-равно файл имеет размер как у .BMP
    Как сделать так чтобы файл имел размер как у .jpg?

    Всего записей: 7 | Зарегистр. 10-04-2007 | Отправлено: 22:49 12-08-2007
    Troitsky



    Водник Водкин
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    vitalya2903
    1. Как убрать программу из списка Ctrl+Alt+Del
     
    2. Примечание к описанию оператора SavePicture из справки:
    Цитата:
    Если графическое изображение, имеющее формат растра, значка, метафайла или расширенного метафайла, было присвоено значению свойства Picture объекта во время разработки или во время выполнения, то при записи в файл его формат не изменится. Если же изображение имело формат GIF или JPEG, то оно будет сохранено в виде растрового файла.
    Графическое изображение, связанное со свойством Image, всегда, независимо от исходного формата, записывается в виде растрового файла (.bmp).

     
     
    Добавлено:
    т.е. при сохранении твоим методом графического файла с расширением *.jpg он не просто будет иметь размер как у файла в формате *.bmp, а будет таковым в действительности являться.


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

    Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 23:13 12-08-2007
    vitalya2903

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

    Цитата:
    1. Как убрать программу из списка Ctrl+Alt+Del

     
    В этих примерах используется АПИ функция RegisterServiceProcess. У меня вылетает ошибка что данная функция не найдена в библиотеке kernel32.  
    Может в Windows XP SP1 её нету???
     
    2. Т.е. В случае если я что-нибудь рисую на пикче а не открываю файл, получается средствами VB никак нельзя сохранить файл с расширением и размером .jpg???

    Всего записей: 7 | Зарегистр. 10-04-2007 | Отправлено: 02:13 13-08-2007
    ZORRO2005



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Друзья,
    Если группа занимает при печати больше одной страницы или переносится на следующую страницу, можно заставить Access печатать заголовок группы на каждой странице. Для этого используется свойство Повторение раздела (Repeat Section) заголовка группы.
    а в VB 6 немогу найти ничего похожего.

    Всего записей: 342 | Зарегистр. 08-10-2005 | Отправлено: 13:16 13-08-2007 | Исправлено: ZORRO2005, 13:20 13-08-2007
    Troitsky



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

    Цитата:
    В этих примерах используется АПИ функция RegisterServiceProcess. У меня вылетает ошибка что данная функция не найдена в библиотеке kernel32.    
    Может в Windows XP SP1 её нету???

    Можешь не париться, этот трюк пройдет только в Windows 9x
     

    Цитата:
    Т.е. В случае если я что-нибудь рисую на пикче а не открываю файл, получается средствами VB никак нельзя сохранить файл с расширением и размером .jpg???

    Т.е. Встроенная функциональность самого VB не позволяет сохранять файлы в графическом формате *.jpg.
    Выход: либо самому добавлять в проект модули с функциями, могущими обеспечить нужную функциональность, либо использовать сторонние библиотеки.
    Уже готовые решения можешь поискать, например, тут: http://www.planet-source-code.com/vb/


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

    Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 13:34 13-08-2007
    tigranchik



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Профессионалы, помогите пожалуйста дилетанту. Мне нужно перехватывать любое посылание на печать, из Word, Adobe, IE.....
    выбрасывать сообщение и после ОК предлагать выбрать принтер  
    Это очень сложно на написать на VB  или VBscript?

    ----------
    мы не ищем простых решений,мы ищем бесплатные!!!
    Тот, кто знает, чего хочет, или слишком мало хочет, или слишком много знает

    Всего записей: 562 | Зарегистр. 09-12-2001 | Отправлено: 17:27 15-08-2007 | Исправлено: tigranchik, 17:43 15-08-2007
    Rush

    Уже за тридцать...
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите ответ :  
    В заголовке ID3v2 размер самого тэга заложен 4 байтами (с 7 по 10). Никак не могу сообразить, как их сконвертить так, чтобы на выходе был размер тэга в байтах.

    Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 16:46 16-08-2007 | Исправлено: Rush, 16:48 16-08-2007
    Kafka17



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

    Цитата:
    Профессионалы, помогите пожалуйста дилетанту. Мне нужно перехватывать любое посылание на печать, из Word, Adobe, IE.....  
    выбрасывать сообщение и после ОК предлагать выбрать принтер  
    Это очень сложно на написать на VB или VBscript?  

    Самое простое, что пока приходит в голову -- это поставить по умолчанию какой-нибудь PDF или PS принтер, в котором можно настроить выполнение некоего задания по выполнении задачи. В качестве отплавного пункта могу посоветовать либо Win2PDF (коммерческое), либо Ghostscript (freeware).
     
    Добавлено:

    Цитата:
    В заголовке ID3v2 размер самого тэга заложен 4 байтами (с 7 по 10). Никак не могу сообразить, как их сконвертить так, чтобы на выходе был размер тэга в байтах.

    В каком формате храняться эти 4 байта сейчас в программе? Какой из байтов является старшим.
     
    Самое простое -- это взять эти 4 байта (например в виде массива Integer), и пересчитать как:
     
    res = arr[0] + arr[1] * 256 + arr[2] * 256 * 256 + arr[3] * 256 * 256 * 256

    Всего записей: 6 | Зарегистр. 01-03-2007 | Отправлено: 18:37 17-08-2007
    Открыть новую тему     Написать ответ в эту тему

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