[ieatkitties]

okay I'm trying to create a small game in vb 2010 that will have the player and an enemy shows the health strength level and health but you press attack the computer rolls a dice if its below 10 its a miss if its ten or above its a hit then subtracts the value of strength and level from the enemy and hero's health i can get it do do everything up to removing the health it will remove and then change the health but wont permanently change the health so every time i press attack it just repeats the same number of 90 - 7 or 83instead of removing 7 from it changing it to 83 and then when i press it again subtracting 7 from 83
heres the code ,im 14 and ive learned the very basics of programing on visual basic and this is the first thing ive made myself
Public Class Form1

Code:

Public Class Form1

    Private Sub btnAttack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttack.Click
        Dim Ehealth, herohealth, strength, level, armor, armorE, strengthE, levelE As Integer
        Ehealth = 50
        strength = 5
        level = 7
        armor = 8
        levelE = 4
        strengthE = 3
        armorE = 3
        herohealth = 90
        Dim attackh As Integer
        attackh = strength + level
        Dim attackE As Integer
        attackE = strengthE + levelE
        Randomize()
        Dim value As Integer = CInt(Int((20 * Rnd()) + 1))

        Dim hit As String
        hit = "hit"

        Dim miss As String
        miss = "miss"

        If value = (1) Then lstResults.Items.Add(miss)
        If value = (2) Then lstResults.Items.Add(miss)
        If value = (3) Then lstResults.Items.Add(miss)
        If value = (4) Then lstResults.Items.Add(miss)
        If value = (5) Then lstResults.Items.Add(miss)
        If value = (6) Then lstResults.Items.Add(miss)
        If value = (7) Then lstResults.Items.Add(miss)
        If value = (8) Then lstResults.Items.Add(miss)
        If value = (9) Then lstResults.Items.Add(miss)
        If value = (10) Then lstResults.Items.Add(hit)
        If value = (11) Then lstResults.Items.Add(hit)
        If value = (12) Then lstResults.Items.Add(hit)
        If value = (13) Then lstResults.Items.Add(hit)
        If value = (14) Then lstResults.Items.Add(hit)
        If value = (15) Then lstResults.Items.Add(hit)
        If value = (16) Then lstResults.Items.Add(hit)
        If value = (17) Then lstResults.Items.Add(hit)
        If value = (18) Then lstResults.Items.Add(hit)
        If value = (19) Then lstResults.Items.Add(hit)
        If value = (20) Then lstResults.Items.Add(hit)

        If hit Then Ehealth = Ehealth - 9
        If hit Then herohealth = herohealth - 3


        lstEnemiehealthandinfo.Items.Add(Ehealth)
        lstHeroinfo.Items.Add(herohealth)


    End Sub
    
    
End Class

[waterdamage]

research "loop". You should be able to shorten and steamline your code.