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

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



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    БД MySQL 5.0. ODBC драйвер установлен, ссылки прописаны
     
    Dim conn As ADODB.Connection
    Dim rs As ADODB.recordset
    Dim test As Field
     
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
     
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=yyy;DATABASE=zzz;UID=xxx;PWD=uuu;OPTION="&1+2+8+32+2048+16384
    conn.Cursorlocation = adUseServer
    conn.Mode = adModeRead
    conn.Open
     
    попытка выполнить вот этот запрос:
     
    rs.Open "SELECT round(sum(bytes)/1024) as test FROM log WHERE (LEFT(time,7)=(SELECT LEFT(NOW(),7)))",conn
    Text1.Text = rs!test
     
    заканчивается на ошибку "3021" - "BOF или EOF имеет значение True, либо текущая запись удалена. Для выполнения операции требуется текущая запись"
     
    Если сделать вот так:
    Text1.Text = rs.Fields.Count
     
    то в текстовом поле рисуется цифра "1" - одна запись, все правильно...
     
    Где что подправить надо, чтобы в текстовом поле Text1.Text получить заветную сумму данных из поля bytes?
     
    Да, мопед не мой, я просто... Ну, вы знаете. Приятель спросил, а я в VB до такой степени не разбираюсь. Need Help, короче...

    ----------
    Не мы такие - жизнь такая...

    Всего записей: 347 | Зарегистр. 12-10-2001 | Отправлено: 15:22 02-04-2008 | Исправлено: AnTko, 15:23 02-04-2008
    Sorok



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Люди добрые, помогите. У самого мозга мало.
    В комбе перечень имен.  
    Нужно, чтобы при написании имени в окошке ввода имени, в окошке сортировки появлялись имена начинающиеся с этой буквы.  
    Когда пишешь следующую букву, остаются имена уже начинающиеся с двух букв.
    Пишешь третью - остаются имена начинающиеся на эти три буквы.
     
    Отсортировать по первой букве я сделал, а вот чтобы шла сортировка дальше никак.
     
       
     
    Option Explicit
    Dim I, J As Integer
    Dim Letter As String
     
     
    Private Sub Form_Load()
     
    'загружаем в Combo1 213 имён из файла
    Open App.Path & "\name.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, Letter
        Combo1.AddItem Letter
    Loop
    Close
    Combo1.AddItem ""
    Combo1.Text = ""
    End Sub
    ' В Letter хранятся загруженные из файла имена
     
    Private Sub Text1_Change()
    Dim ksp As Integer
    Dim p As Integer
    Dim kbt As Integer
    Dim kbp As Integer
     
    'кол-во всех стровек в Combo1
    'kbt = Combo1.ListCount
    p = 0 'Номер текущей строки
    'К-во введенных в Text1 букв
    ksp = Len(Text1.Text)
    'Вводими первую букву в окно Text1 и сравниваем с 1-й буквой
    '1-й строки из Combo1. Если буквы совпадают печатаем
    'строку в List1. Если первые буквы не совпадают, переходим
    'к следующей строке.
    'Когда все первые буквы выбраны, выбираем из окна Text1
    'первую строчку и сравниваем уже две буквы. При совпадении
    'результат заносим в List1
    For kbt = Combo1.ListCount To 1 Step -1
    If LCase(Left(Combo1.List(p), ksp)) = LCase(Text1.Text) Then
    List1.AddItem Combo1.List(p)
    kbt = kbt - 1
    p = p + 1
    Else
     
    End If
    Next
     
    End Sub
     
       
     
    После ввода третьей буквы
     
       

    Всего записей: 1709 | Зарегистр. 27-09-2001 | Отправлено: 19:57 06-04-2008 | Исправлено: Sorok, 20:16 06-04-2008
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Sorok
    Алгоритм надо немного поменять. Проверять не на каждую букву по очереди, а сразу на сочетание. Даже если одна буква, рассматриваем это как сочетание. Для сравнения используем функцию InStr. Тогда нам будет безразлично сколько символов в Text1. Лишь бы InStr вернул 1. И не забываем чистить окно сортировки перед кажой проверкой.

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 22:33 06-04-2008 | Исправлено: dneprcomp, 22:35 06-04-2008
    mikeryrg

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    есть прога на вб для работы с которой требуется файл MSINET.OSX и лежать он должен только в system32 (вроде там), вобщем в системной папке
     
    можно ли как-нибудь указать в программе путь к этому файлу, например что бы прога брала файл из той же папки где сама находится
    еще лучше если этот а так же все остальные вспомогательные файлы можно было вшить в экзешник
     
    помогите плз, очень надо

    Всего записей: 42 | Зарегистр. 07-01-2007 | Отправлено: 01:35 07-04-2008
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    mikeryrg
    А что мешает этому файлу лежать в system32?
    В любом случае, не смотря на месторасположение все OCX файлы должны быть зарегистрированы в системе. Регистрация проводится автоматически при инсталяции. Так что надо делать инсталят, а не искать обходные пути по запихиванию всякого мусора в ехешник.  
    PS. Файл можно зарегистрировать вручную с помощью regsvr32.exe  

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 04:11 07-04-2008 | Исправлено: dneprcomp, 04:14 07-04-2008
    mikeryrg

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

    Всего записей: 42 | Зарегистр. 07-01-2007 | Отправлено: 09:14 07-04-2008
    kpblc

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

    Всего записей: 713 | Зарегистр. 08-08-2003 | Отправлено: 09:29 07-04-2008
    mikeryrg

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Скажите тогда как остальные служебные файлы запихать в экзешник или дайте ссылку на ман какой-нибудь

    Всего записей: 42 | Зарегистр. 07-01-2007 | Отправлено: 12:08 07-04-2008
    dneprcomp



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

    Цитата:
    Скажите тогда как остальные служебные файлы запихать в экзешник  
    Что есть служебные файлы?
    Делай инсталляционный пакет в самом VB. Он подхватит все(в основном) используемые файлы и затем, при инсталле на других машинах, все расставит по местам и зарегистрирует как надо. Ищи в хелпе: дистрибутив или "package and deployment"

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 20:45 07-04-2008 | Исправлено: dneprcomp, 20:52 07-04-2008
    NotDead



    Newbie
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    никто не подскажет как создать матрицу A(NxN) целых чисел, где вводится по запросу программы. С помощью подпрограмм:
    среди столбцов заданной матрицы, содержащей только такие элементы, которые строго больше соответствующих элементов последнего столбца, найти номер столбца с минимальным произведение элементов;
    переставить строку с максимальным элементом на главной диагонали исходной матрицы с первой строкой;
    упорядочить столбцы матрицы по возрастанию сумм их элементов.
    исходную матрицу и результаты записать в файл в основной программе.Информацию из файла выводить на экран с пояснениями.
    на ш препод намудрил что ппц в заданиях + к тому же объясняет непонятно, кто поможет огромное спасибо

    Всего записей: 30 | Зарегистр. 03-01-2007 | Отправлено: 23:26 07-04-2008
    mikeryrg

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

    Всего записей: 42 | Зарегистр. 07-01-2007 | Отправлено: 13:06 18-04-2008
    Asssoll

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Люди,помогите пожалуйста написать одну программку,сроки уже поджимают:
    Нужно создать интерфейс "Shape"(фигура),содержащий методы "площадь","объем","имя".
    На его основе создать следующие классы:
    "Точка"-"Прямоугольник"-"Параллелепипед",
    где класс "Параллелепипед" наследует от класса "Прямоугольник", который в свою очередь наследует от класса "Точка"
    (Объемом и площадью  точки считать "0"),затем отдельно написать код для проверки работы программы:т.е. создать отдельно внутри Sub Main-End Sub экземпляры каждого из классов и вызвать для них соответствующие методы.
    Все переменные во всех классах должны объявляться с модификатором Private, соответственно доступ к их свойствам осуществляется через процедуры свойств Get и Set.
    Приложение представляет собой WindowsApplication, реультаты выводятся в виде сообщения.
    Заранее огромное спасибо

    Всего записей: 1 | Зарегистр. 02-05-2008 | Отправлено: 10:51 02-05-2008
    mikeryrg

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    загружаю данные с помощью такой функции Inet1.OpenURL()
    можно ли узнать размер загружаемого файла используя компонент Inet или какой-то другой до открытия документа?

    Всего записей: 42 | Зарегистр. 07-01-2007 | Отправлено: 22:48 03-05-2008 | Исправлено: mikeryrg, 22:50 03-05-2008
    PushkinRZN

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

    Всего записей: 1 | Зарегистр. 05-06-2008 | Отправлено: 00:09 05-06-2008
    FanatF1

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

    Всего записей: 1 | Зарегистр. 09-06-2008 | Отправлено: 00:12 09-06-2008
    LenaSpiriDOnova

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Людишки..Добрые..Помогите с задачками по ВБА!а то завтра екзамен!Поможете?

    Всего записей: 1 | Зарегистр. 18-06-2008 | Отправлено: 01:12 18-06-2008
    dneprcomp



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кто-нибудь работал с контролом dsoframer? Каким образом обращаться к меню и сабменю помимо меню file? В частности, интересует как менять enabled properti для сабменю envelopes и labeles  
    PS. dsoframer позволяет открывать и работать с офисными файлами. Практически встраивает офисные приложения в пpограмму.

    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 03:28 18-06-2008 | Исправлено: dneprcomp, 00:31 24-07-2008
    Mew



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день!  
    Научите пожалуйста каким образом в Microsoft Outlook можно автоматизировать процесс сохранения сообщений на диске в формате сообщений Outlook (*.msg)? То есть вместо того чтобы лезть в меню, потом выбрать там "Сохранить как", поменять формат сообщения, изменить путь, нажать "Сохранить" мы просто на сообщении жмем какую-нибудь комбинацию клавиш и всё готово... Может кто макрос может написать? К сожалению я в Visual Basic не сильна... Благодарю!

    Всего записей: 148 | Зарегистр. 09-07-2004 | Отправлено: 10:48 25-06-2008
    SergBSI

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    есть ли возможность отключить выполнение autoexec в книге не запрещая выполнение другиз макрососв

    Всего записей: 516 | Зарегистр. 09-12-2003 | Отправлено: 19:56 25-06-2008
    wild89

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    помогите плиз с задачкой)
     
    из текстового файла считываем строчку чисел. Выводим в другой файл эти числа, отсортированные по возрастанию по 3 числа в строчку.
     
     
    заранее БЛАГОДАРЕН!!!)))

    Всего записей: 1 | Зарегистр. 28-06-2008 | Отправлено: 23:13 28-06-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