Basic horrible stuff

hussey

Ok this is what I have

OPEN "Files\Kevin.txt" FOR OUTPUT AS #121

   DIM divi AS Integer
   DIM modu AS Integer
   DIM x    AS Integer

   PRINT #121, "BUNDLE,", "PGNUM"
   FOR x = 1 TO 2300
       divi = (x / 1000)
       divi = divi + 1
       modu = x MOD 1000
      PRINT #121, FORMAT$( divi, "00" ), "," , FORMAT$( modu, "0000")
   NEXT x     

so essentially what i want is output like this
BUNDLE, PGNUM
01,0001
01,0002
01,0003
01,0004
...

but when I get to record 500 I get this
02,0500
02,0501

now I presume this is cause 500/1000 = .5 round up to 1?
is there anyway to stop this rounding?

Zab

Try using a backslash instead of a forwardslash.

Zab.

hussey

I didn't even notice that!!

what was i asking with '/'??

and what was I asking with '\'?

str8_away

Used to divide two numbers and return an integer result.

Syntax

result = number1\number2

The \ operator syntax has these parts:

Part Description
result Required; any numeric variable.
number1 Required; any numeric expression.
number2 Required; any numeric expression.

str8_away

x/y = int(x\y)

Hobbes

Another thing, not your problem but something I tried to avoid is static filehandle id's.

instead of...

OPEN "Files\Kevin.txt" FOR OUTPUT AS #121

try (been a while, so syntax may vary)...

ffh = FreeFile
OPEN "Files\Kevin.txt" FOR OUTPUT AS #ffh

and don't forget...

close #ffh