Welcome to Dream.In.Code
Become a VB Expert!

Join 137,261 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,540 people online right now. Registration is fast and FREE... Join Now!




calculate totalscore when points are assigned to radiobuttons

 
Reply to this topicStart new topic

calculate totalscore when points are assigned to radiobuttons

sagescott
3 Dec, 2006 - 08:52 AM
Post #1

New D.I.C Head
*

Joined: 30 Nov, 2006
Posts: 2


My Contributions
CODE
Public Class Form1







    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents uidatelabel As System.Windows.Forms.Label
    Friend WithEvents uipatname As System.Windows.Forms.Label
    Friend WithEvents uirmlabel As System.Windows.Forms.Label
    Friend WithEvents uiphyslabel As System.Windows.Forms.Label
    Friend WithEvents uinslabel As System.Windows.Forms.Label
    Friend WithEvents uipatnametextbox As System.Windows.Forms.TextBox
    Friend WithEvents uiphystextbox As System.Windows.Forms.TextBox
    Friend WithEvents uirmtextbox As System.Windows.Forms.TextBox
    Friend WithEvents uitworisklabel As System.Windows.Forms.RadioButton
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents uimentallabel As System.Windows.Forms.Label
    Friend WithEvents uibathbutton As System.Windows.Forms.RadioButton
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
    Friend WithEvents uicalcbutton As System.Windows.Forms.Label
    Friend WithEvents uiexitbutton As System.Windows.Forms.Label
    Friend WithEvents uicurmedslabel As System.Windows.Forms.Label
    Friend WithEvents uidiureticheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents uianticonvulscheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents uipsychocheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents uiantidepresscheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents uinarccheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents uisedbutton As System.Windows.Forms.CheckBox
    Friend WithEvents uidiabeticbutton As System.Windows.Forms.CheckBox
    Friend WithEvents uiantihyperbutton As System.Windows.Forms.CheckBox
    Friend WithEvents uidoblabel As System.Windows.Forms.Label
    Friend WithEvents uinslistbox As System.Windows.Forms.ListBox
    Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
    Friend WithEvents uigaitbalgroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uiactivitygroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uifallhxgroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uiagegroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uimentalgroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uimedgroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uiriskgroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uiappliancegroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uiassistdevicegroupbox As System.Windows.Forms.GroupBox
    Friend WithEvents uidobtextbox As System.Windows.Forms.TextBox
    Friend WithEvents uitotalriskscorlabel As System.Windows.Forms.Label
    Friend WithEvents uitotalscortextbox As System.Windows.Forms.TextBox
    Friend WithEvents uicardioradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uioobradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uibedchairradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiglassesradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uivisionradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiseventyradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uieightyradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiwheelradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiwalkerradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiprosradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiconfusatradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiinterradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uithirradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiorthostaticradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uijerkyradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uigaitradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uionemedradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uitwomedradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uithreemedradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uinueroradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiconfusdisradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiorthoradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uilastthirradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uithirtyoneradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uisixtyoneradiobutton As System.Windows.Forms.RadioButton
    Friend WithEvents uiMessageLabel As System.Windows.Forms.Label
    Friend WithEvents uiclearbutton As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.uidatelabel = New System.Windows.Forms.Label
        Me.uipatname = New System.Windows.Forms.Label
        Me.uirmlabel = New System.Windows.Forms.Label
        Me.uiphyslabel = New System.Windows.Forms.Label
        Me.uinslabel = New System.Windows.Forms.Label
        Me.uiseventyradiobutton = New System.Windows.Forms.RadioButton
        Me.uieightyradiobutton = New System.Windows.Forms.RadioButton
        Me.uipatnametextbox = New System.Windows.Forms.TextBox
        Me.uiphystextbox = New System.Windows.Forms.TextBox
        Me.uirmtextbox = New System.Windows.Forms.TextBox
        Me.uilastthirradiobutton = New System.Windows.Forms.RadioButton
        Me.uithirtyoneradiobutton = New System.Windows.Forms.RadioButton
        Me.uisixtyoneradiobutton = New System.Windows.Forms.RadioButton
        Me.uicardioradiobutton = New System.Windows.Forms.RadioButton
        Me.uiorthoradiobutton = New System.Windows.Forms.RadioButton
        Me.uinueroradiobutton = New System.Windows.Forms.RadioButton
        Me.uitworisklabel = New System.Windows.Forms.RadioButton
        Me.Splitter1 = New System.Windows.Forms.Splitter
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.uiwheelradiobutton = New System.Windows.Forms.RadioButton
        Me.uiwalkerradiobutton = New System.Windows.Forms.RadioButton
        Me.uiprosradiobutton = New System.Windows.Forms.RadioButton
        Me.uimentallabel = New System.Windows.Forms.Label
        Me.uiconfusatradiobutton = New System.Windows.Forms.RadioButton
        Me.uiinterradiobutton = New System.Windows.Forms.RadioButton
        Me.uiconfusdisradiobutton = New System.Windows.Forms.RadioButton
        Me.uibathbutton = New System.Windows.Forms.RadioButton
        Me.uioobradiobutton = New System.Windows.Forms.RadioButton
        Me.uibedchairradiobutton = New System.Windows.Forms.RadioButton
        Me.uithirradiobutton = New System.Windows.Forms.RadioButton
        Me.uiorthostaticradiobutton = New System.Windows.Forms.RadioButton
        Me.uijerkyradiobutton = New System.Windows.Forms.RadioButton
        Me.uigaitradiobutton = New System.Windows.Forms.RadioButton
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
        Me.uiclearbutton = New System.Windows.Forms.Label
        Me.uicalcbutton = New System.Windows.Forms.Label
        Me.uiexitbutton = New System.Windows.Forms.Label
        Me.uitotalriskscorlabel = New System.Windows.Forms.Label
        Me.uicurmedslabel = New System.Windows.Forms.Label
        Me.uidiureticheckbox = New System.Windows.Forms.CheckBox
        Me.uipsychocheckbox = New System.Windows.Forms.CheckBox
        Me.uiantidepresscheckbox = New System.Windows.Forms.CheckBox
        Me.uianticonvulscheckbox = New System.Windows.Forms.CheckBox
        Me.uinarccheckbox = New System.Windows.Forms.CheckBox
        Me.uisedbutton = New System.Windows.Forms.CheckBox
        Me.uidiabeticbutton = New System.Windows.Forms.CheckBox
        Me.uiantihyperbutton = New System.Windows.Forms.CheckBox
        Me.uidoblabel = New System.Windows.Forms.Label
        Me.uinslistbox = New System.Windows.Forms.ListBox
        Me.uigaitbalgroupbox = New System.Windows.Forms.GroupBox
        Me.uiactivitygroupbox = New System.Windows.Forms.GroupBox
        Me.uiassistdevicegroupbox = New System.Windows.Forms.GroupBox
        Me.uiglassesradiobutton = New System.Windows.Forms.RadioButton
        Me.uivisionradiobutton = New System.Windows.Forms.RadioButton
        Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox
        Me.uiriskgroupbox = New System.Windows.Forms.GroupBox
        Me.uifallhxgroupbox = New System.Windows.Forms.GroupBox
        Me.uiagegroupbox = New System.Windows.Forms.GroupBox
        Me.uimentalgroupbox = New System.Windows.Forms.GroupBox
        Me.uionemedradiobutton = New System.Windows.Forms.RadioButton
        Me.uitwomedradiobutton = New System.Windows.Forms.RadioButton
        Me.uithreemedradiobutton = New System.Windows.Forms.RadioButton
        Me.uimedgroupbox = New System.Windows.Forms.GroupBox
        Me.uiappliancegroupbox = New System.Windows.Forms.GroupBox
        Me.uidobtextbox = New System.Windows.Forms.TextBox
        Me.uitotalscortextbox = New System.Windows.Forms.TextBox
        Me.uiMessageLabel = New System.Windows.Forms.Label
        Me.uigaitbalgroupbox.SuspendLayout()
        Me.uiactivitygroupbox.SuspendLayout()
        Me.uiassistdevicegroupbox.SuspendLayout()
        Me.uiriskgroupbox.SuspendLayout()
        Me.uifallhxgroupbox.SuspendLayout()
        Me.uiagegroupbox.SuspendLayout()
        Me.uimentalgroupbox.SuspendLayout()
        Me.uimedgroupbox.SuspendLayout()
        Me.uiappliancegroupbox.SuspendLayout()
        Me.SuspendLayout()
        '
        'uidatelabel
        '
        Me.uidatelabel.AutoSize = True
        Me.uidatelabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uidatelabel.Location = New System.Drawing.Point(48, 40)
        Me.uidatelabel.Name = "uidatelabel"
        Me.uidatelabel.Size = New System.Drawing.Size(32, 19)
        Me.uidatelabel.TabIndex = 4
        Me.uidatelabel.Text = "&Date"
        '
        'uipatname
        '
        Me.uipatname.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uipatname.Location = New System.Drawing.Point(24, 8)
        Me.uipatname.Name = "uipatname"
        Me.uipatname.TabIndex = 0
        Me.uipatname.Text = "&Patient Name:"
        '
        'uirmlabel
        '
        Me.uirmlabel.AutoSize = True
        Me.uirmlabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uirmlabel.Location = New System.Drawing.Point(288, 40)
        Me.uirmlabel.Name = "uirmlabel"
        Me.uirmlabel.Size = New System.Drawing.Size(29, 19)
        Me.uirmlabel.TabIndex = 6
        Me.uirmlabel.Text = "&Rm:"
        Me.uirmlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'uiphyslabel
        '
        Me.uiphyslabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiphyslabel.Location = New System.Drawing.Point(216, 8)
        Me.uiphyslabel.Name = "uiphyslabel"
        Me.uiphyslabel.TabIndex = 2
        Me.uiphyslabel.Text = "&Physician:"
        Me.uiphyslabel.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'uinslabel
        '
        Me.uinslabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uinslabel.Location = New System.Drawing.Point(264, 64)
        Me.uinslabel.Name = "uinslabel"
        Me.uinslabel.Size = New System.Drawing.Size(56, 23)
        Me.uinslabel.TabIndex = 10
        Me.uinslabel.Text = "&N/S:"
        Me.uinslabel.TextAlign = System.Drawing.ContentAlignment.BottomRight
        '
        'uiseventyradiobutton
        '
        Me.uiseventyradiobutton.Checked = True
        Me.uiseventyradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiseventyradiobutton.Location = New System.Drawing.Point(8, 64)
        Me.uiseventyradiobutton.Name = "uiseventyradiobutton"
        Me.uiseventyradiobutton.Size = New System.Drawing.Size(64, 24)
        Me.uiseventyradiobutton.TabIndex = 1
        Me.uiseventyradiobutton.TabStop = True
        Me.uiseventyradiobutton.Text = "70-79"
        '
        'uieightyradiobutton
        '
        Me.uieightyradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uieightyradiobutton.Location = New System.Drawing.Point(8, 112)
        Me.uieightyradiobutton.Name = "uieightyradiobutton"
        Me.uieightyradiobutton.Size = New System.Drawing.Size(72, 24)
        Me.uieightyradiobutton.TabIndex = 2
        Me.uieightyradiobutton.Text = "80+"
        '
        'uipatnametextbox
        '
        Me.uipatnametextbox.Location = New System.Drawing.Point(96, 8)
        Me.uipatnametextbox.Name = "uipatnametextbox"
        Me.uipatnametextbox.Size = New System.Drawing.Size(104, 23)
        Me.uipatnametextbox.TabIndex = 1
        Me.uipatnametextbox.Text = ""
        '
        'uiphystextbox
        '
        Me.uiphystextbox.Location = New System.Drawing.Point(328, 8)
        Me.uiphystextbox.Name = "uiphystextbox"
        Me.uiphystextbox.Size = New System.Drawing.Size(80, 23)
        Me.uiphystextbox.TabIndex = 3
        Me.uiphystextbox.Text = ""
        '
        'uirmtextbox
        '
        Me.uirmtextbox.Location = New System.Drawing.Point(328, 40)
        Me.uirmtextbox.Name = "uirmtextbox"
        Me.uirmtextbox.Size = New System.Drawing.Size(80, 23)
        Me.uirmtextbox.TabIndex = 7
        Me.uirmtextbox.Text = ""
        '
        'uilastthirradiobutton
        '
        Me.uilastthirradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uilastthirradiobutton.Location = New System.Drawing.Point(16, 104)
        Me.uilastthirradiobutton.Name = "uilastthirradiobutton"
        Me.uilastthirradiobutton.TabIndex = 2
        Me.uilastthirradiobutton.Text = "Last thirty days"
        '
        'uithirtyoneradiobutton
        '
        Me.uithirtyoneradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uithirtyoneradiobutton.Location = New System.Drawing.Point(16, 56)
        Me.uithirtyoneradiobutton.Name = "uithirtyoneradiobutton"
        Me.uithirtyoneradiobutton.Size = New System.Drawing.Size(88, 24)
        Me.uithirtyoneradiobutton.TabIndex = 1
        Me.uithirtyoneradiobutton.Text = "thirty one-sixty days"
        '
        'uisixtyoneradiobutton
        '
        Me.uisixtyoneradiobutton.Checked = True
        Me.uisixtyoneradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uisixtyoneradiobutton.Location = New System.Drawing.Point(16, 24)
        Me.uisixtyoneradiobutton.Name = "uisixtyoneradiobutton"
        Me.uisixtyoneradiobutton.TabIndex = 0
        Me.uisixtyoneradiobutton.TabStop = True
        Me.uisixtyoneradiobutton.Text = "sixty one-ninety days"
        '
        'uicardioradiobutton
        '
        Me.uicardioradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uicardioradiobutton.Location = New System.Drawing.Point(24, 16)
        Me.uicardioradiobutton.Name = "uicardioradiobutton"
        Me.uicardioradiobutton.TabIndex = 0
        Me.uicardioradiobutton.Text = "Cardiovascular"
        '
        'uiorthoradiobutton
        '
        Me.uiorthoradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiorthoradiobutton.Location = New System.Drawing.Point(24, 48)
        Me.uiorthoradiobutton.Name = "uiorthoradiobutton"
        Me.uiorthoradiobutton.TabIndex = 1
        Me.uiorthoradiobutton.Text = "Orthopedic"
        '
        'uinueroradiobutton
        '
        Me.uinueroradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uinueroradiobutton.Location = New System.Drawing.Point(24, 80)
        Me.uinueroradiobutton.Name = "uinueroradiobutton"
        Me.uinueroradiobutton.TabIndex = 2
        Me.uinueroradiobutton.Text = "Nueromuscular/Function"
        '
        'uitworisklabel
        '
        Me.uitworisklabel.Checked = True
        Me.uitworisklabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uitworisklabel.Location = New System.Drawing.Point(24, 112)
        Me.uitworisklabel.Name = "uitworisklabel"
        Me.uitworisklabel.Size = New System.Drawing.Size(112, 32)
        Me.uitworisklabel.TabIndex = 3
        Me.uitworisklabel.TabStop = True
        Me.uitworisklabel.Text = "2 or more above risk factors"
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(0, 0)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 678)
        Me.Splitter1.TabIndex = 37
        Me.Splitter1.TabStop = False
        '
        'PictureBox1
        '
        Me.PictureBox1.Location = New System.Drawing.Point(0, 272)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(8, 8)
        Me.PictureBox1.TabIndex = 38
        Me.PictureBox1.TabStop = False
        '
        'uiwheelradiobutton
        '
        Me.uiwheelradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiwheelradiobutton.Location = New System.Drawing.Point(8, 32)
        Me.uiwheelradiobutton.Name = "uiwheelradiobutton"
        Me.uiwheelradiobutton.Size = New System.Drawing.Size(104, 32)
        Me.uiwheelradiobutton.TabIndex = 0
        Me.uiwheelradiobutton.Text = "Wheelchair/Crutches"
        '
        'uiwalkerradiobutton
        '
        Me.uiwalkerradiobutton.Checked = True
        Me.uiwalkerradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiwalkerradiobutton.Location = New System.Drawing.Point(8, 128)
        Me.uiwalkerradiobutton.Name = "uiwalkerradiobutton"
        Me.uiwalkerradiobutton.TabIndex = 0
        Me.uiwalkerradiobutton.TabStop = True
        Me.uiwalkerradiobutton.Text = "Walker"
        '
        'uiprosradiobutton
        '
        Me.uiprosradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiprosradiobutton.Location = New System.Drawing.Point(8, 88)
        Me.uiprosradiobutton.Name = "uiprosradiobutton"
        Me.uiprosradiobutton.Size = New System.Drawing.Size(104, 32)
        Me.uiprosradiobutton.TabIndex = 2
        Me.uiprosradiobutton.Text = "Prosthetic device"
        '
        'uimentallabel
        '
        Me.uimentallabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uimentallabel.Location = New System.Drawing.Point(128, 312)
        Me.uimentallabel.Name = "uimentallabel"
        Me.uimentallabel.TabIndex = 22
        Me.uimentallabel.Text = "Mental Status"
        '
        'uiconfusatradiobutton
        '
        Me.uiconfusatradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiconfusatradiobutton.Location = New System.Drawing.Point(16, 24)
        Me.uiconfusatradiobutton.Name = "uiconfusatradiobutton"
        Me.uiconfusatradiobutton.Size = New System.Drawing.Size(120, 32)
        Me.uiconfusatradiobutton.TabIndex = 0
        Me.uiconfusatradiobutton.Text = "Confused or Disoriented at times"
        '
        'uiinterradiobutton
        '
        Me.uiinterradiobutton.Checked = True
        Me.uiinterradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiinterradiobutton.Location = New System.Drawing.Point(16, 64)
        Me.uiinterradiobutton.Name = "uiinterradiobutton"
        Me.uiinterradiobutton.Size = New System.Drawing.Size(104, 32)
        Me.uiinterradiobutton.TabIndex = 1
        Me.uiinterradiobutton.TabStop = True
        Me.uiinterradiobutton.Text = "Intermittent Confusion"
        '
        'uiconfusdisradiobutton
        '
        Me.uiconfusdisradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiconfusdisradiobutton.Location = New System.Drawing.Point(16, 112)
        Me.uiconfusdisradiobutton.Name = "uiconfusdisradiobutton"
        Me.uiconfusdisradiobutton.Size = New System.Drawing.Size(104, 40)
        Me.uiconfusdisradiobutton.TabIndex = 2
        Me.uiconfusdisradiobutton.Text = "Confusion and Disorientation"
        '
        'uibathbutton
        '
        Me.uibathbutton.Checked = True
        Me.uibathbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uibathbutton.Location = New System.Drawing.Point(16, 32)
        Me.uibathbutton.Name = "uibathbutton"
        Me.uibathbutton.Size = New System.Drawing.Size(96, 32)
        Me.uibathbutton.TabIndex = 0
        Me.uibathbutton.TabStop = True
        Me.uibathbutton.Text = "Bathroom Privledges"
        '
        'uioobradiobutton
        '
        Me.uioobradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uioobradiobutton.Location = New System.Drawing.Point(8, 80)
        Me.uioobradiobutton.Name = "uioobradiobutton"
        Me.uioobradiobutton.Size = New System.Drawing.Size(96, 32)
        Me.uioobradiobutton.TabIndex = 1
        Me.uioobradiobutton.Text = "Out of bed with assist"
        '
        'uibedchairradiobutton
        '
        Me.uibedchairradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uibedchairradiobutton.Location = New System.Drawing.Point(8, 128)
        Me.uibedchairradiobutton.Name = "uibedchairradiobutton"
        Me.uibedchairradiobutton.Size = New System.Drawing.Size(104, 32)
        Me.uibedchairradiobutton.TabIndex = 2
        Me.uibedchairradiobutton.Text = "Confined to bed/Chair"
        '
        'uithirradiobutton
        '
        Me.uithirradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uithirradiobutton.Location = New System.Drawing.Point(8, 24)
        Me.uithirradiobutton.Name = "uithirradiobutton"
        Me.uithirradiobutton.Size = New System.Drawing.Size(64, 24)
        Me.uithirradiobutton.TabIndex = 0
        Me.uithirradiobutton.Text = "30-69"
        '
        'uiorthostaticradiobutton
        '
        Me.uiorthostaticradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiorthostaticradiobutton.Location = New System.Drawing.Point(16, 32)
        Me.uiorthostaticradiobutton.Name = "uiorthostaticradiobutton"
        Me.uiorthostaticradiobutton.Size = New System.Drawing.Size(104, 32)
        Me.uiorthostaticradiobutton.TabIndex = 0
        Me.uiorthostaticradiobutton.Text = "Orthostatic Hypotension"
        '
        'uijerkyradiobutton
        '
        Me.uijerkyradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uijerkyradiobutton.Location = New System.Drawing.Point(16, 72)
        Me.uijerkyradiobutton.Name = "uijerkyradiobutton"
        Me.uijerkyradiobutton.Size = New System.Drawing.Size(104, 32)
        Me.uijerkyradiobutton.TabIndex = 1
        Me.uijerkyradiobutton.Text = "Spastic/Jerky Balance"
        '
        'uigaitradiobutton
        '
        Me.uigaitradiobutton.Checked = True
        Me.uigaitradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uigaitradiobutton.Location = New System.Drawing.Point(16, 112)
        Me.uigaitradiobutton.Name = "uigaitradiobutton"
        Me.uigaitradiobutton.TabIndex = 2
        Me.uigaitradiobutton.TabStop = True
        Me.uigaitradiobutton.Text = "Unsteady Gait"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.AllowDrop = True
        Me.DateTimePicker1.CalendarFont = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DateTimePicker1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DateTimePicker1.Location = New System.Drawing.Point(80, 40)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(184, 21)
        Me.DateTimePicker1.TabIndex = 5
        '
        'uiclearbutton
        '
        Me.uiclearbutton.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.uiclearbutton.Location = New System.Drawing.Point(128, 632)
        Me.uiclearbutton.Name = "uiclearbutton"
        Me.uiclearbutton.TabIndex = 32
        Me.uiclearbutton.Text = "&Clear Screen"
        Me.uiclearbutton.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'uicalcbutton
        '
        Me.uicalcbutton.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.uicalcbutton.Location = New System.Drawing.Point(248, 632)
        Me.uicalcbutton.Name = "uicalcbutton"
        Me.uicalcbutton.TabIndex = 30
        Me.uicalcbutton.Text = "&Calculate"
        Me.uicalcbutton.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'uiexitbutton
        '
        Me.uiexitbutton.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.uiexitbutton.Location = New System.Drawing.Point(360, 632)
        Me.uiexitbutton.Name = "uiexitbutton"
        Me.uiexitbutton.Size = New System.Drawing.Size(80, 23)
        Me.uiexitbutton.TabIndex = 33
        Me.uiexitbutton.Text = "&Exit"
        Me.uiexitbutton.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'uitotalriskscorlabel
        '
        Me.uitotalriskscorlabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uitotalriskscorlabel.Location = New System.Drawing.Point(344, 568)
        Me.uitotalriskscorlabel.Name = "uitotalriskscorlabel"
        Me.uitotalriskscorlabel.Size = New System.Drawing.Size(80, 24)
        Me.uitotalriskscorlabel.TabIndex = 31
        Me.uitotalriskscorlabel.Text = " & Total Risk Score"
        Me.uitotalriskscorlabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'uicurmedslabel
        '
        Me.uicurmedslabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uicurmedslabel.Location = New System.Drawing.Point(224, 488)
        Me.uicurmedslabel.Name = "uicurmedslabel"
        Me.uicurmedslabel.Size = New System.Drawing.Size(100, 24)
        Me.uicurmedslabel.TabIndex = 21
        Me.uicurmedslabel.Text = "Check Current Meds"
        '
        'uidiureticheckbox
        '
        Me.uidiureticheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uidiureticheckbox.Location = New System.Drawing.Point(136, 552)
        Me.uidiureticheckbox.Name = "uidiureticheckbox"
        Me.uidiureticheckbox.TabIndex = 23
        Me.uidiureticheckbox.Text = "Diuretics"
        '
        'uipsychocheckbox
        '
        Me.uipsychocheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uipsychocheckbox.Location = New System.Drawing.Point(248, 520)
        Me.uipsychocheckbox.Name = "uipsychocheckbox"
        Me.uipsychocheckbox.Size = New System.Drawing.Size(104, 16)
        Me.uipsychocheckbox.TabIndex = 25
        Me.uipsychocheckbox.Text = "Psychotropics"
        '
        'uiantidepresscheckbox
        '
        Me.uiantidepresscheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiantidepresscheckbox.Location = New System.Drawing.Point(248, 552)
        Me.uiantidepresscheckbox.Name = "uiantidepresscheckbox"
        Me.uiantidepresscheckbox.TabIndex = 26
        Me.uiantidepresscheckbox.Text = "Antidepressants"
        '
        'uianticonvulscheckbox
        '
        Me.uianticonvulscheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uianticonvulscheckbox.Location = New System.Drawing.Point(136, 584)
        Me.uianticonvulscheckbox.Name = "uianticonvulscheckbox"
        Me.uianticonvulscheckbox.TabIndex = 24
        Me.uianticonvulscheckbox.Text = "Anticonvulsants"
        '
        'uinarccheckbox
        '
        Me.uinarccheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uinarccheckbox.Location = New System.Drawing.Point(376, 504)
        Me.uinarccheckbox.Name = "uinarccheckbox"
        Me.uinarccheckbox.TabIndex = 28
        Me.uinarccheckbox.Text = "Narcotics"
        '
        'uisedbutton
        '
        Me.uisedbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uisedbutton.Location = New System.Drawing.Point(376, 544)
        Me.uisedbutton.Name = "uisedbutton"
        Me.uisedbutton.TabIndex = 29
        Me.uisedbutton.Text = "Sedative"
        '
        'uidiabeticbutton
        '
        Me.uidiabeticbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uidiabeticbutton.Location = New System.Drawing.Point(248, 584)
        Me.uidiabeticbutton.Name = "uidiabeticbutton"
        Me.uidiabeticbutton.TabIndex = 27
        Me.uidiabeticbutton.Text = "Antidiabetics"
        '
        'uiantihyperbutton
        '
        Me.uiantihyperbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uiantihyperbutton.Location = New System.Drawing.Point(136, 512)
        Me.uiantihyperbutton.Name = "uiantihyperbutton"
        Me.uiantihyperbutton.Size = New System.Drawing.Size(104, 32)
        Me.uiantihyperbutton.TabIndex = 22
        Me.uiantihyperbutton.Text = "Anti-hypertensive"
        '
        'uidoblabel
        '
        Me.uidoblabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uidoblabel.Location = New System.Drawing.Point(40, 72)
        Me.uidoblabel.Name = "uidoblabel"
        Me.uidoblabel.Size = New System.Drawing.Size(32, 23)
        Me.uidoblabel.TabIndex = 8
        Me.uidoblabel.Text = "&DOB"
        '
        'uinslistbox
        '
        Me.uinslistbox.AllowDrop = True
        Me.uinslistbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uinslistbox.Items.AddRange(New Object() {"1 South", "2 south", "3 south", "4 south", "5 South"})
        Me.uinslistbox.Location = New System.Drawing.Point(328, 72)
        Me.uinslistbox.Name = "uinslistbox"
        Me.uinslistbox.Size = New System.Drawing.Size(80, 30)
        Me.uinslistbox.TabIndex = 11
        '
        'uigaitbalgroupbox
        '
        Me.uigaitbalgroupbox.Controls.Add(Me.uiorthostaticradiobutton)
        Me.uigaitbalgroupbox.Controls.Add(Me.uijerkyradiobutton)
        Me.uigaitbalgroupbox.Controls.Add(Me.uigaitradiobutton)
        Me.uigaitbalgroupbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.uigaitbalgroupbox.Location = New System.Drawing.Point(352, 304)
        Me.uigaitbalgroupbox.Name = "uigaitbalgroupbox"
        Me.uigaitbalgroupbox.Size = New System.Drawing.Size(128, 176)
        Me.uigaitbalgroupbox.TabIndex = 19
        Me.uigaitbalgroupbox.TabStop = False
        Me.uigaitbalgroupbox.Text = "Gait Balance"
        '
        'uiactivitygroupbox
        '
        Me.uiactivitygroupbox.Controls.Add(Me.uibathbutton)
        Me.uiactivitygroupbox.Controls.Add(Me.uioobradiobutton)
        Me.uiactivitygroupbox.Controls

This post has been edited by jayman9: 3 Dec, 2006 - 09:54 AM
User is offlineProfile CardPM
+Quote Post

Jayman
RE: Calculate Totalscore When Points Are Assigned To Radiobuttons
3 Dec, 2006 - 09:56 AM
Post #2

Student of Life
Group Icon

Joined: 26 Dec, 2005
Posts: 6,985



Thanked: 44 times
Dream Kudos: 500
Expert In: C#, VB.NET, Java

My Contributions
Only post the code that is relevant. Do not copy and paste the Windows generated code, only copy your methods.
User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic
Time is now: 12/4/08 06:54PM

Live VB Help!

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month