Purebasic 6 released!

[Falko]

https://www.purebasic.fr/english/viewto ... 14&t=77272


Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic

[RSBasic]

[Andre]

Kleiner ergänzender Hinweis (laut englischem PB-Forum): Es werden offensichtlich aktuell noch paar kleinere Dinge von Fred an der v6 gefixt, ebenso habe ich selbst noch paar Korrekturen/Ergänzungen zur PB-Hilfe beigesteuert. Offizielle Ankündigung steht noch aus - aber ein nochmaliger Download des v6-Version sollte sich dann lohnen. Also bitte auch mal die Ankündigungen im engl. Forum im Auge behalten

[STARGÅTE]

Wäre es nicht auch ein guter Moment mal den Showcase (https://www.purebasic.com/german/showcase.php) auszumisten?
Die meisten Links sind inzwischen tot.

[RSBasic]

+1
Ist auch nicht gut für SEO.

[bobobo]

Code: Alles auswählen

Window_0 = OpenWindow(#PB_Any, x, y, 600, 400, "", #PB_Window_SystemMenu)
Canvas_0 = CanvasGadget(#PB_Any, 0, 0, 600, 400)
xp=-1
While quit=0
  event=WaitWindowEvent(10)
  Select event
      Case #PB_Event_CloseWindow
        quit+1
    Default
      StartDrawing(CanvasOutput(Canvas_0))
      Box(0,0,600,400,RGB(255,222,192))
      x = WindowMouseX(Window_0)-10 : y = WindowMouseY(Window_0)-10
      w = 20: h = 20
      xx=xx+xp
      If xx=100 : xp=-1 : EndIf
      If xx=-100 : xp=1 : EndIf
      DrawText(x+xx,y+20,"finally",$36AE7F,$CED7ED)
      Circle(x,y,w,#Black) : Circle(x+w,y-h,w/2,#Black) : Circle(x-w,y-h,w/2,#Black)
      Circle(x,y,w-2,#White) : Circle(x,y+2,12,#Black) : Circle(x,y,12,#White)
      Circle(x+10,y-5,w/5,#Black) : Circle(x-10,y-5,w/5,#Black) : Circle(x,y+4,w/7,#Black)
      StopDrawing()
  EndSelect
Wend