Pete's QBASIC Site

IDS is an integer which is the amount of data records (of which I have 300).

Hey all, I'm writing a small program in QB PDS in which I have the following code: For d = 1 To IDs If CU(d) = CUR Then CUC = CC(d) End if Next [*]CU(d) is an array containing certains IDs [*]CUR is the main ID, we locate in the array to find CUC [*]CUC is the ID to refere to another array, which is...

Hi Burger2227,

Thx for your insight. This gives me again something to work with.

Best wishes for the new year!

Grtz

Back again. I have some PDS-code, I wrote, but it hangs in the FUNCTION unique. Can someone shed me some light on this? DECLARE FUNCTION unique! () DIM SHARED cid(1500) AS INTEGER 'client id DIM SHARED cname(1500) AS STRING 'client name DIM SHARED cnumber(1500) AS STRING 'client phonenumber DIM SHAR...

We can learn something every day! Thanks again!

grtz

Burger2227, always a pleasure to hear from you.

The reason why I had to choose for GAMBAS is because SQL. I'm using an SQL-Database, but you did give me some good information to work with. So thanks already for providing me with some clear information!

Grtz
Seb

Hey all, For a company project I've been asked to write a database gui front end. Due to limitations, such as only being able to use Linux for the server, by the company, I've introduced myself to the world of GAMBAS. Luckily it's very similar to QB and VB. There' only one problem which I have, I ne...

I'd like to not use the qbx.lib, therefor I'd like to find out if there is an alternative to CALL ABSOLUTE, and not CALL INTERRUPT.

Thx for baring with me!

Is there a possibility to only use peek and poke instead of Call Absolute? I'd like run without the standard QBX.LIB perhaps creating my own lib or something.

As some of you may have noted, I've been working again on QBinux with some breakthroughs lately. The latest is an adjust version of NVXFS (Novix FileSystem) to work as QBinux FileSystem. After four rewrite attempts (in nearly a week), I've come up with a working version. This means that code will go...

It reminds me a bit of Theme Hospital, the graphics that is. But still it looks cool!

Thanks for clear that out burger2227. edit: I added DEFINT A-Z to the kernel.bas file, on top. When running the code now, it states in the debug check that NR.TASKS = 64 and ends with i= 64. But still a crash. edit2: after removing the debug checks (PRINT NR.TASKS, and PRINT i) it continues to print...

CONST values should be shared globally too. edit: You mean that I should use: DIM SHARED NR.TASKS AS INTEGER NR.TASKS = 64 Follow up: I changed it to the above, with the result that NR.TASKS = 0, on checking in the routine. When chancing DIM SHARED to COMMON SHARED, NR.TASKS results in 64, but the ...

Thx for bearing with me! Yes that way it does. But when running it in QBinux, it crashes when during the FOR-NEXT-loop in sched.init. When I REMarked the task(i)= 0 and I still used the PRINT i; "-"; task(i), it displays diffrent values (not zero). When I unREMark the task(i) = 0, it crash...

PART 3 kernel/kernel/kernel.bas: ' ' kernel.bas ' '$INCLUDE:'include/qbinux.bi' REM $STATIC FUNCTION Day! Day! = 24 * hour! END FUNCTION SUB hdinit ff = FREEFILE OPEN "TEMP\WPM.chk" FOR OUTPUT AS #ff: CLOSE #ff IF FindFATFile("TEMP\WPM.CHK") = 0 THEN 'COLOR 4 PRINT " ---ERR...

Part 2 kernel/fs/fs.bas: ' ' fs.bas ' '$INCLUDE:'include/qbinux.bi' SUB AscendDir END SUB SUB bufferinit EditArr = CreateArray(131074, 80) IF EditArr = STRING$(8, 0) THEN PRINT "Failed..." END IF END SUB FUNCTION CreateArray$ (slots&, bytes%) IF bytes > 8192 THEN EXIT FUNCTION DO arrn...

PART 1 kernel/include/qbinux.bi: DEFINT A-Z '$DYNAMIC TYPE RegTypeX AX AS INTEGER BX AS INTEGER CX AS INTEGER DX AS INTEGER BP AS INTEGER SI AS INTEGER DI AS INTEGER flags AS INTEGER DS AS INTEGER ES AS INTEGER END TYPE TYPE tm sec AS INTEGER min AS INTEGER hour AS INTEGER mday AS INTEGER mon AS IN...

1) post code that actually runs! Good or bad, you have to care before we do. NEX? USB? My bad, sorry. Fixed it. 2) all the elements of an array are zero already Apparently for some reason, because it runs in modules, it isn't. But you're right though, they should be zero.[/quote] 3) use dot names a...

For a w.i.p. (work in process) schedule handler, I've the following code: DIM SHARED task(100) AS INTEGER CONST NR.TASKS = 64 SUB sched.init FOR i = 1 TO NR.TASKS task(i) = 0 NEXT END SUB Now the thing is, that it doesn't walk through till the 64. When trying to debug, I REMarked task(i) = 0 and add...

As of just five minutes ago, the core to QBinux is a fact! Most of the code has been written and works. Unless there are people who are interested you can let me know by replying to this topic. Some code probably needs to be rewritten but it works, something I didn't have before in the nearly past 1...