DOS/V Power Report 1996 February/VPR9602A.ISO/fwindows/exds100/spack/exceed4.frm

Text File | 1995-09-29 | 6KB | 209 lines

VERSION 2.00
Begin Form TYP
   BackColor       =   &H00C0C0C0&
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "ＭＳ ゴシック"
   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        =   "ＭＳ ゴシック"
      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        =   "ＭＳ ゴシック"
      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        =   "ＭＳ ゴシック"
      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 + "Ｔｙｐｅｓ" + 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 + "　　　　　　　　１２３４は文字列と解釈します。" + 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