PureBoard

Code: Alles auswählen

Repeat
  Event = WaitWindowEvent(1)   
  
  ExamineKeyboard()
  result=KeyboardInkey()
  
  Select Event
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      
      If EventGadget = #b_seriell_an 
        If port=-1
          port=OpenSerialPort(#PB_Any, "COM4", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024,1024)
          If port
            text_s=""
            text_s + "...geöffnet   "+Str(port)
            SetGadgetText(#str_seriell, text_s)
          Else
            text_s=""
            text_s + "...nichts"
            SetGadgetText(#str_seriell, text_s) 
            port=-1
          EndIf
        EndIf  
      EndIf
      
      If EventGadget = #b_seriell_aus 
        If port > 0
          CloseSerialPort(port)
          text_s=""
          text_s + "...geschlossen"
          SetGadgetText(#str_seriell, text_s)
          port=-1
        EndIf
      EndIf
      
      If EventGadget = #b_karte
        lochkarte()
        lochkarte_daten()  
      EndIf  
      
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect 
  
  If port > 0
    While AvailableSerialPortInput(port)  
      ReadSerialPortData(port, @r_byte, 1) 
    Wend  
  
    If result
      s_byte=Asc(result)
      WriteSerialPortData(port, @s_byte, 1)
    EndIf  
  EndIf
  
 if ----------------------------------------- 
    xz=xz+8
    If xz > 280
      xz=12
      yz=12
    EndIf  
    lochkarte_daten()  
endif ------------------------------------- 
  
  DisplaySprite(#spr_karte1,10,10)
  
  DisplayTransparentSprite(#spr_schab,xz+4,yz-2)
  FlipBuffers()
ForEver

Code: Alles auswählen

Zeit = ElapsedMilliseconds()
Repeat
.......  
 if ElapsedMilliseconds()-Zeit > 100
    xz=xz+8
    If xz > 280
      xz=12
      yz=12
    EndIf  
    lochkarte_daten()  
   Zeit = ElapsedMilliseconds()
endif
.........
ForEver