DOS/V Power Report 2000 September/VPR0009A.BIN/HANDA/HANDA.FRM

Text File | 2000-07-04 | 10KB | 339 lines

VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H80000018&
   Caption         =   "Form1"
   ClientHeight    =   6810
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9660
   FillColor       =   &H00C0C000&
   LinkTopic       =   "Form1"
   ScaleHeight     =   6810
   ScaleWidth      =   9660
   StartUpPosition =   3  'Windows の既定値
   Begin VB.CommandButton lb
      Caption         =   "左後進"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   20.25
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Index           =   0
      Left            =   600
      TabIndex        =   11
      Top             =   4680
      Width           =   1455
   End
   Begin VB.CommandButton rb
      Caption         =   "右後進"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   20.25
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Index           =   3
      Left            =   4560
      TabIndex        =   10
      Top             =   4680
      Width           =   1455
   End
   Begin VB.CommandButton lf
      Caption         =   "左前進"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   20.25
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Index           =   1
      Left            =   480
      TabIndex        =   9
      Top             =   1440
      Width           =   1455
   End
   Begin VB.CommandButton rf
      Caption         =   "右前進"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   20.25
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Index           =   0
      Left            =   4560
      TabIndex        =   8
      Top             =   1440
      Width           =   1455
   End
   Begin VB.CommandButton back
      Caption         =   "後進"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   27.75
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Index           =   1
      Left            =   2280
      TabIndex        =   7
      Top             =   4680
      Width           =   1935
   End
   Begin VB.CommandButton Command1
      BackColor       =   &H8000000D&
      Caption         =   "攻撃！"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   27.75
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4695
      Index           =   4
      Left            =   6720
      MaskColor       =   &H00C00000&
      TabIndex        =   6
      Top             =   1200
      Width           =   2535
   End
   Begin VB.CommandButton stop
      Caption         =   "停止"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   27.75
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Index           =   3
      Left            =   2280
      TabIndex        =   5
      Top             =   2880
      Width           =   1935
   End
   Begin VB.CommandButton right
      Caption         =   "右転回"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   27.75
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Index           =   2
      Left            =   4440
      TabIndex        =   4
      Top             =   2880
      Width           =   1815
   End
   Begin VB.CommandButton left
      Caption         =   "左転回"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   27.75
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Index           =   1
      Left            =   240
      TabIndex        =   3
      Top             =   2880
      Width           =   1815
   End
   Begin VB.CommandButton front
      Caption         =   "前進"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   27.75
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Index           =   0
      Left            =   2280
      TabIndex        =   0
      Top             =   960
      Width           =   1935
   End
   Begin VB.Label Label2
      Alignment       =   2  '中央揃え
      BackColor       =   &H8000000E&
      Caption         =   "ハンダでＧｏ！的地球防衛軍　ハイパー戦車コントローラー"
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Index           =   1
      Left            =   480
      TabIndex        =   2
      Top             =   240
      Width           =   8415
   End
   Begin VB.Label Label1
      BackColor       =   &H80000014&
      Caption         =   "Copyright(C)2000, by NOBU / Impress Corporation."
      BeginProperty Font
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   11.25
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   4560
      TabIndex        =   1
      Top             =   6480
      Width           =   5055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub back_Click(Index As Integer)

    X = Shell("gpio.exe 20 1", 6)
    X = Shell("gpio.exe 27 1", 6)
    X = Shell("gpio.exe 19 0", 6)
    X = Shell("gpio.exe 28 0", 6)

    AppActivate "handa"

End Sub

Private Sub front_Click(Index As Integer)

    X = Shell("gpio.exe 20 0", 6)
    X = Shell("gpio.exe 27 0", 6)
    X = Shell("gpio.exe 19 1", 6)
    X = Shell("gpio.exe 28 1", 6)

    AppActivate "handa"

End Sub

Private Sub lb_Click(Index As Integer)

    X = Shell("gpio.exe 27 1", 6)
    X = Shell("gpio.exe 19 1", 6)
    X = Shell("gpio.exe 28 0", 6)
    X = Shell("gpio.exe 20 1", 6)

    AppActivate "handa"

End Sub

Private Sub left_Click(Index As Integer)

    X = Shell("gpio.exe 27 1", 6)
    X = Shell("gpio.exe 19 1", 6)
    X = Shell("gpio.exe 28 0", 6)
    X = Shell("gpio.exe 20 0", 6)

    AppActivate "handa"

End Sub

Private Sub lf_Click(Index As Integer)

    X = Shell("gpio.exe 27 0", 6)
    X = Shell("gpio.exe 19 1", 6)
    X = Shell("gpio.exe 28 1", 6)
    X = Shell("gpio.exe 20 1", 6)

    AppActivate "handa"

End Sub

Private Sub rb_Click(Index As Integer)

    X = Shell("gpio.exe 27 1", 6)
    X = Shell("gpio.exe 19 0", 6)
    X = Shell("gpio.exe 28 1", 6)
    X = Shell("gpio.exe 20 1", 6)

    AppActivate "handa"

End Sub

Private Sub rf_Click(Index As Integer)

    X = Shell("gpio.exe 27 1", 6)
    X = Shell("gpio.exe 19 1", 6)
    X = Shell("gpio.exe 28 1", 6)
    X = Shell("gpio.exe 20 0", 6)

End Sub

Private Sub right_Click(Index As Integer)

    X = Shell("gpio.exe 27 0", 6)
    X = Shell("gpio.exe 19 0", 6)
    X = Shell("gpio.exe 28 0", 6)
    X = Shell("gpio.exe 20 1", 6)

    AppActivate "handa"

End Sub

Private Sub stop_Click(Index As Integer)

    X = Shell("gpio.exe 19 1", 6)
    X = Shell("gpio.exe 20 1", 6)
    X = Shell("gpio.exe 27 1", 6)
    X = Shell("gpio.exe 28 1", 6)

    AppActivate "handa"

End Sub