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 / Adjust1.frm < prev    next >
Text File  |  2008-07-03  |  17KB  |  513 lines
  1. VERSION 5.00
  2. Begin VB.Form Adjust1 
  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 VDtxt 
  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        =   18
  31.       Top             =   1680
  32.       Width           =   1335
  33.    End
  34.    Begin VB.TextBox Halftxt 
  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        =   17
  51.       Top             =   2040
  52.       Width           =   1335
  53.    End
  54.    Begin VB.TextBox EstTroughtxt 
  55.       Alignment       =   2  'Center
  56.       BackColor       =   &H00000000&
  57.       BorderStyle     =   0  'None
  58.       BeginProperty Font 
  59.          Name            =   "MS Sans Serif"
  60.          Size            =   9.75
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       ForeColor       =   &H00FFFFFF&
  68.       Height          =   285
  69.       Left            =   4440
  70.       TabIndex        =   10
  71.       Top             =   3480
  72.       Width           =   1335
  73.    End
  74.    Begin VB.TextBox EstPeaktxt 
  75.       Alignment       =   2  'Center
  76.       BackColor       =   &H00000000&
  77.       BorderStyle     =   0  'None
  78.       BeginProperty Font 
  79.          Name            =   "MS Sans Serif"
  80.          Size            =   9.75
  81.          Charset         =   0
  82.          Weight          =   700
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H00FFFFFF&
  88.       Height          =   285
  89.       Left            =   4440
  90.       TabIndex        =   9
  91.       Top             =   3120
  92.       Width           =   1335
  93.    End
  94.    Begin VB.TextBox DI4txt 
  95.       Alignment       =   2  'Center
  96.       BackColor       =   &H00000000&
  97.       BorderStyle     =   0  'None
  98.       BeginProperty Font 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   9.75
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       ForeColor       =   &H00FFFFFF&
  108.       Height          =   285
  109.       Left            =   4440
  110.       TabIndex        =   8
  111.       Top             =   2760
  112.       Width           =   1335
  113.    End
  114.    Begin VB.TextBox MD4txt 
  115.       Alignment       =   2  'Center
  116.       BackColor       =   &H00000000&
  117.       BorderStyle     =   0  'None
  118.       BeginProperty Font 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   9.75
  121.          Charset         =   0
  122.          Weight          =   700
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       ForeColor       =   &H00FFFFFF&
  128.       Height          =   285
  129.       Left            =   4440
  130.       TabIndex        =   7
  131.       Top             =   2400
  132.       Width           =   1335
  133.    End
  134.    Begin VB.TextBox Text1 
  135.       Alignment       =   2  'Center
  136.       Appearance      =   0  'Flat
  137.       BackColor       =   &H00FF0000&
  138.       BorderStyle     =   0  'None
  139.       DragMode        =   1  'Automatic
  140.       BeginProperty Font 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   8.25
  143.          Charset         =   0
  144.          Weight          =   700
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       ForeColor       =   &H00FFFFFF&
  150.       Height          =   285
  151.       Left            =   4440
  152.       TabIndex        =   6
  153.       Top             =   1680
  154.       Width           =   1335
  155.    End
  156.    Begin VB.TextBox AminoRxtxt 
  157.       Alignment       =   2  'Center
  158.       BackColor       =   &H00000000&
  159.       BorderStyle     =   0  'None
  160.       BeginProperty Font 
  161.          Name            =   "MS Sans Serif"
  162.          Size            =   13.5
  163.          Charset         =   0
  164.          Weight          =   700
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       ForeColor       =   &H000080FF&
  170.       Height          =   495
  171.       Left            =   1440
  172.       TabIndex        =   5
  173.       Top             =   720
  174.       Width           =   3735
  175.    End
  176.    Begin VB.CommandButton FlatButton5 
  177.       Caption         =   "Back"
  178.       Height          =   375
  179.       Left            =   2520
  180.       TabIndex        =   4
  181.       Top             =   4440
  182.       Width           =   1575
  183.    End
  184.    Begin GoffsICU.ocxFormShape ocxFormShape1 
  185.       Left            =   360
  186.       Top             =   4560
  187.       _ExtentX        =   794
  188.       _ExtentY        =   873
  189.       Shape           =   4
  190.    End
  191.    Begin VB.Label Label1 
  192.       BackStyle       =   0  'Transparent
  193.       Caption         =   "o"
  194.       BeginProperty Font 
  195.          Name            =   "Marlett"
  196.          Size            =   21.75
  197.          Charset         =   2
  198.          Weight          =   700
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       ForeColor       =   &H8000000E&
  204.       Height          =   495
  205.       Index           =   6
  206.       Left            =   5880
  207.       TabIndex        =   19
  208.       Top             =   4440
  209.       Width           =   495
  210.    End
  211.    Begin VB.Label Label1 
  212.       BackStyle       =   0  'Transparent
  213.       Caption         =   "Estimated Peak Level ="
  214.       BeginProperty Font 
  215.          Name            =   "MS Sans Serif"
  216.          Size            =   12
  217.          Charset         =   0
  218.          Weight          =   700
  219.          Underline       =   0   'False
  220.          Italic          =   0   'False
  221.          Strikethrough   =   0   'False
  222.       EndProperty
  223.       ForeColor       =   &H0000FFFF&
  224.       Height          =   375
  225.       Index           =   5
  226.       Left            =   840
  227.       TabIndex        =   16
  228.       Top             =   3120
  229.       Width           =   3255
  230.    End
  231.    Begin VB.Label Label1 
  232.       BackStyle       =   0  'Transparent
  233.       Caption         =   "Maintenance Dosage (mg) ="
  234.       BeginProperty Font 
  235.          Name            =   "MS Sans Serif"
  236.          Size            =   12
  237.          Charset         =   0
  238.          Weight          =   700
  239.          Underline       =   0   'False
  240.          Italic          =   0   'False
  241.          Strikethrough   =   0   'False
  242.       EndProperty
  243.       ForeColor       =   &H0000FFFF&
  244.       Height          =   375
  245.       Index           =   4
  246.       Left            =   840
  247.       TabIndex        =   15
  248.       Top             =   2400
  249.       Width           =   3615
  250.    End
  251.    Begin VB.Label Label1 
  252.       BackStyle       =   0  'Transparent
  253.       Caption         =   "Estimated Trough Level ="
  254.       BeginProperty Font 
  255.          Name            =   "MS Sans Serif"
  256.          Size            =   12
  257.          Charset         =   0
  258.          Weight          =   700
  259.          Underline       =   0   'False
  260.          Italic          =   0   'False
  261.          Strikethrough   =   0   'False
  262.       EndProperty
  263.       ForeColor       =   &H0000FFFF&
  264.       Height          =   375
  265.       Index           =   2
  266.       Left            =   840
  267.       TabIndex        =   14
  268.       Top             =   3480
  269.       Width           =   3495
  270.    End
  271.    Begin VB.Label Label1 
  272.       BackStyle       =   0  'Transparent
  273.       Caption         =   "Dosing Interval (hrs) ="
  274.       BeginProperty Font 
  275.          Name            =   "MS Sans Serif"
  276.          Size            =   12
  277.          Charset         =   0
  278.          Weight          =   700
  279.          Underline       =   0   'False
  280.          Italic          =   0   'False
  281.          Strikethrough   =   0   'False
  282.       EndProperty
  283.       ForeColor       =   &H0000FFFF&
  284.       Height          =   375
  285.       Index           =   3
  286.       Left            =   840
  287.       TabIndex        =   13
  288.       Top             =   2760
  289.       Width           =   3495
  290.    End
  291.    Begin VB.Label Label1 
  292.       BackStyle       =   0  'Transparent
  293.       Caption         =   "Half Life of Drug (hr) ="
  294.       BeginProperty Font 
  295.          Name            =   "MS Sans Serif"
  296.          Size            =   12
  297.          Charset         =   0
  298.          Weight          =   700
  299.          Underline       =   0   'False
  300.          Italic          =   0   'False
  301.          Strikethrough   =   0   'False
  302.       EndProperty
  303.       ForeColor       =   &H0000FFFF&
  304.       Height          =   375
  305.       Index           =   1
  306.       Left            =   840
  307.       TabIndex        =   12
  308.       Top             =   2040
  309.       Width           =   3255
  310.    End
  311.    Begin VB.Label Label1 
  312.       BackStyle       =   0  'Transparent
  313.       Caption         =   "Volume of Distribution (L) ="
  314.       BeginProperty Font 
  315.          Name            =   "MS Sans Serif"
  316.          Size            =   12
  317.          Charset         =   0
  318.          Weight          =   700
  319.          Underline       =   0   'False
  320.          Italic          =   0   'False
  321.          Strikethrough   =   0   'False
  322.       EndProperty
  323.       ForeColor       =   &H0000FFFF&
  324.       Height          =   375
  325.       Index           =   0
  326.       Left            =   840
  327.       TabIndex        =   11
  328.       Top             =   1680
  329.       Width           =   3495
  330.    End
  331.    Begin VB.Label Label11 
  332.       Alignment       =   2  'Center
  333.       BackStyle       =   0  'Transparent
  334.       Caption         =   "Estimated Initial Dosage"
  335.       BeginProperty Font 
  336.          Name            =   "Verdana"
  337.          Size            =   14.25
  338.          Charset         =   0
  339.          Weight          =   700
  340.          Underline       =   0   'False
  341.          Italic          =   0   'False
  342.          Strikethrough   =   0   'False
  343.       EndProperty
  344.       ForeColor       =   &H000000FF&
  345.       Height          =   375
  346.       Index           =   0
  347.       Left            =   840
  348.       TabIndex        =   3
  349.       Top             =   120
  350.       Width           =   4455
  351.    End
  352.    Begin VB.Label Label11 
  353.       Alignment       =   2  'Center
  354.       BackStyle       =   0  'Transparent
  355.       Caption         =   "Estimated Initial Dosage"
  356.       BeginProperty Font 
  357.          Name            =   "Verdana"
  358.          Size            =   14.25
  359.          Charset         =   0
  360.          Weight          =   700
  361.          Underline       =   0   'False
  362.          Italic          =   0   'False
  363.          Strikethrough   =   0   'False
  364.       EndProperty
  365.       ForeColor       =   &H00000000&
  366.       Height          =   375
  367.       Index           =   1
  368.       Left            =   810
  369.       TabIndex        =   2
  370.       Top             =   90
  371.       Width           =   4455
  372.    End
  373.    Begin VB.Label Label107 
  374.       BackStyle       =   0  'Transparent
  375.       Caption         =   "Q"
  376.       BeginProperty Font 
  377.          Name            =   "Wingdings 2"
  378.          Size            =   15.75
  379.          Charset         =   2
  380.          Weight          =   700
  381.          Underline       =   0   'False
  382.          Italic          =   0   'False
  383.          Strikethrough   =   0   'False
  384.       EndProperty
  385.       ForeColor       =   &H0000C000&
  386.       Height          =   375
  387.       Index           =   0
  388.       Left            =   6000
  389.       TabIndex        =   0
  390.       Top             =   180
  391.       Width           =   345
  392.    End
  393.    Begin VB.Label Label107 
  394.       BackStyle       =   0  'Transparent
  395.       Caption         =   "Q"
  396.       BeginProperty Font 
  397.          Name            =   "Wingdings 2"
  398.          Size            =   15.75
  399.          Charset         =   2
  400.          Weight          =   700
  401.          Underline       =   0   'False
  402.          Italic          =   0   'False
  403.          Strikethrough   =   0   'False
  404.       EndProperty
  405.       ForeColor       =   &H0000FFFF&
  406.       Height          =   360
  407.       Index           =   1
  408.       Left            =   5970
  409.       TabIndex        =   1
  410.       Top             =   180
  411.       Visible         =   0   'False
  412.       Width           =   345
  413.    End
  414. End
  415. Attribute VB_Name = "Adjust1"
  416. Attribute VB_GlobalNameSpace = False
  417. Attribute VB_Creatable = False
  418. Attribute VB_PredeclaredId = True
  419. Attribute VB_Exposed = False
  420. Private Sub CandyButton1_Click()
  421. End Sub
  422.  
  423. Private Sub Command1_Click()
  424. 'NextScreen "Adjustmentrx1"
  425. End Sub
  426.  
  427. Private Sub FlatButton5_Click()
  428.     Unload Me
  429. End Sub
  430.  
  431. Private Sub Form_Load()
  432. Me.Left = Hemodynamics.Left + 100
  433. Me.Top = Hemodynamics.Top + 900
  434. SetTopMostWindow Me.hwnd, True
  435. Adjjust
  436. End Sub
  437.  
  438. Sub Adjjust()
  439. Dim IMD As Single
  440. Dim vw As Single
  441. Dim vw1 As Single
  442. Dim vw2 As Single
  443. AminoRxtxt.Text = AminoRx
  444.  
  445. 'PK = val(ActPeaktxt.text)
  446. 'TR = val(ActTroughtxt.text)
  447. 'MDAminog = val(MD3txt.text)
  448. 'DIAminog = val(DI3txt.text)
  449. 'TA = val(PKtxt.text)
  450. 'TB = val(TRtxt.text)
  451.  
  452. 'KDAminog = (LOG(PK / TR)) / (DIAminog - t)
  453. 'AminoVolDistribution = (MDAminog * (1 - EXP(-1 * KDAminog * t))) / (KDAminog * t * (PK - (TR * EXP(-1 * KDAminog * t))))
  454. 'MDAminog = x * AminoVolDistribution * KDAminog * (1 - EXP(-1 * KDAminog * DIAminog)) / (1 - EXP(-1 * KDAminog * t))
  455. 'DIAminog = (-1 / KDAminog) * LOG(y / x) + t
  456. 'PE = MDAminog / AminoVolDistribution * (1 - EXP(-1 * KDAminog * t)) / (KDAminog * (1 - EXP(-1 * KDAminog * DIAminog)))
  457. 'TR = MDAminog * (EXP(KDAminog * t) - 1) / (KDAminog * AminoVolDistribution * (EXP(KDAminog * DIAminog) - 1))
  458.  
  459. kel = (Log(Pk / TR) / Log(10#)) / (TB - TA)
  460. TH = Int(10 * 0.693 / kel) / 10
  461. vd = ((MDAminog / t) / kel) * (1 - Exp(-1 * kel * t)) / (Pk - (TR * Exp(-1 * kel * (TB - t))))
  462. tau = t + (-1 / kel) * (Log(Y / X) / Log(10#))
  463.  
  464. vw = kel * vd * X
  465. vw1 = 1 - Exp(-1 * kel * tau)
  466. vw2 = 1 - Exp(-1 * kel * t)
  467. IMD = vw * (vw1 / vw2)
  468.  
  469. K:
  470. VDtxt.Text = Format(vd / Dw, "#.000")
  471. Halftxt.Text = Format(TH, "####.0")
  472. MD4txt.Text = Format(IMD, "#####.0")
  473. DI4txt.Text = Format(tau, "####.0")
  474. EstPeaktxt.Text = Format(X, "####.0")
  475. EstTroughtxt.Text = Format(Y, "####.0")
  476. End Sub
  477. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  478. If Button = vbLeftButton Then
  479.   ReleaseCapture
  480.   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  481. End If
  482.  
  483. End Sub
  484.  
  485.  
  486. Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  487. If Button = vbLeftButton Then
  488.   ReleaseCapture
  489.   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  490. End If
  491.  
  492. End Sub
  493.  
  494. Private Sub Label107_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  495.         Label107(0).Visible = False
  496.         Label107(1).Visible = True
  497. End Sub
  498.  
  499. Private Sub Label107_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  500.         Label107(1).Visible = False
  501.         Label107(0).Visible = True
  502.         Unload Me
  503. End Sub
  504.  
  505.  
  506. Private Sub Label11_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  507. If Button = vbLeftButton Then
  508.   ReleaseCapture
  509.   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  510. End If
  511.  
  512. End Sub
  513.