home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / util / time2win / t2w32500.exe / _MDIT2W.FRM < prev    next >
Text File  |  1997-12-25  |  13KB  |  421 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.MDIForm mdiT2W 
  4.    AutoShowChildren=   0   'False
  5.    BackColor       =   &H00808080&
  6.    Caption         =   "TIME TO WIN 32-Bit DEMO"
  7.    ClientHeight    =   7335
  8.    ClientLeft      =   705
  9.    ClientTop       =   1245
  10.    ClientWidth     =   13125
  11.    Icon            =   "_Mdit2w.frx":0000
  12.    Begin Threed.SSPanel SSPanel1 
  13.       Align           =   1  'Align Top
  14.       Height          =   465
  15.       Left            =   0
  16.       TabIndex        =   0
  17.       Top             =   0
  18.       Width           =   13125
  19.       _Version        =   65536
  20.       _ExtentX        =   23151
  21.       _ExtentY        =   820
  22.       _StockProps     =   15
  23.       BackColor       =   12632256
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   8.25
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       Begin VB.Timer Timer1 
  34.          Enabled         =   0   'False
  35.          Left            =   11025
  36.          Top             =   30
  37.       End
  38.       Begin VB.PictureBox Picture1 
  39.          AutoSize        =   -1  'True
  40.          Height          =   300
  41.          Left            =   11550
  42.          Picture         =   "_Mdit2w.frx":030A
  43.          ScaleHeight     =   240
  44.          ScaleWidth      =   240
  45.          TabIndex        =   6
  46.          Top             =   75
  47.          Visible         =   0   'False
  48.          Width           =   300
  49.       End
  50.       Begin VB.ComboBox cmb_Group 
  51.          Height          =   315
  52.          Left            =   2250
  53.          TabIndex        =   2
  54.          Top             =   90
  55.          Width           =   4695
  56.       End
  57.       Begin VB.Label Label1 
  58.          Caption         =   "&Select a group of functions"
  59.          Height          =   255
  60.          Left            =   90
  61.          TabIndex        =   1
  62.          Tag             =   "this"
  63.          Top             =   120
  64.          Width           =   2085
  65.       End
  66.    End
  67.    Begin Threed.SSPanel SSPanel2 
  68.       Align           =   2  'Align Bottom
  69.       Height          =   420
  70.       Left            =   0
  71.       TabIndex        =   3
  72.       Top             =   6915
  73.       Width           =   13125
  74.       _Version        =   65536
  75.       _ExtentX        =   23151
  76.       _ExtentY        =   741
  77.       _StockProps     =   15
  78.       BackColor       =   12632256
  79.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "MS Sans Serif"
  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.       Begin Threed.SSPanel pnl_Timer 
  89.          Height          =   240
  90.          Left            =   2970
  91.          TabIndex        =   5
  92.          Top             =   90
  93.          Width           =   825
  94.          _Version        =   65536
  95.          _ExtentX        =   1455
  96.          _ExtentY        =   423
  97.          _StockProps     =   15
  98.          BackColor       =   12632256
  99.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.             Name            =   "MS Sans Serif"
  101.             Size            =   8.25
  102.             Charset         =   0
  103.             Weight          =   400
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.       End
  109.       Begin Threed.SSPanel pnl_Version 
  110.          Height          =   240
  111.          Left            =   11340
  112.          TabIndex        =   8
  113.          Top             =   90
  114.          Width           =   510
  115.          _Version        =   65536
  116.          _ExtentX        =   900
  117.          _ExtentY        =   423
  118.          _StockProps     =   15
  119.          BackColor       =   12632256
  120.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.             Name            =   "MS Sans Serif"
  122.             Size            =   8.25
  123.             Charset         =   0
  124.             Weight          =   400
  125.             Underline       =   0   'False
  126.             Italic          =   0   'False
  127.             Strikethrough   =   0   'False
  128.          EndProperty
  129.       End
  130.       Begin VB.Label Label4 
  131.          AutoSize        =   -1  'True
  132.          Height          =   195
  133.          Left            =   4935
  134.          TabIndex        =   9
  135.          Top             =   105
  136.          Width           =   45
  137.       End
  138.       Begin VB.Label Label3 
  139.          Alignment       =   1  'Right Justify
  140.          Caption         =   "TIME2WIN version"
  141.          Height          =   225
  142.          Left            =   9765
  143.          TabIndex        =   7
  144.          Tag             =   "elapsed time for ~ iterations (in ms)"
  145.          Top             =   105
  146.          Width           =   1440
  147.       End
  148.       Begin VB.Label Label2 
  149.          Caption         =   "elapsed time for ? iterations (in ms)"
  150.          Height          =   225
  151.          Left            =   90
  152.          TabIndex        =   4
  153.          Tag             =   "elapsed time for ~ iterations (in ms)"
  154.          Top             =   105
  155.          Width           =   2805
  156.       End
  157.    End
  158.    Begin VB.Menu mnu_List 
  159.       Caption         =   "&Window List"
  160.       WindowList      =   -1  'True
  161.    End
  162.    Begin VB.Menu mnu_Exit 
  163.       Caption         =   "E&xit"
  164.    End
  165.    Begin VB.Menu mnu_New 
  166.       Caption         =   "14 new functions"
  167.       Begin VB.Menu mnu_new01 
  168.          Caption         =   "GetBit2 (bit string/value : 3 functions)"
  169.       End
  170.       Begin VB.Menu mnu_New02 
  171.          Caption         =   "SetBit2 (bit string/value : 3 functions)"
  172.       End
  173.       Begin VB.Menu mnu_New03 
  174.          Caption         =   "OS Value (windows 95/NT : 7 fucntions)"
  175.       End
  176.       Begin VB.Menu mnu_New04 
  177.          Caption         =   "GetNetUser"
  178.       End
  179.       Begin VB.Menu mnu_New05 
  180.          Caption         =   ""
  181.       End
  182.    End
  183. End
  184. Attribute VB_Name = "mdiT2W"
  185. Attribute VB_GlobalNameSpace = False
  186. Attribute VB_Creatable = False
  187. Attribute VB_PredeclaredId = True
  188. Attribute VB_Exposed = False
  189. Option Explicit
  190.  
  191. Dim IsLoaded         As Integer
  192.  
  193. Dim TimerStartOk     As Integer
  194. Dim TimerCloseOk     As Integer
  195.  
  196. Dim TimerHandle      As Integer
  197. Dim TimerValue       As Long
  198. Private Sub cmb_Group_Click()
  199.  
  200.    If (IsLoaded = False) Then Exit Sub
  201.  
  202.    Dim Frm        As Form
  203.  
  204.    Select Case cmb_Group.ListIndex
  205.       Case 0:  Set Frm = frmArray
  206.       Case 1:  Set Frm = frmBitString
  207.       Case 2:  Set Frm = frmDayMonth
  208.       Case 3:  Set Frm = frmDAString
  209.       Case 4:  Set Frm = frmDALong
  210.       Case 5:  Set Frm = frmDAType
  211.       Case 6:  Set Frm = frmIeeenum
  212.       Case 7:  Set Frm = frmMem
  213.       Case 8:  Set Frm = frmFile
  214.       Case 9:  Set Frm = frmCompress
  215.       Case 10: Set Frm = frmCrc32
  216.       Case 11: Set Frm = frmEncrypt
  217.       Case 12: Set Frm = frmMatrix
  218.       Case 13: Set Frm = frmIsX
  219.       Case 14: Set Frm = frmSerialization
  220.       Case 15: Set Frm = frmString
  221.       Case 16: Set Frm = frmMisc
  222.       Case 17: Set Frm = frmObject
  223.       Case 18: Set Frm = frmLanguage
  224.       Case 19: Set Frm = frmCrypt
  225.       Case 20: Set Frm = frmRegistry
  226.       Case 21: Set Frm = frmMediaID
  227.       Case 22: Set Frm = frmDIBBitmap
  228.       Case 23: Set Frm = frmTile
  229.       Case 24: Set Frm = frmEnumPJ
  230.       Case 25: Set Frm = frmDateTime
  231.       Case 26: Set Frm = frmComboList
  232.       Case 27: Set Frm = frmWindows
  233.       Case 28: Set Frm = frmMailNews
  234.       Case 29: Set Frm = frmMath
  235.    End Select
  236.    
  237.    Load Frm
  238.    
  239. End Sub
  240. Private Sub MDIForm_Load()
  241.  
  242.    Dim intResult     As Integer
  243.    Dim hWnd          As Long
  244.    
  245.    hWnd = cDisplaySplash(App.Path + "\time2win.dib", 7000, True)
  246.  
  247.    Me.WindowState = 2
  248.    
  249.    IsLoaded = False
  250.    
  251.    pnl_Version = Format(cGetVersion(), "#.00")
  252.    
  253.    Call cCenterWindow(Me.hWnd)
  254.    
  255.    Call sub_Check_Project
  256.  
  257.    Call sub_Initialization
  258.  
  259.    Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
  260.    
  261.    If (cIsRegistered() = True) Then
  262.       Label4.Caption = "Thank you for your registration   "
  263.       Me.Caption = Me.Caption + " (registered)"
  264.    Else
  265.       Label4.Caption = "Register TIME TO WIN   "
  266.       Me.Caption = Me.Caption + " (unregistered)"
  267.    End If
  268.    
  269.    Timer1.interval = 124
  270.    Timer1.Enabled = True
  271.    
  272.    Me.Show
  273.    
  274.    IsLoaded = True
  275.    
  276. End Sub
  277. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  278.  
  279.    Dim intResult     As Integer
  280.  
  281.    If (Len(T2WDirTest) > 0) Then
  282.       intResult = cChDir(T2WDirInst)
  283.       intResult = cKillDirs(T2WDirTest, True)
  284.    End If
  285.    
  286.    If (cIsRegistered() = True) Then
  287.       MsgBox "Thank you for your registration", , "T2WIN-32.DLL (registered)"
  288.    Else
  289.       MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL (unregistered)"
  290.    End If
  291.    
  292.    intResult = cTaskBarDeleteIcon(mdiT2W.hWnd)
  293.          
  294. End Sub
  295.  
  296. Private Sub MDIForm_Resize()
  297.    
  298.    Dim intResult     As Integer
  299.    
  300.    If (Me.WindowState = 1) Then
  301.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
  302.    End If
  303.    
  304.    If (Me.WindowState = 2) Then
  305.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
  306.    End If
  307.       
  308.    If (Me.WindowState = 0) Then Me.WindowState = 2
  309.    
  310. End Sub
  311. Private Sub mnu_Exit_Click()
  312.  
  313.    Unload Me
  314.  
  315. End Sub
  316. Private Sub Timer1_Timer()
  317.  
  318.    Label4.Caption = cScrollL(Label4.Caption)
  319.    
  320. End Sub
  321.  
  322. Private Sub SSPanel1_Click()
  323.  
  324.    Dim x          As Integer
  325.    Dim y          As Integer
  326.    Dim iErrorCode As Integer
  327.    
  328.    Debug.Print cGetNetNumberOfAdapter(iErrorCode)
  329.    Debug.Print cGetNetAdapterNumber(1, iErrorCode)
  330.    Debug.Print cGetNetAdapterMacAddress(0, 1, iErrorCode), iErrorCode
  331.    Debug.Print cGetNetAdapterMacAddress(0, 2, iErrorCode), iErrorCode
  332.    Debug.Print cGetNetAdapterMacAddress(1, 1, iErrorCode), iErrorCode
  333.    Debug.Print cGetNetAdapterMacAddress(1, 2, iErrorCode), iErrorCode
  334.    
  335.    Exit Sub
  336.  
  337. '   Const Size = 40000
  338. '
  339. '   Dim i, j As Long
  340. '
  341. '   ReDim TestArray(0 To 2, 0 To Size) As Single
  342. '
  343. '   For i = 0 To Size
  344. '      TestArray(0, i) = 1
  345. '      TestArray(1, i) = i
  346. '      TestArray(2, i) = i + 1
  347. '   Next i
  348. '
  349. '   TestArray(0, i - 3) = 1
  350. '   TestArray(1, i - 3) = ((i - 3) * 1)
  351. '   TestArray(2, i - 3) = ((i - 3) * 2)
  352. '
  353. '   TestArray(0, i - 2) = 1
  354. '   TestArray(1, i - 2) = ((i - 2) * 1)
  355. '   TestArray(2, i - 2) = ((i - 2) * 2)
  356. '
  357. '   TestArray(0, i - 1) = 1
  358. '   TestArray(1, i - 1) = ((i - 1) * 1)
  359. '   TestArray(2, i - 1) = ((i - 1) * 2)
  360. '
  361. '   'TestArray(0, 5) = 1
  362. '   'TestArray(1, 5) = 1
  363. '   'TestArray(2, 5) = 2
  364. '
  365. '   'TestArray(0, 2) = 1
  366. '   'TestArray(1, 2) = 1
  367. '   'TestArray(2, 2) = 5
  368. '
  369. '   'TestArray(0, 1) = 10
  370. '   'TestArray(1, 1) = 1
  371. '   'TestArray(2, 1) = 1
  372. '
  373. '   'TestArray(0, 10) = 1
  374. '   'TestArray(1, 10) = 1
  375. '   'TestArray(2, 10) = 2
  376. '
  377. '   'TestArray(0, 9) = 11
  378. '   'TestArray(1, 9) = 1
  379. '   'TestArray(2, 9) = 5
  380. '
  381. '   Debug.Print TestArray(0, Size - 2), TestArray(1, Size - 2), TestArray(2, Size - 2)
  382. '   Debug.Print TestArray(0, Size - 1), TestArray(1, Size - 1), TestArray(2, Size - 1)
  383. '   Debug.Print TestArray(0, Size), TestArray(1, Size), TestArray(2, Size)
  384. '
  385. '   'j = cRmvDupS(TestArray(), False) 'True)
  386. '
  387. '   'ReDim Preserve TestArray(0 To 2, 0 To (j - 1))
  388. '
  389. '   Debug.Print "New array is "; j
  390. '   Debug.Print "Ubound (dim 1) is "; UBound(TestArray(), 1)
  391. '   Debug.Print "Lbound (dim 1) is "; LBound(TestArray(), 1)
  392. '   Debug.Print "Ubound (dim 2) is "; UBound(TestArray(), 2)
  393. '   Debug.Print "Lbound (dim 2) is "; LBound(TestArray(), 2)
  394. '
  395. '   For i = 0 To (j - 1)
  396. '      Debug.Print TestArray(0, i), TestArray(1, i), TestArray(2, i)
  397. '   Next i
  398. '
  399. '   Debug.Print "------->"
  400. '
  401. '   ReDim NewTestArray(0 To 10) As Single
  402. '
  403. '   For i = 0 To 10
  404. '      NewTestArray(i) = 1
  405. '   Next i
  406. '
  407. '   NewTestArray(5) = 2
  408. '
  409. '   'j = cRmvDupS(NewTestArray(), True)
  410. '
  411. '   Debug.Print "New array is "; j
  412. '   Debug.Print "Ubound is "; UBound(NewTestArray())
  413. '   Debug.Print "Lbound is "; LBound(NewTestArray())
  414. '
  415. '   For i = 0 To (j - 1)
  416. '      Debug.Print NewTestArray(i)
  417. '   Next i
  418. '
  419. End Sub
  420.  
  421.