home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / win3 / programr / vbasic / health.exe / HEALTH.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  4.6 KB  |  136 lines
  1. VERSION 2.00
  2. Begin Form admit 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Nursing Admission Assessment"
  5.    ClientHeight    =   6765
  6.    ClientLeft      =   180
  7.    ClientTop       =   1380
  8.    ClientWidth     =   9480
  9.    FontTransparent =   0   'False
  10.    Height          =   7170
  11.    Left            =   120
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   6765
  16.    ScaleWidth      =   9480
  17.    Tag             =   "cover"
  18.    Top             =   1035
  19.    Width           =   9600
  20.    Begin Timer Timer1 
  21.       Left            =   1800
  22.       Top             =   960
  23.    End
  24.    Begin SSPanel Panel3D1 
  25.       BackColor       =   &H00C0C0C0&
  26.       BevelInner      =   1  'Inset
  27.       BevelWidth      =   4
  28.       BorderWidth     =   5
  29.       Caption         =   "             COMMUNITY MEMORIAL                          HEALTHCENTER              Nursing Admission Assessment"
  30.       Font3D          =   4  'Inset w/heavy shading
  31.       FontBold        =   -1  'True
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Serif"
  34.       FontSize        =   24
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       ForeColor       =   &H00000000&
  38.       Height          =   6855
  39.       Left            =   0
  40.       Outline         =   -1  'True
  41.       TabIndex        =   0
  42.       Top             =   0
  43.       Width           =   9615
  44.       Begin PictureBox Picture1 
  45.          BackColor       =   &H00C0C0C0&
  46.          BorderStyle     =   0  'None
  47.          DrawMode        =   6  'Invert
  48.          FontBold        =   -1  'True
  49.          FontItalic      =   0   'False
  50.          FontName        =   "MS Serif"
  51.          FontSize        =   9.75
  52.          FontStrikethru  =   0   'False
  53.          FontUnderline   =   0   'False
  54.          ForeColor       =   &H00FF0000&
  55.          Height          =   2055
  56.          Left            =   3720
  57.          Picture         =   HEALTH.FRX:0000
  58.          ScaleHeight     =   2055
  59.          ScaleWidth      =   1575
  60.          TabIndex        =   1
  61.          Top             =   4560
  62.          Width           =   1575
  63.       End
  64.       Begin PictureBox Picture2 
  65.          AutoSize        =   -1  'True
  66.          BackColor       =   &H00C0C0C0&
  67.          BorderStyle     =   0  'None
  68.          Height          =   480
  69.          Left            =   4080
  70.          Picture         =   HEALTH.FRX:1ABC
  71.          ScaleHeight     =   480
  72.          ScaleWidth      =   480
  73.          TabIndex        =   2
  74.          Top             =   1200
  75.          Width           =   480
  76.       End
  77.    End
  78. Sub Form_Load ()
  79. SCREEN.MOUSEPOINTER = 11
  80. ' hard code for testing
  81. patientID(1) = pid1
  82. patientID(2) = pid2
  83. patientID(3) = pid3
  84. '*********************
  85. admit.Move -SCREEN.width - 10, 0, SCREEN.width, SCREEN.height
  86. panel3d1.Move admit.scaleleft, admit.scaletop, admit.scalewidth, admit.scaleheight
  87. panel3d1.caption = MainCompanyCaption$
  88. picture1.Move (admit.scalewidth - picture1.width) / 2, 3 * admit.height / 4 - picture1.height / 2
  89. picture2.Move (admit.scalewidth - picture2.width) / 2, admit.height / 4
  90.             admit.Move 0, 0
  91.             admit.picture1.autoredraw = -1
  92.             admit.picture1.Scale (0, 0)-(3, 4)
  93.             admit.picture1.currentx = .6
  94.             admit.picture1.currenty = 1.2
  95.             admit.picture1.Print "PLEASE"
  96.             admit.picture1.currentx = .7
  97.             admit.picture1.currenty = 1.8
  98.             admit.picture1.Print "WAIT:"
  99.             admit.picture1.currentx = .94
  100.             admit.picture1.currenty = 2.5
  101.             admit.picture1.Print "I'M"
  102.             admit.picture1.currentx = .5
  103.             admit.picture1.currenty = 2.95
  104.             admit.picture1.Print "LOADING"
  105. admit.timer1.interval = 1
  106. admit.timer1.enabled = -1
  107. End Sub
  108. Sub Picture1_Click ()
  109. idform.Show
  110. admit.Hide
  111. End Sub
  112. Sub Picture1_DblClick ()
  113. picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
  114. End Sub
  115. Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  116. picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
  117. End Sub
  118. Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  119. picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
  120. End Sub
  121. Sub Timer1_Timer ()
  122. Static secondtime As Integer
  123. secondtime = secondtime + 1
  124.     If secondtime = 1 Then
  125.     Load assess2
  126.     Load assess3
  127.     End If
  128. timer1.interval = 10
  129.     If secondtime = 2 Then
  130.     idform.Show
  131.     admit.Hide
  132.     timer1.enabled = 0
  133.     secondtime = 0
  134.     End If
  135. End Sub
  136.