home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Intensive_2121177202008.psc / Form / Adjust.frm next >
Text File  |  2008-07-03  |  18KB  |  576 lines
  1. VERSION 5.00
  2. Begin VB.Form Adjust 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5085
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   6465
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5085
  11.    ScaleWidth      =   6465
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.TextBox MD3txt 
  15.       Alignment       =   2  'Center
  16.       BackColor       =   &H00000000&
  17.       BorderStyle     =   0  'None
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   9.75
  21.          Charset         =   0
  22.          Weight          =   700
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       ForeColor       =   &H00FFFFFF&
  28.       Height          =   285
  29.       Left            =   4440
  30.       TabIndex        =   23
  31.       Top             =   1320
  32.       Width           =   1335
  33.    End
  34.    Begin VB.TextBox DI3txt 
  35.       Alignment       =   2  'Center
  36.       BackColor       =   &H00000000&
  37.       BorderStyle     =   0  'None
  38.       BeginProperty Font 
  39.          Name            =   "MS Sans Serif"
  40.          Size            =   9.75
  41.          Charset         =   0
  42.          Weight          =   700
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       ForeColor       =   &H00FFFFFF&
  48.       Height          =   285
  49.       Left            =   4440
  50.       TabIndex        =   22
  51.       Top             =   1680
  52.       Width           =   1335
  53.    End
  54.    Begin VB.CommandButton Command1 
  55.       Caption         =   "Calculate"
  56.       Height          =   375
  57.       Left            =   3480
  58.       TabIndex        =   21
  59.       Top             =   4440
  60.       Width           =   2055
  61.    End
  62.    Begin VB.TextBox TRtxt 
  63.       Alignment       =   2  'Center
  64.       BackColor       =   &H00000000&
  65.       BorderStyle     =   0  'None
  66.       BeginProperty Font 
  67.          Name            =   "MS Sans Serif"
  68.          Size            =   9.75
  69.          Charset         =   0
  70.          Weight          =   700
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       ForeColor       =   &H00FFFFFF&
  76.       Height          =   285
  77.       Left            =   4440
  78.       TabIndex        =   12
  79.       Top             =   3840
  80.       Width           =   1335
  81.    End
  82.    Begin VB.TextBox Pktxt 
  83.       Alignment       =   2  'Center
  84.       BackColor       =   &H00000000&
  85.       BorderStyle     =   0  'None
  86.       BeginProperty Font 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   700
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       ForeColor       =   &H00FFFFFF&
  96.       Height          =   285
  97.       Left            =   4440
  98.       TabIndex        =   11
  99.       Top             =   3480
  100.       Width           =   1335
  101.    End
  102.    Begin VB.TextBox DesATrough 
  103.       Alignment       =   2  'Center
  104.       BackColor       =   &H00000000&
  105.       BorderStyle     =   0  'None
  106.       BeginProperty Font 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   9.75
  109.          Charset         =   0
  110.          Weight          =   700
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       ForeColor       =   &H00FFFFFF&
  116.       Height          =   285
  117.       Left            =   4440
  118.       TabIndex        =   10
  119.       Top             =   3120
  120.       Width           =   1335
  121.    End
  122.    Begin VB.TextBox DesAPeak 
  123.       Alignment       =   2  'Center
  124.       BackColor       =   &H00000000&
  125.       BorderStyle     =   0  'None
  126.       BeginProperty Font 
  127.          Name            =   "MS Sans Serif"
  128.          Size            =   9.75
  129.          Charset         =   0
  130.          Weight          =   700
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       ForeColor       =   &H00FFFFFF&
  136.       Height          =   285
  137.       Left            =   4440
  138.       TabIndex        =   9
  139.       Top             =   2760
  140.       Width           =   1335
  141.    End
  142.    Begin VB.TextBox ActTroughtxt 
  143.       Alignment       =   2  'Center
  144.       BackColor       =   &H00000000&
  145.       BorderStyle     =   0  'None
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   9.75
  149.          Charset         =   0
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       ForeColor       =   &H00FFFFFF&
  156.       Height          =   285
  157.       Left            =   4440
  158.       TabIndex        =   8
  159.       Top             =   2400
  160.       Width           =   1335
  161.    End
  162.    Begin VB.TextBox ActPeaktxt 
  163.       Alignment       =   2  'Center
  164.       BackColor       =   &H00000000&
  165.       BorderStyle     =   0  'None
  166.       BeginProperty Font 
  167.          Name            =   "MS Sans Serif"
  168.          Size            =   9.75
  169.          Charset         =   0
  170.          Weight          =   700
  171.          Underline       =   0   'False
  172.          Italic          =   0   'False
  173.          Strikethrough   =   0   'False
  174.       EndProperty
  175.       ForeColor       =   &H00FFFFFF&
  176.       Height          =   285
  177.       Left            =   4440
  178.       TabIndex        =   7
  179.       Top             =   2040
  180.       Width           =   1335
  181.    End
  182.    Begin VB.TextBox Text1 
  183.       Alignment       =   2  'Center
  184.       Appearance      =   0  'Flat
  185.       BackColor       =   &H00FF0000&
  186.       BorderStyle     =   0  'None
  187.       DragMode        =   1  'Automatic
  188.       BeginProperty Font 
  189.          Name            =   "MS Sans Serif"
  190.          Size            =   8.25
  191.          Charset         =   0
  192.          Weight          =   700
  193.          Underline       =   0   'False
  194.          Italic          =   0   'False
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       ForeColor       =   &H00FFFFFF&
  198.       Height          =   285
  199.       Left            =   4440
  200.       TabIndex        =   6
  201.       Top             =   1320
  202.       Width           =   1335
  203.    End
  204.    Begin VB.TextBox AminoRxtxt 
  205.       Alignment       =   2  'Center
  206.       BackColor       =   &H00000000&
  207.       BorderStyle     =   0  'None
  208.       BeginProperty Font 
  209.          Name            =   "MS Sans Serif"
  210.          Size            =   13.5
  211.          Charset         =   0
  212.          Weight          =   700
  213.          Underline       =   0   'False
  214.          Italic          =   0   'False
  215.          Strikethrough   =   0   'False
  216.       EndProperty
  217.       ForeColor       =   &H000080FF&
  218.       Height          =   495
  219.       Left            =   1560
  220.       TabIndex        =   5
  221.       Top             =   600
  222.       Width           =   3735
  223.    End
  224.    Begin VB.CommandButton FlatButton5 
  225.       Caption         =   "Back"
  226.       Height          =   375
  227.       Left            =   1080
  228.       TabIndex        =   4
  229.       Top             =   4440
  230.       Width           =   1575
  231.    End
  232.    Begin GoffsICU.ocxFormShape ocxFormShape1 
  233.       Left            =   360
  234.       Top             =   4560
  235.       _ExtentX        =   794
  236.       _ExtentY        =   873
  237.       Shape           =   4
  238.    End
  239.    Begin VB.Label Label1 
  240.       BackStyle       =   0  'Transparent
  241.       Caption         =   "o"
  242.       BeginProperty Font 
  243.          Name            =   "Marlett"
  244.          Size            =   21.75
  245.          Charset         =   2
  246.          Weight          =   700
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       ForeColor       =   &H8000000E&
  252.       Height          =   495
  253.       Index           =   7
  254.       Left            =   5880
  255.       TabIndex        =   24
  256.       Top             =   4440
  257.       Width           =   495
  258.    End
  259.    Begin VB.Label Label1 
  260.       BackStyle       =   0  'Transparent
  261.       Caption         =   "Trough Time  (hr) ="
  262.       BeginProperty Font 
  263.          Name            =   "MS Sans Serif"
  264.          Size            =   12
  265.          Charset         =   0
  266.          Weight          =   700
  267.          Underline       =   0   'False
  268.          Italic          =   0   'False
  269.          Strikethrough   =   0   'False
  270.       EndProperty
  271.       ForeColor       =   &H0000FFFF&
  272.       Height          =   375
  273.       Index           =   9
  274.       Left            =   840
  275.       TabIndex        =   20
  276.       Top             =   3840
  277.       Width           =   3375
  278.    End
  279.    Begin VB.Label Label1 
  280.       BackStyle       =   0  'Transparent
  281.       Caption         =   "Peak Time  (hr) ="
  282.       BeginProperty Font 
  283.          Name            =   "MS Sans Serif"
  284.          Size            =   12
  285.          Charset         =   0
  286.          Weight          =   700
  287.          Underline       =   0   'False
  288.          Italic          =   0   'False
  289.          Strikethrough   =   0   'False
  290.       EndProperty
  291.       ForeColor       =   &H0000FFFF&
  292.       Height          =   375
  293.       Index           =   6
  294.       Left            =   840
  295.       TabIndex        =   19
  296.       Top             =   3480
  297.       Width           =   3375
  298.    End
  299.    Begin VB.Label Label1 
  300.       BackStyle       =   0  'Transparent
  301.       Caption         =   "Desired Peak Level ="
  302.       BeginProperty Font 
  303.          Name            =   "MS Sans Serif"
  304.          Size            =   12
  305.          Charset         =   0
  306.          Weight          =   700
  307.          Underline       =   0   'False
  308.          Italic          =   0   'False
  309.          Strikethrough   =   0   'False
  310.       EndProperty
  311.       ForeColor       =   &H0000FFFF&
  312.       Height          =   375
  313.       Index           =   5
  314.       Left            =   840
  315.       TabIndex        =   18
  316.       Top             =   2760
  317.       Width           =   3255
  318.    End
  319.    Begin VB.Label Label1 
  320.       BackStyle       =   0  'Transparent
  321.       Caption         =   "Actual Peak Level ="
  322.       BeginProperty Font 
  323.          Name            =   "MS Sans Serif"
  324.          Size            =   12
  325.          Charset         =   0
  326.          Weight          =   700
  327.          Underline       =   0   'False
  328.          Italic          =   0   'False
  329.          Strikethrough   =   0   'False
  330.       EndProperty
  331.       ForeColor       =   &H0000FFFF&
  332.       Height          =   375
  333.       Index           =   4
  334.       Left            =   840
  335.       TabIndex        =   17
  336.       Top             =   2040
  337.       Width           =   3375
  338.    End
  339.    Begin VB.Label Label1 
  340.       BackStyle       =   0  'Transparent
  341.       Caption         =   "Desired Trough Level ="
  342.       BeginProperty Font 
  343.          Name            =   "MS Sans Serif"
  344.          Size            =   12
  345.          Charset         =   0
  346.          Weight          =   700
  347.          Underline       =   0   'False
  348.          Italic          =   0   'False
  349.          Strikethrough   =   0   'False
  350.       EndProperty
  351.       ForeColor       =   &H0000FFFF&
  352.       Height          =   375
  353.       Index           =   2
  354.       Left            =   840
  355.       TabIndex        =   16
  356.       Top             =   3120
  357.       Width           =   3495
  358.    End
  359.    Begin VB.Label Label1 
  360.       BackStyle       =   0  'Transparent
  361.       Caption         =   "Actual Trough Level ="
  362.       BeginProperty Font 
  363.          Name            =   "MS Sans Serif"
  364.          Size            =   12
  365.          Charset         =   0
  366.          Weight          =   700
  367.          Underline       =   0   'False
  368.          Italic          =   0   'False
  369.          Strikethrough   =   0   'False
  370.       EndProperty
  371.       ForeColor       =   &H0000FFFF&
  372.       Height          =   375
  373.       Index           =   3
  374.       Left            =   840
  375.       TabIndex        =   15
  376.       Top             =   2400
  377.       Width           =   3495
  378.    End
  379.    Begin VB.Label Label1 
  380.       BackStyle       =   0  'Transparent
  381.       Caption         =   "Dosing Interval (hrs) ="
  382.       BeginProperty Font 
  383.          Name            =   "MS Sans Serif"
  384.          Size            =   12
  385.          Charset         =   0
  386.          Weight          =   700
  387.          Underline       =   0   'False
  388.          Italic          =   0   'False
  389.          Strikethrough   =   0   'False
  390.       EndProperty
  391.       ForeColor       =   &H0000FFFF&
  392.       Height          =   375
  393.       Index           =   1
  394.       Left            =   840
  395.       TabIndex        =   14
  396.       Top             =   1680
  397.       Width           =   3255
  398.    End
  399.    Begin VB.Label Label1 
  400.       BackStyle       =   0  'Transparent
  401.       Caption         =   "Maintenance Dosage ="
  402.       BeginProperty Font 
  403.          Name            =   "MS Sans Serif"
  404.          Size            =   12
  405.          Charset         =   0
  406.          Weight          =   700
  407.          Underline       =   0   'False
  408.          Italic          =   0   'False
  409.          Strikethrough   =   0   'False
  410.       EndProperty
  411.       ForeColor       =   &H0000FFFF&
  412.       Height          =   375
  413.       Index           =   0
  414.       Left            =   840
  415.       TabIndex        =   13
  416.       Top             =   1320
  417.       Width           =   3015
  418.    End
  419.    Begin VB.Label Label11 
  420.       Alignment       =   2  'Center
  421.       BackStyle       =   0  'Transparent
  422.       Caption         =   "Estimated Initial Dosage"
  423.       BeginProperty Font 
  424.          Name            =   "Verdana"
  425.          Size            =   14.25
  426.          Charset         =   0
  427.          Weight          =   700
  428.          Underline       =   0   'False
  429.          Italic          =   0   'False
  430.          Strikethrough   =   0   'False
  431.       EndProperty
  432.       ForeColor       =   &H000000FF&
  433.       Height          =   375
  434.       Index           =   0
  435.       Left            =   840
  436.       TabIndex        =   3
  437.       Top             =   120
  438.       Width           =   4455
  439.    End
  440.    Begin VB.Label Label11 
  441.       Alignment       =   2  'Center
  442.       BackStyle       =   0  'Transparent
  443.       Caption         =   "Estimated Initial Dosage"
  444.       BeginProperty Font 
  445.          Name            =   "Verdana"
  446.          Size            =   14.25
  447.          Charset         =   0
  448.          Weight          =   700
  449.          Underline       =   0   'False
  450.          Italic          =   0   'False
  451.          Strikethrough   =   0   'False
  452.       EndProperty
  453.       ForeColor       =   &H00000000&
  454.       Height          =   375
  455.       Index           =   1
  456.       Left            =   810
  457.       TabIndex        =   2
  458.       Top             =   90
  459.       Width           =   4455
  460.    End
  461.    Begin VB.Label Label107 
  462.       BackStyle       =   0  'Transparent
  463.       Caption         =   "Q"
  464.       BeginProperty Font 
  465.          Name            =   "Wingdings 2"
  466.          Size            =   15.75
  467.          Charset         =   2
  468.          Weight          =   700
  469.          Underline       =   0   'False
  470.          Italic          =   0   'False
  471.          Strikethrough   =   0   'False
  472.       EndProperty
  473.       ForeColor       =   &H0000C000&
  474.       Height          =   375
  475.       Index           =   0
  476.       Left            =   6000
  477.       TabIndex        =   0
  478.       Top             =   180
  479.       Width           =   345
  480.    End
  481.    Begin VB.Label Label107 
  482.       BackStyle       =   0  'Transparent
  483.       Caption         =   "Q"
  484.       BeginProperty Font 
  485.          Name            =   "Wingdings 2"
  486.          Size            =   15.75
  487.          Charset         =   2
  488.          Weight          =   700
  489.          Underline       =   0   'False
  490.          Italic          =   0   'False
  491.          Strikethrough   =   0   'False
  492.       EndProperty
  493.       ForeColor       =   &H0000FFFF&
  494.       Height          =   360
  495.       Index           =   1
  496.       Left            =   5970
  497.       TabIndex        =   1
  498.       Top             =   180
  499.       Visible         =   0   'False
  500.       Width           =   345
  501.    End
  502. End
  503. Attribute VB_Name = "Adjust"
  504. Attribute VB_GlobalNameSpace = False
  505. Attribute VB_Creatable = False
  506. Attribute VB_PredeclaredId = True
  507. Attribute VB_Exposed = False
  508. Private Sub CandyButton1_Click()
  509. End Sub
  510.  
  511. Private Sub Command1_Click()
  512. Pk = Val(ActPeaktxt.Text)
  513. TR = Val(ActTroughtxt.Text)
  514. MDAminog = Val(MD3txt.Text)
  515. DIAminog = Val(DI3txt.Text)
  516. TA = Val(Pktxt.Text)
  517. TB = Val(TRtxt.Text)
  518. X = Val(DesAPeak.Text)
  519. Y = Val(DesATrough.Text)
  520.     Load Adjust1
  521.     Adjust1.Show
  522. End Sub
  523.  
  524. Private Sub FlatButton5_Click()
  525.     Unload Me
  526. End Sub
  527.  
  528. Private Sub Form_Load()
  529. Me.Left = Hemodynamics.Left + 100
  530. Me.Top = Hemodynamics.Top + 900
  531. SetTopMostWindow Me.hwnd, True
  532.     Pk = 0
  533.     TR = 0
  534.     TB = 0
  535.     TH = 0
  536.     DesAPeak.Text = Str(X)
  537.     DesATrough.Text = Str(Y)
  538.     AminoRxtxt.Text = AminoRx
  539. End Sub
  540. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  541. If Button = vbLeftButton Then
  542.   ReleaseCapture
  543.   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  544. End If
  545.  
  546. End Sub
  547.  
  548.  
  549. Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  550. If Button = vbLeftButton Then
  551.   ReleaseCapture
  552.   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  553. End If
  554.  
  555. End Sub
  556.  
  557. Private Sub Label107_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  558.         Label107(0).Visible = False
  559.         Label107(1).Visible = True
  560. End Sub
  561.  
  562. Private Sub Label107_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  563.         Label107(1).Visible = False
  564.         Label107(0).Visible = True
  565.         Unload Me
  566. End Sub
  567.  
  568.  
  569. Private Sub Label11_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  570. If Button = vbLeftButton Then
  571.   ReleaseCapture
  572.   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  573. End If
  574.  
  575. End Sub
  576.