PureBasic Forums - English

Debug GetFilePart(~"/folder/a/b")


Works on MAC

Yes it does appear that Apple have decided that there are 1000 bytes in a kilobyte etc.

So 50 years of learning that there are 1024 bytes in a kilobyte all for nothing.

Apple cheating me out of 2.5% of storage space?

Seems to be same problem.


Maybe a little confused.

I have a file on my hard drive which in finder is shown with a size of 16,3MB.

When I use FileSize() on the file it returns 16295002 which I assume are bytes

Now I thought that there are 1048576 bytes in a mega byte so in 16,3MB should there ...

I have found that #PS$ returns "\" on windows and "/" on the Mac which seems to be correct.

Can anyone explain the use of #NPS$ it is the N which is getting me.

Is it possible to clear an image to transparent using the vector drawing commands?

I start with a transparent image add a box then try to clear the image but the box remains.

the code I am using:

StartVectorDrawing(ImageVectorOutput(DrawImg))

VectorSourceColor(RGBA(255,255,255,0 ...

When you something which just cannot be expressed as a linear or exponential function such as in your case the way to go is to use a lookup table.

For example

Your value Gauge Value
0 0
0.1 50
1 100
10 150
100 200
500 250
1000 300

You can keep adding pairs of values up to the gauge limit of 300 ...

As a small example to display %

First a small procedure to change your % value to 0-300
Procedure.i DisplayPercent(Value.i)

Define Result.f


Result = (Value/100) * 300

ProcedureReturn Result

EndProcedure

Then in the event loop add this

If Event = #PB_Event_Timer And EventTimer() = 123 ...

Just rescued some code.

Draws a circular gauge with pointer first up to maximum (300) then back to zero

Any use?

Global Pathx,Pathy

Global Reverse.i

Procedure DrawGauge(Value.i)

Define EndAngle.i


EndAngle = 120 + Value

If EndAngle > 360

EndAngle = EndAngle - 360

EndIf ...

Long time to wait for a reply but just in case any other novices end up here as I did check out this thread.

https://www.purebasic.fr/english/viewtopic.php?p=566557&hilit=playlists#p566557

M3U are a list of file names so read them find the files and play as normal.

the routines from kenmo work ...

Yes read that and the M1 chip does report as a 64bit when you use.

CompilerIf #PB_Compiler_Processor = #PB_Processor_Arm64 ; not #PB_Processor_x64

Debug "Arm 64"

CompilerElse

Debug "Not ARM64"

CompilerEndIf

This bit of code selects some assembler code but even selecting the correct ...

Just trying a few more things and used this code

Debug SizeOf(Integer)

If #PB_Compiler_Processor = #PB_Processor_x64

Debug "X64"

Else

Debug "X32"

EndIf

This returns 8 for the integer size indicating a 64bit processor?

but the compiler directive reports 32bit

I am on an iMac 24 , M1 ...

Just moving some code from an earlier MAC to the new M1

Code compiles perfectly and runs on the earlier machine (PB 5.72LTS) but I get this error when using PB 6LTS for the MAC M1.

error: invalid preprocessing directive
#Slices = SizeOf(Integer); Use 8 slices on x64 and 4 on x86
^
purebasic.c ...

I do not know if this will help.

I did some Autocad work many years ago, mainly electric control panel design which broke down into a list of standard blocks, about 200 of them.

After a lot of messing around I used the Autocad DXF format just a straight forward text file.

I first created the ...

Hi

One of the big bottlenecks is getting data into into a meaningful table that can be indexed.

May I try to give a little explanation?

With a recipe database I can start with just two tables.

Recipes

Recipe_ID plus other details of the recipe without ingredients.

Ingredients

Ingredient_ID ...

Maybe I am missing the point but I use PB to create the menus etc including adding new titles and or sub items.

Using a procedure to create the menu each time.

I normally store the menu items I want in a structured list.

Hope this helps.

Tested on Mac with M1 chip running Bigsur and latest PB ...