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
Purebasic 6 released!
- Andre
- PureBasic Team
- Beiträge: 1755
- Registriert: 11.09.2004 16:35
- Computerausstattung: MacBook Core2Duo mit MacOS 10.6.8
Lenovo Y50 i7 mit Windows 10 - Wohnort: Saxony / Deutscheinsiedel
- Kontaktdaten:
Re: Purebasic 6 released!
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!
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.
Die meisten Links sind inzwischen tot.
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Re: Purebasic 6 released!
+1
Ist auch nicht gut für SEO.
Ist auch nicht gut für SEO.
Re: Purebasic 6 released!
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
pb aktuell5.7 - windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.