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

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

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите с задачками! Третий день вешаюсь и нифига не понимаю...  
     
     
    Последовательный вычислительный процесс.  
     
     
    z=(x^2+5x^5+6y^6)/|5x-6y|=  
     
    1. Сделать блок схему алгоритма.  
    2. Сочинить програму.  
    3.Сочинить контрольный пример.  
    4.Выполнить рощет за данными контрольного примера.  
     
     
     
    вычислительный процесс, что "розгалуджуеться":  
     
    У преподавателей уза такие професии и оклады:  
    - Профессор - 350  
    - Доцент - 290  
    - Преподаватель - 260  
     
    Выщитать законную надбавку преподавателю за "выслугу" годов, если за стаж от 10 до 20 годов доплачивают 10% оклада, до 30 годов - 20% оклада, свыше 30 годов - 30% оклада.
    Всего записей: 2 | Зарегистр. 12-04-2009 | Отправлено: 16:08 12-04-2009
    An4eus



    Silver Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Как у Excel-объекта узнать количество листов в книге и как их перебирать?

    ----------
    Век живи - век учись!
    Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 02:43 20-04-2009
    Burk44

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    как для OLEObjectsControls (optionbutton штук 300) назначить один и тот же макрос.  В FormsControl можно назначить, но есть другие неудобства. Советы типа  
    Sub OB2_Click
    call OB1_Click
    end sub
    не предлагать. Буду очень прнизнателен. Burk
    Всего записей: 2 | Зарегистр. 17-04-2009 | Отправлено: 13:55 20-04-2009
    blaro



    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Помогите новичку!
    Пишу прогу в которой надо выбрать файл (простое изображение) и показать его в Imagebox. Я написал следующие функции:

    Код:
    Private Sub Drive1_Change()
    Dir1.Path=Drive1   //Здесь выбираем носитель
    End Sub
     
    Private Sub Dir1_Change()
    File1.Path=Dir1   //Здесь отображаются все папки в носителе
    End Sub
     

     
    Как мне написать функцию которая показывала картинку в ImageBox?
    Я пробовал написать следующее

    Код:
     
    Private Sub File1_Click()
    Image1.Picture=File1
    End Sub
     

    но это не работает. Что делать? А точнее КАК?

    ----------
    Оптимистично смотрю на мир глазами убийцы.
    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 23:44 20-04-2009 | Исправлено: blaro, 00:48 21-04-2009
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    blaro
    Попробуй File1.FileName
    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 00:17 21-04-2009
    blaro



    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    dneprcomp
    Выдает ошибку "Несовпадение типов"

    ----------
    Оптимистично смотрю на мир глазами убийцы.
    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 00:19 21-04-2009
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    blaro
    Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)  'File1.List(File1.ListIndex)
    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 02:01 21-04-2009
    blaro



    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    dneprcomp
    Спасибо, заработало!!
    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 11:40 21-04-2009
    An4eus



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

    Цитата:
    Как у Excel-объекта узнать количество листов в книге и как их перебирать?



    ----------
    Век живи - век учись!
    Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 01:50 30-04-2009
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    An4eus
    http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1273#11
    http://msdn.microsoft.com/en-us/library/59dhz064.aspx
    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 09:44 30-04-2009
    rsuan

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите пожалуйста, есть ли в VB функция, возвращающая позицию одной подстроки в другой. Например при поиске "стан" в слове "электростанция" она бы возвратила число 8. А если такой подстроки нет, то возвращала бы -1.
    Извиняюсь если что-то неправильно назвал.
    Всего записей: 762 | Зарегистр. 22-07-2008 | Отправлено: 13:55 11-05-2009
    kpblc

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    InStr ?
    Всего записей: 714 | Зарегистр. 08-08-2003 | Отправлено: 14:05 11-05-2009
    Rush

    Уже за тридцать...    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rsuan
    Встроенные функции Visual Basic
    Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 22:40 11-05-2009
    nastenik

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите пожалуйста написать цыкл...
    нужно найти значение У. Х меняеться от 0 дл 10, шаг = 0.5
    если х<3 y=lg^3* a^2 + sqr(x)  / exp(x)  
    3<x<7     y=sqr(a*x)  + 1/x  
    x>7          y= a* Cos^2 (а*exp(х)) + a* Sin^2(a*exp(x) )
     
     я сначала использовала  do while loop....но не то....... а просто с if then else  выдают ерор и выделяеть косинус....пишет "argument not optional"
    Всего записей: 4 | Зарегистр. 29-04-2009 | Отправлено: 23:20 11-05-2009
    kpblc

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    А если брать не
    Код:
    Cos^2(a*exp(x))
    а
    Код:
    (Cos(a*exp(x)))^2
    Всего записей: 714 | Зарегистр. 08-08-2003 | Отправлено: 23:31 11-05-2009
    nastenik

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    все равно.....пишет тоже......  
    гляньте что я пишу:
     For x = 0 To 10 Step 0.5
    If x < 3 Then
    y = ((Log(10)) ^ 3) * a ^ 2 + Sqr(x) / Exp(x)
     
    ElseIf x > 3 And x < 7 Then
    y = (Sqr(a * x)) + 1 / x
     
     
    Else
    y = a * (Cos * (a * Exp(x))) ^ 2 + a * (Sin * (a * Exp(x))) ^ 2
     
    Next x
     
    Label1.Caption = Str(y)
    End Sub
     
    не понима. я что тут и к чему((((
    Всего записей: 4 | Зарегистр. 29-04-2009 | Отправлено: 00:27 12-05-2009
    kpblc

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    А почему после Cos стоит знак "*"?

    Код:
    Sub test()
    Dim x As Integer, y As Long, a As Long
      a = 1
      For x = 0 To 10 Step 0.5
        Select Case True
          Case x < 3
            y = ((Log(10)) ^ 3) * a ^ 2 + Sqr(x) / Exp(x)
          Case x >= 3 And x < 7
            y = (Sqr(a * x)) + 1 / x
          Case Else
            y = a * (Cos(a * Exp(x))) ^ 2 + a * (Sin * (a * Exp(x))) ^ 2
        End Select
      Next
    End Sub
    Всего записей: 714 | Зарегистр. 08-08-2003 | Отправлено: 08:28 12-05-2009
    nastenik

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    а по другому у меня все зависает.....  и в итоге програма *не отвечает* (
    Всего записей: 4 | Зарегистр. 29-04-2009 | Отправлено: 10:44 12-05-2009
    kpblc

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    А если пошагово выполнять? По идее (если смотреть на Label1.Caption = Str(y) ), то программа тупо пробежит весь цикл и в Label1 выдаст значение для x = 10.
    Всего записей: 714 | Зарегистр. 08-08-2003 | Отправлено: 11:26 12-05-2009
    rsuan

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    kpblc, Rush, спасибо.
     
    А есть такой справочник по VB, где функции и операторы рассмотрены не в алфовитном порядке, а как-нибудь собраны по назначению, ну то есть такой справочник, в котором нужную функцию можно найти исходя из того, что тебе надо?
    Всего записей: 762 | Зарегистр. 22-07-2008 | Отправлено: 17:44 12-05-2009
    Открыть новую тему     Написать ответ в эту тему

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