[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Режим OpenScreen и Таймеры
MACTEPokДата: Среда, 05.02.2014, 08:36 | Сообщение # 1
Группа: Пользователи
Сообщений: 9

Статус: Offline
Есть такой пример 

Код
path$="d:\Video\AVI\"           ; change to your own path + file
file$="001.avi"
#Screenwidth = 1600
#Screenheight = 900

If InitSprite() And InitKeyboard() And OpenScreen(#Screenwidth,#Screenheight,32,"Movie Screen")
Else
   End
EndIf

FlipBuffers()  
ClearScreen(RGB(0,0,0))  
FlipBuffers()  

If InitMovie()  
   If LoadMovie(0, path$ + file$)  
     ResizeMovie(0,0,0,#Screenwidth,#Screenheight)
     ClearScreen(RGB(0,0,0))  
     Delay(1000)  
     PlayMovie(0, ScreenID())  
     Repeat  
       ExamineKeyboard()
       Delay(1)  
     Until (MovieStatus(0)=MovieLength(0) - 2) Or KeyboardPushed(#PB_Key_Escape)  
     FreeMovie(0)  
     ClearScreen(RGB(0,0,0))  
   EndIf
EndIf
 

Как в режиме полного экрана организовать таймер, чтобы, например, раз в секунду вызывалась процедура? В справке и примерах есть таймеры только для окна : SetTimer() и AddWindowTimer()


 
  • Страница 1 из 1
  • 1
Поиск: