DarkBASIC Pro Project has stopped working

Author

Message

cguy

17

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: In my Computer!

Posted: 31st Jul 2009 05:11

Link

I'm trying to use functions more often and decided to try to make one so that if the word "stop" was found in any part of a users input, the program would end.

+ Code Snippet

set display mode 1280,800,16

set text font "ariel"
set text size 22

do
cls
   text 0,80,"User>>"
   set cursor 70,80 : input user_input$

   user_input$=lower$(user_input$)

   if check("stop")=1 then end
loop

function check(word1$)
occurances=find sub string$(user_input$,word1$)
if occurances>0 then num=1
endfunction num

The idea was that the function would return a 1 if the word was found, but not only did thhat not happen, I got a message that said "DarkBASIC Pro Project has stopped working" and my program was forced to exit. Any help with this?

Do we all have to put stupid jokes here?

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 31st Jul 2009 05:15

Link

I believe the font is "arial", not "ariel". That might crash it. If that isn't it, there's something wrong with the FIND SUB STRING$ command.

Diggsey: I have a spine and memory, but one memorable guy says he hates me. What am I?

+ Code Snippet

A book!

Back to top

Profile PM Email Website

cguy

17

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: In my Computer!

Posted: 31st Jul 2009 05:45

Link

You certainly are right about the font being "arial", but for some reason, it works if you type in "ariel". Huh...that's interesting. Anyway, that's not the problem. Like you said, the source of the problem is most likely line 17, with the FIND SUB STRING$ command. If you take it out, the program runs. If it was a syntax error on my part, though, the program would not have compiled at all. I'll tweak it a bit and see what happends. Thanks BMacZero!

Do we all have to put stupid jokes here?

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 31st Jul 2009 07:12 Edited at: 31st Jul 2009 07:13

Link

It's because user_input$ = "" inside the function because it's not set to global.

Add this line to the top:

+ Code Snippet

global user_input$

If you don't want to do that you can just add the string to the function call:

+ Code Snippet

set display mode 1280,800,16

set text font "ariel"
set text size 22



do
cls
   text 0,80,"User>>"
   set cursor 70,80 : input user_input$

   user_input$=lower$(user_input$)

   if check(user_input$,"stop")=1 then end
loop

function check(Tex$,word1$)
 occurances=find sub string$(Tex$,word1$)
 if occurances>0 then num=1
endfunction num

Back to top

Profile PM Email

cguy

17

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: In my Computer!

Posted: 31st Jul 2009 07:47 Edited at: 31st Jul 2009 09:53

Link

Thanks, Grog for answering me so late. I was supicious of my problem having to do with global commands. I don't have much experience with that

I have another question. Can you use arrays while declaring functions in place of just variables? For example:

+ Code Snippet

function testfunction(array$(1))

Do we all have to put stupid jokes here?

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 31st Jul 2009 10:19

Link

Np.

No, but arrays are global automatically so if you want to use an array inside the function you don't have to pass it to the function.

Back to top

Profile PM Email

cguy

17

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: In my Computer!

Posted: 31st Jul 2009 20:03

Link

Yeah, I was afraid of that. Thanks again.

Do we all have to put stupid jokes here?

Back to top

Profile PM

Dream And Death

18

Years of Service

User Offline

Joined: 21st Feb 2006

Location: The circus! Juggling job, kids and DBPro

Posted: 31st Jul 2009 20:24

Link

Quote: "'I was afraid of that'"

That is an odd phrasing for a feature that I see as a huge plus for DBPro. My functions can alter the huge array of enemies, or huge array of objects, or plot, dialogue etc.etc. without having to worry about passing the whole array to the function, or passing a pointer etc.

I may be in a minority here, but I prefer arrays being global!

"You get what everyone gets, you get a lifetime!" - Death, The Sandman Library

First you Dream, then you ... - Neil Gaiman, 2001

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 31st Jul 2009 20:30

Link

Well, it would be nice to have the capability of making local arrays - and if you want a global array, all you would have to do is declare it as global:

global DIM Array(10)

Diggsey: I have a spine and memory, but one memorable guy says he hates me. What am I?

+ Code Snippet

A book!

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 1st Aug 2009 04:22 Edited at: 1st Aug 2009 04:23

Link

I think he means he's disappointed that we can't dimentionalize an array while defining a function.

Arrays are naturally global by default but you can localize an array using LOCAL inside the function that will produce an error if you try to access an array outside the function that made the array LOCAL. You can localize an array that is already used but it's probably a bad idea to do it (but it works).

+ Code Snippet

` Dimentionalize and arrays
dim Num(4)
dim AnotherNum(4)

` Define Num(0)
Num(0)=99999999
AnotherNum(0)=88888888

` Call the test function
Test()

print "Outside Function"
print ""
` Go through each element
for t=0 to array count(Num())
 ` Show the numbers
 print "       Num("+str$(t)+") = "+str$(Num(t))
 print "AnotherNum("+str$(t)+") = "+str$(AnotherNum(t))
next t

wait key
end


function Test()

 ` Redimentionalize array as local
 local dim Num(4)

 print "Inside Function"
 print ""
 ` Go through each element
 for t=0 to array count(Num())
  ` Set Num(xx) and AnotherNum(xx) to random numbers
  if t>0
   Num(t)=rnd(10000)
   AnotherNum(t)=rnd(10000)
  endif
  ` Show the number
  print "       Num("+str$(t)+") = "+str$(Num(t))
  print "AnotherNum("+str$(t)+") = "+str$(AnotherNum(t))
 next t

 print ""
 print ""

endfunction

Back to top

Profile PM Email

cguy

17

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: In my Computer!

Posted: 1st Aug 2009 04:59

Link

Quote: "I think he means he's disappointed that we can't dimentionalize an array while defining a function.
"

Exactly

@ everyone
This is a bunch of useful info. Thanks so much. I'm beginning to really like functions. They are maing my life so much eaiser.

Do we all have to put stupid jokes here?

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / DarkBASIC Pro Project has stopped working