Нарисовать анимированный телевизор, чтобы на экране была картинка или мурашки

@Ekaterina13 · Регистрация: 06.05.2012

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста написать программу по работе с графикой!Нужно нарисовать анимированный телевизор,что бы на экране была картинка или мурашки....очень срочно!помогите пожалуйста!!!!завтра нужно уже сдать,а то зачет не поставят!срочно!

SoftIce · 09.05.2012, 12:19

Подойдёт? Код мой, так что без недоразумений

@Ekaterina13 · 09.05.2012, 12:53 **[ТС]**

А можете написать программу,что бы это было более похоже на обычный телевизор,с двумя антенами вверху, а то преподаватель завтра убьет!

Памирыч · 09.05.2012, 13:19

Сообщение от Ekaterina13

что бы это было более похоже на обычный телевизор

на черно-белый "Рекорд" 1970 года выпуска?

Вы имеете ввиду, что телевизор тоже нужно рисовать программно?

@Ekaterina13 · 09.05.2012, 14:20 **[ТС]**

Нужно написать программу и для телевизора,обычного,не ЖК...что бы были и кнопки,похожий примерно на тот,что вы сказали

Добавлено через 53 минуты
вот программа на Pascal ABC..-ВОТ ТАКОЙ НУЖЕН И В Visual Basic,но с анимцией

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses graphABC;
begin
setwindowsize(300,300);
setbrushcolor(clblack);
circle(150,110,20);
setbrushcolor(clbrown);
rectangle(50,100,260,250);
setbrushcolor(clgray);
roundRect(60,110,240,240,100,50);
setpenwidth(3);
line(150,100,100,50);
line(150,100,200,50);
setpenwidth(1);
circle(250,180,5);
circle(250,190,5);
circle(250,200,5);
circle(245,235,10);
end.

@PAnT0P · 09.05.2012, 14:32

Вот накидал за 15 минут:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Private TVON As Boolean
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    TVON = False
    DoEvents
    End
End Sub
 
Private Sub Form_Load()
    Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    TVON = True
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    For R = 1 To 40
        Me.Circle (156, 80), R, RGB(64, 64, 64)
    Next R
    Line (156, 80)-(106, 10), RGB(0, 0, 0)
    Line (156, 80)-(206, 10), RGB(0, 0, 0)
    Me.Circle (106, 10), 2, RGB(0, 0, 0)
    Me.Circle (206, 10), 2, RGB(0, 0, 0)
    Me.Line (40, 55)-(272, 200), RGB(0, 0, 0), BF
    Me.Line (50, 65)-(230, 190), RGB(128, 128, 128), BF
    Me.Line (50, 200)-(70, 203), RGB(0, 0, 0), BF
    Me.Line (242, 200)-(262, 203), RGB(0, 0, 0), BF
    For Y = 65 To 115
        For X = 240 To 265 Step 2
            Me.PSet (X + Y Mod 2, Y), RGB(128, 128, 128)
        Next X
    Next Y
    For Y = 135 To 165 Step 25
        For X = 245 To 260 Step 15
            Me.Circle (X, Y), 2, RGB(128, 128, 128)
        Next X
    Next Y
    For R = 1 To 7
        Me.Circle (253, 180), R, RGB(128, 128, 128)
    Next R
    Me.Show
    Do While TVON
        C = Int(Rnd * 256)
        H = Rnd * 15
        Y = Rnd * (125 - H) + 65
        Me.Line (50, Y)-(230, Y + H), RGB(C, C, C), BF
        DoEvents
    Loop
End Sub

@Ekaterina13 · 10.05.2012, 08:54 **[ТС]**

ОГРОМНОЕ ВАМ СПАСИБО!!!!!!!!

Добавлено через 17 часов 56 минут
Можете объяснить где что находится?очень срочно надо,не могу разобраться

@PAnT0P · 10.05.2012, 09:22

Новая версия немного подправленная

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Explicit
'Переменная для выключения
Private TVON As Boolean
 
Private Sub Form_Load()
    'всякие разные переменные для вычесляемых координат, радиусов и т.д и т.п
    Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    'инициализация переменной начальным значением
    TVON = True
    'настройка формы
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    'корпус антены (цикл нужен для закраски)
    For R = 1 To 40
        Me.Circle (156, 80), R, RGB(64, 64, 64)
    Next R
    'рожки антены
    Line (156, 80)-(106, 10), RGB(0, 0, 0)
    Line (156, 80)-(206, 10), RGB(0, 0, 0)
    'шарики на концах антеры
    Me.Circle (106, 10), 2, RGB(0, 0, 0)
    Me.Circle (206, 10), 2, RGB(0, 0, 0)
    'Корпус ТВ
    Me.Line (40, 55)-(272, 200), RGB(0, 0, 0), BF
    'Это и следующая строка вообще не нужна, не знаю зачем их писал XD
    'Me.Line (50, 65)-(230, 190), RGB(128, 128, 128), BF
    'ножки
    Me.Line (50, 200)-(70, 203), RGB(0, 0, 0), BF
    Me.Line (242, 200)-(262, 203), RGB(0, 0, 0), BF
    'Рисуем сетку динамика
    For Y = 65 To 115
        For X = 240 To 265 Step 2
            Me.PSet (X + Y Mod 2, Y), RGB(128, 128, 128)
        Next X
    Next Y
    'ручки настройки: яркость, контрасность, громкость, чего то там еще.
    'эту и следующие 5 строк выкинуть, так будет короче старого варианта
    'For Y = 135 To 165 Step 25
    '    For X = 245 To 260 Step 15
    '        Me.Circle (X, Y), 2, RGB(128, 128, 128)
    '    Next X
    'Next Y
    Me.Circle (245, 135), 2, RGB(128, 128, 128)
    Me.Circle (260, 135), 2, RGB(128, 128, 128)
    Me.Circle (245, 160), 2, RGB(128, 128, 128)
    Me.Circle (260, 160), 2, RGB(128, 128, 128)
    'Переключатель каналов (цикл нужен для закраски)
    For R = 1 To 7
        Me.Circle (253, 180), R, RGB(128, 128, 128)
    Next R
    'Показываем форму
    Me.Show
    'Включаем помехи
    Do While TVON
        'цвет помех (градация серого)
        C = Int(Rnd * 256)
        'высота полоски помех
        H = Rnd * 15
        'положение помехи по вертикали
        Y = Rnd * (125 - H) + 65
        'Отрисовка полосы
        Me.Line (50, Y)-(230, Y + H), RGB(C, C, C), BF
        DoEvents
    Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    'Выключение по крестику формы
    TVON = False
    DoEvents
    End
End Sub

@Ekaterina13 · 10.05.2012, 09:31 **[ТС]**

А как сделать так,что бы создала окно,кнопку включения,стоп?А то тут сразу нажимаешь на запуск.А когда создаю окно,телевизор сверху него и на половину виден.

@PAnT0P · 10.05.2012, 09:56

Сообщение от Ekaterina13

А как сделать так,что бы создала окно,кнопку включения,стоп?А то тут сразу нажимаешь на запуск.А когда создаю окно,телевизор сверху него и на половину виден.

Ну так растяни форму в дизайнере форм.
Для ручного включения выключения:
1. Раскоментировать 26 строку
2. строки 9 и 52 - 64 удалить
3. кинуть на форму кнопку
4. добавить строки

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
    Dim Y As Integer, C As Integer, H As Integer
    TVON = Not TVON
    Do While TVON
        'цвет помех (градация серого)
        C = Int(Rnd * 256)
        'высота полоски помех
        H = Rnd * 15
        'положение помехи по вертикали
        Y = Rnd * (125 - H) + 65
        'Отрисовка полосы
        Me.Line (50, Y)-(230, Y + H), RGB(C, C, C), BF
        DoEvents
    Loop
    'Рисуем экран
    Me.Line (50, 65)-(230, 190), RGB(128, 128, 128), BF
End Sub

Итого в остатке имеем:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
'Переменная для выключения
Private TVON As Boolean
 
Private Sub Form_Load()
    'всякие разные переменные для вычесляемых координат, радиусов и т.д и т.п
    Dim R As Integer, X As Integer, Y As Integer
    'настройка формы
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    'корпус антены (цикл нужен для закраски)
    For R = 1 To 40
        Me.Circle (156, 80), R, RGB(64, 64, 64)
    Next R
    'рожки антены
    Line (156, 80)-(106, 10), RGB(0, 0, 0)
    Line (156, 80)-(206, 10), RGB(0, 0, 0)
    'шарики на концах антеры
    Me.Circle (106, 10), 2, RGB(0, 0, 0)
    Me.Circle (206, 10), 2, RGB(0, 0, 0)
    'Корпус ТВ
    Me.Line (40, 55)-(272, 200), RGB(0, 0, 0), BF
    'Рисуем экран
    Me.Line (50, 65)-(230, 190), RGB(128, 128, 128), BF
    'ножки
    Me.Line (50, 200)-(70, 203), RGB(0, 0, 0), BF
    Me.Line (242, 200)-(262, 203), RGB(0, 0, 0), BF
    'Рисуем сетку динамика
    For Y = 65 To 115
        For X = 240 To 265 Step 2
            Me.PSet (X + Y Mod 2, Y), RGB(128, 128, 128)
        Next X
    Next Y
    'ручки настройки: яркость, контрасность, громкость, чего то там еще.
    Me.Circle (245, 135), 2, RGB(128, 128, 128)
    Me.Circle (260, 135), 2, RGB(128, 128, 128)
    Me.Circle (245, 160), 2, RGB(128, 128, 128)
    Me.Circle (260, 160), 2, RGB(128, 128, 128)
    'Переключатель каналов (цикл нужен для закраски)
    For R = 1 To 7
        Me.Circle (253, 180), R, RGB(128, 128, 128)
    Next R
End Sub
 
Private Sub Command1_Click()
    Dim Y As Integer, C As Integer, H As Integer
    TVON = Not TVON
    Do While TVON
        'цвет помех (градация серого)
        C = Int(Rnd * 256)
        'высота полоски помех
        H = Rnd * 15
        'положение помехи по вертикали
        Y = Rnd * (125 - H) + 65
        'Отрисовка полосы
        Me.Line (50, Y)-(230, Y + H), RGB(C, C, C), BF
        DoEvents
    Loop
    'Рисуем экран
    Me.Line (50, 65)-(230, 190), RGB(128, 128, 128), BF
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    'Выключение по крестику формы
    TVON = False
    DoEvents
    End
End Sub

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Ekaterina13 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 22

	Нарисовать анимированный телевизор, чтобы на экране была картинка или мурашки 09.05.2012, 11:15. Показов 2888. Ответов 9 Метки нет (Все метки) Помогите пожалуйста написать программу по работе с графикой!Нужно нарисовать анимированный телевизор,что бы на экране была картинка или мурашки....очень срочно!помогите пожалуйста!!!!завтра нужно уже сдать,а то зачет не поставят!срочно! 0

@Ekaterina13 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 22
	09.05.2012, 12:53 [ТС]
	А можете написать программу,что бы это было более похоже на обычный телевизор,с двумя антенами вверху, а то преподаватель завтра убьет! 0

@Ekaterina13 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 22
	10.05.2012, 08:54 [ТС]
	ОГРОМНОЕ ВАМ СПАСИБО!!!!!!!! Добавлено через 17 часов 56 минут Можете объяснить где что находится?очень срочно надо,не могу разобраться 0

@Ekaterina13 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 22
	10.05.2012, 09:31 [ТС]
	А как сделать так,что бы создала окно,кнопку включения,стоп?А то тут сразу нажимаешь на запуск.А когда создаю окно,телевизор сверху него и на половину виден. 0

Нарисовать анимированный телевизор, чтобы на экране была картинка или мурашки

Решение