PureBoard

Code: Alles auswählen

Enumeration
  #Gadget_Eingabe
  #Gadget_Button
  #Gadget_Ausgabe
EndEnumeration

Enumeration
  #Font_Large
EndEnumeration

If LoadFont(#Font_Large, "Arial", 14) = 0
  Debug "Huch.. haste kein Arial?"
  End
EndIf

If OpenWindow(0, 0, 0, 400, 300, "Berechnung", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) = 0
  Debug "Huch.. jetzt haste kein Fenster"
  End
EndIf

StringGadget(#Gadget_Eingabe, 10, 10, 380, 30, "Lesbar?")
  SetGadgetFont(#Gadget_Eingabe, FontID(#Font_Large))
  
ButtonGadget(#Gadget_Button, 150, 140, 100, 24, "Berechnen")
  
TextGadget(#Gadget_Ausgabe, 10, 260, 380, 30, "", #PB_Text_Border)
  SetGadgetFont(#Gadget_Ausgabe, FontID(#Font_Large))

Repeat
  EventID = WaitWindowEvent()
  
  Select EventID
  Case #PB_Event_Gadget
    Select EventGadget()
    Case #Gadget_Button
      SetGadgetText(#Gadget_Ausgabe, "Berechnung... usw.")
      
    EndSelect
    
  Case #PB_Event_CloseWindow
    End
    
  EndSelect
ForEver

Code: Alles auswählen

A$ = Input()
If Input = "A"
  Print("Juhu ein A")
Else
  Print(A$)
Endif

Code: Alles auswählen

; hier wird ein Fenster geoeffnet, #PB_Window_SystemMenu sorgt dafuer dass 
; das Fenster ein Menu bzw ein Knopf zum schliessen hat
; #PB_Window_ScreenCentered zentriert das Fenster
If OpenWindow(0, 0, 0, 230, 180, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  ; hier definieren wir die unten benotigeten Variablen. Nicht zwingend erforderlich, aber ratsam
  Define.i Event    = 0
  Define.i Schrift  = 0
  Define.i Ausgabe0 = 0
  Define.i Ausgabe1 = 0 
  Define.i char     = 0
  
  ; hier wird ein Schriftart (ARIAL) mit der Groesse 40 geladen und die Daten werden in einer Variable gespeichert
  Schrift  = LoadFont(#PB_Any, "Arial", 40)
  
  ; hier werden alle Controls (unter PB Gadgets) die zuvor geladenen Schriftart zugewiesen.
  SetGadgetFont(#PB_Default, FontID(Schrift))
  
  ; erstellen von 2 Textgadgets, diese koennen nichts, ausser Text anzeigen.
  ; damit man diese auch sieht, erstellt man sie mit einem Rand (#PB_Text_Border)
  Ausgabe0 = TextGadget(#PB_Any, 10, 10, 210, 70, "", #PB_Text_Border)
  Ausgabe1 = TextGadget(#PB_Any, 10, 90, 210, 70, "", #PB_Text_Border)
  
  ; ab hier beginnt die Eventschleife, diese wird auch
  ; erst wieder verlassen wenn man das Fenster schliesst, siehe das untere "Until"
  Repeat
    ; Das Event wird abgefragt, WaitWindowEvent sollte nur einmal pro schleifendurchlauf (repeat) aufgerufen werden.
    Event = WaitWindowEvent()
    
    ;#WM_CHAR waere das richtige Event, die Konstante gibt es in der Demo aber nicht.
    ;hier wird auf das Event #WM_CHAR gewartet, das ist ein Windows- und kein Purebasicevent
    If Event = 258 
      
      ; EventwParam() gibt es nur unter dem OS Windows, diese Funktion holt zusaetzliche Informationen zu einem (#WM_) Event.      
      char = EventwParam()     
      
      Select char
        ; Im folgendem Case darf "Char" nur A oder a sein
        Case 'A' , 'a' 
          ; hier wird Char, mit Hilfe der Funktion CHR(), in ein String umgewandelt
          ; und an das TextGadget Ausgabe0 geschickt
          SetGadgetText(Ausgabe0, Chr(Char))
          
        ; Im folgendem Case darf "Char" B bis Z oder b bis z sein.
        Case 'B' To 'Z', 'b' To 'z'
          ; hier wird Char, mit Hilfe der Funktion CHR(), in ein String umgewandelt
          ; und an das TextGadget Ausgabe1 geschickt
          SetGadgetText(Ausgabe1, Chr(Char))
      EndSelect      
      
    EndIf    
    
    ; wenn Event = #PB_Event_CloseWindow ( also beim Mausklick auf das Fenster X) wird 
    ; die Eventschleife verlassen
  Until Event = #PB_Event_CloseWindow  
  
 EndIf