Visual Basic

Actividad 15 –Expresion Cuadratica

Private Sub Command1_Click()
Dim A, B, C, X1, X2 As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)
X1 = (-B + (B ^ 2 - 4 * A * C) ^ 0.5 /(2 * A))
txtx1 = X1
X2 = (-B - (B ^ 2 - 4 * A * C) ^ 0.5 / (2 * A))
txtx2 = X2
End Sub
Private Sub Command2_Click()
txtA.Text = ""
txtB.Text = ""
txtC.Text = ""
txtx1.Text = ""
txtx2.Text =""

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub cmdcalcular_Click()

End Sub

Actividad 16- Formula de MRUA de física

Private Sub cmdcalcular_Click()
Dim vo, a, t, sAs Single
vo = Val(txtvo.Text)
a = Val(txta.Text)
t = Val(txtt.Text)
s = vo * t + (0.5 * a * t ^ 2)
txts.Text = s

End Sub

Private Sub cmdlimpiar_Click()
txtvo.Text = ""
txta.Text = ""txtt.Text = ""
txts.Text = ""

End Sub

Private Sub cmdsalir_Click()
End
End Sub

Actividad 17- Ley de Ohm

Private Sub cmdcalcular_Click()
Dim V, R, I As Single
V = Val(txtVoltaje.Text)R = Val(txtResistencia.Text)
I = V / R
txtcorrienteelectrica.Text = I

End Sub

Private Sub cmdlimpiar_Click()
txtVoltaje.Text = ""
txtResistencia.Text = ""
txtcorrienteelectrica.Text = ""End Sub

Private Sub cmdsalir_Click()
End

End Sub

Actividad 18-Funciones de seno coseno y tangente

Private Sub cmdcalcular_click()
Dim grados, radianes, seno, coseno, tangente As Doublegrados = Val(txtgrados.Text)
radianes = grados / 57.3
txtradianes.Text = radianes
seno = Math.Sin(radianes)
txtseno.Text = seno
coseno = Math.Cos(radianes)
txtcoseno.Text = coseno
tangente =Math.Tan(radianes)
txttangente.Text = tangente

End Sub

Private Sub cmdlimpiar_Click()
txtgrados.Text = ""
txtradianes.Text = ""
txtseno.Text = ""
txtcoseno.Text = ""
txttangente.Text = ""End Sub

Private Sub cmdsalir_Click()
End
End Sub

Actividad 19- Residuo de una división (2 numeros)

Private Sub Command1_Click()
Dim numero1, numero2, resultado, residuo As Integer...