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