-------------------------------------------------- QNews QBasic Newsletter Issue Number 6 173 Members! -------------------------------------------------- Inside This Issue: 1. QB Newsletter 2. >>re:QNews Issue 5! 3. >>Re: QNews Issue 5! 4. QB: Tutorial 1 Out now! 5. The Final Say -------------------------------------------------- 1. QB Newsletter From: Chris Rice Subject: QB Newsletter Date: Sunday, October 18, 1998 9:02 PM Jeff, I have enjoyed your newsletter and wanted to thank you for taking the time to do it. I have a commercial program developed in Basic 7.0 and have had a hard time finding contract programmers. If anybody out there thinks they are very good Basic programmers and are interested in some contract work please contact me at chris@accelerent.com or 972-278-0090. Regards, Chris Rice A D S, Inc. 972-278-0090 chris@accelerent.com http://www.accelerent.com -------------------------------------------------- 2. re:QNews Issue 5! From: Robert E. Aukerman Date: Sunday, October 18, 1998 10:51 PM I often see requests for a source for QuickBasic 4.5. The last time I looked it was on the shelf at FRY's Electronics, Woodland Hills, California, And has been in stock for about ten years. Microsoft factory package. Sorry if its not sold on the internet. Actually a lot of useful things aren't sold on the internet. Good hamburgers for one. Fry's (818) 227 1000 R.E.A. -------------------------------------------------- 3. Re: QNews Issue 5! From: Michael Astrauskas Date: Tuesday, October 20, 1998 3:23 PM Jeff Rapp wrote: > 8. QB: Question about keys > From: Colin Sharpe > Date: Thursday, October 15, 1998 2:14 AM > > Dear Jeff, > I have 2 questions I would like to ask you 1. How do you make keys do > actions in QBasic eg.sounds and quitting and stuff like that? 2. Can you > make QBasic play .wav sounds? > > If you can help me with the answers to these questions please E-mail me > A.S.A.P at csharpe@apex.net > > Thanks > Tim Sharpe 2. Here! It probably won't work under Win '95/'98. (Note: I did not make it.) DEFINT A-Z DECLARE SUB SetVoice (OnOff%) DIM VOff AS LONG CLS '-Div.Init (maybe you get the filename from commandline? VocFile$ = "C:\apps\qb45\tada.wav" ' input-file VocFile% = FREEFILE ' . Delay% = 11 ' value for delay '-open the voc-file OPEN VocFile$ FOR BINARY AS #VocFile% '-parameters for copy-to-soundblaster Bytes& = LOF(VocFile%) ' number of bytes BytesRemaining& = Bytes& ' number of remaining bytes BufferMax% = &H7F00 ' largest buffer Buffer$ = SPACE$(BufferMax%) ' create buffer SetVoice 1 ' Soundblaster on '-read {BufferMax%} bytes from disc, output on SB DO BytesRemaining& = BytesRemaining& - BufferLen% IF BytesRemaining& = 0 THEN EXIT DO ' nothing left over? IF BytesRemaining& > BufferMax% THEN ' how many bytes? BufferLen% = BufferMax% ' ELSE BufferLen% = BytesRemaining& ' remaining ([!Terminator_Z!]<--@ Date: Saturday, October 24, 1998 2:55 AM I got a great response from you all and so the first of the tutorials is here!! It is designed for reading in MS-DOS EDIT and comes with some example source! Check it out now! http://homepages.force9.net/georgeg/tut1.zip Terminator_Z / CM CRiTiCAL MASS (http://critical.hypermart.net down right now though) FoX (http://members.aol.com/spmcaul/fox.htm) -------------------------------------------------- 5. The Final Say From: Jeff Rapp Date: Sunday, October 25, 1998 5:00 PM Hey all! Another GREAT issue of the QNews! I took a look at the tutorial by Terminator_Z, and it was awesome! I really urge you to download it right away! I am also looking for an outstanding program/game/whatever QBasic with source-code for the Best of QBasic November. ---****READ THIS****--- PLEASE SEND ALL LETTERS TO QNews@qble.hypermart.net . This will aid me in sorting the mail. If you send to the address above, you no longer need to put QB: in your subject line. Also, I would like to re-initaite the QNews Survey. If you would like to see this done, just drop me a line at QNOpinion@qble.hypermart.net Also email me there if you would like to see a page with all the archived QNews Newsletters. Other New and Important E-Mail Addys: QNREMOVE@qble.hypermart.net - Use to remove from the list. Please enter the email that you subscribed with into the body. QNOpinion@qble.hypermart.net - Send your opinion of the news to this address. QNews@qble.hypermart.net - The most important of all. Send your messages/letters/ what-have-you to this address. That's all for this time. See you later!! Jeff Rapp Editor of the QNews jrapp@geocities.com