Scribd
Upload
10 views

P1ED

Uploaded by

henryefrainvelaacevedo7
Copyright
© © All Rights Reserved
Available Formats
Download as PPTX, PDF, TXT or read online on Scribd
10 views

P1ED

Uploaded by

henryefrainvelaacevedo7
Copyright
© © All Rights Reserved
Available Formats
Download as PPTX, PDF, TXT or read online on Scribd
You are on page 1/ 8

1.

Private Sub txtEA_Click(sender As Object, e As EventArgs) Handles


calcular.Click

Dim AN, edad, AA As Single

AN = Val(txtAN.Text)

AA = Val(txtAA.Text)

edad = AA - AN

txtedad.Text = edad

End Sub
2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
txtCE.Click

Dim che, he, ce As Double

che = Val(txtche.Text)

he = Val(txthe.Text)

ce = che * he

txtCE.Text = ce

End Sub
3. Private Sub txtgc_Click(sender As Object, e As EventArgs) Handles gc.Click
Dim kmr, ckm, ct As Double
kmr = Val(txtkmr.Text)
ckm = Val(txtckm.Text)
ct = kmr * ckm
txtct.Text = ct
End Sub
Private Sub txtclean_Click(sender As Object, e As EventArgs) Handles
txtclean.Click

txtkmr.Clear()
txtckm.Clear()
txtct.Clear()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End
End Sub
4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim td, cmin, cll As Single
td = Val(txttd.Text)
cmin = Val(txtcmin.Text)

cll = td * cmin
txtcll.Text = cll
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
txttd.Clear()
txtcmin.Clear()
txtcll.Clear()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles


Button3.Click
End
End Sub
5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pa, pd, pf As Single
pa = Val(txtpa.Text)
pd = pa - (pa * 0.2)
txtpd.Text = pd
pf = pa - (pa * 0.2) + (pa * 0.15)
txtpf.Text = pf
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


txtpa.Clear()
txtpd.Clear()
txtpf.Clear()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


End
End Sub
6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim n1, n2, n3, p As Single
n1 = Val(txtn1.Text)
n2 = Val(txtn2.Text)
n3 = Val(txtn3.Text)

p = n1 * 0.25 + n2 * 0.25 + n3 * 0.5


txtp.Text = p

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


txtn1.Clear()
txtn2.Clear()
txtn3.Clear()
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


End
End Sub
8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim dh, pnh, pf As Single
dh = Val(txtdh.Text)
pnh = Val(txtpnh.Text)
pf = dh * pnh
txtpf.Text = pf
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


txtdh.Clear()
txtpnh.Clear()
txtpf.Clear()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


End
End Sub

You might also like