home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 January / VPR0101A.BIN / PROGRAM / Form1.frm < prev    next >
Text File  |  2000-10-25  |  9KB  |  306 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "ブロック消し"
  5.    ClientHeight    =   6000
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7455
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    Picture         =   "Form1.frx":0000
  12.    ScaleHeight     =   400
  13.    ScaleMode       =   3  'ﾋﾟｸｾﾙ
  14.    ScaleWidth      =   497
  15.    StartUpPosition =   3  'Windows の既定値
  16.    Begin VB.Timer Timer1 
  17.       Interval        =   50
  18.       Left            =   1920
  19.       Top             =   2640
  20.    End
  21.    Begin VB.ComboBox Combo1 
  22.       Height          =   300
  23.       Left            =   2400
  24.       Style           =   2  'ﾄﾞﾛｯﾌﾟﾀﾞｳﾝ ﾘｽﾄ
  25.       TabIndex        =   6
  26.       Top             =   5520
  27.       Width           =   1335
  28.    End
  29.    Begin VB.CommandButton Command1 
  30.       Caption         =   "START"
  31.       Default         =   -1  'True
  32.       Height          =   375
  33.       Left            =   4800
  34.       TabIndex        =   5
  35.       Top             =   5520
  36.       Width           =   1215
  37.    End
  38.    Begin VB.PictureBox paddle 
  39.       Appearance      =   0  'ﾌﾗｯﾄ
  40.       AutoRedraw      =   -1  'True
  41.       BackColor       =   &H80000005&
  42.       BorderStyle     =   0  'なし
  43.       Enabled         =   0   'False
  44.       ForeColor       =   &H80000008&
  45.       Height          =   255
  46.       Left            =   4800
  47.       Picture         =   "Form1.frx":91B82
  48.       ScaleHeight     =   17
  49.       ScaleMode       =   3  'ﾋﾟｸｾﾙ
  50.       ScaleWidth      =   49
  51.       TabIndex        =   4
  52.       Top             =   1560
  53.       Visible         =   0   'False
  54.       Width           =   735
  55.    End
  56.    Begin VB.PictureBox ball 
  57.       Appearance      =   0  'ﾌﾗｯﾄ
  58.       AutoRedraw      =   -1  'True
  59.       BackColor       =   &H80000005&
  60.       BorderStyle     =   0  'なし
  61.       Enabled         =   0   'False
  62.       ForeColor       =   &H80000008&
  63.       Height          =   255
  64.       Left            =   4920
  65.       Picture         =   "Form1.frx":92104
  66.       ScaleHeight     =   17
  67.       ScaleMode       =   3  'ﾋﾟｸｾﾙ
  68.       ScaleWidth      =   17
  69.       TabIndex        =   3
  70.       Top             =   960
  71.       Visible         =   0   'False
  72.       Width           =   255
  73.    End
  74.    Begin VB.PictureBox mainscr 
  75.       Appearance      =   0  'ﾌﾗｯﾄ
  76.       AutoRedraw      =   -1  'True
  77.       BackColor       =   &H00C0C0C0&
  78.       BorderStyle     =   0  'なし
  79.       ForeColor       =   &H80000008&
  80.       Height          =   735
  81.       Left            =   1320
  82.       ScaleHeight     =   49
  83.       ScaleMode       =   3  'ﾋﾟｸｾﾙ
  84.       ScaleWidth      =   129
  85.       TabIndex        =   2
  86.       Top             =   480
  87.       Width           =   1935
  88.    End
  89.    Begin VB.PictureBox blocks 
  90.       Appearance      =   0  'ﾌﾗｯﾄ
  91.       AutoRedraw      =   -1  'True
  92.       BackColor       =   &H80000005&
  93.       BorderStyle     =   0  'なし
  94.       Enabled         =   0   'False
  95.       ForeColor       =   &H80000008&
  96.       Height          =   2175
  97.       Left            =   3960
  98.       Picture         =   "Form1.frx":92586
  99.       ScaleHeight     =   145
  100.       ScaleMode       =   3  'ﾋﾟｸｾﾙ
  101.       ScaleWidth      =   33
  102.       TabIndex        =   1
  103.       Top             =   480
  104.       Visible         =   0   'False
  105.       Width           =   495
  106.    End
  107.    Begin VB.PictureBox offscr 
  108.       Appearance      =   0  'ﾌﾗｯﾄ
  109.       AutoRedraw      =   -1  'True
  110.       BackColor       =   &H00C0C0C0&
  111.       BorderStyle     =   0  'なし
  112.       Enabled         =   0   'False
  113.       ForeColor       =   &H80000008&
  114.       Height          =   735
  115.       Left            =   1320
  116.       ScaleHeight     =   49
  117.       ScaleMode       =   3  'ﾋﾟｸｾﾙ
  118.       ScaleWidth      =   129
  119.       TabIndex        =   0
  120.       Top             =   1440
  121.       Visible         =   0   'False
  122.       Width           =   1935
  123.    End
  124.    Begin VB.Label lblball 
  125.       BackColor       =   &H00000000&
  126.       Caption         =   "0"
  127.       BeginProperty Font 
  128.          Name            =   "ＭＳ Ｐゴシック"
  129.          Size            =   14.25
  130.          Charset         =   128
  131.          Weight          =   700
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       ForeColor       =   &H0080C0FF&
  137.       Height          =   255
  138.       Left            =   6840
  139.       TabIndex        =   11
  140.       Top             =   4845
  141.       Width           =   255
  142.    End
  143.    Begin VB.Label lblscore 
  144.       BackColor       =   &H00000000&
  145.       Caption         =   "0000"
  146.       BeginProperty Font 
  147.          Name            =   "ＭＳ Ｐゴシック"
  148.          Size            =   14.25
  149.          Charset         =   128
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       ForeColor       =   &H0080C0FF&
  156.       Height          =   255
  157.       Left            =   5040
  158.       TabIndex        =   10
  159.       Top             =   4845
  160.       Width           =   735
  161.    End
  162.    Begin VB.Label lblhiscore 
  163.       BackColor       =   &H00000000&
  164.       Caption         =   "00000"
  165.       BeginProperty Font 
  166.          Name            =   "ＭＳ Ｐゴシック"
  167.          Size            =   14.25
  168.          Charset         =   128
  169.          Weight          =   700
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       ForeColor       =   &H0080C0FF&
  175.       Height          =   255
  176.       Left            =   3000
  177.       TabIndex        =   9
  178.       Top             =   4845
  179.       Width           =   975
  180.    End
  181.    Begin VB.Label lblstage 
  182.       BackColor       =   &H00000000&
  183.       Caption         =   "00"
  184.       BeginProperty Font 
  185.          Name            =   "ＭＳ Ｐゴシック"
  186.          Size            =   14.25
  187.          Charset         =   128
  188.          Weight          =   700
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       ForeColor       =   &H0080C0FF&
  194.       Height          =   255
  195.       Left            =   1200
  196.       TabIndex        =   8
  197.       Top             =   4845
  198.       Width           =   495
  199.    End
  200.    Begin VB.Label Label1 
  201.       Caption         =   "SPEED :"
  202.       BeginProperty Font 
  203.          Name            =   "ＭＳ Ｐゴシック"
  204.          Size            =   14.25
  205.          Charset         =   128
  206.          Weight          =   700
  207.          Underline       =   0   'False
  208.          Italic          =   0   'False
  209.          Strikethrough   =   0   'False
  210.       EndProperty
  211.       Height          =   375
  212.       Left            =   1080
  213.       TabIndex        =   7
  214.       Top             =   5520
  215.       Width           =   1215
  216.    End
  217. End
  218. Attribute VB_Name = "Form1"
  219. Attribute VB_GlobalNameSpace = False
  220. Attribute VB_Creatable = False
  221. Attribute VB_PredeclaredId = True
  222. Attribute VB_Exposed = False
  223. Option Explicit
  224.  
  225. '-----------------------------------------------------------------------
  226. ' イベントハンドラ
  227. '-----------------------------------------------------------------------
  228.  
  229. 'STARTボタンが押されたときに呼ばれるハンドラ
  230. Private Sub Command1_Click()
  231.     'ステージ開始
  232.     StartStage
  233. End Sub
  234.  
  235. 'タイマーから一定時間ごとに呼ばれるハンドラ
  236. Private Sub Timer1_Timer()
  237.     If boPlaying Then
  238.         'インターバル処理
  239.         TimerProc
  240.         
  241.         'ステージクリアか判定
  242.         If IsClearStage Then
  243.             ClearStage
  244.         End If
  245.         
  246.         'ゲームオーバーか判定
  247.         If IsGameOver Then
  248.             GameOver
  249.         End If
  250.     End If
  251. End Sub
  252.  
  253. 'マウスをクリックしたときに呼ばれるハンドラ
  254. Private Sub mainscr_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  255.     'ステージ開始
  256.     StartStage
  257. End Sub
  258.  
  259. 'マウスが移動したときに呼ばれるハンドラ
  260. Private Sub mainscr_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  261.     'マウス移動処理
  262.     MouseMoveProc Int(X)
  263. End Sub
  264.  
  265. '-----------------------------------------------------------------------
  266. ' ゲームの制御
  267. '-----------------------------------------------------------------------
  268.  
  269. 'ステージ開始処理
  270. Private Sub StartStage()
  271.     If Not boPlaying Then
  272.         Form1.Command1.Enabled = False  'STARTボタンを禁止
  273.         Form1.Combo1.Enabled = False    '速度選択コンボを禁止
  274.         boPlaying = True                'プレイ中
  275.     
  276.         'ステージ開始処理
  277.         StartStageProc
  278.     End If
  279. End Sub
  280.  
  281. 'ステージクリア処理
  282. Private Sub ClearStage()
  283.     If boPlaying Then
  284.         'ステージクリア処理
  285.         ClearStageProc
  286.  
  287.         Form1.Command1.Enabled = True   'STARTボタンを許可
  288.         Form1.Combo1.Enabled = True     '速度選択コンボを許可
  289.         boPlaying = True                'プレイ中でない
  290.     End If
  291. End Sub
  292.  
  293. 'ゲームオーバー処理
  294. Private Sub GameOver()
  295.     If boPlaying Then
  296.         'ゲームオーバー処理
  297.         GameOverProc
  298.  
  299.         Form1.Command1.Enabled = True   'STARTボタンを許可
  300.         Form1.Combo1.Enabled = True     '速度選択コンボを許可
  301.         boPlaying = True                'プレイ中でない
  302.     End If
  303. End Sub
  304.  
  305.  
  306.