Database help - GameCreators Forum

Author

Message

DethFenix

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location:

Posted: 18th Jul 2009 10:06

Link

Creating this for a game.

I've tried to make it work and I was successful up until it told me that I didn't have "name$" anywhere in the code, so I just gave up.

This is supposed to be a Database. Can anyone help me?

For i = 1 to 200
      Print name$(i)
   Next i
Print "---*Welcome to the SAFBI Criminal Database*---"
   Print "1. Load Up Criminal Files"
Print "2. Save Current Entries"
Print "3. Add new entry"
Print "4. View Entry"
Print "5. Logout"
input "Select an option by number";option$
if option$ = "3" then goto 0
if option$ = "2" then goto 1

0:
 Type fbid
      Name as string
      Phone as string
      Age as integer
      Crime as string
      LKL as string
      Sex as string
      Ethnicity as string
   Endtype
   Dim fbi(200) as fbid
rem number of current entrys
index = 0

do
         cls

input "Enter a new entry[y/n]: ", a$

if a$ = "y"
              inc index, 1
              input "Enter the suspect's name: ", FBI(index).name
               input "Enter the suspect's phone number: ", FBI(index).phone
               input "Enter the suspect's age: ", FBI(index).age
               input "Enter the suspect's crime(s): ", FBI(index).crime
               input "Enter the suspect's Last Known Location: ", FBI(index).LKL
              input "Enter the suspect's sex: ", FBI(index).sex
              input "Enter the suspect's ethnicity: ", FBI(index).ethnicity
         endif

if a$ = "n"
               rem quit program
               end
         endif
loop

1:
filename$ = "fbiDatabase"

if file exist(filename$)=1 then delete file filename$

open to write 1, filename$

write word 1, index

for i = 1 to index
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
next i

close file 1

if file exist(filename$)=1

open to read 1, filename$

read word 1, index

for i = 1 to index
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
next i

close file 1

endif

+ Code Snippet

For i = 1 to 200
      Print name$(i)
   Next i
Print "---*Welcome to the SAFBI Criminal Database*---"
   Print "1. Load Up Criminal Files"
Print "2. Save Current Entries"
Print "3. Add new entry"
Print "4. View Entry"
Print "5. Logout"
input "Select an option by number";option$
if option$ = "3" then goto 0
if option$ = "2" then goto 1

0:
 Type fbid
      Name as string
      Phone as string
      Age as integer
      Crime as string
      LKL as string
      Sex as string
      Ethnicity as string
   Endtype
   Dim fbi(200) as fbid
rem number of current entrys
index = 0

do
         cls

         input "Enter a new entry[y/n]: ", a$

         if a$ = "y"
              inc index, 1
              input "Enter the suspect's name: ", FBI(index).name
               input "Enter the suspect's phone number: ", FBI(index).phone
               input "Enter the suspect's age: ", FBI(index).age
               input "Enter the suspect's crime(s): ", FBI(index).crime
               input "Enter the suspect's Last Known Location: ", FBI(index).LKL
              input "Enter the suspect's sex: ", FBI(index).sex
              input "Enter the suspect's ethnicity: ", FBI(index).ethnicity
         endif

         if a$ = "n"
               rem quit program
               end
         endif
loop

1:
filename$ = "fbiDatabase"

if file exist(filename$)=1 then delete file filename$

open to write 1, filename$


write word 1, index

for i = 1 to index
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
         write string 1, "fbi"
next i

close file 1

if file exist(filename$)=1

open to read 1, filename$

read word 1, index

for i = 1 to index
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
read string 1, "fbi"
next i

close file 1

endif

Also, the "0:" is supposed to be when you type "3" in the menu you can add a new entry...Functions won't work for some reason, they just make it not be able to read the code for some reason. But yeah, if anyone can help me on those two things I'd much appreciate it. Thanks.

Rise from the fallen ashes.

Back to top

Profile PM

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 18th Jul 2009 13:18

Link

the first problem (Name$), it says that that variable does not exist?
if it does, you might have to create it. just Dim name$(200) is enough. but if you're gonna print it, it's gonna be all empty, so don't forget to fill it. And gosubs are just as fine as functions, just be sure you don't use... *tamtamtaaaam* GOTO's! those things are nearly illegal!

Oh No, there's too much blood in my caffeine system!
Stack Overflow: Too many pancakes...
The programmer's national anthem is 'AAAAAAAAHHHHHHHH'. -Weinberg, p.152

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 18th Jul 2009 21:05 Edited at: 18th Jul 2009 21:09

Link

Quote: "I've tried to make it work and I was successful up until it told me that I didn't have "name$" anywhere in the code, so I just gave up."

Just as Bobbel said it doesn't exist. Since you use a User Defined Type there's no need for name$() so you can just get rid of it.

Quote: "Also, the "0:" is supposed to be when you type "3" in the menu you can add a new entry...Functions won't work for some reason, they just make it not be able to read the code for some reason. But yeah, if anyone can help me on those two things I'd much appreciate it. Thanks."

I imagine functions won't work for you because you use the variable index. To make it work inside functions you can set the variable to GLOBAL by typing (without quotes) "global index".

Looking at your code... you don't have to define the User Defined Type every time you want to use it. It needs to just go at the top of the code and only defined once... under it should be any GLOBALs.

You were on the right track with saving/loading the data but you needed to type out the UDTs instead of saving "fbi"... all that does is save the text "fbi". And because Age is an integer it needs to be saved with the STR$() command to convert an integer to a string. When you load Age it needs a temporary string (like a$) to store the string till it's converted back to an integer or float with the VAL() command.

The one thing that was annoying is when the user hits 3 to type in a new entry it asks again if the user wants to add a new entry. This is the same as asking twice... if the first answer is yes there's no need to ask again. Also if they say No it doesn't give the user the opportunity to save the data before quitting. So if they accidentally hit No after typing in a hour of entries... all that work is gone. It's best to keep the only exit on the main menu.

Since you used GOTO and I'm SO against it I rewrote your code to use functions instead of the GOTO statement. GOTO while a good command to use when your first learning programming once you learn about GOSUB and functions you should avoid GOTO at all costs.

` Define the UDT
Type fbid
   Name as string
   Phone as string
   Age as integer
   Crime as string
   LKL as string
   Sex as string
   Ethnicity as string
Endtype

` Dimentionalize the UDT
Dim fbi(200) as fbid

` Make the variable index global so it works inside functions
global index

` Set the starting index number (because input adds 1)
index=-1

do
 
 cls
 Print "---*Welcome to the SAFBI Criminal Database*---"
 print ""
 Print "1. Load Up Criminal Files"
 Print "2. Save Current Entries"
 Print "3. Add new entry"
 Print "4. View Last Entry"
 Print "5. Logout"
 print ""
 input "Select an option by number: ";option$
 
 if option$ = "1" then LoadData("fbiDatabase")
 if option$ = "2" then SaveData("fbiDatabase")
 if option$ = "3" then InputData()
 if option$ = "4" then ShowData()
 if option$ = "5" then end

loop

` Always put an END before the first function
end

function InputData()

cls
 inc index
 input "Enter the suspect's name: ", FBI(index).name
 input "Enter the suspect's phone number: ", FBI(index).phone
 input "Enter the suspect's age: ", FBI(index).age
 input "Enter the suspect's crime(s): ", FBI(index).crime
 input "Enter the suspect's Last Known Location: ", FBI(index).LKL
 input "Enter the suspect's sex: ", FBI(index).sex
 input "Enter the suspect's ethnicity: ", FBI(index).ethnicity

endfunction

function ShowData()

cls
 print "Current Index #"+str$(index)
 print ""
 print "Name: "+fbi(index).Name
 print "Phone: "+fbi(index).Phone
 print "Age: "+str$(fbi(index).Age)
 print "Crime(s): "+fbi(index).Crime
 print "Last Known Location: "+fbi(index).LKL
 print "Sex: "+fbi(index).Sex
 print "Ethnicity: "+fbi(index).ethnicity
 ` Wait for a keypress
 wait key

endfunction

function LoadData(File$)

open to read 1, File$

read word 1, index

for i = 0 to index
         read string 1,fbi(i).Name
         read string 1,fbi(i).Phone
         read string 1,a$
         ` Make age the value of a$
         fbi(i).Age=val(a$)
         read string 1,fbi(i).Crime
         read string 1,fbi(i).LKL
         read string 1,fbi(i).Sex
         read string 1,fbi(i).Ethnicity
 	 read string 1,""
 next i

close file 1

endfunction

function SaveData(File$)

if file exist(File$) then delete file File$

open to write 1, File$

write word 1, index

for i = 0 to index
         write string 1,fbi(i).Name
         write string 1,fbi(i).Phone
         ` Save a string version of the integer Age
         write string 1,str$(fbi(i).Age)
         write string 1,fbi(i).Crime
         write string 1,fbi(i).LKL
         write string 1,fbi(i).Sex
         write string 1,fbi(i).Ethnicity
         write string 1,""
 next i

close file 1

endfunction

+ Code Snippet

` Define the UDT
Type fbid
   Name as string
   Phone as string
   Age as integer
   Crime as string
   LKL as string
   Sex as string
   Ethnicity as string
Endtype

` Dimentionalize the UDT
Dim fbi(200) as fbid

` Make the variable index global so it works inside functions
global index

` Set the starting index number (because input adds 1)
index=-1

do
 
 cls
 Print "---*Welcome to the SAFBI Criminal Database*---"
 print ""
 Print "1. Load Up Criminal Files"
 Print "2. Save Current Entries"
 Print "3. Add new entry"
 Print "4. View Last Entry"
 Print "5. Logout"
 print ""
 input "Select an option by number: ";option$
 
 if option$ = "1" then LoadData("fbiDatabase")
 if option$ = "2" then SaveData("fbiDatabase")
 if option$ = "3" then InputData()
 if option$ = "4" then ShowData()
 if option$ = "5" then end

loop

` Always put an END before the first function
end


function InputData()

 cls
 inc index
 input "Enter the suspect's name: ", FBI(index).name
 input "Enter the suspect's phone number: ", FBI(index).phone
 input "Enter the suspect's age: ", FBI(index).age
 input "Enter the suspect's crime(s): ", FBI(index).crime
 input "Enter the suspect's Last Known Location: ", FBI(index).LKL
 input "Enter the suspect's sex: ", FBI(index).sex
 input "Enter the suspect's ethnicity: ", FBI(index).ethnicity

endfunction


function ShowData()

 cls
 print "Current Index #"+str$(index)
 print ""
 print "Name: "+fbi(index).Name
 print "Phone: "+fbi(index).Phone
 print "Age: "+str$(fbi(index).Age)
 print "Crime(s): "+fbi(index).Crime
 print "Last Known Location: "+fbi(index).LKL
 print "Sex: "+fbi(index).Sex
 print "Ethnicity: "+fbi(index).ethnicity
 ` Wait for a keypress
 wait key

endfunction


function LoadData(File$)

 open to read 1, File$

 read word 1, index

 for i = 0 to index
         read string 1,fbi(i).Name
         read string 1,fbi(i).Phone
         read string 1,a$
         ` Make age the value of a$
         fbi(i).Age=val(a$)
         read string 1,fbi(i).Crime
         read string 1,fbi(i).LKL
         read string 1,fbi(i).Sex
         read string 1,fbi(i).Ethnicity
 	 read string 1,""
 next i

 close file 1

endfunction


function SaveData(File$)

 if file exist(File$) then delete file File$

 open to write 1, File$

 write word 1, index

 for i = 0 to index
         write string 1,fbi(i).Name
         write string 1,fbi(i).Phone
         ` Save a string version of the integer Age
         write string 1,str$(fbi(i).Age)
         write string 1,fbi(i).Crime
         write string 1,fbi(i).LKL
         write string 1,fbi(i).Sex
         write string 1,fbi(i).Ethnicity
         write string 1,""
 next i

 close file 1

endfunction

Back to top

Profile PM Email

DethFenix

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location:

Posted: 18th Jul 2009 21:27

Link

Okay. Thanks so much for the help guys!

I really appreciate it.

Rise from the fallen ashes.

Back to top

Profile PM

DethFenix

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location:

Posted: 18th Jul 2009 22:41

Link

One more question, is there a way I can have people load up entries? Like instead of making the last entry viewable, is there a way possible to have them select which entry number they can view?

Rise from the fallen ashes.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Jul 2009 00:27

Link

Yeah, you can put the printing of the records in it's own DO/LOOP and check for the arrow keys to increase or decrease the current record being shown (any variable instead of index will do)... just be sure to add a way for the user to EXIT the DO/LOOP so it goes back to the main DO/LOOP.

Back to top

Profile PM Email

DethFenix

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location:

Posted: 19th Jul 2009 03:00

Link

Alright. Sorry for all the questions...But how does this look?

SET TEXT FONT "Oloron"
set text size 13
` Define the UDT
Type fbid
   Name as string
   Phone as string
   Age as string
   Crime as string
   Crime2 as string
   Crime3 as string
   LKL as string
   Sex as string
   Ethnicity as string
   GangName as string
   Colors as string
   Leader as string
   Terrortories as string
   Years as string
   Colors as string
   Operations as string
   Graffiti as string
   Allies as string
   Enemies as string
Endtype

` Dimentionalize the UDT
Dim fbi(200) as fbid

ink rgb (0,0,225),0

` Make the variable index global so it works inside functions
global index

` Set the starting index number (because input adds 1)
index=-1
do
 cls
 Print "---*Welcome to the SAFBI Criminal Database*---"
 print ""
 Print "1. Load Up Criminal Files"
 Print "2. Save Current Entries"
 Print "3. Add new entry"
 Print "4. View Last Entry"
 Print "5. List of Gangs"
 Print "6. Log Out"
 input "Select an option by number: ";option$

if option$ = "1" then LoadData("fbiDatabase")
 if option$ = "2" then SaveData("fbiDatabase")
 if option$ = "3" then InputData()
 if option$ = "4" then ShowData()
 if option$ = "5" then ShowGangs()
 if option$ = "6" then print "Logging out..."

loop

` Always put an END before the first function

function InputData()

cls
 inc index
 input "Enter the suspect's name: ", FBI(index).name
 input "Enter the suspect's phone number: ", FBI(index).phone
 input "Enter the suspect's age: ", FBI(index).age
 input "Enter the suspect's crime(s): ", FBI(index).crime
 input "Crime(s) 2: ", FBI(index).crime2
 input "Crime(s) 3: ", FBI(index).crime3
 input "Enter the suspect's Last Known Location: ", FBI(index).LKL
 input "Enter the suspect's sex: ", FBI(index).sex
 input "Enter the suspect's ethnicity: ", FBI(index).ethnicity
 ShowData()

endfunction

function ShowData()
DO
 cls
 print "Current Index #"+str$(index);UPKEY()
 print ""
 print "Name: "+fbi(index).Name
 print "Phone: "+fbi(index).Phone
 print "Age: "+fbi(index).Age
 print "Crime(s): "+fbi(index).Crime
 print "Crime(s) 2: "+fbi(index).Crime2
 print "Crime(s) 3: "+fbi(index).Crime3
 print "Last Known Location: "+fbi(index).LKL
 print "Sex: "+fbi(index).Sex
 print "Ethnicity: "+fbi(index).ethnicity
 ` Wait for a keypress
 input "To go back type in goback: ";a$
 if a$ = "goback" then exit
loop

endfunction

function LoadData(File$)

open to read 1, File$

read word 1, index

for i = 0 to index
         read string 1,fbi(i).Name
         read string 1,fbi(i).Phone
         read string 1,fbi(i).Age
         ` Make age the value of a$
         read string 1,fbi(i).Crime
         read string 1,fbi(i).Crime2
         read string 1,fbi(i).Crime3
         read string 1,fbi(i).LKL
         read string 1,fbi(i).Sex
         read string 1,fbi(i).Ethnicity
     read string 1,""
 next i

close file 1

endfunction

function SaveData(File$)

if file exist(File$) then delete file File$

open to write 1, File$

write word 1, index

for i = 0 to index
         write string 1,fbi(i).Name
         write string 1,fbi(i).Phone
         ` Save a string version of the integer Age
         write string 1,fbi(i).Age
         write string 1,fbi(i).Crime
         write string 1,fbi(i).Crime2
         write string 1,fbi(i).Crime3
         write string 1,fbi(i).LKL
         write string 1,fbi(i).Sex
         write string 1,fbi(i).Ethnicity
         write string 1,""
 next i

close file 1

endfunction

global index

function ShowGangs()
cls
print "What would you like to do?"
wait 2000
cls
print "---*Gangs*---"
print "1. Add a new Gang entry"
print "2. View Last Gang Entry"
print "3. View known gangs"
print "4. Save Current Gang Entries"
print "5. Load Gang Entries"
print "6. Go to Login Screen"
print "7. Show Gang Entry"
input "Select an option by number: ";opt$

if opt$ = "1" then AddNewGang()
if opt$ = "2" then ShowGangData()
if opt$ = "3" then ViewKnownGangs()
if opt$ = "4" then SaveData("fbiDatabaseGangs")
if opt$ = "5" then LoadData("fbiDatabaseGangs")
if opt$ = "6" then SaveData("fbiDatabaseGangs")

endfunction

function ViewKnownGangs()
cls

Print "---*FBI Database*---"
Print "List of Known Gangs:"
wait 2000
Print "Los Aztecas"
wait 2000
Print "Grove Street Families"
wait 2000
Print "Ballas"
wait 2000
Print "Russian Mafia"
wait 2000
Print "Vercetti Crime Family"
wait 2000
Print "Underground Racers"
wait 2000
Print "Contract Killers/The Hitmen"
wait 2000
Print "Yakuza"
wait 2000
Print "Los Santos Pimps"
wait key
 ShowGangs()

endfunction

function AddNewGang()

cls

cls
 inc index
 input "Enter the Gang's name: ", fbi(index).GangName
 input "Enter the known or suspected leader: ", fbi(index).Leader
 input "Enter Terrortories: ", fbi(index).Terrortories
 input "Enter years of operation: ", fbi(index).Years
 input "Colors: ", fbi(index).Colors
 input "Enter the Gang's known activities: ", fbi(index).Operations
 input "Enter Gang's known Graffiti: ", fbi(index).Graffiti
 input "Enter the Gang's allies: ", fbi(index).Allies
 input "Enter the Gang's Enemies: ", fbi(index).Enemies

wait key
  ShowGangs()

endfunction

function ShowGangData()

cls
 print "Current Entry #"+str$(index)
 print ""
 print "Gang's Name: "+fbi(index).GangName
 print "Gang's Leader: "+fbi(index).Leader
 print "Gang's Terrortories: "+fbi(index).Terrortories
 print "Years in Operation: "+fbi(index).Years
 print "Gang's Colors: "+fbi(index).Colors
 print "Known Activities: "+fbi(index).Operations
 print "Known Graffiti: "+fbi(index).Graffiti
 print "Known Allies: "+fbi(index).Allies
 print "Known Enemies: "+fbi(index).Enemies
 ` Wait for a keypress
 wait key
  ShowGangs()

endfunction

function SDFile$)

if file exist(File$) then delete file File$

open to write 1, File$

write word 1, index

for i = 0 to index
         write string 1,fbi(i).GangName
         write string 1,fbi(i).Leader
         ` Save a string version of the integer Age
         write string 1,fbi(i).Terrortories
         write string 1,fbi(i).Years
         write string 1,fbi(i).Colors
         write string 1,fbi(i).Operations
         write string 1,fbi(i).Graffiti
         write string 1,fbi(i).Allies
         write string 1,fbi(i).Enemies
         write string 1,""
 next i

close file 1

endfunction

function LD(File$)

open to read 1, File$

read word 1, index

for i = 0 to index
         read string 1,fbi(i).GangName
         read string 1,fbi(i).Leader
         read string 1,fbi(i).Terrortories
         ` Make age the value of a$
         read string 1,fbi(i).Years
         read string 1,fbi(i).Colors
         read string 1,fbi(i).Operations
         read string 1,fbi(i).Graffiti
         read string 1,fbi(i).Allies
         read string 1,fbi(i).Enemies
     read string 1,""
 next i

close file 1

ShowGangs()

endfunction

+ Code Snippet

SET TEXT FONT "Oloron"
set text size 13
` Define the UDT
Type fbid
   Name as string
   Phone as string
   Age as string
   Crime as string
   Crime2 as string
   Crime3 as string
   LKL as string
   Sex as string
   Ethnicity as string
   GangName as string
   Colors as string
   Leader as string
   Terrortories as string
   Years as string
   Colors as string
   Operations as string
   Graffiti as string
   Allies as string
   Enemies as string
Endtype

` Dimentionalize the UDT
Dim fbi(200) as fbid

ink rgb (0,0,225),0

` Make the variable index global so it works inside functions
global index

` Set the starting index number (because input adds 1)
index=-1
do
 cls
 Print "---*Welcome to the SAFBI Criminal Database*---"
 print ""
 Print "1. Load Up Criminal Files"
 Print "2. Save Current Entries"
 Print "3. Add new entry"
 Print "4. View Last Entry"
 Print "5. List of Gangs"
 Print "6. Log Out"
 input "Select an option by number: ";option$

 if option$ = "1" then LoadData("fbiDatabase")
 if option$ = "2" then SaveData("fbiDatabase")
 if option$ = "3" then InputData()
 if option$ = "4" then ShowData()
 if option$ = "5" then ShowGangs()
 if option$ = "6" then print "Logging out..."

loop


` Always put an END before the first function


function InputData()

 cls
 inc index
 input "Enter the suspect's name: ", FBI(index).name
 input "Enter the suspect's phone number: ", FBI(index).phone
 input "Enter the suspect's age: ", FBI(index).age
 input "Enter the suspect's crime(s): ", FBI(index).crime
 input "Crime(s) 2: ", FBI(index).crime2
 input "Crime(s) 3: ", FBI(index).crime3
 input "Enter the suspect's Last Known Location: ", FBI(index).LKL
 input "Enter the suspect's sex: ", FBI(index).sex
 input "Enter the suspect's ethnicity: ", FBI(index).ethnicity
 ShowData()

endfunction


function ShowData()
DO
 cls
 print "Current Index #"+str$(index);UPKEY()
 print ""
 print "Name: "+fbi(index).Name
 print "Phone: "+fbi(index).Phone
 print "Age: "+fbi(index).Age
 print "Crime(s): "+fbi(index).Crime
 print "Crime(s) 2: "+fbi(index).Crime2
 print "Crime(s) 3: "+fbi(index).Crime3
 print "Last Known Location: "+fbi(index).LKL
 print "Sex: "+fbi(index).Sex
 print "Ethnicity: "+fbi(index).ethnicity
 ` Wait for a keypress
 input "To go back type in goback: ";a$
 if a$ = "goback" then exit
loop

endfunction


function LoadData(File$)

 open to read 1, File$

 read word 1, index

 for i = 0 to index
         read string 1,fbi(i).Name
         read string 1,fbi(i).Phone
         read string 1,fbi(i).Age
         ` Make age the value of a$
         read string 1,fbi(i).Crime
         read string 1,fbi(i).Crime2
         read string 1,fbi(i).Crime3
         read string 1,fbi(i).LKL
         read string 1,fbi(i).Sex
         read string 1,fbi(i).Ethnicity
     read string 1,""
 next i

 close file 1

endfunction


function SaveData(File$)



 if file exist(File$) then delete file File$

 open to write 1, File$

 write word 1, index

 for i = 0 to index
         write string 1,fbi(i).Name
         write string 1,fbi(i).Phone
         ` Save a string version of the integer Age
         write string 1,fbi(i).Age
         write string 1,fbi(i).Crime
         write string 1,fbi(i).Crime2
         write string 1,fbi(i).Crime3
         write string 1,fbi(i).LKL
         write string 1,fbi(i).Sex
         write string 1,fbi(i).Ethnicity
         write string 1,""
 next i

 close file 1

endfunction


global index


function ShowGangs()
cls
print "What would you like to do?"
wait 2000
cls
print "---*Gangs*---"
print "1. Add a new Gang entry"
print "2. View Last Gang Entry"
print "3. View known gangs"
print "4. Save Current Gang Entries"
print "5. Load Gang Entries"
print "6. Go to Login Screen"
print "7. Show Gang Entry"
input "Select an option by number: ";opt$

if opt$ = "1" then AddNewGang()
if opt$ = "2" then ShowGangData()
if opt$ = "3" then ViewKnownGangs()
if opt$ = "4" then SaveData("fbiDatabaseGangs")
if opt$ = "5" then LoadData("fbiDatabaseGangs")
if opt$ = "6" then SaveData("fbiDatabaseGangs")


endfunction

function ViewKnownGangs()
cls

Print "---*FBI Database*---"
Print "List of Known Gangs:"
wait 2000
Print "Los Aztecas"
wait 2000
Print "Grove Street Families"
wait 2000
Print "Ballas"
wait 2000
Print "Russian Mafia"
wait 2000
Print "Vercetti Crime Family"
wait 2000
Print "Underground Racers"
wait 2000
Print "Contract Killers/The Hitmen"
wait 2000
Print "Yakuza"
wait 2000
Print "Los Santos Pimps"
wait key
 ShowGangs()

endfunction


function AddNewGang()

cls




 cls
 inc index
 input "Enter the Gang's name: ", fbi(index).GangName
 input "Enter the known or suspected leader: ", fbi(index).Leader
 input "Enter Terrortories: ", fbi(index).Terrortories
 input "Enter years of operation: ", fbi(index).Years
 input "Colors: ", fbi(index).Colors
 input "Enter the Gang's known activities: ", fbi(index).Operations
 input "Enter Gang's known Graffiti: ", fbi(index).Graffiti
 input "Enter the Gang's allies: ", fbi(index).Allies
 input "Enter the Gang's Enemies: ", fbi(index).Enemies

 wait key
  ShowGangs()

 endfunction



 function ShowGangData()

 cls
 print "Current Entry #"+str$(index)
 print ""
 print "Gang's Name: "+fbi(index).GangName
 print "Gang's Leader: "+fbi(index).Leader
 print "Gang's Terrortories: "+fbi(index).Terrortories
 print "Years in Operation: "+fbi(index).Years
 print "Gang's Colors: "+fbi(index).Colors
 print "Known Activities: "+fbi(index).Operations
 print "Known Graffiti: "+fbi(index).Graffiti
 print "Known Allies: "+fbi(index).Allies
 print "Known Enemies: "+fbi(index).Enemies
 ` Wait for a keypress
 wait key
  ShowGangs()

 endfunction



function SDFile$)



 if file exist(File$) then delete file File$

 open to write 1, File$

 write word 1, index

 for i = 0 to index
         write string 1,fbi(i).GangName
         write string 1,fbi(i).Leader
         ` Save a string version of the integer Age
         write string 1,fbi(i).Terrortories
         write string 1,fbi(i).Years
         write string 1,fbi(i).Colors
         write string 1,fbi(i).Operations
         write string 1,fbi(i).Graffiti
         write string 1,fbi(i).Allies
         write string 1,fbi(i).Enemies
         write string 1,""
 next i

 close file 1

endfunction

function LD(File$)

 open to read 1, File$

 read word 1, index

 for i = 0 to index
         read string 1,fbi(i).GangName
         read string 1,fbi(i).Leader
         read string 1,fbi(i).Terrortories
         ` Make age the value of a$
         read string 1,fbi(i).Years
         read string 1,fbi(i).Colors
         read string 1,fbi(i).Operations
         read string 1,fbi(i).Graffiti
         read string 1,fbi(i).Allies
         read string 1,fbi(i).Enemies
     read string 1,""
 next i

 close file 1

 ShowGangs()

endfunction

I'm fairly new to the coding thing. Sorry again for the questions.

Rise from the fallen ashes.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Jul 2009 06:06

Link

It looks good. One thing you should probably do though is make two UDTs instead of one. Putting all individual people and all gang information in one UDT is probably a bad idea.

Simply putting UPKEY() next to the input does not make it detect the up arrow. It needs to be in an IF/THEN statement so you can tell it what to do when the up arrow is hit.

Like:

+ Code Snippet

 ` Check for up arrow and decrease CRecord
 if upkey() then dec CRecord

Use CRecord instead of index for printing the data. When the function is entered any variables not global or defined before their first used are automatically zero. Do the same for the down arrow but instead of decreasing CRecord increase it instead with the INC command. Be sure to add an IF/THEN to check if CRecord goes beyond what you want it to be. You don't want it to be less than zero or more than index. Use KEYSTATE() instead of the INPUT command in the ShowData function. INPUT stops all action so you won't have any time to hit the up or down arrow keys to cycle through the records. Here's a link to my KEYSTATE map. Every number under each key is the KEYSTATE number to use to detect that key.

http://mysite.verizon.net/grueslayer/Keystate.png

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Database help