Разработайте проект, в котором цвет фона формы меняется путем задания их интенсивности через 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