TheGameCreators - CodeBase - AGS Address Database

Category: Complete Applications

Version: 1.0

Information

Uploaded: 12th Apr 2004 13:39

Modified: 1st Jan 1970 01:00

Author: AGS

Summary

This is a program which stores your address's, phone numbers etc and allows you to search and onpen files you have made with it.

Full Description

This program allows you to enter peoples information. Address, postcode, phone numbers etc then saves them as txt files in a folder it creates. You can then use it to search for files you have created and it dispays them for you. Instructions are on the tab menus Main Menu option.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart ***************************************************

************************************************************

************** AGS : Address Program ***********************

************************************************************

******************Aaron Gibson *****************************

************************************************************

remend *****************************************************

IF FILE EXIST("AGS/") = 1

goto abc

else

Make directory "AGS"

endif

ABC:

set window on

set window title "AGS: Address Database.v2"

set window size 580,284

set window layout 0,1,1

set window position 240,250

hide mouse

load image "2logosmall.bmp",4

load image "2box.bmp",3

load image "1logo.bmp",1

load image "1logo2.bmp",2

paste image 3,20,90

paste image 1,22,98

set cursor 240, 310

print "Todays Date: "; GetDate("long")

set cursor 160,290

`display the delay message

PRINT "Loading";

wait 1000

`delay for 2 seconds

SLEEP 500

PRINT ".";

SLEEP 500

PRINT ".";

SLEEP 500

PRINT ".";

SLEEP 500

PRINT ".";

wait 1000

date:

rem DATE

DATA "January","February","March","April","May","June"

DATA "July","August","September","October","November","December"

DIM Months$(12)

REM Fill the Months array

FOR N = 1 TO 12

READ Months$(N)

NEXT N

goto mini

end

FUNCTION GetDate(format$)

REM Initialize variables

Date$ = ""

Year$ = ""

Month = 0

Day = 0

REM Retrieve month, day, year

Year$ = "20" + RIGHT$(GET DATE$(), 2)

Month = VAL(LEFT$(GET DATE$(), 2))

Day = VAL(LEFT$(RIGHT$(GET DATE$(), 5), 2))

REM Return long date

IF format$ = "long"

Date$ = Months$(Month) + " " + STR$(Day)

Date$ = Date$ + ", " + Year$

ENDIF

ENDFUNCTION Date$

mini:

set window on

set window title "AGS: Address Database.v2"

set window layout 0,1,1

clear camera view 1

load image "5blue.bmp",5

paste image 5,190,20

load image "6black.bmp",6

paste image 6,230,125

set window size 200,280

load image "2logosmall.bmp",4

paste image 4,220,108

set cursor 253,210

ink rgb(255,255,255),0

print "DATABASE SYSTEM"

set window position 300,50

yes1_menu$="Add Address"

no11_menu$="Main Page"

yes11_menu$="Search System"

yes12_menu$="Close AGS Database"

x1=270

y1=300

x2=245

y2=250

x3=270

y3=280

x4=255

y4=340

h4=text height(yes12_menu$)

w4=text width(yes12_menu$)

h3=text height(yes1_menu$)

w3=text width(yes1_menu$)

h2=text height(no11_menu$)

w2=text width(no11_menu$)

h1=text height(yes11_menu$)

w1=text width(yes11_menu$)

` Text on Menu

if shiftkey()=1

GOTO small

endif

` If Yes is Clicked

if mousex()>=x1 and mousex()<=x1+w1 and mousey()>=y1 and mousey()<=y1+h1

ink rgb(0,232,0),0

rollover=2

if mouseclick()=1 then goto 4

else

ink rgb(255,255,255),0

rollover=1

endif

text x1,y1,yes11_menu$

` If Yes is Clicked

if mousex()>=x3 and mousex()<=x3+w3 and mousey()>=y3 and mousey()<=y3+h3

ink rgb(0,232,0),0

rollover=2

if mouseclick()=1 then goto 2

else

ink rgb(255,255,255),0

rollover=1

endif

text x3,y3,yes1_menu$

` If Yes is Clicked

if mousex()>=x4 and mousex()<=x4+w4 and mousey()>=y4 and mousey()<=y4+h4

ink rgb(200,0,0),0

rollover=2

if mouseclick()=1 then end

else

ink rgb(100,0,0),0

rollover=1

endif

text x4,y4,yes12_menu$

` If No is Clicked

if mousex()>=x2 and mousex()<=x2+w2 and mousey()>=y2 and mousey()<=y2+h2

ink rgb(0,232,0),0

rollover=2

if mouseclick()=1 then goto big_page

else

ink rgb(255,255,255),0

rollover=1

endif

text x2,y2,no11_menu$

loop

end

small:

set window size 178,60

set window layout 0,0,1

paste image 4,220,192

set window position 800,600

wait key

goto mini

set window on

set window title "New Address"

set window layout 0,1,1

ink rgb(255,255,255),0

clear camera view 1

set window size 300,250

set window position 100,100

load image "10logosmall.bmp",10

paste image 10,220,130

set cursor 200,250

Print "NEW USER LOG"

set cursor 200,290

input "Continue? Y/N : ";go$

if go$ = "yes"

goto ml

endif

goto mini

ML:

set window on

set window title "New Address"

set window layout 0,1,1

ink rgb(255,255,255),0

clear camera view 1

load image "7logo.bmp",7

paste image 7,120,10

set window position 100,100

set cursor 250,200

Print "ADDRESS DETAILS"

input "          Name: ";uname$

IF FILE EXIST("AGS/"+uname$+".txt") = 1

print "User name already authenicated"

wait 1000

print "Booting system.."

wait 2000

input "Replace user?  Y/N : ";replace$

if replace$ = "yes"

DELETE FILE "AGS/"+uname$+".txt"

goto passwords

endif

passwords:

clear camera view 1

set cursor 0,200

load image "7logo.bmp",7

paste image 7,120,10

input "          Age: ";a$

print "          ADDRESS"

input "          Line 1: ";dlevel$

input "          Line 2: ";dlevel2$

input "          Line 3: ";s$

input "          Town  : ";town$

input "          County: ";county$

input "          Postcode: ";pcode$

print "          Contact Numbers"

input "          Home Number: ";wness$

input "          Work Number: ";workn$

input "          Mobile Number: ";strong$

clear camera view 1

paste image 3, 310,-50

set cursor 0,100

OPEN TO WRITE 1, "AGS/"+ uname$ +".txt"

WRITE STRING 1,uname$

WRITE STRING 1,a$

WRITE STRING 1,dlevel$

WRITE STRING 1,dlevel2$

WRITE STRING 1,s$

WRITE STRING 1,Town$

WRITE STRING 1,county$

WRITE STRING 1,pcode$

WRITE STRING 1,wness$

WRITE STRING 1,workn$

WRITE STRING 1,strong$

CLOSE FILE 1

PRINT "         Creating the file."

wait 1000

PRINT "         Now clearing the Variables"

uname$ = uname$

pword$ = ""

PRINT "         Variables are cleared!"

PRINT "         Now reading the data from the file."

OPEN TO READ 1,"AGS/"+uname$+".txt"

READ STRING 1, uname$

READ STRING 1, a$

READ STRING 1, dlevel$

READ STRING 1, dlevel2$

READ STRING 1, s$

READ STRING 1, Town$

READ STRING 1, County$

READ STRING 1, pcode$

READ STRING 1, wness$

READ STRING 1, workn$

READ STRING 1, strong$

print "          DETAILS:"

PRINT "             New user: "+ uname$

print "             ADDRESS"

print "            "+dlevel$

print "            "+dlevel2$

print "            "+s$

print "            "+Town$

print "            "+County$

print "            "+Pcode$

print "            "+wness$

print "            "+workn$

print "            "+strong$

close file 1

wait key

goto mini

end

big_page:

ink rgb(255,255,255),0

clear camera view 1

set window off

load image "8fire.bmp",8

paste image 8,20,260

load image "7logo.bmp",7

paste image 7,-1,0

ink rgb(255,255,255),0

set text size 30

center text 180,200, "Instructions"

set text size 10

set cursor 0,250

print "AGS: ADDRESS DATABASE"

print "This database stores all information in"

print "text documents outside the program in"

print "folder "AGS" for easy access"

print "Use the links to input and display data"

print "from the database"

print "To start using the database, follow the"

print "link back to tab menu"

load image "9menu.bmp",9

paste image 9,370,195

wait key

ink rgb(255,255,255),0

clear camera view 1

load image "8fire.bmp",8

paste image 8,20,260

load image "7logo.bmp",7

paste image 7,-1,0

ink rgb(255,255,255),0

set text size 30

center text 180,200, "Instructions"

set text size 10

load image "9menu.bmp",9

paste image 9,370,195

set cursor 0,250

print "AGS: ADDRESS DATABASE"

print "The tab menu controls the whole system"

print "When the program is not in use you can"

print "minamize it to a small rectangle in the""

print "corner of the screen by pressing the"

print "shift key"

print "To start using the database, follow the"

print "link back to tab menu"

menu$="Tab Menu"

x2=160

y2=450

h2=text height(menu$)

w2=text width(menu$)

` If No is Clicked

if mousex()>=x2 and mousex()<=x2+w2 and mousey()>=y2 and mousey()<=y2+h2

ink rgb(0,232,0),0

rollover=2

if mouseclick()=1 then goto mini

else

ink rgb(255,255,255),0

rollover=1

endif

text x2,y2,menu$

loop

end

ccd:

close file 1

ink rgb(255,255,255),0

clear camera view 1

SET window on

set window title "Address Search"

set window layout 0,1,1

load image "7logo.bmp",7

paste image 7,200,10

set window position 100,100

set cursor 0,200

print " ADDRESS LOG SEARCH"

PRINT "   INSTRUCTIONS"

print "         To use this part of the program you have to"

print "         enter a name."

print "         If the name is in the log files then their"

print "         details will be displayed."

print "         If the name is not in the log files then"

Print "         you will have the option to add them"

find:

input "  Search name: " ; putin$

print "  Searching......"

wait 1000

IF FILE EXIST("AGS/"+putin$+".txt") = 1

open to read 1, "AGS/"+putin$+".txt"

goto ab

else

set cursor 350,300

print "Name does'nt exit"

nm:

set cursor 350,340

input "Create user  Y/N?: ";ans$

if ans$ = "yes"

goto ML

endif

goto 4

endif

ab:

READ STRING 1,name1$

READ STRING 1,age1$

read STRING 1,add1$

read STRING 1,add2$

read STRING 1,add3$

read STRING 1,town$

read STRING 1,county$

read string 1,pcode$

read STRING 1,number$

read string 1,workn$

read STRING 1,mobile$

clear camera view 1

load image "7logo.bmp",7

paste image 7,200,100

set cursor 0,30

print "  LOG FOUND"

print "  Details:"

print "  Name: " + name1$

print "  Age: " + age1$

print "  ADDRESS"

print "    "+add1$

print "    "+add2$

print "    "+add3$

print "    "+town$

print "    "+county$

print "    "+pcode$

print "  CONTACT NUMBERS"

print "  Home Number: " + number$

print "  Work Number: " + workn$

print "  Mobile: " + mobile$

close file 1

yes1_menu$="Search again"

no11_menu$="Tab Menu"

x2=200

y2=420

w2=text width(no11_menu$)

h2=text height(no11_menu$)

x3=350

y3=420

w3=text width(yes1_menu$)

h3=text height(yes1_menu$)

` Text on Menu

` If Yes is Clicked

if mousex()>=x3 and mousex()<=x3+w3 and mousey()>=y3 and mousey()<=y3+h3

ink rgb(0,232,0),0

rollover=2

if mouseclick()=1 then goto 4

else

ink rgb(255,255,255),0

rollover=1

endif

text x3,y3,yes1_menu$

` If No is Clicked

if mousex()>=x2 and mousex()<=x2+w2 and mousey()>=y2 and mousey()<=y2+h2

ink rgb(0,232,0),0

rollover=2

if mouseclick()=1 then goto mini

else

ink rgb(255,255,255),0

rollover=1

endif

text x2,y2,no11_menu$

loop

end

wait key

Download

Please login to download

Comments

No comments yet.

Author Name:	AGS
CodeBase Entries:	1

CodeBase - AGS Address Database

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments