Revista do CD-ROM 61

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

/ Revista do CD-ROM 61 / CDRom61.iso / turmavea / MAIN.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-07-17 | 20.5 KB | 525 lines

FRM_MAIN TURMA DA VEA DDDDDDDDDDDDDDDDO DDDDDDDDD DDDDDDDDDLDDDDDDDD DDDDDDDDDDDDDDDD MAIN5- Timer1 IMG_HELP IMG_MASK IMG_BMP IMG_FUNDO IMG_FIM IMG_PORT IMG_MUSICA IMG_CIENCIAS IMG_JOGOS IMG_MAT IMG_HIST Label1_Click Sair_Click Command3D1_Click Abrir_Click SOL_01_Click SOL_Click INTERGER) MR_CLICKV IMAGE1M Picture sndPlaySound SOL_1^ SOL_2 PICTUREBOXT Form_Load Timer1_Timer SOL_01 SOL_02 TIMER1_INTERVALv TIMER1@ INTERVAL SOL_02_Click WAIT_SECOND ELSIF4 lpsSoundD wFlag MR_SOLO PICTURE_LEFT* PICTURE_ ri_Btn_ClickA Menina01_Frm. MENINA015 MENINAO1Q MENINAO1_FRMa FRM_MENINA01v Cmd_Hist ri_Click Cmd_Hist ria_Click Cmd_Historia_Click Cmd_Historia_MouseDown Button ShiftL Command1_Click IMG_Boneco02_Click= IMG_Destino_Click Form_Click SPRITE FORM1 IMAGE2n FORMx IMG_BONECO01 IMG_BONECO02 Form_MouseMove FRM_MAIN Image1_Click Form_GotFocusT Form_MouseDown2 Form_LostFocus IMG_MENINA MOVE_BONECOe BACK& POSX: CALLMOVE_BONECO1 POSPOSXs POS_X POS_Y TEMPO Sprite_Boneco SPRITEBACK~ BACKGNDT SPRITEBACKGND% IMG_BUFFER7 IMAGE BONECO COORD LARG> IMG_TODOS_Click IMG_TODOS# SOM_ENTRADA SOM_MAINS MAINH SON_MAIN SON_ENTRADA9 MAIN_FRMe IMG_FIM_Click COM_FIM_Click IMG_LIVRO_Click FRM_MENINA IMG_PORT_Click IMG_MAT_Click IMG_LIVRO_MouseMove SOM_HISTORIA SOM_JOGOS SOM_PORTUGUES SOM_PORT SOM_MATMQ SOM_CIENCIAS SOM_FIM< IMG_FIM_MouseUpg IMG_LIVRO_MouseUp IMG_CIENCIAS_Click IMG_CIENCIAS_MouseUp IMG_JOGOS_Click IMG_JOGOS_MouseUp IMG_MAT_MouseUp IMG_PORT_MouseUp SOM_MUSICAx IMG_MUSICA_Clicks IMG_MUSICA_MouseUpv IMG_CIENCIAS_MouseMove IMG_CIENCIAS_DragOver Source Control State IMG_CIENCIAS_MouseDown IMG_FIM_MouseMoveR IMG_FIM_MouseDown FRM_JOGOS FRM_MUSICA FRM_PORT FRM_CI NCIAS FRM_MATEM TICAc BMP_FUNDO MOUSE_CHECK IMG_MAT_MouseMove* MousePointer IMG_MAT BMP_MAT IMG_FUNDO PICTURELoadPictureF DESENHA_TELAS IMG_BMP& IMG_MASKk MASK_MAT Width Height Left. TopJ Form_LinkOpen Cancel Form_LinkExecute^ CmdStrf Form_LinkError LinkErr Form_LinkClosew Form_KeyUp KeyCode Form_KeyPressV KeyAscii Form_KeyDown Form_DragOver Form_DragDrop Form_Deactivate3 Form_DblClick Form_Activate AutoRedrawg MFRM_MAIN GETDEVICECAPS nIndex RES_BPP BITSPIXEL, BMP_PORT8 BMP_CIENCIA BMP_HISTD BMP_MUSICA BMP_JOGO< BMP_GAME BMP_GAMES MASK_PORT MASK_CIENCIAL MASK_HIST MASK_MUSICA MASK_GAMES IMG_PORT= BMP_CIENT SOM_CIENT BMP_CIENCIAS0 SOM_MAT BMP_JOGOS\ MASK_CIENCIAA" MASK_CIENCIAS MASK_JOGOSB SOM_HISTo IMG_LIVRO_MouseDownF IMG_HIST_MouseUp IMG_CIENCIAS IMG_MUSICA IMG_JOGOS IMG_HIST SPRITE_BALAO DIST2k IMG_FRENTE} FRM_ABCw IMG_ABC$ BALAO SOM_BALAO BMP_BALAO MASK_BALAO Form_Paint WAIT_SEC8 IMG_MASK_ClickK IMG_FUNDO_Click IMG_BMP_ClickV Form_Unload IMG_HIST_MouseMove IMG_JOGOS_MouseMove IMG_MUSICA_MouseMove IMG_PORT_MouseMove IMG_CIENCIAS_DblClick\ IMG_HIST_Click7 FRM_MATEMATICA BMP_GATO* MASK_GATO SPRITE_GATOi SPRITE_MUSICA BMP_SPR_MUSICA MASK_SPR_MUSICA SPR_MUSICAV FRAMES EVENTS MOVE_ON mciExecute Form_Resize3 Form_QueryUnload UnloadModeR Form_MouseUp MCI_STR] MID_INTRO UNLOADz SPRITE_DRAGAO+ BMP_SPR_DRAGAO MASK_SPR_DRAGAO\ BMP_SPR_MATl MASK_SPR_MAT BMP_SPR_PORT MASK_SPR_PORT SPRITE_PORT SPRITE_MATI SPRITE_JOGOS BMP_SPR_JOGOS4 MASK_SPR_JOGOSJ WAITE_SECOND BMP_SPR_HISTR MASK_SPR_HIST SPRITE_HISTORIA6 SPRITE_HIST BMP_SPR_CIENCIAS MASK_SPR_CIENCIAS SPRITE_CIENCIAS? IMG_HELP_Click~ FRM_HELP SOM_HELP CONTSt IMG_HELP_MouseMove Wait_ ACTION ACT_CIENCIAS ACT_MAT ACT_PORT ACT_HISTq ACT_MUSICA& ACT_JOGOS ACT_MATCall MOUSE_CEHCK FRM_HIST ACT_FIM ACT_HELPf FRM_CIENCIAS MOUSE_MOVE IMG_FUNDO_MouseMove IMG_FIM SPRITE_MATAMATICA* SPRITE_ISTORIAH PRINTER^ CURRENTX CURRENTY| [FRM_MAIN.] [PICTUREBOX.] [PRINTER.]> MOUSE_POINT MOUSE FRM_MOUSE POINTER FRM_VB2 MRSOLO DIR_DEST MP_SPR_CIENCIAS DIR_WIN DIR_ORIGEM DIR_DESENHOS CONFIG_ARQ& ARQ_TAMANHOn ATTR_NORMAL DIR_AQUA COPY_FILE FONTE DESTINO DIR_TEMP SCREEN SND_LOOPK mciSendString mciError ReturnString Dummy mciErrorString CommandString MM_MCINOTIFY ENDDOZ mciGetErrorString Caption Rstring ENABLED MCI_STA PLAY_MUSIC STOP_MUSIC MCI_STP MCI_PAU LongReturnString CONTROL_SOUND ITERVAL ID_INTRO LIMPA_BUFFER ERRMUSICd WINDOW RETORNO ENCERRA_PROGRAMA FRM_VISUAL2 REMDIR_DEST MIDI_INFO BMP_ABC VEIS GLOBAISe CHECA A POSI O DO MOUSE PARA EXECUTAR UMA ANIMA O - USADO NAS IMG_BOXI VEL QUE INFORMA SE H ALGUMA ANIMA O SENDO EXECUTADA SICAS .MID Dim MID_INTRO As StringO IMAGENS SCARAS ACTION DESENHA_TELA Call SPRITEBACK(FRM_MAIN.hDC, IMG_BMP.Picture, IMG_MASK.Picture, IMG_FUNDO.Picture, 0, 0, IMG_MAT.Left, IMG_MAT.Top, IMG_MAT.Left, IMG_MAT.Top, IMG_BMP.Width, IMG_BMP.Height)) Form_Activate \GAME01.MID Form_Load \TURMAVEA.CFG Arquivo de Configura o (TURMAVEA.CFG) n o encontrado ! Favor Instalar o Programa ! Inicializa o das Vari veis de Configura o do Sistema PARA RODAR NO VB DEIXE VERDE O TEMP E O TURMAVEA DIR_ORIGEM = DIR_ORIGEM + "\TURMAVEA" DIR_TEMP = DIR_DEST + "\TEMP"U DIR_DESENHOS = DIR_DEST + "\DESENHOS" DIR_AQUA = DIR_ORIGEM + "\JOGOS\AQUARELA" C:\TURMAVEA\DESENHOS \JOGOS\AQUARELA Carrega as Vari \MAIN.WAV \MATM.WAV \PORT.WAV \CIENCIAS.WAV \HISTORIA.WAV \MUSICA.WAV \JOGOS.WAV \FIM.WAV \HELP.WAV SICAS .MID \GAME01.MID IMAGENSG \FUNDO.BMP \DRAG_C.BMP \COBRA_C.BMP \CIENT_C.BMP \HIST_C.BMP \GATO_C.BMP \PASSAR_C.BMP \BALAO.BMP \SPMUSI_C.BMP \SPMATM_C.BMP \SPPORT_C.BMP \SPJOGO_C.BMP \SPHIST_C.BMP \SPCIEN_C.BMP SCARAS \DRAG_B.BMP \COBRA_B.BMP \CIENT_B.BMP \HIST_B.BMP \GATO_B.BMP \PASSAR_B.BMP \BALAO2.BMP \SPMUSI_B.BMP \SPMATM_B.BMP \SPPORT_B.BMP \SPJOGO_B.BMP \SPHIST_B.BMP \SPCIEN_B.BMP Inicia o programa sem nenhum comando de retornoG Indicador das janelas filhas do portugu If RES_BPP <= 8 Then Call DESENHA_TELA Form_MouseMove Form_Paint Form_Unload stop IMG_CIENCIAS_Click IMG_CIENCIAS_MouseMove If MOUSE_CHECK <> ACT_CIENCIAS Then FRM_MAIN.MousePointer = 4 M% = sndPlaySound(SOM_CIENCIAS, 3) MOUSE_CHECK = ACT_CIENCIAS End If Do While MOUSE_CHECK = ACT_CIENCIAS DoEventss If MOUSE_CHECK = ACT_CIENCIAS Then Call SPRITE_CIENCIAS Loope IMG_FIM_Click Unload FRM_MAIN IMG_FIM_MouseMove IMG_FUNDO_MouseMove IMG_HELP_Click IMG_HELP_MouseMove IMG_HIST_Click IMG_HIST_MouseMove If MOUSE_CHECK <> ACT_HIST Then FRM_MAIN.MousePointer = 4 M% = sndPlaySound(SOM_HIST, 3) MOUSE_CHECK = ACT_HIST End If Do While MOUSE_CHECK = ACT_HIST DoEventss If MOUSE_CHECK = ACT_HIST Then Call SPRITE_HISTORIA Loope IMG_JOGOS_Click IMG_JOGOS_MouseMove If MOUSE_CHECK <> ACT_JOGOS Then If MOUSE_MOVE <> 1 Then IMG_FIM.MousePointer = 4 M% = sndPlaySound(SOM_FIM, 3)e MOUSE_MOVE = 1 End If MOUSE_CHECK = ACT_JOGOS End If Do While MOUSE_CHECK = ACT_JOGOS DoEventss If MOUSE_CHECK = ACT_JOGOS Then Call SPRITE_JOGOS Loope IMG_MAT_Click IMG_MAT_MouseMove If MOUSE_CHECK <> ACT_MAT Then FRM_MAIN.MousePointer = 4 M% = sndPlaySound(SOM_MAT, 3) MOUSE_CHECK = ACT_MAT End If Do While MOUSE_CHECK = ACT_MATO DoEventss If MOUSE_CHECK = ACT_MAT Then SPRITE_MAT Loope IMG_MUSICA_Click IMG_MUSICA_MouseMove If MOUSE_CHECK <> ACT_MUSICA ThenI FRM_MAIN.MousePointer = 4 M% = sndPlaySound(SOM_MUSICA, 3) MOUSE_CHECK = ACT_MUSICA End If Do While MOUSE_CHECK = ACT_MUSICA DoEventss If MOUSE_CHECK = ACT_MUSICA Then Call SPRITE_MUSICA Loope IMG_PORT_Click IMG_PORT_MouseMove If MOUSE_CHECK <> ACT_PORT Thenn FRM_MAIN.MousePointer = 4 M% = sndPlaySound(SOM_PORT, 3) MOUSE_CHECK = ACT_PORT End If Do While MOUSE_CHECK = ACT_PORT DoEventss If MOUSE_CHECK = ACT_PORT Then Call SPRITE_PORT Loope SPRITE_CIENCIAS SPRITE_HISTORIA SPRITE_JOGOS SPRITE_MAT SPRITE_MUSICA SPRITE_PORT Timer1_Timer Timer1.Enabled = False Timer1.Interval = 0l If Not (Left$(ReturnString, 7) = "playing") Then mciError = mciSendString(MCI_STR, ByVal ReturnString, Len(ReturnString) - 1, 0) mciError = mciSendString(MCI_STA, ByVal ReturnString, Len(ReturnString) - 1, 0) FRM_MAIN.Caption = "" FRM_MAIN.Caption = ReturnString End If Timer1.Enabled = Truet Timer1.Interval = 2000