Beginner's Guide To Dark Basic Exercise: Directory Manager

Author

Message

VGHero11

13

Years of Service

User Offline

Joined: 15th Nov 2011

Location:

Posted: 15th Mar 2012 19:13

Link

Hello Fellow Game Developers

I have just finished typing out the exercise code from the Beginner's Guide To Dark Basic book. When I go to compile the code, this line is said to be causing a syntax error: startA = (currentpage(1)*pagesize(1))+1 . If someone could go through my code and check it, that would be great.

Rem Project: DirectroyManager Program
Rem Created: Tuesday, March 13, 2012
Rem Designer: Andrew D. South
Rem ***** Main Source File *****

DIM currentselecteditem(1)
DIM currentfile$(1)
DIM currentfiletype(1)
DIM maxfiles(1)
DIM pagesize(1)
DIM newcommand(1)
DIM pagestartY(1)
DIM filespaceing(1)
newcommand(1) = 0
currentpage(1) = 0
currentselecteditem(1) = 1
maxfiles(1) = 0
pagesize(1) = 20
pagestartY(1) = 40
filespaceing(1) = 16

SYNC ON
SYNC RATE 30
SET TEXT OPAQUE
DISPLAYINFO()
DISPLAYFILES()
WHILE ESCAPEKEY() = 0
	CHECKkeyMOVEMENT()
	CHECKMOUSEMOVEMENTS()
	PROCESSCOMMANDS()
	SYNC
ENDWHILE
END

FUNCTION DISPLAYFILES()
	black = rgb(0,0,0)
	white = rgb(255,255,255)
	blue = rgb(0,0,255)
	PERFORM CHECKLIST FOR FILES
	IF CHECKLIST QUANTITY() = 0 THEN EXITFUNCTION
	maxfiles(1) = CHECKLIST QUANTITY()
	startA = (currentpage(1)*pagesize(1))+1
	startB = ((currentpage(1)+1)*pagesize(1))
	
	if startB > maxfiles(1) THEN startB = maxfiles(1)
	
	FOR x = startA TO startB
		posy = ((x-startA)*filespacing(1))+pagestartY(1)
		IF CHECKLIST VALUE A(X) = 0
			tempstring$ = CHECKLIST STRING$(x)
		ELSE
			tempstring$ = "<"+CHECKLIST STRING$(x)+">"
		ENDIF
		
		IF currentselecteditem(1)=(x-startA)+1
			INK white,blue
			currentfile$(1) = CHECKLIST STRING$(X)
			currentfiletype(1) = CHECKLIST VALUE A(X)
		ELSE
			INK white,black
		ENDIF
		TEXT 10, posy , tempstring$
	NEXT X
ENDFUNCTION

FUNCTION CHECKkeyMOVEMENT()
	IF INKEY$()="?"
		WHILE INKEY$()="?"
			SYNC
		ENDWHILE
		newcommand(1) = 1
	ENDIF
	IF UPPER$(INKEY$())="D"
		WHILE UPPER$(INKEY$()) = "D"
			SYNC
		ENDWHILE
		newcommand(1) = 2
	ENDIF
	IF UPKEY()=1
		WHILE UPKEY()=1
			SYNC
		ENDWHILE
		newcommand(1) = 3
	ENDIF
	IF DOWNKEY()=1
		WHILE DOWNKEY()=1
			SYNC
		ENDWHILE
		newcommand(1) = 4
	ENDIF
	IF RETURNKEY()=1 AND currentfiletype(1)<>0
		WHILE RETURNKEY()=1
			SYNC
		ENDWHILE
		newcommand(1) = 5
	ENDIF
	IF KEYSTATE(201) = 1
		WHILE KEYSTATE(201) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 6
	ENDIF
	IF KEYSTATE(209) = 1
		WHILE KEYSTATE(209) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 7
	ENDIF
	IF KEYSTATE(211) = 1 and currentfiletype(1)<>0
		WHILE KEYSTATE(211) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 8
	ENDIF
	IF KEYSTATE(210) = 1
		WHILE KEYSTATE(210) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 9
	ENDIF
ENDFUNCTION

FUNCTION CHECKMOUSEMOVEMENTS()
	IF MOUSECLICK() = 0 THEN EXITFUNCTION
	IF MOUSEY() < pagestartY(1) THEN EXITFUNCTION
	IF MOUSEY() > pagestartY(1)+(pagesize(1)*filespacing(1))
		EXITFUNCTION
	ENDIF
	lastpage = maxfiles(1)/pagesize(1)
	IF currentpage(1) = lastpage
		lastitem = maxfiles(1) - (lastpage*pagesize(1))
	ELSE
		lastitem = pagesize(1)
	ENDIF
	
	currentselecteditem(1) = ((MOUSEY()-pagestartY(1))/filespacing(1))+1
	IF currentselecteditem(1) >= lastitem
		currentselecteditem(1) = lastitem
		DISPLAYFILES()
	ENDIF
	DISPLAYFILES()
ENDFUNCTION

FUNCTION PROCESSCOMMANDS()
`New Command will be processed
`0 -- No New Command
`1 -- Get Help
`2 -- Change Drives
`3 -- Move Up
`4 -- Move Down
`5 -- Chage Dirs
`6 -- Page Up
`7 -- Page Down
`8 -- Delete Dir
`9 -- Make Dir
`Determine where the last file and page are
	lastpage = maxfiles(1)/pagesize(1)
	IF currentpage(1) = lastpage
		lastitem = maxfiles(1) - (lastpage*pagesize(1))
	ELSE
		lastitem = pagesize(1)
	ENDIF
	IF currentselecteditem(1) >= lastitem
		currentselecteditem(1) = lastitem
		DISPLAYFILES()
	ENDIF
	IF newcommand(1) = 0 THEN EXITFUNCTION
	cmdtoprocess = newcommand(1)
	newcommand(1) = 0
	`Get the Help
		IF cmdtoprocess = 1
			DISPLAYHELP()
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Change Drives
		IF cmdtoprocess = 2
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Move Up
		IF cmdtoprocess = 3
			currentselecteditem(1) = currentselecteditem(1) - 1
			IF currentselecteditem(1) <= 0
				currentselecteditem(1) = lastitem
			ENDIF
			DISPLAYFILES()
		ENDIF
	`Move Down
		IF cmdtoprocess = 4
			currentselecteditem(1) = currentselecteditem(1) + 1
			IF currentselecteditem(1) > lastitem
				currentselecteditem(1) = 1
			ENDIF
			DISPLAYFILES()
		ENDIF
	`Change Directories
		IF cmdtoprocess = 5
			newdir$ = currentfile$(1)
			SET DIR newdir$
			currentpage(1) = 0
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Page Up
		IF cmdtoprocess = 6
			currentpage(1) = currentpage(1) - 1
			IF currentpage(1) < 0
				currentpage(1) = 0
			ENDIF
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Page Down
		IF cmdtoprocess = 7
			currentpage(1) = currentpage(1) + 1
			IF currentpage(1) > lastpage
				currentpage(1) = lastpage
			ENDIF
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Delete a Directory
		IF cmdtoprocess = 8
			deletedir$ = currentfile$(1)
			`You do not want to delete . or the .. directory ..
			`Trust me on this
			IF deletedir$ = "." THEN EXITFUNCTION
			IF deletedir$ = ".." THEN EXITFUNCTION
			tempstring$ = "Are you srue you want to delete " + Deletedir$
			TEXT 10,400, tempstring$
			A$ = ASKYESNO$()
			IF A$ = "YES"
				DELETE DIRECTORY deletedir$
			ENDIF
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Create a Directory
		IF cmdtoprocess = 9
			SET CURSOR 10,400
			INPUT "Type in the name of teh Directory: ",newdir$
			MAKE DIRECTORY newdir$
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	ENDFUNCTION
	
FUNCTION DISPLAYINFO()
	red = rgb(255,0,0)
	white = rgb(255,255,255)
	black = rgb(0,0,0)
	blue = rgb(0,0,255)
	INK white,red
	TEXT 320,8,"Directory Manager"
	tempstring$ = GET DIR$()
	INK white,black
	TEXT 10,24,tempstring$
	INK white,blue
	TEXT 10,440," ? for help"
	TEXT 10,460," ESC KEY to quit."
ENDFUNCTION

FUNCTION DISPLAYHELP()
	CLS
	PRINT "This the Directory Manager Program for Chapter 15"
	PRINT "UP ARROW 	-- MOVE UP"
	PRINT "DOWN ARROW 	-- MOVE DOWN"
	PRINT "PAGE UP 		-- PAGE UP THE FILE LIST"
	PRINT "PAGE DOWN 	-- PAGE DOWN THE FILE LIST"
	PRINT "DELETE 		-- DELEATE A DIRECTROY"
	PRINT "INS			-- CREATE A NEW DIRECTORY"
	PRINT "D			-- CHANGE DRIVERS"
	CENTER TEXT 320,400," Press Q to Leave This Menu"
	WHILE UPPER$(INKEY$())<>"Q"
		SYNC
	ENDWHILE
	WHILE UPPER$(INKEY$())="Q"
		SYNC
	ENDWHILE
ENDFUNCTION

FUNCTION ASKYESNO$()
	ch$ = UPPER$(INKEY$())
	WHILE ch$ <> "Y" AND ch$ <> "N"
		ch$ = UPPER$(INKEY$())
		SYNC
	ENDWHILE
	IF ch$ = "Y" THEN ret$ = "YES"
	IF ch$ = "N" THEN ret$ = "NO"
	WHILE ch$ = "Y" OR ch$ = "N"
		ch$ = UPPER$(INKEY$())
		SYNC
	ENDWHILE
ENDFUNCTION ret$

FUNCTION CHANGEDRIVE()
	white = rgb(255,255,255)
	black = rgb(0,0,0)
	INK white,black
	PERFORM CHECKLIST FOR DRIVES
	IF CHECKLIST QUANTITY()<=1 THEN EXITFUNCTION
	tempstring$ = "Select Drive Letter: "
	FOR x=1 TO CHECKLIST QUANTITY()
		tempstring$ = tempstring$ + CHECKLIST STRING$(X)+" "
	NEXT x
	done = 0
	TEXT 10,400,tempstring$
	SYNC
	SYNC
	WHILE done = 0
		ch$ = UPPER$(INKEY$())
		FOR x=1 TO CHECKLIST QUANTITY()
			IF ch$ = LEFT$(CHECKLIST STRING$(X),1)
				done=1
			ENDIF
		NEXT x
		SYNC
	ENDWHILE
	newdrive$ = ch$+":\"
	SET DIR newdrive$
ENDFUNCTION

+ Code Snippet

Rem Project: DirectroyManager Program
Rem Created: Tuesday, March 13, 2012
Rem Designer: Andrew D. South
Rem ***** Main Source File *****

DIM currentselecteditem(1)
DIM currentfile$(1)
DIM currentfiletype(1)
DIM maxfiles(1)
DIM pagesize(1)
DIM newcommand(1)
DIM pagestartY(1)
DIM filespaceing(1)
newcommand(1) = 0
currentpage(1) = 0
currentselecteditem(1) = 1
maxfiles(1) = 0
pagesize(1) = 20
pagestartY(1) = 40
filespaceing(1) = 16

SYNC ON
SYNC RATE 30
SET TEXT OPAQUE
DISPLAYINFO()
DISPLAYFILES()
WHILE ESCAPEKEY() = 0
	CHECKkeyMOVEMENT()
	CHECKMOUSEMOVEMENTS()
	PROCESSCOMMANDS()
	SYNC
ENDWHILE
END

FUNCTION DISPLAYFILES()
	black = rgb(0,0,0)
	white = rgb(255,255,255)
	blue = rgb(0,0,255)
	PERFORM CHECKLIST FOR FILES
	IF CHECKLIST QUANTITY() = 0 THEN EXITFUNCTION
	maxfiles(1) = CHECKLIST QUANTITY()
	startA = (currentpage(1)*pagesize(1))+1
	startB = ((currentpage(1)+1)*pagesize(1))
	
	if startB > maxfiles(1) THEN startB = maxfiles(1)
	
	FOR x = startA TO startB
		posy = ((x-startA)*filespacing(1))+pagestartY(1)
		IF CHECKLIST VALUE A(X) = 0
			tempstring$ = CHECKLIST STRING$(x)
		ELSE
			tempstring$ = "<"+CHECKLIST STRING$(x)+">"
		ENDIF
		
		IF currentselecteditem(1)=(x-startA)+1
			INK white,blue
			currentfile$(1) = CHECKLIST STRING$(X)
			currentfiletype(1) = CHECKLIST VALUE A(X)
		ELSE
			INK white,black
		ENDIF
		TEXT 10, posy , tempstring$
	NEXT X
ENDFUNCTION

FUNCTION CHECKkeyMOVEMENT()
	IF INKEY$()="?"
		WHILE INKEY$()="?"
			SYNC
		ENDWHILE
		newcommand(1) = 1
	ENDIF
	IF UPPER$(INKEY$())="D"
		WHILE UPPER$(INKEY$()) = "D"
			SYNC
		ENDWHILE
		newcommand(1) = 2
	ENDIF
	IF UPKEY()=1
		WHILE UPKEY()=1
			SYNC
		ENDWHILE
		newcommand(1) = 3
	ENDIF
	IF DOWNKEY()=1
		WHILE DOWNKEY()=1
			SYNC
		ENDWHILE
		newcommand(1) = 4
	ENDIF
	IF RETURNKEY()=1 AND currentfiletype(1)<>0
		WHILE RETURNKEY()=1
			SYNC
		ENDWHILE
		newcommand(1) = 5
	ENDIF
	IF KEYSTATE(201) = 1
		WHILE KEYSTATE(201) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 6
	ENDIF
	IF KEYSTATE(209) = 1
		WHILE KEYSTATE(209) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 7
	ENDIF
	IF KEYSTATE(211) = 1 and currentfiletype(1)<>0
		WHILE KEYSTATE(211) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 8
	ENDIF
	IF KEYSTATE(210) = 1
		WHILE KEYSTATE(210) = 1
			SYNC
		ENDWHILE
		newcommand(1) = 9
	ENDIF
ENDFUNCTION

FUNCTION CHECKMOUSEMOVEMENTS()
	IF MOUSECLICK() = 0 THEN EXITFUNCTION
	IF MOUSEY() < pagestartY(1) THEN EXITFUNCTION
	IF MOUSEY() > pagestartY(1)+(pagesize(1)*filespacing(1))
		EXITFUNCTION
	ENDIF
	lastpage = maxfiles(1)/pagesize(1)
	IF currentpage(1) = lastpage
		lastitem = maxfiles(1) - (lastpage*pagesize(1))
	ELSE
		lastitem = pagesize(1)
	ENDIF
	
	currentselecteditem(1) = ((MOUSEY()-pagestartY(1))/filespacing(1))+1
	IF currentselecteditem(1) >= lastitem
		currentselecteditem(1) = lastitem
		DISPLAYFILES()
	ENDIF
	DISPLAYFILES()
ENDFUNCTION

FUNCTION PROCESSCOMMANDS()
`New Command will be processed
`0 -- No New Command
`1 -- Get Help
`2 -- Change Drives
`3 -- Move Up
`4 -- Move Down
`5 -- Chage Dirs
`6 -- Page Up
`7 -- Page Down
`8 -- Delete Dir
`9 -- Make Dir
`Determine where the last file and page are
	lastpage = maxfiles(1)/pagesize(1)
	IF currentpage(1) = lastpage
		lastitem = maxfiles(1) - (lastpage*pagesize(1))
	ELSE
		lastitem = pagesize(1)
	ENDIF
	IF currentselecteditem(1) >= lastitem
		currentselecteditem(1) = lastitem
		DISPLAYFILES()
	ENDIF
	IF newcommand(1) = 0 THEN EXITFUNCTION
	cmdtoprocess = newcommand(1)
	newcommand(1) = 0
	`Get the Help
		IF cmdtoprocess = 1
			DISPLAYHELP()
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Change Drives
		IF cmdtoprocess = 2
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Move Up
		IF cmdtoprocess = 3
			currentselecteditem(1) = currentselecteditem(1) - 1
			IF currentselecteditem(1) <= 0
				currentselecteditem(1) = lastitem
			ENDIF
			DISPLAYFILES()
		ENDIF
	`Move Down
		IF cmdtoprocess = 4
			currentselecteditem(1) = currentselecteditem(1) + 1
			IF currentselecteditem(1) > lastitem
				currentselecteditem(1) = 1
			ENDIF
			DISPLAYFILES()
		ENDIF
	`Change Directories
		IF cmdtoprocess = 5
			newdir$ = currentfile$(1)
			SET DIR newdir$
			currentpage(1) = 0
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Page Up
		IF cmdtoprocess = 6
			currentpage(1) = currentpage(1) - 1
			IF currentpage(1) < 0
				currentpage(1) = 0
			ENDIF
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Page Down
		IF cmdtoprocess = 7
			currentpage(1) = currentpage(1) + 1
			IF currentpage(1) > lastpage
				currentpage(1) = lastpage
			ENDIF
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Delete a Directory
		IF cmdtoprocess = 8
			deletedir$ = currentfile$(1)
			`You do not want to delete . or the .. directory ..
			`Trust me on this
			IF deletedir$ = "." THEN EXITFUNCTION
			IF deletedir$ = ".." THEN EXITFUNCTION
			tempstring$ = "Are you srue you want to delete " + Deletedir$
			TEXT 10,400, tempstring$
			A$ = ASKYESNO$()
			IF A$ = "YES"
				DELETE DIRECTORY deletedir$
			ENDIF
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	`Create a Directory
		IF cmdtoprocess = 9
			SET CURSOR 10,400
			INPUT "Type in the name of teh Directory: ",newdir$
			MAKE DIRECTORY newdir$
			CLS
			DISPLAYINFO()
			DISPLAYFILES()
		ENDIF
	ENDFUNCTION
	
FUNCTION DISPLAYINFO()
	red = rgb(255,0,0)
	white = rgb(255,255,255)
	black = rgb(0,0,0)
	blue = rgb(0,0,255)
	INK white,red
	TEXT 320,8,"Directory Manager"
	tempstring$ = GET DIR$()
	INK white,black
	TEXT 10,24,tempstring$
	INK white,blue
	TEXT 10,440," ? for help"
	TEXT 10,460," ESC KEY to quit."
ENDFUNCTION

FUNCTION DISPLAYHELP()
	CLS
	PRINT "This the Directory Manager Program for Chapter 15"
	PRINT "UP ARROW 	-- MOVE UP"
	PRINT "DOWN ARROW 	-- MOVE DOWN"
	PRINT "PAGE UP 		-- PAGE UP THE FILE LIST"
	PRINT "PAGE DOWN 	-- PAGE DOWN THE FILE LIST"
	PRINT "DELETE 		-- DELEATE A DIRECTROY"
	PRINT "INS			-- CREATE A NEW DIRECTORY"
	PRINT "D			-- CHANGE DRIVERS"
	CENTER TEXT 320,400," Press Q to Leave This Menu"
	WHILE UPPER$(INKEY$())<>"Q"
		SYNC
	ENDWHILE
	WHILE UPPER$(INKEY$())="Q"
		SYNC
	ENDWHILE
ENDFUNCTION

FUNCTION ASKYESNO$()
	ch$ = UPPER$(INKEY$())
	WHILE ch$ <> "Y" AND ch$ <> "N"
		ch$ = UPPER$(INKEY$())
		SYNC
	ENDWHILE
	IF ch$ = "Y" THEN ret$ = "YES"
	IF ch$ = "N" THEN ret$ = "NO"
	WHILE ch$ = "Y" OR ch$ = "N"
		ch$ = UPPER$(INKEY$())
		SYNC
	ENDWHILE
ENDFUNCTION ret$

FUNCTION CHANGEDRIVE()
	white = rgb(255,255,255)
	black = rgb(0,0,0)
	INK white,black
	PERFORM CHECKLIST FOR DRIVES
	IF CHECKLIST QUANTITY()<=1 THEN EXITFUNCTION
	tempstring$ = "Select Drive Letter: "
	FOR x=1 TO CHECKLIST QUANTITY()
		tempstring$ = tempstring$ + CHECKLIST STRING$(X)+" "
	NEXT x
	done = 0
	TEXT 10,400,tempstring$
	SYNC
	SYNC
	WHILE done = 0
		ch$ = UPPER$(INKEY$())
		FOR x=1 TO CHECKLIST QUANTITY()
			IF ch$ = LEFT$(CHECKLIST STRING$(X),1)
				done=1
			ENDIF
		NEXT x
		SYNC
	ENDWHILE
	newdrive$ = ch$+":\"
	SET DIR newdrive$
ENDFUNCTION

When we all lend our power together, there is nothing we
can't do!
Please Lend me your STRENGTH!

Back to top

Profile PM

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 16th Mar 2012 07:31

Link

I think you forgot to declare the current page array at the top of your code.

Back to top

Profile PM Email

VGHero11

13

Years of Service

User Offline

Joined: 15th Nov 2011

Location:

Posted: 26th Mar 2012 19:20

Link

Huh????

When we all lend our power together, there is nothing we
can't do!
Please Lend me your STRENGTH!

Back to top

Profile PM

VGHero11

13

Years of Service

User Offline

Joined: 15th Nov 2011

Location:

Posted: 26th Mar 2012 19:23

Link

Okay, I found one of my errors. I forget to put the code: DIM currentpage(1), so that took care of one problem. However now I have a new problem. Another syntax error occurs at the line: posy = ((x-startA)*filespacing(1))+pagestartY(1). If someone could take a look at it and tell why this syntax error is occurring, that would be great. Thanks!

When we all lend our power together, there is nothing we
can't do!
Please Lend me your STRENGTH!

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 27th Mar 2012 01:40 Edited at: 27th Mar 2012 01:42

Link

You'll kick yourself for this one:

In both these lines there is an "e" between the "c" and "ing"

DIM filespaceing(1)

filespaceing(1) = 16

The "e" is now missing from "filespacing" in this line:

posy = ((x-startA)*filespacing(1))+pagestartY(1).

You've just misspelt the variable name in the "posy = " line compared to the declared array name and it's coming up as a syntax error. Your code runs fin once this and the other error that was mentioned are fixed.

Back to top

Profile PM Email

VGHero11

13

Years of Service

User Offline

Joined: 15th Nov 2011

Location:

Posted: 27th Mar 2012 19:27

Link

Your right 29 games. I will be kicking myself.

*Goes and kicks himself till anger is cured*

Okay thanks for spotting my error. By any chance is there a place where you can submit your code and a computer will check for syntax errors? I was just wondering since sometimes it takes a while until I get feedback on problems. Anyways, Thanks 29 games for spotting my error and helping me finish this exercise.

When we all lend our power together, there is nothing we
can't do!
Please Lend me your STRENGTH!

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 28th Mar 2012 20:19 Edited at: 28th Mar 2012 20:20

Link

Quote: "is there a place where you can submit your code and a computer will check for syntax errors"

Technically DBP has already done this for you but, in this particular instance, what DBP can't tell you is how to fix the problem.

What the error says is:

Cannot find structure 'DISPLAYFILES:&filespacing' in local declaraton at line 50

This basically translates as "you haven't declared the array". As far as DBP is concerned filespaceing (with an "e") and filespacing (without an "e") are two completely different variables, and the latter hasn't been declared. I only assumed that you made a typo with the spelling of the variable but you could have equally made a mistake by not declaring the variable to begin with. DBP highlighted a mistake but isn't clever enough to connect the dots, as it where, to point you to a solution.

Debugging is part of the skill of coding, admittedly not the most glamourous part, and you will get better at it the more you code. It just takes practice.

Back to top

Profile PM Email

Naphier

14

Years of Service

User Offline

Joined: 2nd Oct 2010

Location: St Petersburg, Florida

Posted: 28th Mar 2012 22:56

Link

99.9% of the time a syntax error is due to a typo
Try reading the line backwards. This helps read word by word. If that doesn't help then move on to check #2 - confirm that you spelled your variables the same way when declared.

Another method that might help you out with this is to test each function as you build them. It is a pain in the butt, but it is less than a pain in the butt than trying to find the error in a big heap of code. The major advantage of functional programming. I believe it is called unit testing.

Hope that helps.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Beginner's Guide To Dark Basic Exercise: Directory Manager