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

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



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    2 blaro
    А другие строки так и оставить, нужно только чтобы первую строку сортировало.
    Всего записей: 80 | Зарегистр. 19-11-2007 | Отправлено: 15:07 30-01-2010
    blaro



    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Kutsenko
    Тогда это будет так:

    Код:
     
    Dim i,j,t as Integer
    Dim temp(4) as Integer //Вспомогательный массив. В него временно перепишим значения из первой строки. Отсортируем и запишим обратно в массив.
    For i-0 To 4
    temp(i)=mat(0)(i)
    Next  
     
    //Теперь сортируем значения в временном массиве
    For i=0 To 4
    For j=i+1 To 4
    if(temp(j)<temp(i))
    t=temp(j)
    temp(j)=temp(i)
    temp(i)=t
    Next j
    Next i
     
    //Теперь вернем отсортированные значения в массив
    For i=0 To 4
    mat(0)(i)=temp(i)

    Кажется так.
    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 17:06 30-01-2010
    GenyaMS



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Никто не знает какой максимальной длины(число символов) можно записать строку в переменную объявленную как String?
    и что делать если длины строки больше?
    Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 19:38 30-01-2010
    ItsJustMe

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Вроде как 1 Gb символов для x86 и гораздо больше для x64
    Всего записей: 2040 | Зарегистр. 02-09-2005 | Отправлено: 22:22 30-01-2010
    Kutsenko



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    blaro гляньте пожалуйста личку! Спасибо!
    Всего записей: 80 | Зарегистр. 19-11-2007 | Отправлено: 14:39 31-01-2010
    Nikolas2500

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите по Visual Basic  
     
    Припустим у меня эсть форма в которой имеэтса елемент webBrowser1 и label1  
    Нужно зделать так чтоб при натисненни левой кнопки миши на обэкте webBrowser1 обэктови  label1 надавалося значення координат мишки видносно обэкта webBrowser1.  
    Ну типа кординат не всого екрана а толька улемента webBrowser1 причом эсли обэкт скрит ну нивидно его щтоп прога сама проворачовала линию прокрутки.
    Всего записей: 29 | Зарегистр. 16-01-2010 | Отправлено: 18:40 13-02-2010
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Nikolas2500
    На этот вопрос уже отвечали. Если не подошло, то надо объяснить что и почему не подошло.
    Вопросы задаются не во всех более-менее подходящих темах одновременно, а в теме по используемому языку програмирования.
    http://forum.ru-board.com/topic.cgi?forum=33&topic=10981#1
     
    Если вопросы по VB6, то продолжай здесь.
     
    Если же по VB.Net то продолжай в Программирование в среде .NET (ASP.NET,ADO.NET) на C#/VB.NET  
    Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 19:29 13-02-2010 | Исправлено: dneprcomp, 19:44 13-02-2010
    Nastunchik

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Дано: натуральное n ( 1 <= n <= 12 )., действительные y1,..,yn.  
    Найти: z1^2+z2^2+...+zn^2 , где zi= yi при  0<yi<10 или zi=1 в противном случае.
    Последовательность чисел ввести с помощью элемента функции InputBox(). Вычисления производить после нажатия командной кнопки «Вычислить». Результат отобразить на форме с помощью элемента управления  метка. Перебор значений реализовать с помощью оператора  цик-ла FOR    
    Всего записей: 1 | Зарегистр. 15-02-2010 | Отправлено: 19:37 15-02-2010
    weel



    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброе время суток!
    Я столкнулся с проблемой, надо написать приложение, которое подключается к URL (с которого идет непрерывный поток данных в формате xml), и из этого потока извлечь определенные строки.
    Написал с помощью webBrowser, поиск идет в doc.body.outerText.
    Все ничего, но 50 % ЦПУ, и как я понимаю поток загружается в оперативку (постоянно увеличивается потребление ОЗУ) - это детское решение, поскольку после того, как находится необходимая строка и отображается, она больше не нужна, а в моей реализации это все сохраняется и постоянно растет.
     
    Мне нужна только идея, я сам разберусь, это должно быть вроде типа HTML + Stream + XML
    или подключение к сервер:порт и обработка потока данных.
    Поисковики толкового ничего не дают, думаю VB может осилить такую задачу.
    Всем спасибо!
    Всего записей: 16 | Зарегистр. 04-08-2008 | Отправлено: 19:17 18-02-2010
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    weel
    Нечто подобное на API - работа с портом, обработка IP-пакета, разбор пакета  
    http://forum.ru-board.com/topic.cgi?forum=33&topic=10988#1
    Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 21:47 18-02-2010
    arr1val

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

    Код:
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE and DHCPEnabled=TRUE")
     
    For Each objNetAdapter in colNetAdapters
      For Each strAddress in objNetAdapter.IPAddress
            arrOctets = Split(strAddress, ".")
            If arrOctets(0) and arrOctets(1) Then
                strNewAddress = arroctets(0) & "." & arroctets(1) & "." & arrOctets(2) & "." & "211"            
                arrIPAddress = Array(strNewAddress)
        strSubnetMask = objNetAdapter.IPSubnet
        strGateway = objNetAdapter.DefaultIPGateway
        strGatewayMetric = objNetAdapter.GatewayCostMetric
        arrDNSServers = objNetAdapter.DNSServerSearchOrder
        errEnable = objNetAdapter.EnableStatic(arrIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
      End If
     Next
    Next

     
    чтобы он менял все (маску, dns, wins, gateway), кроме айпишника, который и так уже статично задан. Заранее большое спасибо.
    Всего записей: 43 | Зарегистр. 01-02-2008 | Отправлено: 16:19 19-02-2010
    Panzer82

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

    Код:
       
      Set oWord = CreateObject("Word.Application")  
      Set oDoc = oWord.Documents.Open(Filename:=sNameTargetFile + ".txt", Format:=wdOpenFormatAuto, Encoding:=866)  
      With oWord.Selection  
        .Find.Text = "   текст1 "  
        .Find.Execute  
       

     
     
    из Экселя вызываю Ворд, на .Find.Execute оба вылетают.
    Всего записей: 2 | Зарегистр. 08-02-2010 | Отправлено: 10:17 23-02-2010
    morfius2010



    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всего записей: 7 | Зарегистр. 01-02-2010 | Отправлено: 11:46 02-03-2010 | Исправлено: morfius2010, 12:16 02-03-2010
    katarina zima

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Могли бы вы помочь решить задачи в экселе ( вба). очень нужно понять их.  
    1) Найти элемент над главной диагональю квадратной целочисленной матрицы, значение которого принадлежит заданному отрезку.
     
    2)Вывести слово с номером K заданного предложения.
     
    буду очень благодарна!! )
    Всего записей: 1 | Зарегистр. 04-03-2010 | Отправлено: 02:28 04-03-2010
    GenyaMS



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго времени суток всем! Есть такая задача: создать программу запускающую архивацию нескольких папок.  
    ВОПРОСЫ:
    1) такие вещи вообще в VB пишутся?
    2) как передать из своей программы   - при запуске Shell (rar.exe)  параметры(адресса архивируемых папок)?
    3) ДОПОЛНИТЕЛЬНО: как сделать связь с событиями OS(WinXP) приЗапуске, приОтключении, приСменеПользователя ?
     
    Добавлено:
    Да еще один вопросик - не относится к поставленной выше задаче: как получить из Оперы (текст кода/тегов) открытой из VB тем же оператором Shell - страницы. Текст - записать в переменную?
    Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 08:34 04-03-2010
    maratino



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите пожалуйста ламеру
    при вводе более одного значения, код начинает ругатся
     
    Private Sub CommandButton1_Click()
     
    l = UserForm1.TextBox1.Text
      Cells.Find(What:=CStr(l), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
         xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Activate
           
            UserForm1.Show
     
    а вообще то суть была в том, что на листе excel размещаю userform+textbox+button
    и ищу значение введенный в textbox
    так удобнее чем "Правка-Найти и тд"
    Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 14:50 06-03-2010
    GenyaMS



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

    Цитата:
    CStr(l)
    - объяви как массив, предварительно
    Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 17:25 06-03-2010
    KuPbI4

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте.
    Хотел спросить. как определяется однонаправленный список ? ListNode ?
    Всего записей: 212 | Зарегистр. 13-10-2008 | Отправлено: 17:52 07-03-2010
    maratino



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GenyaMS
     
    CStr(l)  
    - объяви как массив, предварительно "
    Если бы я знал как это делается.  
    Ели не трудно, покажи на примере.  
    Спасибо!
    Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 11:45 09-03-2010
    Sanyok112

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте.  
    Начинаю осваивать VB 6.0. В учебнике описывается для Microsoft VB 2005. Я так понял синтаксис несколько различается.
    Пытался написать простенький калькулятор
    Код.
    Private Sub Button1_Click()
    Label1. Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub
    Это для одной кнопки, операция сложение. Он VB 6,0 ее не воспринимает. Код для VB 2005
    Может кто посоветует учебник для этого дела. Только пока попроще, все как-никак первые шаги...
    Заранее спасибо
    Всего записей: 2 | Зарегистр. 11-12-2009 | Отправлено: 18:38 09-03-2010
    Открыть новую тему     Написать ответ в эту тему

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