home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
fwindows
/
archive
/
exds100.lzh
/
SPACK.LZH
/
EXCEED4.FRM
< prev
next >
Wrap
Text File
|
1995-09-30
|
6KB
|
209 lines
VERSION 2.00
Begin Form TYP
BackColor = &H00C0C0C0&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 3510
Icon = EXCEED4.FRX:0000
Left = 1545
LinkTopic = "Form1"
ScaleHeight = 3060
ScaleWidth = 7530
Top = 1755
Width = 7650
Begin CommandButton QQQ
Caption = "Help"
Height = 375
Index = 1
Left = 3720
TabIndex = 4
Top = 2550
Width = 1545
End
Begin CommandButton CMD
Caption = "実行"
Height = 495
Left = 2490
TabIndex = 3
Top = 2430
Width = 1095
End
Begin CommandButton QQQ
Caption = "Quit"
Height = 375
Index = 0
Left = 5400
TabIndex = 1
Top = 2550
Width = 1545
End
Begin TextBox Text1
BackColor = &H0000FFFF&
Height = 495
Index = 0
Left = 210
TabIndex = 0
Text = " -12.34"
Top = 330
Width = 7065
End
Begin Label Label4
Alignment = 1 '右揃え
BackStyle = 0 '透明
Caption = "検査結果"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Left = 1110
TabIndex = 8
Top = 1680
Width = 1155
End
Begin Label Label3
BackColor = &H0000FF00&
BorderStyle = 1 '実線
Height = 465
Index = 1
Left = 2310
TabIndex = 7
Top = 1620
Width = 4875
End
Begin Label Label1
BackStyle = 0 '透明
Caption = "返却値 n:解析結果"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 12.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Left = 840
TabIndex = 6
Top = 1080
Width = 3855
End
Begin Label Label2
BackStyle = 0 '透明
Caption = "検査文字列"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS ゴシック"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 0
Left = 210
TabIndex = 5
Top = 120
Width = 1275
End
Begin Label Label3
BackColor = &H0000FF00&
BorderStyle = 1 '実線
Height = 465
Index = 0
Left = 210
TabIndex = 2
Top = 1020
Width = 495
End
End
Option Explicit
Dim entmode As Integer
Sub CMD_Click ()
Dim s1 As String, s2 As String
Dim rt
Dim FP, FILENAmes
s1 = TEXT1(0).Text
rt = Types%(s1)
'
label3(0).Caption = Str$(rt)
'
s2 = "解析不能です"
Select Case rt
Case 1
s2 = "文字列形式です"
Case -1
s2 = "整数文字列です"
Case -2
s2 = "実数値文字列です"
End Select
label3(1).Caption = s2
'
End Sub
Sub Form_Load ()
Dim i As Integer
i = StrMain.CMD(0).Tag
Caption = StrMain.CMD(i).Caption + " (" + StrMain.Label1(i).Caption + ") " + " 動作試験"
entmode = 0
End Sub
Sub QQQ_Click (index As Integer)
Dim ccc As String
Dim MM As String
ccc = Chr$(13)
Select Case index
Case 0
Unload Me
Case 1
MM = MM + "Types" + ccc + ccc
MM = MM + " <概要>文字列が数字で構成されているか否かを検査します。" + ccc + ccc
MM = MM + " <引数>" + ccc
MM = MM + " <検査対象文字列>" + ccc + ccc
MM = MM + " <返却値> 1 :文字列" + ccc
MM = MM + " -1:整数の文字列" + ccc
MM = MM + " -2:実数の文字列" + ccc
MM = MM + " -4:対象が検査不能" + ccc + ccc
MM = MM + " <特記事項> 12 34は整数と解釈します。 - のみは整数と解釈 . のみは" + ccc
MM = MM + " 実数と解釈します" + ccc
MM = MM + " 1234は文字列と解釈します。" + ccc
MM = MM + " 指数表現などはサポートしていません。" + ccc
MM = MM + " "
MsgBox MM
End Select
End Sub
Sub Text1_Change (index As Integer)
Dim s1 As String, s2 As String
Dim rt
Dim FP, FILENAmes
If index = 0 Then
s1 = TEXT1(0).Text
rt = Types%(s1)
'
label3(0).Caption = Str$(rt)
'
s2 = "解析不能です"
Select Case rt
Case 1
s2 = "文字列形式です"
Case -1
s2 = "整数文字列です"
Case -2
s2 = "実数値文字列です"
End Select
label3(1).Caption = s2
'
End If
End Sub