03-06-2005, 08:39 PM
I updated everything. Meg thanks for all your help....
Also: That dim shared thing doesn't work so i didn't use it
Here is the update
DECLARE SUB editvid ()
DECLARE SUB addvid ()
DECLARE SUB delvid ()
DECLARE SUB listvid ()
DECLARE SUB searchvid ()
DECLARE SUB LEAVE ()
DECLARE SUB mainmenu ()
TYPE videotype
id AS INTEGER
vidname AS STRING * 50
vidgenre AS STRING * 50
vidactor AS STRING * 50
vidratin AS STRING * 50
END TYPE
DIM vid AS videotype
CLS
mainmenu
SUB addvid
DIM vid AS videotype
OPEN "vid.dat" FOR RANDOM AS #1 LEN = LEN(vid)
DO UNTIL response$ = "n"
INPUT "please enter video's barcode number", id
vid.id = id
INPUT "enter name of video", vid.vidname
INPUT "enter main actor of film", vid.vidactor
INPUT "enter rating of video ?/10 ", vid.vidratin
INPUT "enter genre of the movie being borrowed", vid.vidgenre
PRINT "you added a new video"
PUT #1, id, vid
INPUT "do you want to add any another videos? y-Yes, n-No ", response$
LOOP
CLOSE #1
END SUB
SUB delvid
DIM vids AS videotype
END SUB
SUB editvid
END SUB
SUB LEAVE
PRINT "Goodbye user!!!!!"
END SUB
SUB listvid
END SUB
SUB mainmenu
COLOR 10
20 PRINT "WELCOME TO VIDEOTRONICS DATABASE"
30 PRINT "Please Select an Option from below"
40 PRINT "1 - To add a new video"
50 PRINT "2 - Delete a video"
60 PRINT "3 - List all videos"
70 PRINT "4 - search a video"
80 PRINT "5 - Edit video details"
90 PRINT "6 - EXIT DATABASE "
100 INPUT C
SELECT CASE C
CASE IS = 1
addvid
CASE IS = 2
delvid
CASE IS = 3
listvid
CASE IS = 4
searchvid
CASE IS = 5
editvid
CASE IS = 6
LEAVE
CASE ELSE
PRINT "You inserted an invalid option"
GOTO 100
260 END SELECT
END SUB
SUB searchvid
DIM vid AS videotype
CLS
DO UNTIL response$ = "n"
INPUT "please enter video's bar code number", id
vid.id = id
OPEN "vid.dat" FOR RANDOM AS #1
GET #1, id, vid
PRINT "This is the video's name", vid.vidname
PRINT "this is the video's genre", vid.vidgenre
PRINT " this is the video's main actor", vid.vidactor
PRINT "this is the video's rating", vid.vidratin
INPUT " Do you wish to search for another record?", response$
LOOP
CLOSE #1
END SUB
Meg could you also give me a tip on what i should do for the delete sub and the list sub. I wanna make sure that my idea is precise.
PS: I was just looking at the marking scheme for this project, it goes for 30% of part of our final exams. And guess what, this program is like 5 marks only. But without it we won't be able to do the rest.
Also: That dim shared thing doesn't work so i didn't use it
Here is the update
DECLARE SUB editvid ()
DECLARE SUB addvid ()
DECLARE SUB delvid ()
DECLARE SUB listvid ()
DECLARE SUB searchvid ()
DECLARE SUB LEAVE ()
DECLARE SUB mainmenu ()
TYPE videotype
id AS INTEGER
vidname AS STRING * 50
vidgenre AS STRING * 50
vidactor AS STRING * 50
vidratin AS STRING * 50
END TYPE
DIM vid AS videotype
CLS
mainmenu
SUB addvid
DIM vid AS videotype
OPEN "vid.dat" FOR RANDOM AS #1 LEN = LEN(vid)
DO UNTIL response$ = "n"
INPUT "please enter video's barcode number", id
vid.id = id
INPUT "enter name of video", vid.vidname
INPUT "enter main actor of film", vid.vidactor
INPUT "enter rating of video ?/10 ", vid.vidratin
INPUT "enter genre of the movie being borrowed", vid.vidgenre
PRINT "you added a new video"
PUT #1, id, vid
INPUT "do you want to add any another videos? y-Yes, n-No ", response$
LOOP
CLOSE #1
END SUB
SUB delvid
DIM vids AS videotype
END SUB
SUB editvid
END SUB
SUB LEAVE
PRINT "Goodbye user!!!!!"
END SUB
SUB listvid
END SUB
SUB mainmenu
COLOR 10
20 PRINT "WELCOME TO VIDEOTRONICS DATABASE"
30 PRINT "Please Select an Option from below"
40 PRINT "1 - To add a new video"
50 PRINT "2 - Delete a video"
60 PRINT "3 - List all videos"
70 PRINT "4 - search a video"
80 PRINT "5 - Edit video details"
90 PRINT "6 - EXIT DATABASE "
100 INPUT C
SELECT CASE C
CASE IS = 1
addvid
CASE IS = 2
delvid
CASE IS = 3
listvid
CASE IS = 4
searchvid
CASE IS = 5
editvid
CASE IS = 6
LEAVE
CASE ELSE
PRINT "You inserted an invalid option"
GOTO 100
260 END SELECT
END SUB
SUB searchvid
DIM vid AS videotype
CLS
DO UNTIL response$ = "n"
INPUT "please enter video's bar code number", id
vid.id = id
OPEN "vid.dat" FOR RANDOM AS #1
GET #1, id, vid
PRINT "This is the video's name", vid.vidname
PRINT "this is the video's genre", vid.vidgenre
PRINT " this is the video's main actor", vid.vidactor
PRINT "this is the video's rating", vid.vidratin
INPUT " Do you wish to search for another record?", response$
LOOP
CLOSE #1
END SUB
Meg could you also give me a tip on what i should do for the delete sub and the list sub. I wanna make sure that my idea is precise.
PS: I was just looking at the marking scheme for this project, it goes for 30% of part of our final exams. And guess what, this program is like 5 marks only. But without it we won't be able to do the rest.
ill Gates time is almost up.... i am taking over