Search found 46 matches

by BasicJan
Sep 16, 2005 15:29
Forum: DOS
Topic: FullScreen-parameter of SCREEN-statement ignored
Replies: 3
Views: 2691

FullScreen-parameter of SCREEN-statement ignored

The last parameter of the SCREEN-statement indicates wether or not the full-screen mode or a windowed mode should be used. If the statement is not used, the program is run in windowed-mode. If the statement is used, the program switches to full-screen mode, independent from the FullScreen-parameter....
by BasicJan
Sep 16, 2005 12:37
Forum: Windows
Topic: Error while drawing box
Replies: 5
Views: 2932

'Solution' isn't the right word indeed. Try this, compiled both with the DOS- and the Windows-based compiler. Run both programs in a DOS-box. CLS LOCATE 1,1 PRINT "A"+STRING$(78,"-")+"B"; FOR Tmp=2 TO 24 LOCATE Tmp,1 PRINT "|"+SPACE$(78)+"|"; NEXT Tmp LOCATE 25,1 PRINT "C"+STRING$(78,"-")+"D"; LOCAT...
by BasicJan
Sep 15, 2005 20:00
Forum: Windows
Topic: Error while drawing box
Replies: 5
Views: 2932

The compiler-version for both DOS and Windows is 0.14B

Your solution works, but it is still strange that there is a difference between the DOS- and the Windows-version.
by BasicJan
Sep 15, 2005 17:08
Forum: Windows
Topic: Error while drawing box
Replies: 5
Views: 2932

Error while drawing box

If next code is compiled and run LOCATE 1,1 PRINT "A"+STRING$(78,"-")+"B"; FOR Tmp=2 TO 24 LOCATE Tmp,1 PRINT "|"+SPACE$(78)+"|"; NEXT Tmp LOCATE 25,1 PRINT "C"+STRING$(78,"-")+"D"; with the Windows-based FreeBasic-compiler a 'line-feed' will be added after the last printed character ('D'). This in ...
by BasicJan
Sep 06, 2005 17:12
Forum: DOS
Topic: Character to be printed ignored.
Replies: 10
Views: 5099

The source exists out of a couple of modules. I will mail you everything, including demo-data.

Thanks for trying!
by BasicJan
Sep 04, 2005 9:10
Forum: DOS
Topic: Error while reading file
Replies: 1
Views: 2085

Error while reading file

If next program is run: TYPE SortType SortCode AS STRING*1 SortName AS STRING*20 END TYPE DIM Sort(10) AS SortType NbrOfSorts=0 I=0 OPEN "ADDRESS.SRT" FOR INPUT AS #1 DO WHILE NOT EOF(1) I=I+1 INPUT #1,Sort(I).SortCode,Sort(I).SortName LOOP NbrOfSorts=I CLOSE #1 CLS PRINT "Number of sorts is: ";NbrO...
by BasicJan
Sep 04, 2005 8:35
Forum: DOS
Topic: Character to be printed ignored.
Replies: 10
Views: 5099

Next listing comes from the original code: <code> DrawBox 9,18,14,63 <code> SUB DrawBox(Row1,Col1,Row2,Col2) 'Draw a box on the screen between the given coordinates InnerWidth=Col2-Col1-1 LOCATE Row1,Col1 PRINT "┌"+STRING$(InnerWidth,"─")+"┐"; FOR Tmp=Row1+1 TO Row2-1 LOCATE Tmp,Co...
by BasicJan
Sep 02, 2005 16:45
Forum: DOS
Topic: Range ('TO') in SELECT CASE ignored.
Replies: 5
Views: 3190

My representation of a part of my program wasn't fully correct. This works fine: TmpText$="G" SELECT CASE TmpText$ CASE CHR$(32) TO CHR$(122) PRINT TmpText$;" recognised!" CASE ELSE PRINT TmpText$;" not recognised!" END SELECT This doesn't work (Works well in QuickBasic) TmpText$="G" SELECT CASE Tmp...
by BasicJan
Sep 01, 2005 20:14
Forum: Documentation
Topic: Non-supported QuickBasic-keywords not documented
Replies: 13
Views: 5471

Thanks for warning. I already experienced the difference between DOUBLE and CURRENCY. Some financial calculations gave wrong results.....
I 'll look for a better solution.
by BasicJan
Sep 01, 2005 19:59
Forum: DOS
Topic: Character to be printed ignored.
Replies: 10
Views: 5099

Indeed I replaced ';' by '+' in stead of '&'.
Sorry for this wrong information.
by BasicJan
Aug 31, 2005 16:38
Forum: Documentation
Topic: Non-supported QuickBasic-keywords not documented
Replies: 13
Views: 5471

I use

OPEN PrinterPort$ FOR OUTPUT AS #1
etc.
CLOSE #1

While starting he program I read the PrinterPort from a settings-file.
by BasicJan
Aug 30, 2005 20:27
Forum: DOS
Topic: Range ('TO') in SELECT CASE ignored.
Replies: 5
Views: 3190

Range ('TO') in SELECT CASE ignored.

SELECT CASE Kbd$
CASE "A"
'This expression-list is recognised
CASE "B" TO "Z"
'This expression-list is ignored
END SELECT

Is this a documentation error or am I doing something wrong?
I just started migrating a number of applications from Quickbasic to FREEBasic.
by BasicJan
Aug 30, 2005 20:26
Forum: DOS
Topic: Character to be printed ignored.
Replies: 10
Views: 5099

Character to be printed ignored.

Next code LOCATE 3,3 PRINT "A";STRING$(5,"-");"B"; FOR Tmp=4 TO 7 LOCATE Tmp,3 PRINT "+";SPACE$(5);"+"; NEXT Tmp LOCATE 8,3 PRINT "C";STRING$(5,"-");"D"; should result in drawing a box: A-----B + + + + + + + + C-----D However, in a certain situation the righ-bottom corner ('D') is not shown. = If th...
by BasicJan
Aug 30, 2005 20:23
Forum: DOS
Topic: Row- and col-value returned.
Replies: 1
Views: 2173

Row- and col-value returned.

The row- and col-value returned by CSRLIN and POS() seem to be 1 to high. FUNCTION CursorRow 'Show cursor row 'QuickBasic: CursorRow=CSRLIN 'FREEBasic: CursorRow=CSRLIN-1 END FUNCTION FUNCTION CursorCol 'Show cursor col 'QuickBasic: CursorCol=POS(0) 'FREEBasic: CursorCol=POS()-1 END FUNCTION Is this...
by BasicJan
Aug 30, 2005 20:19
Forum: Documentation
Topic: Difference with QuickBasic in placement of labels not docume
Replies: 1
Views: 1943

Difference with QuickBasic in placement of labels not docume

In case of (file-)error-handling the ON ERROR GOTO <label>-statement can be used. QuickBasic requires the <label> (and the code) to be OUTside the SUB or FUNCTION containing the ON ERROR GOTO <label>-statement. FREEBasic requires the <label> (and the code) to be INside the SUB or FUNCTION containing...

Go to advanced search