iHP - HP Washing Calculation Program

Fuck your rapidshit. lolVB. Reading Source. afk.

Code:

If cmbClass.Text = "Thief(2nd)" Then
  txtWashable.Text = txtCurMP.Text - txtMP.Text
  txtWashable.Text = txtWashable.Text / 12
  txtAfter.Text = 20 * txtWashable.Text + txtCurHP.Text

ElseIf cmbClass.Text = "Thief(3rd/4th)" Then
  txtWashable.Text = txtCurMP.Text - txtMP.Text
  txtWashable.Text = txtWashable.Text / 12
  txtAfter.Text = 20 * txtWashable.Text + txtCurHP.Text

These are the same thing, you don't have to put them into two separate conditions.
same with

Code:

ElseIf cmbClass.Text = "Fighter" Then
  txtWashable.Text = txtCurMP.Text - txtMP.Text
  txtWashable.Text = txtWashable.Text / 4
  txtAfter.Text = 50 * txtWashable.Text + txtCurHP.Text

ElseIf cmbClass.Text = "Spearman/DK" Then
  txtWashable.Text = txtCurMP.Text - txtMP.Text
  txtWashable.Text = txtWashable.Text / 4
  txtAfter.Text = 50 * txtWashable.Text + txtCurHP.Text

I'm pretty sure, but not 100%, that the syntax would be

Code:

If cmbClass.Text = "Thief(2nd)" OR cmbClass.Text = "Thief(3rd/4th)" Then
  txtWashable.Text = txtCurMP.Text - txtMP.Text
  txtWashable.Text = txtWashable.Text / 12
  txtAfter.Text = 20 * txtWashable.Text + txtCurHP.Text

I haven't touched VB in four years.