Казакстан, Қызылорда
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Был в сети 16.10.2023 10:05
Айтеков Бакыт Турдиевич
Учитель
49 лет
416
110 589 
Местоположение
Image және Timer компоненттерін пайдаланып анимация көріністерін жасау.
Категория:
Информатика
12.01.2018 16:56
Просмотр содержимого документа
«Image және Timer компоненттерін пайдаланып анимация көріністерін жасау.»
Image және Timer компоненттері.
Timer компоненті - қосымша орындалғанда көзге көрінбейтін іс әрекеттердің белгілі бір уақытта орындалуын қамтамасыз ететін компонент. Сондай-ақ бұл компоненттің көмегімен қосымшаларда ағымдағы уақыт пен мерзімді көрсетуге болады.
Timer объектісінң негізгі қасиеттері:
Interval - уақыт өлшеуіш орнату. Enabled – ажырату немесе қосу.
Практикалық жұмыс.
Формаға Timer1, Timer2, Timer3, Command1, Command2, Command3, Command4, Command5 – элементтерін арналастырып, төмендегі кестедегіндей қасиеттердің мендерін береміз.
| Объектілер | Қасиеттер | Мәндері |
| Timer1 | Interval | 200 |
| Enabled | False | |
| Timer2 | Interval | 50 |
| Enabled | False | |
| Timer3 | Interval | 50 |
| Enabled | False | |
| Command1 | Caption | |
| Command2 | Caption | || |
| Command3 | Caption | |
| Command4 | Caption | |
| Command5 | Caption | Stop |
| Shape11 | Shape | 3-Circle |
| Shape12 | Shape | 3-Circle |
| Shape13 | Shape | 3-Circle |
| Shape14 | Shape | 3-Circle |
| Shape15 | Shape | 3-Circle |
| Image1 | Picture | Көбелек1 |
| Image2 | Picture | Көбелек2 |
| 1. Timer1 элементінің процедурасы Private Sub Timer1_Timer() Image2.Visible = Not Image2.Visible If Image1.Left = -w Then Image1.Left = Image1.Left - 100 Else: Image1.Left = l End If If Image2.Left = -w Then Image2.Left = Image2.Left - 100 Else: Image2.Left = l End If End Sub 2. Timer2 элементінің процедурасы Private Sub Timer2_Timer() Image2.Visible = Not Image2.Visible If Image1.Left = -w Then Image1.Left = Image1.Left - 100 Else: Image1.Left = l End If If Image2.Left = -w Then Image2.Left = Image2.Left - 100 Else: Image2.Left = l End If End Sub
| 3. Timer3 элементінің процедурасы Private Sub Timer3_Timer() Image2.Visible = Not Image2.Visible If Image1.Left = -w Then Image1.Left = Image1.Left + 100 Else: Image1.Left = l End If If Image2.Left = -w Then Image2.Left = Image2.Left + 100 Else: Image2.Left = l End If End Sub 4. Private Sub Command1_Click() Image1.Visible = True Image2.Visible = True Timer2.Enabled = False Timer1.Enabled = True Timer3.Enabled = False End Sub 5. Private Sub Command5_Click() Image1.Visible = False Image2.Visible = False Timer3.Enabled = False Timer2.Enabled = False Timer1.Enabled = False End Sub | 6. Private Sub Form_Load() l = Image1.Left w = Image1.Width l = Image2.Left w = Image2.Width End Sub 7. Private Sub Command3_Click() Timer2.Enabled = True Timer3.Enabled = False Timer1.Enabled = False End Sub 8. Private Sub Command2_Click() Timer3.Enabled = False Timer1.Enabled = False Timer2.Enabled = False End Sub 9. Private Sub Command4_Click() Timer3.Enabled = True Timer2.Enabled = False Timer1.Enabled = False
10. General бөліміне Dim w, l As Integer
|
Қосымшаны іске қосып орындап көріңіздер.
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
