home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / exds100 / spack / exceed6.frm < prev    next >
Text File  |  1995-09-29  |  11KB  |  349 lines
  1. VERSION 2.00
  2. Begin Form STAT 
  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          =   5445
  11.    Icon            =   EXCEED6.FRX:0000
  12.    Left            =   1425
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   4995
  15.    ScaleWidth      =   7515
  16.    Top             =   1080
  17.    Width           =   7635
  18.    Begin OptionButton Option1 
  19.       BackColor       =   &H00C0C0C0&
  20.       Caption         =   "ﾌﾞﾗﾝｸ区切り"
  21.       FontBold        =   0   'False
  22.       FontItalic      =   0   'False
  23.       FontName        =   "ＭＳ ゴシック"
  24.       FontSize        =   13.5
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   375
  28.       Index           =   1
  29.       Left            =   210
  30.       TabIndex        =   10
  31.       Top             =   1260
  32.       Width           =   2025
  33.    End
  34.    Begin OptionButton Option1 
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "カンマ区切り"
  37.       FontBold        =   0   'False
  38.       FontItalic      =   0   'False
  39.       FontName        =   "ＭＳ ゴシック"
  40.       FontSize        =   13.5
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   375
  44.       Index           =   0
  45.       Left            =   210
  46.       TabIndex        =   9
  47.       Top             =   900
  48.       Value           =   -1  'True
  49.       Width           =   2025
  50.    End
  51.    Begin CommandButton QQQ 
  52.       Caption         =   "Help"
  53.       Height          =   375
  54.       Index           =   1
  55.       Left            =   3660
  56.       TabIndex        =   4
  57.       Top             =   4320
  58.       Width           =   1545
  59.    End
  60.    Begin CommandButton CMD 
  61.       Caption         =   "実行"
  62.       Height          =   495
  63.       Left            =   2490
  64.       TabIndex        =   3
  65.       Top             =   4200
  66.       Width           =   1095
  67.    End
  68.    Begin CommandButton QQQ 
  69.       Caption         =   "Quit"
  70.       Height          =   375
  71.       Index           =   0
  72.       Left            =   5340
  73.       TabIndex        =   1
  74.       Top             =   4320
  75.       Width           =   1545
  76.    End
  77.    Begin TextBox Text1 
  78.       BackColor       =   &H0000FFFF&
  79.       Height          =   495
  80.       Index           =   0
  81.       Left            =   180
  82.       TabIndex        =   0
  83.       Text            =   "22, 44,12, 8, 24.5 , 66, 75 , 0.1"
  84.       Top             =   330
  85.       Width           =   7065
  86.    End
  87.    Begin Label Label3 
  88.       BackColor       =   &H0000FF00&
  89.       BorderStyle     =   1  '実線
  90.       Height          =   465
  91.       Index           =   5
  92.       Left            =   1380
  93.       TabIndex        =   18
  94.       Top             =   2910
  95.       Width           =   5835
  96.    End
  97.    Begin Label Label4 
  98.       Alignment       =   1  '右揃え
  99.       BackStyle       =   0  '透明
  100.       Caption         =   "対総計比"
  101.       FontBold        =   0   'False
  102.       FontItalic      =   0   'False
  103.       FontName        =   "ＭＳ ゴシック"
  104.       FontSize        =   12.75
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   345
  108.       Index           =   4
  109.       Left            =   180
  110.       TabIndex        =   17
  111.       Top             =   2970
  112.       Width           =   1155
  113.    End
  114.    Begin Label Label3 
  115.       BackColor       =   &H0000FF00&
  116.       BorderStyle     =   1  '実線
  117.       Height          =   465
  118.       Index           =   4
  119.       Left            =   4800
  120.       TabIndex        =   16
  121.       Top             =   2400
  122.       Width           =   1545
  123.    End
  124.    Begin Label Label4 
  125.       Alignment       =   1  '右揃え
  126.       BackStyle       =   0  '透明
  127.       Caption         =   "総計"
  128.       FontBold        =   0   'False
  129.       FontItalic      =   0   'False
  130.       FontName        =   "ＭＳ ゴシック"
  131.       FontSize        =   12.75
  132.       FontStrikethru  =   0   'False
  133.       FontUnderline   =   0   'False
  134.       Height          =   345
  135.       Index           =   3
  136.       Left            =   3570
  137.       TabIndex        =   15
  138.       Top             =   2460
  139.       Width           =   1155
  140.    End
  141.    Begin Label Label3 
  142.       BackColor       =   &H0000FF00&
  143.       BorderStyle     =   1  '実線
  144.       Height          =   465
  145.       Index           =   3
  146.       Left            =   4800
  147.       TabIndex        =   14
  148.       Top             =   1890
  149.       Width           =   1545
  150.    End
  151.    Begin Label Label4 
  152.       Alignment       =   1  '右揃え
  153.       BackStyle       =   0  '透明
  154.       Caption         =   "平均値"
  155.       FontBold        =   0   'False
  156.       FontItalic      =   0   'False
  157.       FontName        =   "ＭＳ ゴシック"
  158.       FontSize        =   12.75
  159.       FontStrikethru  =   0   'False
  160.       FontUnderline   =   0   'False
  161.       Height          =   345
  162.       Index           =   2
  163.       Left            =   3570
  164.       TabIndex        =   13
  165.       Top             =   1950
  166.       Width           =   1155
  167.    End
  168.    Begin Label Label3 
  169.       BackColor       =   &H0000FF00&
  170.       BorderStyle     =   1  '実線
  171.       Height          =   465
  172.       Index           =   2
  173.       Left            =   1380
  174.       TabIndex        =   12
  175.       Top             =   2400
  176.       Width           =   1545
  177.    End
  178.    Begin Label Label4 
  179.       Alignment       =   1  '右揃え
  180.       BackStyle       =   0  '透明
  181.       Caption         =   "最小値"
  182.       FontBold        =   0   'False
  183.       FontItalic      =   0   'False
  184.       FontName        =   "ＭＳ ゴシック"
  185.       FontSize        =   12.75
  186.       FontStrikethru  =   0   'False
  187.       FontUnderline   =   0   'False
  188.       Height          =   345
  189.       Index           =   1
  190.       Left            =   180
  191.       TabIndex        =   11
  192.       Top             =   2460
  193.       Width           =   1155
  194.    End
  195.    Begin Label Label4 
  196.       Alignment       =   1  '右揃え
  197.       BackStyle       =   0  '透明
  198.       Caption         =   "最大値"
  199.       FontBold        =   0   'False
  200.       FontItalic      =   0   'False
  201.       FontName        =   "ＭＳ ゴシック"
  202.       FontSize        =   12.75
  203.       FontStrikethru  =   0   'False
  204.       FontUnderline   =   0   'False
  205.       Height          =   345
  206.       Index           =   0
  207.       Left            =   180
  208.       TabIndex        =   8
  209.       Top             =   1950
  210.       Width           =   1155
  211.    End
  212.    Begin Label Label3 
  213.       BackColor       =   &H0000FF00&
  214.       BorderStyle     =   1  '実線
  215.       Height          =   465
  216.       Index           =   1
  217.       Left            =   1380
  218.       TabIndex        =   7
  219.       Top             =   1890
  220.       Width           =   1545
  221.    End
  222.    Begin Label Label1 
  223.       BackStyle       =   0  '透明
  224.       Caption         =   "返却値　0:正常  -1:算術不能"
  225.       FontBold        =   0   'False
  226.       FontItalic      =   0   'False
  227.       FontName        =   "ＭＳ ゴシック"
  228.       FontSize        =   12.75
  229.       FontStrikethru  =   0   'False
  230.       FontUnderline   =   0   'False
  231.       Height          =   345
  232.       Left            =   2040
  233.       TabIndex        =   6
  234.       Top             =   3630
  235.       Width           =   3855
  236.    End
  237.    Begin Label Label2 
  238.       BackStyle       =   0  '透明
  239.       Caption         =   "ｶﾝﾏまたはﾌﾞﾗﾝｸで区切られたﾃﾞｰﾀ列"
  240.       FontBold        =   0   'False
  241.       FontItalic      =   0   'False
  242.       FontName        =   "ＭＳ ゴシック"
  243.       FontSize        =   9.75
  244.       FontStrikethru  =   0   'False
  245.       FontUnderline   =   0   'False
  246.       Height          =   255
  247.       Index           =   0
  248.       Left            =   210
  249.       TabIndex        =   5
  250.       Top             =   120
  251.       Width           =   3645
  252.    End
  253.    Begin Label Label3 
  254.       BackColor       =   &H0000FF00&
  255.       BorderStyle     =   1  '実線
  256.       Height          =   465
  257.       Index           =   0
  258.       Left            =   1380
  259.       TabIndex        =   2
  260.       Top             =   3540
  261.       Width           =   495
  262.    End
  263. End
  264. Option Explicit
  265.  
  266. Dim entmode As Integer
  267.  
  268. Sub CMD_Click ()
  269. Dim s1    As String
  270. Dim s2    As String * 1025
  271. Dim s3    As String * 1025
  272. Dim wk    As String * 256
  273.  
  274. Dim rr, rt
  275. Dim modes As Integer, i As Integer
  276.  
  277.  
  278.  
  279.   modes = 1
  280.   s1 = TEXT1(0).Text
  281.   If Option1(0).Value Then                'カンマ
  282.     rt = Statistic%(s1, s3, s2, 1, modes)
  283.     'If modes = 1 Then
  284.       For i = 1 To 4 Step 1
  285.         rr = EXtract(1, i, s2, wk)
  286.         label3(i).Caption = wk
  287.       Next i
  288.     'End If
  289.   Else                                    'ﾌﾞﾗﾝｸ
  290.     rt = Statistic%(s1, s3, s2, 2, modes)
  291.     'If modes = 1 Then
  292.       For i = 1 To 4 Step 1
  293.         rr = EXtract(2, i, s2, wk)
  294.         label3(i).Caption = wk
  295.       Next i
  296.     'End If
  297.   End If
  298.   '
  299.   label3(0).Caption = Str$(rt)
  300.   'If modes = 2 Then
  301.     label3(5).Caption = s3
  302.   'End If
  303.   '
  304.  
  305. End Sub
  306.  
  307. Sub Form_Load ()
  308. Dim i As Integer
  309. i = StrMain.CMD(0).Tag
  310. Caption = StrMain.CMD(i).Caption + "  （" + StrMain.Label1(i).Caption + "）  " + "　動作試験"
  311. entmode = 0
  312. End Sub
  313.  
  314. Sub QQQ_Click (Index As Integer)
  315. Dim ccc As String
  316. Dim MM  As String
  317.   ccc = Chr$(13)
  318.   Select Case Index
  319.   Case 0
  320.     Unload Me
  321.   Case 1
  322.  
  323.     MM = MM + "Ｓｔａｔｉｓｔｉｃ" + ccc + ccc
  324.     MM = MM + "　＜概要＞数値データ列を解析して簡易集計値を取得する" + ccc + ccc
  325.     MM = MM + "　＜引数＞" + ccc
  326.     MM = MM + "　　　　　＜集計対象文字列＞ ＜対合計比率文字列＞　＜最大,最小,平均,合計値文字列＞" + ccc
  327.     MM = MM + "　　　　　＜1:ｶﾝﾏ2:ﾌﾞﾗﾝｸ（区切り指定）＞　＜1:固定＞" + ccc + ccc
  328.     MM = MM + "　＜返却値＞　　0 :正常" + ccc
  329.     MM = MM + "　　　　　　　　-1:エラー" + ccc + ccc
  330.     MM = MM + "　＜特記事項＞　受け取り文字列は　1025バイト以上を固定でとって下さい" + ccc
  331.     MM = MM + "　　　　　　　　Dim buf1 As String * 1025 " + ccc
  332.     MM = MM + "　　　　　　　　Dim buf2 As String * 1025" + ccc
  333.     MM = MM + "" + ccc
  334.     MM = MM + "　　　　　　　　ｶﾝﾏ指定でｶﾝﾏがない・ﾌﾞﾗﾝｸ指定なのにｶﾝﾏが入っている" + ccc
  335.     MM = MM + "　　　　　　　　ｶﾝﾏ指定でｶﾝﾏが入っていないなどの文字列では返却値は" + ccc
  336.     MM = MM + "　　　　　　　　0を返してしまいます、予めデータの妥当性は確認して" + ccc
  337.     MM = MM + "　　　　　　　　からお使い下さい。次期バージョンではﾁｪｯｸを強化する予定です。" + ccc + ccc
  338.     MM = MM + "　＜返却例＞　　第３引数に戻されるデータは区切り指定した記号を使って　　　　　" + ccc
  339.     MM = MM + "　　　　　　　　最大値、最小値、平均値、合計値　の文字列でわたります。" + ccc
  340.     MM = MM + "　　　　　　　　第２引数に戻される文字列は合計値に対する各要素の比率(%)を" + ccc
  341.     MM = MM + "　　　　　　　　区切り指定の記号を使って文字列で返却されます。返却要素は" + ccc
  342.     MM = MM + "　　　　　　　　対象要素の並び順になります。" + ccc + ccc
  343.     MM = MM + "　※システムではカレントディレクトリにstatis.txtファイルを出力しています。" + ccc
  344.     MM = MM + "　　不要な場合は消して下さい。"
  345.     MsgBox MM
  346.   End Select
  347. End Sub
  348.  
  349.