PureBasic Forums - English

CLIENT.pb OpenConsole() ;EnableGraphicalConsole(1) InitNetwork() a$="127.0.0.1" port=8080 c=CountProgramParameters() If c a$=ProgramParameter() If c>1 port=Val(ProgramParameter()) EndIf EndIf sv=OpenNetworkConnection(a$,port) Procedure thread(sv) While 1 Delay(0) ne=NetworkClientEvent(sv)...

dbsetup.txt #create table if not exists [1]([2]) last~label char primary key,id integer,error char com_~id integer primary key autoincrement,tick integer,sent integer default 0,who integer,message char log~id integer primary key autoincrement,tstamp char default current_timestamp,actioned integer,w...

dammit :? I was hoping to make it easier for peeps - I'll just c/p below - it's a little large, so I'll break it up into three posts you'll need to save everything in the same directory MOTA.pb CreateRegularExpression(0,"[\w()\d\-'#$%^&*+/\\]+(\.\d+)?|(["+#DQUOTE$+"])[\w()\d\s\-'#...

if a record doesn't exist, Sqlite ignores an UPDATE - I prefer to use INSERT OR REPLACE (making sure that recno is a primary key) ; ▼ ▼ ▼ the code below goes to UPDATE COMPLETED i.e., no error on update but the PWS10 table is not updated with the changes SetDatabaseLong(0,0,DBRECNO) SetDatabaseStrin...

macros might do the trick

a few months ago, there was a post about creating a Multi-User Dungeon in Purebasic (but I can't seem to be able to find it now) in any case, I started experimenting with a couple of different ways to code it - I'm hoping you guys might find my attempt as interesting as I do :) the linked zip consis...

why not use PB's inbuilt date functions? That example fails for December: today=Date(2018,12,25,0,0,0) first=AddDate(today,#PB_Date_Day,1-Day(today)) last=AddDate(AddDate(first,#PB_Date_Day,-1),#PB_Date_Month,1) Debug "xmas "+FormatDate("%dd/%mm/%yyyy",today) Debug "first &...

try something like this, perhaps? SetDatabaseLong(0,0,DBRECNO) If DatabaseQuery(0,"SELECT RecNo, GroupBy, Email, Name,...... FROM PWS10 WHERE RECNO = ?") ...... ...code Else mDBErr = DatabaseError() ; -> returns zero unless a literal Endif the SetDatabase X commands allow us to insert valu...

why not use PB's inbuilt date functions? today=Date() first=AddDate(today,#PB_Date_Day,1-Day(today)) last=AddDate(AddDate(first,#PB_Date_Day,-1),#PB_Date_Month,1) Debug "today "+FormatDate("%dd/%mm/%yyyy",today) Debug "first "+FormatDate("%dd/%mm/%yyyy",first)...

technically you have been creating the images with CatchImage() - this command loads an image from memory ordinarily, I'd load all my images with specific image_numbers, and then assign them to the ButtonImageGadgets by number (this way you can reuse images easily without having to reload them - hel...

nco2k wrote:the whole delay thing is total nonsense. this sounds more like some sort of energy saving issue.

c ya,
nco2k

in my defense, as my sig states, I may be talking out of my hat

I'd imagine it has something to do with the lack of Delay() in your main loop; your code would be taking most of your system's processing, which could cause problems if another process attempts to run

this perhaps, then? Procedure CopyContent_Image_Canvas(source_ID, destination_ID, output_x, output_y, new_size_x, new_size_y) temporary_ID=CopyImage(source_ID,#PB_Any) If IsImage(temporary_ID) ResizeImage(temporary_ID,new_size_x,new_size_y) If StartDrawing(CanvasOutput(destination_ID)) DrawAlphaImag...

My main method, as spikey suggests, is to separate the threaded portion into a non-threaded procedure - that way, using breakpoints and program stepping, you can see what the thread is doing - also, display your variables with the debugger window

would using an array of pointers work for you?