Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 2.30 KB | None | 0 0
  1.  Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
  2.         Dim txtLvl As Integer
  3.         Dim txtHP As Integer
  4.         Dim txtAtk As Integer
  5.         Dim txtDef As Integer
  6.         Dim txtSpecialAttack As Integer
  7.         Dim txtSpecialDefense As Integer
  8.         Dim txtSpeed As Integer
  9.         Dim lblHP As integer
  10.         Dim lblAtk As Integer
  11.         Dim lblDef As Integer
  12.         Dim lblSpecialDefense As Integer
  13.         Dim lblSpecialAttack As Integer
  14.         Dim lblSpeed As Integer
  15.         Dim txtStatHP As Integer
  16.         Dim txtStatAtk As Integer
  17.         Dim txtStatDef As Integer
  18.         Dim txtStatSpecialDefense As Integer
  19.         Dim txtStatSpecialAttack As Integer
  20.         Dim txtStatSpeed As Integer
  21.         'Check for invalid IVs
  22.         'COPYRIGHT 2011 JAMES GETROST
  23.         If txtHP > 32 Then
  24.             If txtAtk > 32 Then
  25.                 If txtDef > 32 Then
  26.                     If txtSpecialAttack > 32 Then
  27.                         If txtSpecialDefense > 32 Then
  28.                             If txtSpeed > 32 Then
  29.                                 If txtStatAtk > 32 Then
  30.                                     If txtStatDef > 32 Then
  31.                                         If txtStatHP > 32 Then
  32.                                             If txtStatSpeed > 32 Then
  33.                                                 If txtSpecialAttack > 32 Then
  34.                                                     If txtSpecialDefense > 32 Then
  35.                                                         MessageBox.Show("IVs cannot be greater than 31", "Invalid IV")
  36.                                                     Else
  37.                                                     End If
  38.                                                 End If
  39.                                             End If
  40.                                         End If
  41.                                     End If
  42.                                 End If
  43.                             End If
  44.                         End If
  45.                     End If
  46.                 End If
  47.             End If
  48.         End If
  49.         'Used with Permission
  50.         'EOF
  51.  
  52.  
  53.  
  54.  
  55.         'Calculating the HP Stats
  56.         lblHP.text = CInt(txtLvl - 1) * (txtHP * txtStatHP) + 10
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement