Copy Link
Add to Bookmark
Report
QNews QBasic Newsletter issue 06
--------------------------------------------------
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 <chris@accelerent.com>
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 <RAukerman@compuserve.com>
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 <julian63@geocities.com>
Date: Tuesday, October 20, 1998 3:23 PM
Jeff Rapp wrote:
> 8. QB: Question about keys
> From: Colin Sharpe <csharpe@apex.net.au>
> 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 (<BufferMax%)..
Buffer$ = SPACE$(BufferLen%) ' ..throw it into SB :-)
END IF
GET #VocFile%, , Buffer$ ' read buffer
DEF SEG = VARSEG(Buffer$) ' get address of buffer
VOff = SADD(Buffer$) ' .
FOR t% = 1 TO BufferLen% ' output od {bufferlen%}
'FOR qq% = 1 TO Delay: NEXT qq% ' delay
WAIT &H22C, &H80, &HFF ' wait for data-ready
OUT &H22C, &H10
WAIT &H22C, &H80, &HFF
OUT &H22C, PEEK(VOff)
VOff = VOff + 1
NEXT t%
LOOP WHILE INKEY$ = ""
SetVoice 0 ' SB off
CLOSE #VocFile% ' close file
END ' .. good bye :-)
DEFSNG A-Z
SUB SetVoice (OnOff%)
IF OnOff% THEN
WAIT &H22C, &H80, &HFF ' wait for data-ready on SB
OUT &H22C, &HD1 ' ON
ELSE
WAIT &H22C, &H80, &HFF
OUT &H22C, &HD3 ' OFF
END IF
END SUB
--
- Michael Astrauskas ICQ UIN: 1946065, Trevelyan
My humble Anime-type art site:
www.geocities.com/timessquare/6300/
--------------------------------------------------
4. QB: Tutorial 1 Out now!
From: @--->[!Terminator_Z!]<--@ <shadow@georgeg.force9.co.uk>
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 <QNews@qble.hypermart.net>
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
