PureBasic Forums - English

Thanks,solved

Hi every one!
I don't know how to change password, please help.

Thanks, Solved this problem yesterday. Use sprite command for all images.

Sorry,Here is common.pbi:
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
#Image_0
#Button_1
#Button_2
#Button_3
#Button_4
#Image_5
EndEnumeration

;- Image Plugins

;- Image Globals
Global Image0

;- Catch Images
Image0 = CatchImage(0, ?Image0 ...

This is a program to play chinesego, I hope to display chessman over a image drawing a Chessboard.
but background become pure black and see not chessboard after running the command of openwindowscreen.

Code :

UseJPEGImageDecoder()
IncludeFile "Common.pb"
Declare.b getcoord(x.w,y.w)
Declare pressgo(x.b,y.b)
Declare putoff(x.b,y.b)
steps.w=1
Define.b xindex=0,yindex=0
Dim qp.b(18,18)
Define thisx.w,thisy.w

; open window 0

open_window_0()

;SetClassLongPtr_(WindowID(#window_0), #GCL_HBRBACKGROUND ...

Hello every one!
I use sprite operation over a image gadget in purebasic, but sprite background become pure black and see not background image after running the command of openwindowscreen.


How to do that I can display background image below the sprite.

I am not solve Polymorphism.
code:
class(test)
fun1()
member(test)
var1.l
endclass(test)

classext(extend)
fun2()
memberext(extend)
var2.s
endclass(extend)

Define method fun1 with para *this.
Fun1() must application to base class(test) and inherited class(extend) both.
Which is *this pointer ...

It is only a sample,not a comprehensive compare.
I like purebasic more than powerbasic.

debug mode is disable already

Hi,everyone
I'm sure have a applied oop way that use standard purebasic syntax in purebasic language.
My oop include code:
;OOP include file "Class.pbi"
;For Purebasic vesion 4.30+
;*********************************************************************
;Syntax:
;CLASS[EX](classname[,mothername ...

purebasic code[4.30]:
timer.f=ElapsedMilliseconds()
k.l
For i.l=1 To 100000
For j.l=1 To 100000
k=i+j
Next j
Next i
MessageRequester(StrF(ElapsedMilliseconds()-timer),"")
End

purebasic cost 30.9 seconds
powerbasic cost 11.3 seconds with likely code

My computer:Intel duo core E4500
System ...