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 ...

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 ...

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 ...

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 ...

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 "+FormatDate("%dd/%mm ...

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 values ...

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)
Debug "last "+FormatDate("%dd/%mm ...

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 ...

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 ...

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?