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

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

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

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

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

textual
Листинг программы
  1. Dim chas As String ' часов
  2. Dim minut As String ' минут
  3. Dim secund As String ' секунд
  4. Private Sub Form_load()
  5. Dim ahr As Single, amin As Single, asec As Single
  6. m:  chas = InputBox("Введите_часы")
  7.    If Val(chas) < 0 Or Val(chas) > 12 Then
  8.     a = MsgBox("Вводите от 0 до 11", vbExclamation, "Ошибка")
  9.     GoTo m
  10.    End If
  11. m1: minut = InputBox("Введите_минуты")
  12.    If Val(minut) < 0 Or Val(minut) > 59 Then
  13.     a = MsgBox("Вводите от 0 до 59", vbExclamation, "Ошибка")
  14.     GoTo m1
  15.    End If
  16. m2: secund = InputBox("Введите_секунды")
  17.    If Val(secund) < 0 Or Val(secund) > 59 Then
  18.     a = MsgBox("Вводите от 0 до 59", vbExclamation, "Ошибка")
  19.     GoTo m2
  20.    End If
  21.   ahr = Val(chas) * 30
  22.   amin = Val(minut) / 2
  23.   asec = Val(secund) / 120
  24.   Label1.Caption = Str(ahr + amin + asec) + "   град." ' угол между осью "Y" и час. стрелкой.
  25. End Sub

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


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

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

15   голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы