PureBoard

Code: Alles auswählen

Enumeration #PB_Event_FirstCustomValue
  #EventBeginProcessing
  #EventProcessingFinished
EndEnumeration

UseSQLiteDatabase()

Procedure CheckDatabaseUpdate(Database, Query$)
  Result = DatabaseUpdate(Database, Query$)
  If Result = 0
    Debug DatabaseError()
  EndIf
  
  ProcedureReturn Result
EndProcedure

Global count.i = 0

Procedure Thread(Value)
  PostEvent(#EventBeginProcessing)
  
  DatabaseFile$ = GetTemporaryDirectory()+"Database.sqlite"
  
  If CreateFile(0, DatabaseFile$)
  CloseFile(0)
  
  If OpenDatabase(0, DatabaseFile$, "", "")
    
    CheckDatabaseUpdate(0, "CREATE TABLE food (name CHAR(50), weight INT)")
    
    CheckDatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES ('apple', '10')")
    CheckDatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES ('pear', '5')")
    CheckDatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES ('banana', '20')")
    If DatabaseQuery(0, "SELECT * FROM food WHERE weight > 3")
      
      While NextDatabaseRow(0)
        Delay(1000)
        PostEvent(#PB_Event_Timer) ;Man sollte aber evtl. ein anderes Event nehmen ;)
        Debug GetDatabaseString(0, 0)
      Wend
      
      FinishDatabaseQuery(0)
    EndIf
    
    CloseDatabase(0)
  Else
    Debug "Can't open database !"
  EndIf
Else
  Debug "Can't create the database file !"
EndIf
  
  PostEvent(#EventProcessingFinished)
EndProcedure


OpenWindow(0, 200, 200, 100, 100, "PostEvent")

TextGadget(0, 10, 10, 120, 30, "0 %")

CreateThread(@Thread(), 0)

Repeat
  Event = WindowEvent()
  
  Select Event
    Case #PB_Event_Timer
      count + 1
      gcount = 100 / 3 * count
      SetGadgetText(0, Str(gcount)+"%")
    Case #EventBeginProcessing
      Debug "Thread begin processing "
      Check = #True
      
    Case #EventProcessingFinished
      Debug "Thread processing finished"
      SetGadgetText(0, "100%")
  EndSelect
  
Until Event = #PB_Event_CloseWindow