10.04.2019 Views

Ejercicios de programación .net (nivel inicial)

Se muestra el funcionamiento de los conceptos básicos para programar en .net

Se muestra el funcionamiento de los conceptos básicos para programar en .net

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Public Class Form3<br />

Private Sub salario_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs)<br />

Handles salario.Click<br />

Dim C, V, VT, I, T<br />

C = Val(CANT.Text)<br />

V = Val(VUNI.Text)<br />

VT = C * V<br />

I = VT * 0.12<br />

T = VT + I<br />

ListBox1.Items.Add(PROD.Text)<br />

VTOTAL.Text = VT<br />

IVA.Text = I<br />

TOTAL.Text = T<br />

End Sub<br />

Private Sub Button10_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs)<br />

Handles Button10.Click<br />

ListBox1.Items.Clear()<br />

VTOTAL.Text = ""<br />

IVA.Text = ""<br />

TOTAL.Text = ""<br />

CANT.Text = ""<br />

VUNI.Text = ""<br />

PROD.Text = ""<br />

PROD.Focus()<br />

End Sub<br />

Private Sub Button8_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs)<br />

Handles Button8.Click<br />

Form1.Close()<br />

End Sub<br />

Private Sub Button9_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs)<br />

Handles Button9.Click<br />

fORM4.SHOW()<br />

Me.Hi<strong>de</strong>()<br />

End Sub<br />

End Class<br />

Leonel Navarrete

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!