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
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