Seite 1 von 1
Purebasic 6 released!
Verfasst: 24.06.2022 22:47
von 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
Re: Purebasic 6 released!
Verfasst: 25.06.2022 17:14
von RSBasic
Re: Purebasic 6 released!
Verfasst: 29.06.2022 00:28
von 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
Re: Purebasic 6 released!
Verfasst: 29.06.2022 01:30
von 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.
Re: Purebasic 6 released!
Verfasst: 29.06.2022 11:20
von RSBasic
+1
Ist auch nicht gut für SEO.
Re: Purebasic 6 released!
Verfasst: 05.07.2022 16:20
von 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