Page 1 of 1

Can anyone post me a sample program!

Posted: Wed Oct 06, 2010 7:04 am
by Suraj Joshi
Can anyone post me(or tell me where i can find) a qbasic sample program
which have following Features:-
1.Written in modular form.
2.Menu Based
3.Have capability to save data in files.
4.Kinda data managing program.
5.And lastly not very simple but complex.


Thanks :D

Posted: Wed Oct 06, 2010 8:30 pm
by burger2227
What kind of data?

What kind of file? CSV or what?

Need more info. My demonstrator (Q-Basics) shows how to do many things in QB or QB64. QB64 is compatible with newer computers.

http://dl.dropbox.com/u/8440706/Q-Basics.zip

Ted

Posted: Wed Oct 06, 2010 11:21 pm
by bongomeno
my guess is that he has some class where he is supposed to make some sort of menu based general purpose database (phonebook?).

Posted: Thu Oct 07, 2010 12:22 am
by burger2227
Well I won't do homework for anybody, that's for sure!

Ya never know for sure though.

Haven't seen you around much Bongo, where ya been?

:D

Posted: Sun Oct 10, 2010 1:11 am
by Suraj Joshi
Yeh ! Bongomeno u r right ( some sort of menu based general purpose database ). Its a project work but i dont know what to make, a phonebook
or other of the same kind so i needed some sample programs to get help.
Can u post it or any url . Any idea or suggestions what to make would be
appreciated. Thanks

Posted: Sun Oct 10, 2010 5:09 am
by burger2227

Code: Select all


'Demo using a TYPE definition to create a file
 '*****************
TYPE ClientType
   CName AS STRING * 30     '30 bytes
   Address AS STRING * 30   '30 bytes 
   City   AS STRING * 15    '15 bytes
   State  AS STRING * 2     ' 2 bytes
   Zip    AS STRING * 5     ' 5 bytes
END TYPE      ' total size = 82 bytes
DIM Client AS ClientType
RecordLEN = LEN(Client)       'find the size of each TYPE record

OPEN "ADDRESS.DAT" FOR RANDOM AS #1 LEN = RecordLEN
RESTORE ClientData         'restore to start of DATA
record = 0
DO
   READ CName$, Address$, City$, State$, Zip$       'read DATA
   IF CName$ = "END" THEN EXIT DO
   record = record + 1               'increment record number
   Client.CName = CName$          
   Client.Address = Address$
   Client.City = City$
   Client.State = State$
   Client.Zip = Zip$
   PUT #1, record, Client     'PUT by record number
LOOP
CLOSE #1
END

ClientData:
   DATA "Bob White","104 Birdland Rd.","Bellview","PA","15236"
   DATA "Ward Cleaver","123 W. Beaver St.","Beaver","PA","15255"
   DATA "Elmer Fudd","45 Wabbit St.","Bethel Park","PA","15022"
   DATA "Wyley Coyote","33 Roadrunner Ave.","Clairton","PA","15122"
   DATA "Jim Morrison","19 Doorway Dr.","Belleview","PA","15236"
   DATA "END",0,0,0,0,0  

Code: Select all

'Demo of the FIELD statement to read the file
'*********************************************************************
' Define field and record lengths with constants.
CONST NM = 30, AD = 30, CT = 15, ST = 2, ZC = 5
CONST RLEN = NM + AD + CY + ST + ZC
'
OPEN "ADDRESS.DAT" FOR RANDOM AS #1 LEN = RLEN
FIELD #1, NM AS CName$, AD AS Address$, CY AS City$, ST AS State$, ZC AS Zip$
FIELD #1, RLEN AS Clist$         'define entire record

GET #1, 1                  'GET does not need a variable to read FIELD records!
                                  'Read file for zip codes from 15230 to 15239 .
DO WHILE NOT EOF(1)
   ZipCheck$ = Zip$                            'read zip codes
   IF (ZipCheck$ >= "15230" AND ZipCheck$ <= "15239") THEN
      Info$ = Clist$
      PRINT LEFT$(Info$, 30)     'read name string
      PRINT MID$(Info$, 31, 30)  'read address string
      PRINT RIGHT$(Info$, 17)    'read city, state and zip code
      PRINT
   END IF
   GET #1                               'simply GET reads each FIELD record after first
LOOP
CLOSE #1
END

Posted: Sun Oct 10, 2010 8:26 pm
by Suraj Joshi
Thanks ! It will be useful.