Нарисовать анимированный телевизор, чтобы на экране была картинка или мурашки - VB
Формулировка задачи:
Помогите пожалуйста написать программу по работе с графикой!Нужно нарисовать анимированный телевизор,что бы на экране была картинка или мурашки....очень срочно!помогите пожалуйста!!!!завтра нужно уже сдать,а то зачет не поставят!срочно!
Решение задачи: «Нарисовать анимированный телевизор, чтобы на экране была картинка или мурашки»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д