Programming Tool Box/SIMS_2.iso/vb_code1/odo_src/odometer.frm

Visual Basic Form | 1994-02-06 | 8.1 KB | 244 lines

VERSION 2.00
Begin Form Resource
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   ClientHeight    =   1020
   ClientLeft      =   1200
   ClientTop       =   3420
   ClientWidth     =   9990
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   1515
   Icon            =   ODOMETER.FRX:0000
   Left            =   1095
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1020
   ScaleWidth      =   9990
   Top             =   3030
   Width           =   10200
   Begin Timer CaptionTimer
      Interval        =   5000
      Left            =   1560
      Top             =   660
   End
   Begin PictureClip PicClip1
      Cols            =   20
      Location        =   "7200,3300,1440,180"
      Picture         =   ODOMETER.FRX:0302
      Rows            =   10
   End
   Begin SSPanel Panel3D1
      Alignment       =   1  'Left Justify - MIDDLE
      BevelInner      =   1  'Inset
      BevelWidth      =   2
      Caption         =   "       Sys              GDI             User              Mem                    k   C:                      k  D:                      k"
      ForeColor       =   &H00000000&
      Height          =   555
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9990
      Begin Counter Counter6
         BackColorRight  =   &H000000FF&
         DigitsLeft      =   6
         DigitsRight     =   1
         ForeColorRight  =   &H8000000E&
         Height          =   255
         Left            =   7800
         Top             =   150
         Value           =   0
         Width           =   1275
      End
      Begin PictureBox Picture2
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   240
         Left            =   9510
         ScaleHeight     =   240
         ScaleWidth      =   255
         TabIndex        =   2
         Top             =   105
         Width           =   255
      End
      Begin PictureBox Picture1
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   195
         Left            =   90
         ScaleHeight     =   195
         ScaleWidth      =   255
         TabIndex        =   1
         Top             =   105
         Width           =   255
      End
      Begin Counter Counter5
         BackColorRight  =   &H000000FF&
         DigitsLeft      =   6
         DigitsRight     =   1
         ForeColorRight  =   &H8000000E&
         Height          =   255
         Left            =   6060
         Top             =   150
         Value           =   0
         Width           =   1275
      End
      Begin Counter Counter4
         BackColorRight  =   &H000000FF&
         DigitsLeft      =   5
         DigitsRight     =   1
         ForeColorRight  =   &H8000000E&
         Height          =   255
         Left            =   4470
         Top             =   150
         Value           =   0
         Width           =   1095
      End
      Begin Counter Counter3
         BackColorRight  =   &H000000FF&
         DigitsLeft      =   1
         DigitsRight     =   2
         ForeColorRight  =   &H8000000E&
         Height          =   255
         Left            =   3225
         Top             =   150
         Value           =   0
         Width           =   495
      End
      Begin Counter Counter2
         BackColorRight  =   &H000000FF&
         DigitsLeft      =   1
         DigitsRight     =   2
         ForeColorRight  =   &H8000000E&
         Height          =   255
         Left            =   2040
         Top             =   150
         Value           =   0
         Width           =   495
      End
      Begin Counter Counter1
         BackColorRight  =   &H000000FF&
         DigitsLeft      =   1
         DigitsRight     =   2
         ForeColorRight  =   &H8000000E&
         Height          =   255
         Left            =   870
         Top             =   150
         Value           =   0
         Width           =   495
      End
   End
   Begin Timer Mem_Timer
      Interval        =   10
      Left            =   5100
      Top             =   840
   End
Sub CaptionTimer_Timer ()
       'set info in icon caption
    If Resource.WindowState = 1 Then
          Resource.Caption = "Sys = " & (SysReSrc * 100) & "% " & Format$((GetFreeSpace(&H0) / 1024 / 1024), "##.0") & " meg"
          Else
               Resource.Caption = ""
          End If
End Sub
Sub Form_DblClick ()
    'close
End Sub
Sub Form_Load ()
    left = (Screen.Width / 2 - Width / 2)
    top = (Screen.Height - Screen.Height + 25)
    Height = 555

     picture1.Picture = PicClip1.GraphicCell(0)
     picture2.Picture = PicClip1.GraphicCell(9)
     SetWindowPos Resource.hWnd, HWND_TOPMOST, 0, 0, 0, 0, &H40
     SysReSrc = GetFreeSystemResources(GFSR_SYSTEMRESOURCES) / 100
     Resource.Counter1.Value = SysReSrc
     GdiReSrc = GetFreeSystemResources(GFSR_GDIRESOURCES) / 100
     Resource.Counter2.Value = GdiReSrc
     UserReSrc = GetFreeSystemResources(GFSR_USERRESOURCES) / 100
     Resource.Counter3.Value = UserReSrc
     Resource.Counter4.Value = GetFreeSpace(&H0) / 1024

     z% = 1  ' free space
     Y% = 3  ' drive 0 is default drive drive A is 1 etc.
     x& = DiskInfo&(Y%, z%)
     Resource.Counter5.Value = x& / 1024
     z% = 1  ' free space
     t% = 2 'total space
     Y% = 4  ' drive 0 is default drive drive A is 1 etc.
     x& = DiskInfo&(Y%, z%)
     If x& = -1 Then
          CounterFlag = True
          Panel3D1.Caption = "       Sys              GDI             User              Mem                    k   C:                      k  C:                      total"
          Msg$ = "No Drive D: Detected."
          MsgBox Msg$, 64, "OdoMeter v1.2"
          w& = DiskInfo&(3, t%)
          Resource.Counter6.Value = w& / 1024
          Else
               Resource.Counter6.Value = x& / 1024
          End If
End Sub
Sub Label5_DblClick ()
    End
End Sub
Sub Label6_DblClick ()
    End
End Sub
Sub Label7_DblClick ()
    End
End Sub
Sub Label8_DblClick ()
    End
End Sub
Sub Mem_Timer_Timer ()
     ' Get system resources
     SysReSrc = GetFreeSystemResources(GFSR_SYSTEMRESOURCES) / 100
     Resource.Counter1.Value = SysReSrc
     GdiReSrc = GetFreeSystemResources(GFSR_GDIRESOURCES) / 100
     Resource.Counter2.Value = GdiReSrc
     UserReSrc = GetFreeSystemResources(GFSR_USERRESOURCES) / 100
     Resource.Counter3.Value = UserReSrc
     Resource.Counter4.Value = GetFreeSpace(&H0) / 1024

     z% = 1  ' free space
     Y% = 3  ' drive 0 is default drive drive A is 1 etc.

     x& = DiskInfo&(Y%, z%)
     Resource.Counter5.Value = x& / 1024
     Y% = 4  ' drive 0 is default drive drive A is 1 etc.
     t% = 2 'total space
     If CounterFlag = True Then
          w& = DiskInfo&(3, t%)
          Resource.Counter6.Value = w& / 1024
          ElseIf CounterFlag = False Then
               x& = DiskInfo&(Y%, z%)
               Resource.Counter6.Value = x& / 1024
          End If
End Sub
Sub Picture1_Click ()
     Unload Resource
End Sub
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
     picture1.Picture = PicClip1.GraphicCell(0 + 10)
End Sub
Sub Picture1_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)

     picture1.Picture = PicClip1.GraphicCell(0)
End Sub
Sub Picture2_Click ()
     WindowState = 1
End Sub
Sub Picture2_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)

     picture2.Picture = PicClip1.GraphicCell(9 + 10)
End Sub
Sub Picture2_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)

     picture2.Picture = PicClip1.GraphicCell(9)
End Sub