home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LVB / T2W32543.ZIP / _DASTR.FRM < prev    next >
Text File  |  1998-05-21  |  9KB  |  292 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDAString 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Disk array : string"
  5.    ClientHeight    =   4065
  6.    ClientLeft      =   1890
  7.    ClientTop       =   3255
  8.    ClientWidth     =   8130
  9.    MaxButton       =   0   'False
  10.    MDIChild        =   -1  'True
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   4065
  13.    ScaleWidth      =   8130
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Frame Frame1 
  16.       Height          =   570
  17.       Left            =   0
  18.       TabIndex        =   2
  19.       Top             =   -90
  20.       Width           =   8115
  21.       Begin VB.CommandButton cmdNP 
  22.          Caption         =   ">"
  23.          Height          =   285
  24.          Index           =   1
  25.          Left            =   7740
  26.          TabIndex        =   7
  27.          Top             =   195
  28.          Width           =   285
  29.       End
  30.       Begin VB.CommandButton cmdNP 
  31.          Caption         =   "<"
  32.          Height          =   285
  33.          Index           =   0
  34.          Left            =   6840
  35.          TabIndex        =   6
  36.          Top             =   195
  37.          Width           =   285
  38.       End
  39.       Begin VB.CommandButton Command1 
  40.          Caption         =   "&Go"
  41.          Default         =   -1  'True
  42.          Height          =   285
  43.          Left            =   7200
  44.          TabIndex        =   5
  45.          Top             =   195
  46.          Width           =   465
  47.       End
  48.       Begin VB.ComboBox cmb_Function 
  49.          Height          =   315
  50.          Left            =   1365
  51.          TabIndex        =   3
  52.          Top             =   180
  53.          Width           =   5385
  54.       End
  55.       Begin VB.Label Label2 
  56.          Caption         =   "&Select a function"
  57.          Height          =   255
  58.          Left            =   90
  59.          TabIndex        =   4
  60.          Top             =   210
  61.          Width           =   1275
  62.       End
  63.    End
  64.    Begin VB.Label lbl_Result 
  65.       Appearance      =   0  'Flat
  66.       BackColor       =   &H80000005&
  67.       BackStyle       =   0  'Transparent
  68.       ForeColor       =   &H80000008&
  69.       Height          =   3345
  70.       Left            =   2970
  71.       TabIndex        =   1
  72.       Top             =   630
  73.       Width           =   5055
  74.    End
  75.    Begin VB.Label lbl_Open 
  76.       Appearance      =   0  'Flat
  77.       BackColor       =   &H80000005&
  78.       BackStyle       =   0  'Transparent
  79.       BeginProperty Font 
  80.          Name            =   "Courier New"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       ForeColor       =   &H80000008&
  89.       Height          =   3345
  90.       Left            =   90
  91.       TabIndex        =   0
  92.       Top             =   630
  93.       Width           =   2715
  94.    End
  95. End
  96. Attribute VB_Name = "frmDAString"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Option Explicit
  102. Option Base 1
  103.  
  104. Private Const Iteration = 50
  105.  
  106. Dim IsLoaded         As Integer
  107.  
  108. Dim TimerStartOk     As Integer
  109. Dim TimerCloseOk     As Integer
  110.  
  111. Dim TimerHandle      As Integer
  112. Dim TimerValue       As Long
  113.  
  114.       
  115.  
  116. Private Sub cmdNP_Click(Index As Integer)
  117.  
  118.    Call sub_NextPrev(cmb_Function, Index)
  119.  
  120. End Sub
  121.  
  122.  
  123. Private Sub cmb_Function_Click()
  124.    
  125.    If (IsLoaded = False) Then Exit Sub
  126.    
  127.    Call cDisableFI(mdiT2W.Picture1)
  128.    
  129.    lbl_Result = ""
  130.    
  131.    DoEvents
  132.    
  133.    Call TestDAString(cmb_Function.ListIndex - 1)
  134.  
  135.    DoEvents
  136.    Call cEnableFI(mdiT2W.Picture1)
  137.    
  138. End Sub
  139.  
  140.  
  141. Private Sub Form_Activate()
  142.  
  143.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  144.  
  145. End Sub
  146.  
  147. Private Sub Form_Load()
  148.  
  149.    IsLoaded = False
  150.    
  151.    Show
  152.  
  153.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_dastr.t2w")
  154.    
  155.    IsLoaded = True
  156.    
  157. End Sub
  158.  
  159. Private Sub Form_Unload(Cancel As Integer)
  160.  
  161.    Dim intResult        As Integer
  162.  
  163.    intResult = cKillFileAll("c:\t2w_tmp\dastr.tmp")
  164.  
  165. End Sub
  166.  
  167.  
  168. Private Sub Command1_Click()
  169.    
  170.    Call cmb_Function_Click
  171.    
  172. End Sub
  173.  
  174.  
  175.  
  176.  
  177. Private Sub TestDAString(intManagement As Integer)
  178.    
  179.    Dim intResult        As Integer
  180.    Dim strResult        As String
  181.    Dim strOpen          As String
  182.    Dim strDisplay       As String
  183.    
  184.    Dim i                As Integer
  185.    Dim DA               As tagDISKARRAY
  186.    
  187.    intResult = 0
  188.    
  189.    strResult = ""
  190.    strOpen = ""
  191.    strDisplay = ""
  192.       
  193.    DA.nFileName = T2WDirTest + "\dastr.tmp"
  194.    DA.nType = 50
  195.    DA.nIsTyped = False
  196.    DA.nRows = 100
  197.    DA.nCols = 100
  198.    DA.nSheets = 2
  199.  
  200.    Select Case intManagement
  201.       Case True      'create
  202.          intResult = cDACreate(DA, True)
  203.       Case False     'use
  204.          intResult = cDACreate(DA, False)
  205.       Case 1         'clear all
  206.          intResult = cDACreate(DA, False)
  207.          If (intResult = -1) Then intResult = cDAClear(DA)
  208.       Case 2         'clear sheet 2
  209.          intResult = cDACreate(DA, False)
  210.          If (intResult = -1) Then intResult = cDAClearSheet(DA, 2)
  211.       Case 3         'clear last row
  212.          intResult = cDACreate(DA, False)
  213.          If (intResult = -1) Then intResult = cDAClearRow(DA, DA.nRows, 1)
  214.       Case 4         'clear last col
  215.          intResult = cDACreate(DA, False)
  216.          If (intResult = -1) Then intResult = cDAClearCol(DA, DA.nCols, 1)
  217.       Case 5         'clear last row in all sheets
  218.          intResult = cDACreate(DA, False)
  219.          If (intResult = -1) Then intResult = cDAClearRow(DA, DA.nRows, -1)
  220.       Case 6         'clear last col in all sheets
  221.          intResult = cDACreate(DA, False)
  222.          If (intResult = -1) Then intResult = cDAClearCol(DA, DA.nCols, -1)
  223.    End Select
  224.  
  225.    strDisplay = strDisplay & "Last intResult = " & intResult & vbCrLf & vbCrLf
  226.  
  227.    If (intResult = True) Then
  228.       
  229.       strOpen = strOpen & "daSize       = " & DA.daSize & vbCrLf
  230.       strOpen = strOpen & "Signature    = " & DA.signature & vbCrLf
  231.       strOpen = strOpen & "nFilename    = " & Trim$(cGetInPartR(DA.nFileName, "\", True)) & vbCrLf
  232.       strOpen = strOpen & "nType        = " & DA.nType & vbCrLf
  233.       strOpen = strOpen & "nIsTyped     = " & DA.nIsTyped & vbCrLf
  234.       strOpen = strOpen & "nRows        = " & DA.nRows & vbCrLf
  235.       strOpen = strOpen & "nCols        = " & DA.nCols & vbCrLf
  236.       strOpen = strOpen & "nSheets      = " & DA.nSheets & vbCrLf
  237.       strOpen = strOpen & "rHandle      = " & DA.rHandle & vbCrLf
  238.       strOpen = strOpen & "rElementSize = " & DA.rElementSize & vbCrLf
  239.       strOpen = strOpen & "rFileSize    = " & DA.rFileSize & vbCrLf
  240.       strOpen = strOpen & "rParts       = " & DA.rParts & vbCrLf
  241.       strOpen = strOpen & "rRemain      = " & DA.rRemain & vbCrLf
  242.       strOpen = strOpen & "rSheetSize   = " & DA.rSheetSize & vbCrLf
  243.       strOpen = strOpen & "rTime        = " & DA.rTime & vbCrLf & vbCrLf
  244.  
  245.       If (intManagement = True) Then
  246.       
  247.          Call cDAPut(DA, 1, 1, 1, "D:1, ABCDEFGHIJ")
  248.          Call cDAPut(DA, 1, DA.nCols, 1, "D:1, abcdefghij")
  249.          Call cDAPut(DA, DA.nRows, 1, 1, "D:1, OPQRSTUVWXYZ")
  250.          Call cDAPut(DA, DA.nRows, DA.nCols, 1, "D:1, oprqstuvwxyz")
  251.    
  252.          Call cDAPut(DA, 1, 1, 2, "D:2, 1234567890")
  253.          Call cDAPut(DA, 1, DA.nCols, 2, "D:2, 0987654321")
  254.          Call cDAPut(DA, DA.nRows, 1, 2, "D:2, 12345ABCDE")
  255.          Call cDAPut(DA, DA.nRows, DA.nCols, 2, "D:2, VWXYZ54321")
  256.  
  257.       End If
  258.    
  259.       strDisplay = strDisplay & "R:1  , C:1  , D:1, Value : " & Trim$(cDAGet(DA, 1, 1, 1)) & "   , time : " & DA.rTime & vbCrLf
  260.       strDisplay = strDisplay & "R:1  , C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 1)) & "   , time : " & DA.rTime & vbCrLf
  261.       strDisplay = strDisplay & "R:" & DA.nRows & ", C:1  , D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 1)) & "   , time : " & DA.rTime & vbCrLf
  262.       strDisplay = strDisplay & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 1)) & "   , time : " & DA.rTime & vbCrLf
  263.    
  264.       strDisplay = strDisplay & "R:1  , C:1  , D:2, Value : " & Trim$(cDAGet(DA, 1, 1, 2)) & "   , time : " & DA.rTime & vbCrLf
  265.       strDisplay = strDisplay & "R:1  , C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 2)) & "   , time : " & DA.rTime & vbCrLf
  266.       strDisplay = strDisplay & "R:" & DA.nRows & ", C:1  , D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 2)) & "   , time : " & DA.rTime & vbCrLf
  267.       strDisplay = strDisplay & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 2)) & "   , time : " & DA.rTime & vbCrLf
  268.  
  269.    End If
  270.  
  271.    Call cDAClose(DA, False)
  272.  
  273.    lbl_Open = strOpen
  274.    lbl_Result = strDisplay
  275.  
  276.    'time the function
  277.  
  278.    TimerHandle = cTimerOpen()
  279.    TimerStartOk = cTimerStart(TimerHandle)
  280.    
  281.    For i = 1 To Iteration
  282.       strResult = cDACreate(DA, False)
  283.       Call cDAClose(DA, False)
  284.    Next i
  285.    
  286.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  287.    
  288.    TimerCloseOk = cTimerClose(TimerHandle)
  289.  
  290. End Sub
  291.  
  292.