Maybe you did not close the DB-Connection and want to open it again? Public Sub CheckCashierPassword(ByVal CashierNumber As String, CashierPassword As String) Print "Conneting to Database" 'ConnectToSQLDatabase SQLCommand = "" You could test it without closing DB.... Just connect...

result = mysql_store_result(DatabaseConnection) Select Case result Result will be a Pointer to a mySQL_RES Structure or NULL if fail. Return Values A MYSQL_RES result structure with the results. NULL (0) if an error occurred. to get the number of rows return by mysql_store_result you have to call m...

fb_gfx_drawline is awaiting *int style

but revers_mask handels only 32-bit

so the easiest way is: style to be ulong... but I don't know if it will produce other hickups
same for color, but on that one revers_mask isn't used as far as I see

And at last, I still love the set brackets { ... }. But this is affair of taste. Uhhh.... and that is why I use Freebasic. All the way it shruggs me if y see the nasty " ; " and " { } " within the code In times I did some UI stuff in dbox and other following DVB-Recievers all th...

The Stw Builds are running fine:

http://users.freebasic-portal.de/stw/bu ... hf-debian/

Here is a 1.02 Test Picture:



Greetings
Drago

Here is my TestCode to connect to MySQL Database. I think I had used the MySQL Example in FreeBasic directory. Actual Test on my computer with 1.05.00 (32Bit): running. #Include Once "mysql\mysql.bi" #define NULL 0 Dim conn As MYSQL Ptr Dim res As MYSQL_RES Ptr Dim row As MYSQL_ROW Dim ser...

Dear Joshy, yes this Pi could be really great. I orderd 3 pi zero at reichelt. Looking forward to get them in December. As I am always looking to extend my TimeTracking program for out RunningEvent I thought this little Pi with some Transceiver (maybe the one you mentioned) would fine to track some ...

and to be extended for the NPC: enum PTyp Player = 1 Computer = 2 end enum Type Entity Stre as Integer Inte as Integer Char as Integer Rela as Integer Name as String isWhat as PTyp declare constructor () declare constructor (What as PTyp) declare sub entityStats () End Type constructor entity (What ...

sub loadExpenses() if dir("expenses.txt") <> "expenses.txt" then for j as integer = 0 to ROWTOTAL-1 for i as integer = 0 to COLTOTAL-1 item(i,j) = "" next i next j exit sub end if OPEN "expenses.txt" FOR INPUT AS #1 for j as integer = 0 to ROWTOTAL-1 for i as...

if the local code is embedded into namespace there is no interaction between local vars and included types. #include once "crt\win32\time.bi" 'Only to get at the "TM" structure (9 * LONGs, 36 bytes) namespace Showtime Sub Show_String() Dim as string tm Dim as integer i tm = "...

There are two ways to code: use dim shared: Dim shared as integer place( 1 to 4 ) Declare Sub O_Token( box As UInteger, use As UInteger ) Declare Sub Get_Location( box As UInteger ) Sub Get_Token( box As UInteger, use As UInteger ) ' calling routine '............... if use = 1 then 'nothing to do he...

snip snap.... unable to cut and paste without retyping Dim

Geany wrote:c:\FreeBasic64\fbc -s gui "test.bas" (im Verzeichnis: C:\FreeBasic64\Tests)
Kompilierung erfolgreich beendet.

I had to add the 'inc':
Works with define static and without

Grüße
Rainer

Dear Paul, i got some errors on compiling old Projects: FreeBASIC Compiler - Version 1.02.0 (03-28-2015), built for win32 (32bit) Copyright (C) 2004-2015 The FreeBASIC development team. standalone target: win32, 486, 32bit compiling: CODEGEN_CW_EBIL_MAIN.bas -o CODEGEN_CW_EBIL_MAIN.asm (main module)...

Here is also ok. C:\FreeBasic>fbc --version FreeBASIC Compiler - Version 1.02.0 (02-12-2015), built for win32 (32bit) Copyright (C) 2004-2015 The FreeBASIC development team. standalone Geany: c:\FreeBasic\fbc -exx -w all "DrawFont.bas" (im Verzeichnis: C:\FreeBasic\Test) Kompilierung erfol...