PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Tester

https://www.purebasic.fr/english/viewtopic.php?t=7994

Page 1 of 1

Tester

Posted: Tue Oct 21, 2003 7:59 pm
by Stephen
my code for testing.. reports so far.. full screen.. progress...
im just looking for some tips and tricks..
help changes.. things to add.. i have been using purebasic for about 4 days now.. first programming i have ever done apart from html.

Code: Select all

If InitMovie() = 0
MessageRequester("Error", "Can't initialize movie playback !", 0)
End
EndIf

NbCDDrives = InitCDAudio()

If NbCDDrives = 0
MessageRequester("Error", "No CD Audio drives found...", 0)
End
EndIf

Procedure WindowCallback(WindowID, Message, wParam, lParam)
Shared MovieLoaded
  
ReturnValue = #PB_ProcessPureBasicEvents
 
If Message = #WM_SIZE
UpdateStatusBar(0)
    
If MovieLoaded
ResizeMovie(120, 0, WindowWidth()-120, WindowHeight()-100)
EndIf
    
ReturnValue = 1
EndIf
 
ProcedureReturn ReturnValue 
EndProcedure

  #Window_0 = 0

  #load = 1
  #full = 16
  #play = 2
  #about =17
  #pause = 3
  #stop = 4
  #mute = 9
  #exit = 8
  #two = 6
  #one = 5
  #three = 7
  #Gadget_14 = 18
  #vol = 13
  #Gadget_16 = 19
  #bal = 14
  #open = 11
  #close = 12
  #seek =15
  #Gadget_22 = 20

  #StatusBar_0 = 0
  
Length  = MovieLength() 
FPS     = MovieInfo(0) / 1000

Global FontID1
FontID1 = LoadFont(1, "Arial", 10, #PB_Font_Bold)

OpenWindow(0, 10, 10, 120, 346,  #PB_Window_SystemMenu | #PB_Window_TitleBar , "BongMong")
If CreateStatusBar(0, WindowID())
EndIf
    
    If CreateGadgetList(WindowID())
      ButtonGadget(1, 0, 0, 120, 20, "Load")
      ButtonGadget(16, 0, 20, 120, 20, "Full Screen Play")
      ButtonGadget(2, 0, 40, 120, 20, "Play")
      ButtonGadget(17, 0, 280, 120, 20, "About")
      ButtonGadget(3, 0, 80, 120, 20, "Pause")
      ButtonGadget(4, 0, 100, 120, 20, "Stop")
      ButtonGadget(9, 0, 120, 120, 20, "Mute")
      ButtonGadget(8, 0, 300, 120, 20, "Exit")
      ButtonGadget(6, 40, 60, 40, 20, "2")
      ButtonGadget(5, 0, 60, 40, 20, "1")
      ButtonGadget(7, 80, 60, 40, 20, "3")
      TextGadget(18, 0, 140, 120, 20, "Volume", #PB_Text_Center)
      SetGadgetFont(18, FontID1)
      TrackBarGadget(13, 0, 160, 120, 20, 0, 100)
      SetGadgetState(13, 100)
      TextGadget(19, 0, 180, 120, 20, "Progress", #PB_Text_Center)
      SetGadgetFont(19, FontID1)
      ProgressBarGadget(14, 0, 200, 120, 20, 0, 100)
      ButtonGadget(11, 0, 260, 60, 20, "Eject")
      ButtonGadget(12, 60, 260, 60, 20, "Close")
      TrackBarGadget(15, 0, 240, 120, 20, 0, 1000000)
      TextGadget(20, 0, 220, 120, 20, "Seek", #PB_Text_Center)
      SetGadgetFont(20, FontID1)
      

If CreateStatusBar(0, WindowID())
AddStatusBarField(6000) 
StatusBarText(0, 0, "Welcome !", 0)
EndIf
      
SetWindowCallback(@WindowCallback())
 
HideWindow(0, 0)

MovieAudio(Volume, Balance) 

Repeat
Event = WaitWindowEvent()
    
Select Event
Case #PB_Event_Gadget
      
Select EventGadgetID()        
Case 1 
MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie/Audio files|*.avi;*.mpg;*.asf;*.mp3;*.wav|All Files|*.*", 0)
If MovieName$
If LoadMovie(0, MovieName$)
MovieLoaded = 1 
MovieState  = 0
                
If MovieHeight() > 0  
ResizeWindow(MovieWidth()+120, MovieHeight()+100)
EndIf                
StatusBarText(0, 0, "Movie '"+MovieName$+"' loaded", 0)
Else
StatusBarText(0, 0, "Can't load the movie '"+MovieName$+"'", 0)
EndIf
EndIf

Case 2
If MovieLoaded And MovieState = 2
                ResumeMovie()
              Else
                PlayMovie(0, WindowID())
              EndIf
              
              StatusBarText(0, 0, "Playing...", 0)
              MovieState = 1  ; Playing

Case 4
HideGadget(16,0)
If MovieLoaded And MovieState = 1
StopMovie()
MovieState = 3 
StatusBarText(0, 0, "Movie '"+MovieName$+"' Stopped....", 0)
EndIf
                        
Case 3
HideGadget(16,0)
If MovieLoaded And MovieState = 1
PauseMovie()
MovieState = 2
HideGadget(16,0) 
StatusBarText(0, 0, "Movie '"+MovieName$+"' Paused", 0)
EndIf
            
Case 8 
End

Case 11
EjectCDAudio(1)

Case 12
EjectCDAudio(0) 
 
Case 17
MessageRequester("About", "Stephen McFerran", #MB_ICONINFORMATION)

Case 13 
If Event = #PB_EventGadget 
GadgetID = EventGadgetID() 
If GadgetID = 13  
Volume = GetGadgetState(13) 
EndIf 
EndIf

Case 15 
If Event = #PB_EventGadget 
GadgetID = EventGadgetID() 
If GadgetID = 15 
Result = MovieSeek(GetGadgetState(15))
EndIf 
EndIf

Case 14 
If Event = #PB_EventGadget 
GadgetID = EventGadgetID() 
If GadgetID = 14
PreviousMovieStatus  = MovieLength()
GetGadgetState(15)
EndIf 
EndIf


Case 9
Volume = 0

Case 5
If MovieLoaded 
ResizeWindow(500, 300)
MovieWidth  = MovieWidth()
MovieHeight = MovieHeight()
EndIf
            
Case 6
 If MovieLoaded 
MovieWidth  = MovieWidth()*2
MovieHeight = MovieHeight()*2
EndIf
                    
Case 7
If MovieLoaded 
MovieWidth  = MovieWidth()*3
MovieHeight = MovieHeight()*3
EndIf

Case 16
StopMovie()
 #Window_2 = 2

  #a =31
  #d =32
  #b =33
  #e =34
  #c =35
  #f =36
  #g =37
  #h =38
  #i =39
  
#Screenwidth1 = 640 
#Screenheight1 = 480
#Screenwidth2 = 800 
#Screenheight2 = 600
#Screenwidth3 = 1024 
#Screenheight3 = 768

 OpenWindow(2, 388, 169, 241, 91,  #PB_Window_SystemMenu | #PB_Window_TitleBar , "BongMong")
 CreateGadgetList(WindowID())
      ButtonGadget(31, 0, 0, 80, 30, "640x480-16")
      ButtonGadget(32, 80, 0, 80, 30, "800x600-16")
      ButtonGadget(37, 0, 30, 80, 30, "640x480-24")
      ButtonGadget(34, 80, 30, 80, 30, "800x600-24")
      ButtonGadget(35, 0, 60, 80, 30, "640x480-32")
      ButtonGadget(36, 80, 60, 80, 30, "800x600-32")
      ButtonGadget(33, 160, 0, 80, 30, "1024x768-16")
      ButtonGadget(38, 160, 30, 80, 30, "1024x768-24")
      ButtonGadget(39, 160, 60, 80, 30, "1024x768-32")
      

Repeat
Event = WaitWindowEvent()
    
Select Event
Case #PB_Event_Gadget
      
Select EventGadgetID()
        
Case 31
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth1,#Screenheight1,16,"") 
Else 
End 
EndIf 

playavi : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth1-100,#Screenheight1-200) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 32
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth2,#Screenheight2,16,"") 
Else 
End 
EndIf 

playavi1 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth2-100,#Screenheight2-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 33
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth3,#Screenheight3,16,"") 
Else 
End 
EndIf 

playavi2 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth3-100,#Screenheight3-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 37
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth1,#Screenheight1,24,"") 
Else 
End 
EndIf 

playavi3 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth1-100,#Screenheight1-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 34
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth2,#Screenheight2,24,"") 
Else 
End 
EndIf 

playavi4 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth2-100,#Screenheight2-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 38
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth3,#Screenheight3,24,"") 
Else 
End 
EndIf 

playavi5 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth3-100,#Screenheight3-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 35
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth1,#Screenheight1,32,"") 
Else 
End 
EndIf 

playavi6 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth1-100,#Screenheight1-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 
       
Case 36
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth2,#Screenheight2,32,"") 
Else 
End 
EndIf 

playavi7 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth2-100,#Screenheight2-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 

Case 39
If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth3,#Screenheight3,32,"") 
Else 
End 
EndIf 

playavi8 : 
FlipBuffers() 
ClearScreen(0, 0, 0) 
FlipBuffers() 

If LoadMovie(0, MovieName$) 
ResizeMovie(50,25,#Screenwidth3-100,#Screenheight3-100) 
ClearScreen(0, 0, 0) 
Delay(1000) 
PlayMovie(0, ScreenID()) 
Repeat 
ExamineKeyboard() 
Delay(1) 
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape) 
FreeMovie(0) 
ClearScreen(0, 0, 0) 
CloseScreen()
CloseWindow(2) 
EndIf 
      
Case #PB_Event_Menu 
SetGadgetText(7, GetGadgetText(6))
StatusBarText(0, 0, GetGadgetText(6))

EndSelect
EndSelect
      
Until Event = #PB_Event_CloseWindow
   
End 


        
EndSelect
        
If MovieLoaded
If CurrentWidth <> MovieWidth Or CurrentHeight <> MovieHeight
ResizeWindow(MovieWidth, MovieHeight)
            
CurrentWidth  = MovieWidth
CurrentHeight = MovieHeight
EndIf

If CurrentVolume <> Volume Or CurrentBalance <> Balance  
MovieAudio(Volume, Balance)
            
CurrentVolume  = Volume
CurrentBalance = Balance
EndIf
        
EndIf
        
Case #PB_EventCloseWindow
End
        
Case 0
Delay(20)
        
If MovieLoaded And MovieStatus() <> PreviousMovieStatus 
        
Select MovieStatus()
Case -1
StatusBarText(0, 0, "Movie Paused.", 0)

Case 0
StatusBarText(0, 0, "Movie Stopped.", 0)
Case 2



Default
StatusBarText(0, 0, "Playing :"+Str(MovieStatus()), 0)

              
EndSelect
          
PreviousMovieStatus = MovieStatus()
EndIf
EndSelect
ForEver 
EndIf
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited