|
Post by brisray on Aug 16, 2005 6:54:20 GMT -5
Those faces are weird aren't they? People see all sorts of images in those pictures.
Ray
|
|
|
Post by brisray on Jun 21, 2005 20:52:34 GMT -5
All i know about Bristol's White City is that there was an exhibition called this in Ashton in 1914. There's a picture of it at brisray.com/bristol/bhelp1.htmRay
|
|
|
Post by brisray on May 2, 2005 17:21:53 GMT -5
Many thanks for that Kevin. I looked on the OS maps for 1902 and couldn't find either Harford Square or Laura Place.
The maps do show a huge public wash and bath house in Mayor Street and just north of both places, but still just behind St Mary Redcliffe, was Cathay Square and the "Artificial Manure" works.
Ray
|
|
|
Post by brisray on Oct 4, 2004 20:58:17 GMT -5
Thanls for the post. I take it these are the gas works in Hotwells? The photo on brisray.com/bristol/bhwell2.htm was taken in 2000, I've also got photo's I took of them in 1981 looking pretty much the same - roofless shells of buildings. The several times I visited these buildings there were warning notices on the fences saying the ground inside was heavily contaminated. It's nice to know that after the 30 odd years that I can remember them being derelict that someone's finally decided to do something with them. Do you know what the buildings are going to be redeveloped as? Ray
|
|
|
Post by brisray on May 17, 2005 20:10:46 GMT -5
For some reason QBasic has always had poor support for the mouse, in fact joysticks are better supported. I've always had problems with mouse controls and probably your best bet would be to use Google - www.google.com/search?hl=en&q=qbasic+mouse rather than me mess around with these things - and possibly mess it up even further. Ray
|
|
|
Post by brisray on May 15, 2005 23:22:16 GMT -5
Good question. Almost all the menus on that page use a variable named ChooseItem, except for hmenu.bas where I've named it HiLiteItem for some reason, so the following techniques will work for all the menus - that's forward thinking!
Look for this variable somewhere near the top of the program in the line PRINT "Item chosen ="; MenuItem(ChooseItem), just before the END statement.
What happens is that the program will print the value of Array(ChooseItem) then exit the program. All you need do is use an IF or SELECT CASE statement to test for the value of ChooseItem then take some action on that value.
An IF statement example would be...
IF ChooseItem = 3 THEN .... IF ChooseItem = 4 THEN ....
Where you would jump to another subroutine or carry out some other code.
An example for SELECT CASE would be...
SELECT CASE ChooseItem CASE 1 .... CASE 2 .... CASE ELSE .... END SELECT
From the subroutine that is called you can either retuen back to the drawmenu subroutine (SUB DrawMenu) or do what I think is the better way and use the method I used in hmenu.bas where the menu will repeat until the user actually exits the menu program altogether...
DO GOSUB DrawMenu '*** Draw the menu *** GOSUB UserInput '*** Get the user input ***
LOOP UNTIL UserIn$ = CHR$(27)
Or you could use Exit Program as one of the menu choices so the lines would read...
DO GOSUB DrawMenu '*** Draw the menu *** GOSUB UserInput '*** Get the user input ***
LOOP UNTIL UserIn$ = CHR$(27) OR ChooseItem = 8
Where item 8 in the array is to exit the program. Well written programs would check that the user actually wanted to exit the program as in the message "Are you sure?" or whatever.
I hope the above makes sense, if you'd like more help then either email me - brisray@yahoo.co.uk - or just post back here and I'll try t explain it a little differently and maybe re-write one of the programs to show you exactly what to do.
Ray
|
|
|
Post by brisray on May 15, 2004 20:53:29 GMT -5
If you're writing to CSV files you can't use this method to read them. This is because each field in the database is going to be different lengths, which means each record length is going to be different.
What you need is the INPUT command, as in
OPEN "c:\list.txt" FOR INPUT AS #1 CLS DO WHILE NOT EOF(1) INPUT #1, Fld1$, Fld2$ '...etc. Read field entries from file. PRINT Fld1$, Fld2$ '... etc. Print the entries on the screen. LOOP CLOSE #1
The EOF(1) is the stream number. This can still be a variable (FREEFILE) as in the code you gave.
The great thing about SDF files is you can go to any record, say how many records in a file and even see if there is a simple error in the database by simple mathematics. For example if the record length is 100 and the file length is 1200 then you know there are 12 records in the database.
Using CSV files, you cannot do this - again because ofthe variable records lengths. What you need to do is either open the file as a binary file (see the QBasic help) and count how many CRLFs there are - test each character for CHR$(10) or CHR$(13). One nice thing about binary files is that you can put up to 32,767 characters at a time into memory. You'll have to keep track of the byte position in the file though and make sure you don't try reading past the end of the file if you use this method.
Another way is to use the something like
OPEN "c:\list.txt" FOR INPUT AS #1 CLS Count=0 DO WHILE NOT EOF(1) INPUT #1, Fld1$, Fld2$ '...etc. Read field entries from file. Count=Count + 1 screen. LOOP CLOSE #1 PRINT "There are ",Count, " records in the database."
For a big database this will take an apreciable length of time.
Ray
|
|
|
Post by brisray on May 12, 2004 21:41:19 GMT -5
Try this, it was adapted from the QBasic help file.
CLS OPEN "c:\list.txt" FOR OUTPUT AS #1 DO INPUT " NAME: ", Name$ INPUT " AGE: ", Age$ WRITE #1, Name$, Age$ INPUT "Add another entry"; R$ LOOP WHILE UCASE$(R$) = "Y" CLOSE #1 'Print the file to the screen. OPEN "c:\list.txt" FOR INPUT AS #1 CLS PRINT "Entries in file:": PRINT DO WHILE NOT EOF(1) INPUT #1, Rec1$, Rec2$ 'Read entries from file. PRINT Rec1$, Rec2$ 'Print the entries on the screen. LOOP CLOSE #1
You use WRITE to put data into the file. Write surrounds the text with quotes, adds the commas and each write statement adds a CRLF to the line.
The file is read using INPUT. Like the WRITE statement the variables are written an read one after the other, a line at a time.
Ray
|
|
|
Wecome
May 16, 2005 12:21:02 GMT -5
Post by brisray on May 16, 2005 12:21:02 GMT -5
I'm sure the books will help. As you gain experience what you'll find is that the bits and pieces you find on the net will make more sense, especially as you start to need help in specific areas.
Ray
|
|
|
Wecome
May 14, 2005 22:45:38 GMT -5
Post by brisray on May 14, 2005 22:45:38 GMT -5
There isn't much more to it than what you think.
All you need do is rename the files from .bas to .txt
Nearly all program source code is plain text, for example .c files.
One thing you can't do is compile a .exe program then get back to the source code from that. There are programs called disassemblers or decompilers but these usually only take the code back to assembler language.
Ray
|
|
|
Wecome
May 2, 2005 17:33:42 GMT -5
Post by brisray on May 2, 2005 17:33:42 GMT -5
Glad you got it to work. Lots of people report on the web that QBaqsic won't work on XP, but when you create the shortcut a PIF (Program Information File) file is created and you should be able to use it.
Ray
|
|
|
Wecome
Apr 29, 2005 11:23:12 GMT -5
Post by brisray on Apr 29, 2005 11:23:12 GMT -5
There isn't a Windows install program for QBasic - don't forget this program is over 15 years old.
All you need do is create a folder on one of your drives, such as QB7, QBasic7 or whatever then drag all the files from the zip file into that.
You should end up with five folders inside your original, bin, binb, help, lib and src.
In the bin folder find QB.exe and create a shortcut to it, you can put this on your Start menu.
Click on the shortcut and when QBasic starts go to the Options menu itemand change the paths to the various folders.
That's it, it should now run.
Ray
|
|
|
Post by brisray on Oct 16, 2005 6:21:38 GMT -5
|
|
|
Welcome
May 20, 2004 3:49:48 GMT -5
Post by brisray on May 20, 2004 3:49:48 GMT -5
lol, you already know at least one forum that I use, but feel free to post here too.
Ray
|
|
|
Post by brisray on Sept 28, 2005 2:30:16 GMT -5
I can't guarantee success and perhaps you've already visited some of the sites but take a look at www.gordonmumford.com/m-navy3.htm#merchant%20navy and scroll down until you see "Search for Shipmates, etc." these are links to several merchant marine "people finders". If you think it'll help, email me the name and anything else you know about this seaman (ships he served on, training establishment etc.) and I'll add it to my site. Sometimes I don't get anything back but now and then something turns up. Ray
|
|