Разработайте проект, в котором цвет фона формы меняется путем задания их интенсивности через 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д