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