PureBoard

Code: Alles auswählen

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;statt der IncludeDatei habe ich es in den Hauptcode reinkopiert
;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
  #Button_0
  #Button_1
  #Button_2
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 332, 122, "Mein Fenster",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 20, 20, 60, 30, "OK")
      ButtonGadget(#Button_1, 100, 20, 60, 30, "Oho")
      ButtonGadget(#Button_2, 170, 20, 80, 30, "Ende")
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()  ;hier wird das Fenster geöffnet

Repeat ; Start of the event loop ; Ereignisbehandlungsroutinen
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  GadgetID = EventGadget() ; Is it a gadget event?
  EventType = EventType() ; The event type
  ;You can place code here, and use the result as parameters for the procedures
  If Event = #PB_Event_Gadget
    If GadgetID = #Button_0
      MessageRequester("aha","Ok gedrückt",0)
    ElseIf GadgetID = #Button_1
      MessageRequester("so","Du hast den mittleren Knopf gedrückt",0)
    ElseIf GadgetID = #Button_2
      MessageRequester("so","Ende",0)
      End
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
MessageRequester("Kreuzchen","So macht man auch Schluss",0)
End
;

Code: Alles auswählen

Enumeration 
  #Window0
EndEnumeration
Enumeration 
  #TextGadget
  #ClickButton
  #CloseButton
EndEnumeration
OpenWindow(#Window0,-1,-1,300,200,"So geht ein Button")
CreateGadgetList(WindowID(0))
TextGadget(#TextGadget,30,30,200,100,"Klick den Button",#PB_Text_Center|#PB_Text_Border)
ButtonGadget(#ClickButton,200,150,80,30,"Klick Mich")
ButtonGadget(#CloseButton,260,20,20,20,"X")
Define EXIT.l = #False
Define EventID.l
Define ClickCount.l = 0
Repeat
  EventID = WaitWindowEvent()
  GadgetNr = EventGadget()
;****** Auswertung der Events
  Select EventID
;****** Auswertung der Gadget-Events
    Case #PB_Event_Gadget
      Select GadgetNr
;****** Reaktion auf den Click-Button
        Case #ClickButton
          ClickCount +1
          SetGadgetText(#TextGadget, Str(ClickCount) + " mal geclickt!")
;****** Reaktion auf den Close-Button
        Case #CloseButton
          EXIT = #True
      EndSelect
;****** Auswertung des Close-Events
    Case #PB_Event_CloseWindow
      EXIT = #True
  EndSelect
;****** Ende der Auswertungen
Until EXIT = #True

Code: Alles auswählen

Case #Potenz_Basis_5
  int a = 5;
  int[] = new Zahlen[100];
  for (int i = 0; i < Zahlen.length - 1; i++) {
    Zahlen[i] = Math.pow(a, i);
  }

Code: Alles auswählen

Case #Potenz_Basis_5
  For 0 - 99
    Array = Basis hoch Exponent