Visual Basic

Private Sub resourcesValue()<br />
        If purchase Then<br />
            spent = scal + sinf + sgen + sart + skni + sport<br />
            lblResources.Text = "Available Resources: " & rs - spent<br />
            If (rs - spent < 0) Then<br />
                lblResources.ForeColor = Color.Red<br />
                btnPurchase.Enabled = False<br />
            Else<br />
                lblResources.ForeColor = Color.Black<br />
                btnPurchase.Enabled = True<br />
            End If<br />
        End If<br />
    End Sub<br />
    Private Sub udCalvary_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles udCalvary.ValueChanged<br />
        scal = udCalvary.Value * 8<br />
        resourcesValue()<br />
    End Sub<br />
    Private Sub udKnight_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles udKnight.ValueChanged<br />
        skni = udKnight.Value * 11<br />
        resourcesValue()<br />
    End Sub<br />
    Private Sub udInfantry_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles udInfantry.ValueChanged<br />
        sinf = udInfantry.Value * 5<br />
        resourcesValue()<br />
    End Sub

<br />
udCalvary.Maximum = Math.Floor(rs / 8)<br />
        udKnight.Maximum = Math.Floor(rs / 11)<br />
        udInfantry.Maximum = Math.Floor(rs / 5)<br />
        udArtillery.Maximum = Math.Floor(rs / 10)<br />
        udGeneral.Maximum = 1<br />
        If Math.Floor(rs / 10) >= 1 Then<br />
            udPort.Maximum = 1<br />
        Else<br />
            udPort.Maximum = 0<br />
        End If