06-28-2004, 02:16 AM
hey, 1st, why do i get an error when i run this? and how can i not use numbers as records but instead names. better yet haw can i save things in catagories and display whole catagories at one time? how would i implement an erasing a frequency tool in there, its a database program to store my millitary HF frequencies.
edit : sorry on the spelling^^ :bounce:
edit : sorry on the spelling^^ :bounce:
Code:
' DEVELOPED AND CREATED BY HAMFREAK2002
TYPE freq
fq AS LONG
nm AS STRING * 60
dis AS STRING * 80
END TYPE
DIM channel AS freq
mm:
PRINT "1) Add a record"
PRINT "2) View a record"
PRINT "3) Quit"
INPUT "What would you like to do "; mmchc$
IF mmchc$ = "1" THEN GOTO addrec
IF mmchc$ = "2" THEN GOTO viewrec
IF mmchc$ = "3" THEN END
addrec:
OPEN "freqprog,dat" FOR RANDOM AS #1
INPUT "Record"; record
INPUT "Frequencey"; channel.fq
INPUT "Name of station"; channel.nm
INPUT "Other Notes"; channel.dis
PUT 1, record, channel
CLOSE #1
GOTO mm
viewrec:
CLS
INPUT "what record to view"; record
GET 1, record, channel
PRINT " "
PRINT "Record: "; record
PRINT "Frequency: "; channel.fq
PRINT "Name of station: "; channel.nm
PRINT "Notes: "; channel.dis
SLEEP
GOTO mm