Тема 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

вверх

назад