home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD68006152000.psc / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-15  |  4.0 KB  |  144 lines
  1. VERSION 5.00
  2. Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   3468
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   5064
  11.    ForeColor       =   &H0000FF00&
  12.    Icon            =   "Form1.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MousePointer    =   99  'Custom
  15.    ScaleHeight     =   289
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   422
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   3  'Windows Default
  20.    Visible         =   0   'False
  21.    Begin VB.Timer MusicTime 
  22.       Interval        =   1000
  23.       Left            =   2760
  24.       Top             =   240
  25.    End
  26.    Begin MCI.MMControl MMControl1 
  27.       Height          =   612
  28.       Left            =   840
  29.       TabIndex        =   2
  30.       Top             =   2760
  31.       Visible         =   0   'False
  32.       Width           =   2832
  33.       _ExtentX        =   4995
  34.       _ExtentY        =   1080
  35.       _Version        =   393216
  36.       DeviceType      =   "Sequencer"
  37.       FileName        =   ""
  38.    End
  39.    Begin VB.PictureBox SavePic 
  40.       AutoSize        =   -1  'True
  41.       BackColor       =   &H00FFFFFF&
  42.       BorderStyle     =   0  'None
  43.       Height          =   1332
  44.       Left            =   2280
  45.       ScaleHeight     =   1332
  46.       ScaleWidth      =   1452
  47.       TabIndex        =   1
  48.       Top             =   960
  49.       Visible         =   0   'False
  50.       Width           =   1452
  51.    End
  52.    Begin VB.PictureBox LoadPic 
  53.       AutoSize        =   -1  'True
  54.       BackColor       =   &H00FFFFFF&
  55.       BorderStyle     =   0  'None
  56.       Height          =   1332
  57.       Left            =   480
  58.       ScaleHeight     =   1332
  59.       ScaleWidth      =   1452
  60.       TabIndex        =   0
  61.       Top             =   960
  62.       Visible         =   0   'False
  63.       Width           =   1452
  64.    End
  65.    Begin VB.Timer FramesT 
  66.       Interval        =   1000
  67.       Left            =   480
  68.       Top             =   240
  69.    End
  70. Attribute VB_Name = "Form1"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Public Key As Byte
  76. Public Cur As Long
  77. Public MTime As Byte
  78. Sub CrankItUp()
  79. Cur = ShowCursor(0)
  80. ModDX7.Init Me.hwnd
  81. End Sub
  82. Sub ShutItDown()
  83. ShowCursor Cur
  84. ModDX7.EndIt Me.hwnd
  85. End Sub
  86. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  87. Key = KeyCode
  88. Select Case KeyCode
  89. Case vbKeyEscape
  90.   ModSurfaces.UnloadAllPics
  91.   ModDX7.RestoreDisplayMode
  92.   Form1.ShutItDown
  93.   End
  94. Case vbKeyUp
  95.   If Snake.Facing <> dDOWN Then TurnSnake dUP
  96. Case vbKeyDown
  97.   If Snake.Facing <> dUP Then TurnSnake dDOWN
  98. Case vbKeyLeft
  99.   If Snake.Facing <> dRIGHT Then TurnSnake dLEFT
  100. Case vbKeyRight
  101.   If Snake.Facing <> dLEFT Then TurnSnake dRIGHT
  102. End Select
  103. End Sub
  104. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  105. Key = 0
  106. End Sub
  107. Private Sub Form_Load()
  108. Move 0, 0, 640, 480
  109. MMControl1.Filename = App.Path & "\Soundz\Music.mid"
  110. End Sub
  111. Private Sub FramesT_Timer()
  112. Debug.Print "FPS = " & Frames
  113. Frames = 0
  114. End Sub
  115. Sub ConvertEm()
  116. LoadPic = LoadPicture(App.Path & "\Graphix\Background.jpg")
  117. SavePic = LoadPic
  118. SavePicture SavePic.Picture, App.Path & "\Graphix\Background.bmp"
  119. LoadPic = LoadPicture(App.Path & "\Graphix\Intro.jpg")
  120. SavePic = LoadPic
  121. SavePicture SavePic.Picture, App.Path & "\Graphix\Intro.bmp"
  122. LoadPic = LoadPicture(App.Path & "\Graphix\Goodbye.jpg")
  123. SavePic = LoadPic
  124. SavePicture SavePic.Picture, App.Path & "\Graphix\Goodbye.bmp"
  125. End Sub
  126. Sub Play()
  127. MMControl1.Command = "Open"
  128. MMControl1.Command = "Play"
  129. MusicTime.Enabled = True
  130. End Sub
  131. Sub ShutYerNoise()
  132. MMControl1.Command = "Stop"
  133. MMControl1.Command = "Close"
  134. MusicTime.Enabled = False
  135. End Sub
  136. Private Sub MusicTime_Timer()
  137. MTime = MTime + 1
  138. If MTime = 113 Then
  139.   ShutYerNoise
  140.   Play
  141.   MTime = 0
  142. End If
  143. End Sub
  144.