Проект «Движение круга».

  • Карточки-задания
  • doc
  • 10.03.2017
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI As Long ‘Масштаб picAnim.Scale (-10,10)-(10,-10) ‘Анимация For intX= -10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX
Иконка файла материала Проект_движение_круга.doc
Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid  3. Запустить проект и щёлкнуть по кнопке Старт. В графическом поле начнётся движение синего круга  по оси ОХ.  Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid 3. Запустить проект и щёлкнуть по кнопке Старт. В  графическом поле начнётся движение синего круга  по оси ОХ.  Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid 3. Запустить проект и щёлкнуть по кнопке Старт. В  графическом поле начнётся движение синего круга  по оси ОХ.  Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End SubВ свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid 3. Запустить проект и щёлкнуть по кнопке Старт. В  графическом поле начнётся движение синего круга  по оси ОХ.