Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N2.ZIP / VBPLAY.ZIP / GOF.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-03-25 | 9.9 KB | 232 lines

Grand Old Flag wwwwwwwwwwwwwww wwwwwwwwwwwwwww wwwwwwwwwwwwwww Form1- OnPlay Label1_Click PlayText_Change PlayText_KeyPress keyAscii Play_Change Play_KeyPress Playy PlayString_ChangeC PlayString_KeyPress# PlayString WhileMidt Form_Clickb ProcessPlayCmdA lstring toupperr OpenSound4 CloseSound SetVoiceQueueSize nVoice nBytes- SetVoiceNote nValue nLength nCdotsV SetVoiceAccentC nTempo nVolume nMode nPitchV SetVoiceEnvelopeg nShapeS nRepeat SetSoundNoise nSource nDuration$ SetVoiceSound lFrequency StartSound StopSound9 WaitSoundState nStatem SyncAllVoices\ CountVoiceNotes GetThresholdEvent( GetThresholdStatus SetVoiceThreshold nNotes S_QUEUEEMPTYb S_THRESHOLD S_ALLTHRESHOLD< S_NORMAL S_LEGATO S_STACCATO S_PERIOD512 S_PERIOD1024 S_PERIOD2048 S_PERIODVOICE S_WHITE512/ S_WHITE1024 S_WHITE2048 S_WHITEVOICE S_SERDVNA S_SEROFMI S_SERMACTz S_SERQFUL S_SERBDNT S_SERDLN S_SERDCC S_SERDTP S_SERDVL S_SERDMD S_SERDSH S_SERDPT7 S_SERDFQ S_SERDDR S_SERDSR S_SERDST SoundOpen Win1_Click mainh status? PlayString_GotFocus; PlayString_KeyDowni KeyCodeH ShiftT QuitButton_Click CloseApp S_SERDVNAMsgBox WinPlayer @ Form_Load Form_Unload Cancel tempo` lengthq SelectCase S_ERDVL octaveK pause S_STACATO ProcessPlayCmds SetNoteSound Whoop_ClickC QueueNoteO PlayNote nNote fbaseFreq^ fMode nTicks lFreq real= float h80000000 cmdptrU tlength Form_LostFocusI OnPlay_Timer song1 songptr Command1_Click Start_Click GMNP32E8D8GE8 P64G2 P6P6< common define deftype Form1D close4 Q_BUFF_SIZE notes MousePointer Screen CoundVoiceNotes Q_THRESHHOLD Quit_Click Thentlength ThenPlayNote S_SERBDNTExit S_SERDLNExit S_SERDMDExit CloseSoundEnd S_SEROFMMsgBox Frame1_DragDrop Source Picture1_Click Picture1_MouseMove Button$ Sound Sound Sound Sound Sound Sound Sound Sound Sound Sound Sound Sound Sound Soundv actually pointer to int Sound Sound WaitSoundState() Constants Accent Modest SetSoundNoise() Sources Freq = N/512 high pitch, less coarse hiss Freq = N/1024 Freq = N/2048 low pitch, more coarse hiss Source is frequency from voice channel (3) Freq = N/512 high pitch, less coarse hiss Freq = N/1024 Freq = N/2048 low pitch, more coarse hiss Source is frequency from voice channel (3) Device not availableo Out of memory Music activey Queue fullv Invalid note Invalid note length Invalid note counth Invalid tempo Invalid volume Invalid modem Invalid shape Invalid pitch Invalid frequency Invalid durationy Invalid sourceo Invalid state Voice Queue size Minimum notes before update Global Variables Separate the play string into commands$ ABCDEFGLMNOPT<> Initialize starting valuesn Process command If command was note or rest, place in queue Any numbers here will mean temporary length Start things goingw Remain here if user wants foreground mode Form_Load Initialize the sound system Music already in use Out of Memory" Initialize voice buffer and default conditions Form_Unload PlayNote Initialize arrays first time throught p=ZP@ 33333SQ@ Check input values for validity Calcualte note duration parametersP Calculate frequency and play note If not legato, then play a rest to fill out note length OnPlay_Timer Initialize array first time through O4MLT135D6P60<B10GP64GP64GP56MNE8D8G8MLAMNF#8MLGMNP32E8D8GE8 D8GE8D8F#2.P16MLD8E8F#GMNA.P64MLD8GAMNB.G8MLA8 MNBMLG8A8MNBMLG8A2.P15>MND5<B13GGMLGMNE8D8G8MLAP64 MNF#8MLGP32MNF#8F8EG#8B8EBMLA2.MNP8D8D8MLG.P64 F#8GP64BP64A.P64G#8P64AP17F#8P64D8P64E8GP60E7GP64F#P64G2.P6P6" Make sure there are notes in the buffer Quit_Click