Разработайте проект, в котором цвет фона формы меняется путем задания их интенсивности через TextBox - VB

Узнай цену своей работы

Формулировка задачи:

помогите плз !!! 1. Разработайте проект, в котором цвет фона формы меняется путем задания интенсивности красного, зеленого и синего цветов с помощью текстовых полей 2. Разработайте проект, в котором происходит перевод величины угла из градусной меры в радианную. 3. Разработайте программу для решения следующей задачи: «С клавиатуры вводится время, выраженное в часах и минутах. Определить угол между часовой стрелкой и направлением на 12».

Решение задачи: «Разработайте проект, в котором цвет фона формы меняется путем задания их интенсивности через TextBox»

textual
Листинг программы
Dim chas As String ' часов
Dim minut As String ' минут
Dim secund As String ' секунд
Private Sub Form_load()
Dim ahr As Single, amin As Single, asec As Single
m:  chas = InputBox("Введите_часы")
   If Val(chas) < 0 Or Val(chas) > 12 Then
    a = MsgBox("Вводите от 0 до 11", vbExclamation, "Ошибка")
    GoTo m
   End If
m1: minut = InputBox("Введите_минуты")
   If Val(minut) < 0 Or Val(minut) > 59 Then
    a = MsgBox("Вводите от 0 до 59", vbExclamation, "Ошибка")
    GoTo m1
   End If
m2: secund = InputBox("Введите_секунды")
   If Val(secund) < 0 Or Val(secund) > 59 Then
    a = MsgBox("Вводите от 0 до 59", vbExclamation, "Ошибка")
    GoTo m2
   End If
  ahr = Val(chas) * 30
  amin = Val(minut) / 2
  asec = Val(secund) / 120
  Label1.Caption = Str(ahr + amin + asec) + "   град." ' угол между осью "Y" и час. стрелкой.
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.333 из 5
Похожие ответы