Search found 32 matches

by SMcClouth
Sat Jan 25, 2014 10:04 am
Forum: QBASIC and QB64 Questions & Answers
Topic: For-Next Issue
Replies: 2
Views: 9647

Re: For-Next Issue

IDS is an integer which is the amount of data records (of which I have 300).
by SMcClouth
Fri Jan 24, 2014 6:07 am
Forum: QBASIC and QB64 Questions & Answers
Topic: For-Next Issue
Replies: 2
Views: 9647

For-Next Issue

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...
by SMcClouth
Thu Jan 02, 2014 3:38 am
Forum: General Discussion
Topic: calling list
Replies: 8
Views: 17015

Re: calling list

Hi Burger2227,

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

Best wishes for the new year!

Grtz
by SMcClouth
Wed Jan 01, 2014 8:48 am
Forum: General Discussion
Topic: calling list
Replies: 8
Views: 17015

Re: calling list

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...
by SMcClouth
Fri Dec 27, 2013 4:31 pm
Forum: General Discussion
Topic: calling list
Replies: 8
Views: 17015

Re: calling list

We can learn something every day! Thanks again!

grtz
by SMcClouth
Fri Dec 27, 2013 4:05 pm
Forum: General Discussion
Topic: calling list
Replies: 8
Views: 17015

Re: calling list

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
by SMcClouth
Fri Dec 27, 2013 7:24 am
Forum: General Discussion
Topic: calling list
Replies: 8
Views: 17015

calling list

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...
by SMcClouth
Fri Apr 19, 2013 5:42 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: CALL Absolute
Replies: 2
Views: 9337

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!
by SMcClouth
Fri Apr 19, 2013 3:58 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: CALL Absolute
Replies: 2
Views: 9337

CALL Absolute

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.
by SMcClouth
Mon Apr 15, 2013 7:28 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: QBXFS is nearly a fact
Replies: 0
Views: 12370

QBXFS is nearly a fact

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...
by SMcClouth
Fri Apr 12, 2013 5:20 pm
Forum: News and Announcements
Topic: Black Annex - QBasic corporate sabotage / infiltration game
Replies: 9
Views: 41020

It reminds me a bit of Theme Hospital, the graphics that is. But still it looks cool!
by SMcClouth
Tue Apr 09, 2013 10:03 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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...
by SMcClouth
Mon Apr 08, 2013 10:46 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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 ...
by SMcClouth
Mon Apr 08, 2013 9:39 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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...
by SMcClouth
Mon Apr 08, 2013 4:48 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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...
by SMcClouth
Mon Apr 08, 2013 4:47 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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...
by SMcClouth
Mon Apr 08, 2013 4:46 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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...
by SMcClouth
Mon Apr 08, 2013 3:23 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

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...
by SMcClouth
Sun Apr 07, 2013 10:37 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Sched Handler (WIP)
Replies: 11
Views: 21623

Sched Handler (WIP)

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...
by SMcClouth
Fri Mar 22, 2013 9:02 pm
Forum: News and Announcements
Topic: QBinux core
Replies: 1
Views: 19855

QBinux core

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