home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / exds100 / spack / exceed7.frm < prev    next >
Text File  |  1995-09-29  |  7KB  |  242 lines
  1. VERSION 2.00
  2. Begin Form Sdev 
  3.    BackColor       =   &H00C0C0C0&
  4.    FontBold        =   -1  'True
  5.    FontItalic      =   0   'False
  6.    FontName        =   "ＭＳ ゴシック"
  7.    FontSize        =   12.75
  8.    FontStrikethru  =   0   'False
  9.    FontUnderline   =   0   'False
  10.    Height          =   3810
  11.    Icon            =   EXCEED7.FRX:0000
  12.    Left            =   1425
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3360
  15.    ScaleWidth      =   7530
  16.    Top             =   1080
  17.    Width           =   7650
  18.    Begin TextBox Text2 
  19.       BackColor       =   &H0000FFFF&
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "ＭＳ ゴシック"
  23.       FontSize        =   12.75
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   435
  27.       Index           =   0
  28.       Left            =   1710
  29.       TabIndex        =   10
  30.       Text            =   "data14.txt"
  31.       Top             =   210
  32.       Width           =   3705
  33.    End
  34.    Begin CommandButton command1 
  35.       Caption         =   "閲覧"
  36.       FontBold        =   0   'False
  37.       FontItalic      =   0   'False
  38.       FontName        =   "ＭＳ ゴシック"
  39.       FontSize        =   12.75
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   465
  43.       Left            =   5490
  44.       TabIndex        =   9
  45.       Top             =   210
  46.       Width           =   855
  47.    End
  48.    Begin CommandButton QQQ 
  49.       Caption         =   "Help"
  50.       Height          =   375
  51.       Index           =   1
  52.       Left            =   2910
  53.       TabIndex        =   3
  54.       Top             =   2700
  55.       Width           =   1545
  56.    End
  57.    Begin CommandButton CMD 
  58.       Caption         =   "実行"
  59.       Height          =   495
  60.       Left            =   1740
  61.       TabIndex        =   2
  62.       Top             =   2580
  63.       Width           =   1095
  64.    End
  65.    Begin CommandButton QQQ 
  66.       Caption         =   "Quit"
  67.       Height          =   375
  68.       Index           =   0
  69.       Left            =   4590
  70.       TabIndex        =   0
  71.       Top             =   2700
  72.       Width           =   1545
  73.    End
  74.    Begin Label Label2 
  75.       Alignment       =   1  '右揃え
  76.       BackStyle       =   0  '透明
  77.       Caption         =   "ファイル１"
  78.       FontBold        =   0   'False
  79.       FontItalic      =   0   'False
  80.       FontName        =   "ＭＳ ゴシック"
  81.       FontSize        =   12.75
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   375
  85.       Index           =   1
  86.       Left            =   30
  87.       TabIndex        =   11
  88.       Top             =   270
  89.       Width           =   1635
  90.    End
  91.    Begin Label Label4 
  92.       Alignment       =   1  '右揃え
  93.       BackStyle       =   0  '透明
  94.       Caption         =   "平均値"
  95.       FontBold        =   0   'False
  96.       FontItalic      =   0   'False
  97.       FontName        =   "ＭＳ ゴシック"
  98.       FontSize        =   12.75
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       Height          =   345
  102.       Index           =   2
  103.       Left            =   510
  104.       TabIndex        =   8
  105.       Top             =   780
  106.       Width           =   1155
  107.    End
  108.    Begin Label Label3 
  109.       BackColor       =   &H0000FF00&
  110.       BorderStyle     =   1  '実線
  111.       Height          =   465
  112.       Index           =   2
  113.       Left            =   1710
  114.       TabIndex        =   7
  115.       Top             =   1230
  116.       Width           =   1545
  117.    End
  118.    Begin Label Label4 
  119.       Alignment       =   1  '右揃え
  120.       BackStyle       =   0  '透明
  121.       Caption         =   "標準偏差"
  122.       FontBold        =   0   'False
  123.       FontItalic      =   0   'False
  124.       FontName        =   "ＭＳ ゴシック"
  125.       FontSize        =   12.75
  126.       FontStrikethru  =   0   'False
  127.       FontUnderline   =   0   'False
  128.       Height          =   345
  129.       Index           =   1
  130.       Left            =   510
  131.       TabIndex        =   6
  132.       Top             =   1260
  133.       Width           =   1155
  134.    End
  135.    Begin Label Label3 
  136.       BackColor       =   &H0000FF00&
  137.       BorderStyle     =   1  '実線
  138.       Height          =   465
  139.       Index           =   1
  140.       Left            =   1710
  141.       TabIndex        =   5
  142.       Top             =   720
  143.       Width           =   1545
  144.    End
  145.    Begin Label Label1 
  146.       BackStyle       =   0  '透明
  147.       Caption         =   "返却値　0:エラー  n>0:ｻﾝﾌﾟﾙ数"
  148.       FontBold        =   0   'False
  149.       FontItalic      =   0   'False
  150.       FontName        =   "ＭＳ ゴシック"
  151.       FontSize        =   12.75
  152.       FontStrikethru  =   0   'False
  153.       FontUnderline   =   0   'False
  154.       Height          =   345
  155.       Left            =   2400
  156.       TabIndex        =   4
  157.       Top             =   2010
  158.       Width           =   3855
  159.    End
  160.    Begin Label Label3 
  161.       BackColor       =   &H0000FF00&
  162.       BorderStyle     =   1  '実線
  163.       Height          =   465
  164.       Index           =   0
  165.       Left            =   1740
  166.       TabIndex        =   1
  167.       Top             =   1920
  168.       Width           =   495
  169.    End
  170. End
  171. Option Explicit
  172.  
  173. Dim entmode As Integer
  174.  
  175. Sub CMD_Click ()
  176. Dim s1    As String
  177. '''''Dim s3    As String * 1025
  178. Dim s2    As String * 1025
  179. Dim devs  As String * 256
  180. Dim aves  As String * 256
  181. Dim samp  As Integer
  182. Dim rr, rt
  183.  
  184.   s1 = text2(0).Text
  185.   rr = Len(Trim(s1))
  186.   '
  187.   If rr <= 0 Then
  188.     MsgBox "ファイル名を指定して下さい", 64, "設定エラー"
  189.     Exit Sub
  190.   End If
  191.   '
  192.   samp = StandardDev%(s1, s2)
  193.   '
  194.   label3(0).Caption = Str$(samp)
  195.   rt = Extract%(1, 1, s2, aves)
  196.   label3(1).Caption = aves
  197.   rt = Extract%(1, 2, s2, devs)
  198.   label3(2).Caption = devs
  199.  
  200. End Sub
  201.  
  202. Sub Command1_Click ()
  203. Dim t
  204. Dim sFiles As String
  205.   sFiles = text2(0).Text
  206.   t = Shell("notepad.exe " + sFiles, 1)
  207. End Sub
  208.  
  209. Sub Form_Load ()
  210. Dim i As Integer
  211. i = StrMain.CMD(0).Tag
  212. Caption = StrMain.CMD(i).Caption + "  （" + StrMain.Label1(i).Caption + "）  " + "　動作試験"
  213. entmode = 0
  214. End Sub
  215.  
  216. Sub QQQ_Click (index As Integer)
  217. Dim ccc As String
  218. Dim MM  As String
  219.   ccc = Chr$(13)
  220.   Select Case index
  221.   Case 0
  222.     Unload Me
  223.   Case 1
  224.  
  225.     MM = MM + "ＳｔａｎｄａｒｄＤｅｖ" + ccc + ccc
  226.     MM = MM + "　＜概要＞指定データについて標準偏差を求める。" + ccc + ccc
  227.     MM = MM + "　＜引数＞" + ccc
  228.     MM = MM + "　　　　　＜データファイル＞ ＜平均値及び標準偏差返却領域＞" + ccc
  229.     MM = MM + "　　　　　標準偏差等は次のような文字列形式で返されます。" + ccc
  230.     MM = MM + "　　　　　　　12.3,44.5      平均値＋'､'＋標準偏差 " + ccc + ccc
  231.     MM = MM + "　＜返却値＞　　0:エラー" + ccc
  232.     MM = MM + "　　　　　　　　n:計算したｻﾝﾌﾟﾙ数" + ccc + ccc
  233.     MM = MM + "　＜特記事項＞　ｻﾝﾌﾟﾙ数は500までとします。" + ccc
  234.     MM = MM + "　　　　　　　　ｻﾝﾌﾟﾙが500を越えた場合は計算をやめて終了します。" + ccc
  235.     MM = MM + "" + ccc
  236.     MM = MM + "　　　　　　　　データファイルは行末が改行で終わるテキストファイルの形式で" + ccc
  237.     MM = MM + "　　　　　　　　作成されていること。" + ccc + ccc
  238.     MsgBox MM
  239.   End Select
  240. End Sub
  241.  
  242.