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


Меню сайта


Статистика

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


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


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

 Тема 2. Основы алгоритмизации и программирования
Тема 2.1. Базовые понятия программирования

Приложение: Prakt.rar

Занятие 14. Практическая работа № 6 "Ввод и вывод данных. Работа с переменными"

Внимание! Во время работы с компьютером соблюдайте правила безопасностии санитарно-гигиенические нормы.

  1.  Откройте среду Visual Basic 2010 и создайте новый проект.
  2.  Установите для формы:
    цвет фона желтый,
    размеры 1000 на 600 пикселей,
    текст заголовка Практическая (укажите номер работы).
  3.  Разместите на форме две кнопки, три поля и две надписи.
  4. Задайте:
    на первой кнопке текст Перемещение,
    на второй - Вычисление,
    в  поля ввода - пустой текст,

    свойству text надписей соответственно:
                                          введите значение сторон,
                                          a =,
                                          d =,
                                          c =,
                                          объема прямоугольного параллелепипеда =.

  5.  Разместите на форме возле каждого поля и каждой надписи дополнительные надписи с текстами, которые будут пояснять их назначение.
  6.  Составьте обработчик события Click первой кнопки, выполнение которого приведет:
    к перемещению формы на 50 пикселей вправо и на 30 пикселей вниз,
    каждого поля - на 20 пикселей влево и на 30 пикселей вверх
    и сделает их фон красным.
  7.  Выберите первую кнопку и убедитесь в правильности результатов.
  8. Составьте обработчик события Click второй кнопки, выполнение которого приведет к нахождению объема и площади полной поверхности прямоугольного параллелепипеда, считая, что в поля будут введены длины его ребер.
  9.  Выберите вторую кнопку и убедитесь в правильности результатов.
  10. Добавьте ко второму обработчику события команду вывода сообщения об объеме параллелепипеда в окно сообщений. Повторно выберите вторую кнопку и убедитесь в правильности результатов.
  11.  Сохраните проект.


Например:

 

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

        Me.Left = Me.Left + 100
        Me.Top = Me.Top + 100
        Text1.BackColor = Color.Aqua
        Text2.BackColor = Color.Aqua
       Text3.BackColor = Color.Aqua

      End Sub

           Private Sub Button 2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click

            Dim b, a, c As Object
            Dim v As Single
            a = Val(Text1.Text)
            b = Val(Text2.Text)
            c = Val(Text3.Text)
                 v = a * b * c
           Label2.Text = Str(v) & "  см^3"

        MsgBox("объем равен " & Str(v) & "см^3 ", 64, "")

      End Sub


 

      Private Sub Button3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button3.Click

                   Me.Left = Me.Left - 100
                   Me.Top = Me.Top - 100
                   Text1.BackColor = Color.White
                   Text2.BackColor = Color.White
                  Text3.BackColor = Color.White

      End Sub

занятие 15

вверх

назад






 

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

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