End Function. 3. Терезені жауып, оны " Sagat 1" атымен сақтау

3. Терезені жауып, оны " Sagat 1" атымен сақтау. Атау Модульдер қондырмасына жазылып қойылады.

4. Макростар — Құрукомандасын беріп, макростар тізімінен ЗапускПрограммы (Программаны іске қосу) пунктін тандау және оның Командная строка (Командалық жол) өрісіне Timer 1() атаулы объект атын енгізу.

5. Терезені жауып және макросқа ат беріп сақтау (мысалы, Sagat). Sagat макростар қондырмасына жазылып қойылады.

6. Осы қондырмадан Sagat макросын тандап, Іске қосу(Запуск) батырмасын шерту. Экранда ағымдық уақытты керсететін MsgBoxфункциясының терезесі көрінеді (54-сурет).

54- сурет. Ағымдық уақытты көрсету

Ескерту.VB профаммалау тілінің интерфейс құру үшін бапқа келтірілетін формаатаулы арнайы терезесі және Access-тегіге шамалас, объектілерді басқаруға арналған элементтер панелі бар. Windows операциялық жүйесінің жүріп тұратын сағатының Timer(Таймер) батырмасы формаға осы панельден Тіmer1атауымен орнатылады [16]. Одан әрі сағат объектісінің қасиеттерін тандау керек. Ол үшін формаға орнатылған Timer 1 объектісін шертіп, көрінген Қасиеттер терезесінен Timer 1 объектісінің Interval қасиетіне 1000 мәнін, Enabled (қосылу) қасиетіне True (ақиқат) мәнін енгізу керек (1 сеқунд=1000 милли/сек). Егер терезеде қасиеттер терезесі көрінбесе, оны шығару шін View — Proporties Window(Түр — Windows қасиеттері) командасын беру жеткілікті. 54-суретте көрінген сағат тұрақты жүріп тұрады, бірақ терезеде көрінген уақыт өзгермейді. Ағымдық уақытты көру үшін терезенің ОК батырмасын шерту керек.