store values in files - GameCreators Forum

Author

Message

Sam Cameron

21

Years of Service

User Offline

Joined: 26th Dec 2003

Location: 0,0,0 I\'m the center of the world !!!

Posted: 10th May 2004 14:27

Link

Hello there, another of my stupids questions again

, I need a code for still in the last value before out, something like this:

+ Code Snippet

autocam off
move camera 0,-250
cubesize#=100
make object cube 1,cubesize#
do

cubesize#=cubesize#-0.1


delete object 1
make object cube 1,cubesize#
print cubesize#

loop

what I need it's a command to store into a filesystem (like .ini or something) the last value cubesize# before exit, and the same at the begining of the code for load the last value of the stored file (ini or whatever) I tried with "write file" and somethings, but it's store with different values, I'm confussed, any idea without plugins? because I saw some codes with plugins, or for string, and what I need it's for numbers,thanks in advance.

Back to top

Profile PM

TheCyborg

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Denmark

Posted: 10th May 2004 14:46

Link

Someone made a plugin for reading/writing .INI files... but I don't remember who...

Finally got a new computer:
AMD Athlon Barton XP 3000+, 2x512 Dual DDR3200, Asus V9570/TD 256MB GeforceFX 5700, 200GB SATA 150 HD

Back to top

Profile PM

Sam Cameron

21

Years of Service

User Offline

Joined: 26th Dec 2003

Location: 0,0,0 I\'m the center of the world !!!

Posted: 10th May 2004 14:56

Link

yes I know but I preffer do not use plugins, etc... only code, and I donÂ´t need .INI files, whatever type of files is well, only I need a code for store the values before exit and load when I run the program.

Back to top

Profile PM

TheCyborg

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Denmark

Posted: 10th May 2004 15:05

Link

I don't have the manual with me, so this is written right out of my head... but something similar should work.

start of program:

+ Code Snippet

if file exists("file.txt")=1
   open to read 1,"file.txt"
   read string tmp$,1
   cubesize# = val(tmp$)
   close file 1
else
   cubesize# = (whatever the default value is)
endif

end of program:

+ Code Snippet

if file exists("file.txt")=1 then delete file "file.txt"
open to write 1,"file.txt"
write string str$(cubesize#),1
close file 1

Finally got a new computer:
AMD Athlon Barton XP 3000+, 2x512 Dual DDR3200, Asus V9570/TD 256MB GeforceFX 5700, 200GB SATA 150 HD

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 10th May 2004 15:06

Link

I have disabled escape key, so program can leave loop and write value to disk when you press escape, rather than escape quitting program straight away.

If you need any explanation of commands used, just ask.

+ Code Snippet

f$="filename.dat"
sync on : sync rate 30 : autocam off : disable escapekey
move camera -250

if file exist(f$)
   open to read 1,f$
   read float 1,cubesize#
   close file 1
else
   cubesize#=100
endif

make object cube 1,cubesize#

do
   if escapekey() then exit
   cubesize#=cubesize#-0.1
   delete object 1
   make object cube 1,cubesize#
   text 0,0,str$(cubesize#)
   sync
loop

if file exist(f$) then delete file f$
open to write 1,f$
write float 1,cubesize#
close file 1

Boo!

Back to top

Profile PM Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 10th May 2004 15:41

Link

if you decide to use a plugin to write files, I think ours it worth a look.

* DBP_NETLIB_v1 - VB.NET PLUGIN FOR DBP * Click Logo

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 10th May 2004 16:00

Link

LOL at CattleRustler. You are getting worse than NuclearGlory at advertising your plugin (which I'm sure is as great as you say it is).

However I'm sure that forcing user to have .NET installed just to write a simple number to a file is probably not what SamCameron wants.

Boo!

Back to top

Profile PM Website

Sam Cameron

21

Years of Service

User Offline

Joined: 26th Dec 2003

Location: 0,0,0 I\'m the center of the world !!!

Posted: 10th May 2004 16:10

Link

Spooky I test you code and it works great, but I have some doubts, can I use without disable esc key??? because I want this code for possible crash and for backup again when I run, but with you code only store the values when ESC is pressed, so I need the same but when program exit (by the user, or by a crash). Another question can I store two or more different values in the same file? example:

cubesize#=70
spheresize#=50

in

filename.dat
???

thanks again, I love this forum !!

Back to top

Profile PM

TheCyborg

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Denmark

Posted: 10th May 2004 16:21

Link

If you enable the ESC key, the application will exit emidiately when pressing ESC and you will not be able to write the values to a file. And there are no way (yet) to catch crashes in DBP.

Storing multiple values in the same files is no problem.. just copy the write float and read float lines... and make sure you read them in the same order as you wrote them.

Finally got a new computer:
AMD Athlon Barton XP 3000+, 2x512 Dual DDR3200, Asus V9570/TD 256MB GeforceFX 5700, 200GB SATA 150 HD

Back to top

Profile PM

TheCyborg

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Denmark

Posted: 10th May 2004 16:26 Edited at: 10th May 2004 16:26

Link

Some time ago, I wrote a program that, using the write string command, wrote a string to a file every single loop of the application to see how much slow down that would create... and there were practically none...

+ Code Snippet

Do
   cls
   open to write 1,"filename.txt"
   write string 1,"test"
   close file 1
   sync
loop

If you write the values to a file every loop of the program, it will store the values till next time even if the program crashes... except if it crashes exactly on the write to file commands.. :-s

Finally got a new computer:
AMD Athlon Barton XP 3000+, 2x512 Dual DDR3200, Asus V9570/TD 256MB GeforceFX 5700, 200GB SATA 150 HD

Back to top

Profile PM

1tg46

21

Years of Service

User Offline

Joined: 1st Feb 2004

Location: I dont know!

Posted: 10th May 2004 16:32 Edited at: 10th May 2004 16:34

Link

The dll for reading and writing of INI files is at the homepage for TCA

Back to top

Profile PM Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 10th May 2004 16:40 Edited at: 10th May 2004 16:41

Link

@spooky,

well I am just trying to let people know that our plugin is out there and it has about 40 useful functions brought over from vb.net. If you're runnin xp you probably have .net framework installed although you need version 1.1. The redist is 26 megs download. XP sp2 will include it. Next ms os is pure .net. If you look thru the docs on the web link to the plugin I think most people would think that the .net requirement is worth what the plugin provides - not to mention what it will soon include. But I hear ya and you're right, I don't expect someone writing a file needing a plugin and .net, but if they want to use all of our functions I think it's well worth it.
Click the logo below and you can read the doc without dloading the library.

and oh yeah, we read and write ini files as well - just an fyi

* DBP_NETLIB_v1 - VB.NET PLUGIN FOR DBP * Click Logo

Back to top

Profile PM

Sam Cameron

21

Years of Service

User Offline

Joined: 26th Dec 2003

Location: 0,0,0 I\'m the center of the world !!!

Posted: 10th May 2004 19:44

Link

I don't want any DLL or plugin, only code, I think I'm very close to get it (thanks some people of this post) at the moment I have one doubt, the code work when it exit from the loop, example:

+ Code Snippet

do
 if spacekey() then exit
   cubesize#=cubesize#-0.1
   text 0,700,str$(cubesize#)
loop

if file exist(f$) then delete file f$
open to write 1,f$
write float 1,cubesize#
close file 1

but do not work when I put the code directly in the loop, like the cyborg code:

+ Code Snippet

Do
   cls
   open to write 1,"filename.txt"
   write string 1,"test"
   close file 1
   sync
loop

maybe cause I'm using float numbers? or I don't know, but I want to write information without exit the program, in every loop.

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 10th May 2004 20:05

Link

Of course you can get rid of the escapekey stuff and just have it save when user presses a particular key. This code will only save settings when you press SPACE.

+ Code Snippet

f$="filename.dat"
sync on : sync rate 30 : autocam off
move camera -250

if file exist(f$)
   open to read 1,f$
   read float 1,cubesize#
   read float 1,spheresize#
   close file 1
else
   cubesize#=100
   spheresize#=75
endif

make object cube 1,cubesize#
make object sphere 2,spheresize#
position object 2,50,0,0

do
   if spacekey()
      if file exist(f$) then delete file f$
      open to write 1,f$
      write float 1,cubesize#
      write float 1,spheresize#
      close file 1
      text 0,0,"SAVING..."
      sync
      wait 1000
   endif
   cubesize#=cubesize#-0.1
   spheresize#=spheresize#-0.1
   delete object 1
   delete object 2
   make object cube 1,cubesize#
   make object sphere 2,spheresize#
   position object 2,50,0,0
   text 0,0,"Press SPACE to save settings"
   text 0,15,str$(cubesize#)
   text 0,30,str$(spheresize#)
   sync
loop

@CattleRustler - I have ADSL and so have all the windows updates installed, including .NET framework.

I have found there are more and more shareware utilites that require its installed. Specially MSDE and SQL management programs which I'm getting into.

Boo!

Back to top

Profile PM Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 10th May 2004 20:12

Link

yes, and that trend will only continue

* DBP_NETLIB_v1 - VB.NET PLUGIN FOR DBP * Click Logo

Back to top

Profile PM

Sam Cameron

21

Years of Service

User Offline

Joined: 26th Dec 2003

Location: 0,0,0 I\'m the center of the world !!!

Posted: 10th May 2004 21:41

Link

DONE !!!! thanks guys, spooky great code, very useful

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / store values in files