home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 2000 September
/
VPR0009A.BIN
/
HANDA
/
HANDA.FRM
< prev
next >
Wrap
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "MS Pゴシック"
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 = "ハンダでGo!的地球防衛軍 ハイパー戦車コントローラー"
BeginProperty Font
Name = "MS Pゴシック"
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 = "MS Pゴシック"
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