Садржај

• Упутства

У Висуал Басиц .НЕТ-у, тајмер вам омогућава да контролишете периодичне догађаје током трајања апликације. Тајмер има неке јединствене особине и методе за то. Најважнија особина је "Интервал", који одређује колико често тајмер треба да покреће код. Наведите вредност опсега у милисекундама; хиљаду милисекунди једнако је једној секунди. Неки примери онога што можете да урадите са контролатором укључују покретање одбројавања, динамичко мењање вредности својстава за друге контроле, као и константно праћење неких других делова апликације.

Упутства

Вредност интервала тајмера дата је у милисекундама (цлоцк имаге би Петер Хирес Слике из Фотолиа.цом)

1. Отворите пројекат у Висуал Басицу. Двапут кликните на тајмер и додајте "Тимер1" и двапут кликните "Лабел" да бисте додали "Лабел1". Промените својство контроле "Енаблед" на "Труе" и промените опсег на 1000.

2. Притисните "Ф7" да бисте отворили прозор кода и унесите следећи код:

   Дим тиме Ас Интегер = 10

   Ово креира променљиву и иницијализује је.

3. Отворите аплет Тимер1_Тицк и унесите следећи код:

   Ако је време> 0 онда време = време - 1 Лабел1.Тект = време Елсе Тимер1.Енаблед = Фалсе Енд Иф

   Када се програм покрене, тајмер ће смањити варијаблу сваке секунде тако што ће приказати вредност на пољу док се број не достигне на нулу, узрокујући да се тајмер искључи.

   
   

4. Притисните "Схифт" и "Ф7" да отворите прозор пројекта. Двапут кликните на тајмер и додајте "Тимер2" у пројекат. Промените својство "Енаблед" на "Труе" и његов опсег на 100, а затим двапут кликните на њега да бисте отворили под-програм Тимер2_Тицк. Затим унесите следећи код:

   Иф (Лабел1.Лефт + Лабел1.Видтх)> Ме.Видтх Тогда Лабел1.Лефт = Ме.Лефт - 100 Енд Иф Лабел1.Лефт = Лабел1.Лефт + 5

   Овај код изазива да се панел помера хоризонтално преко екрана, померајући пет пиксела сваке десетине секунде. Када шатор стигне до десног краја обрасца, он се враћа лево и почиње поново да се креће.

5. Притисните "Схифт" и "Ф7" да отворите прозор пројекта. Двапут кликните на контролер и додајте "Тимер3" пројекту. Промените својство "Енаблед" на "Труе" и његов опсег на 500. Затим двапут кликните на "ТектБок" да додате "ТектБок1". Двапут кликните на Тимер3 пројекат да бисте отворили аплет Тимер3_Тицк. Затим унесите следећи код:

   
   

   ТектБок1.Тект = ТектБок1.Тект.ТоУппер ТектБок1.Селецт (ТектБок1.ТектЛенгтх, 0)

   Сваких 30 секунди, тајмер мења цео текст из "ТектБок1" у горњи оквир. Подразумевано, када тајмер прави промене, курсор се враћа на почетак оквира за текст. Друга линија кода спречава ово.