Вторник, 12.11.2019, 16:02
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

 Приложение:  "Msgbox_реализация повторения.rar"

Занятие 31.1 

Тема.   Функция вывода сообщений Msgbox.  Использование значения функции при реализации  повторения в проектах.

PS!!! 1.  Функция вывода сообщений Msgbox() позволяет выводить сообщения с помощью окна сообщений, в котором можно разместить  определенны набор кнопок и информационный значок о типе сообщения:
             Msgbox("Сообщение",
Числовой Код информационного значка + Числовой Код определенной кнопки  , "Заголовок окна"),
 где   Числовой Код информационного значка + Числовой Код определенной кнопки  определяется  с помощью таблицы значений кодов: 

2. Но так как  Msgbox - функция, то правильнее будет использовать ее так:

  •  завести для нее целую переменную, и присвоить ей значение функции Msgbox;
  • значение функции Msgbox  - это код нажатой кнопки в окне сообщения, значение которого можно найти в таблице кодов кнопок.

Таблица  кодов кнопок:

Пример     Использование значений функции Msgbox как условия выхода / продолжения  выполнения   цикла.

Проект с использованием цикла do <условие>while .....loop.
 

1. Интерфейс проекта.

 

 

2. Реализация управления работой цикла.




3. Программный код 

      Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click

        Dim s, z, c  As Single
        Dim i, k As Short
        Dim w, s1  As String
        s = 0  :        i = 0 :            k = 0 :     z = 0 :          c = 0

        Do While MsgBox("будут покупки?", 64 + 4, "покупки") = 6
            i = i + 1

            z = Val(InputBox("введите цену" ,  Str(i)  & "-й товар"))
            k = Val(InputBox("введите количество" ,  Str(i)  &  "-й товар"))
            c = z * k
            s = s + c
        Loop

        w = "стоимость всех покупок:"
        s1 = Str(s)  &  "грн"
        MsgBox(w + s1 64 + 0, "благодарим за покупки")
    End Sub

 

    Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click
        End
    End Sub

занятие 31.2 

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz