Formularios Visual Basic
Formularios Visual Basic
Do
guardar = numero.ToString + " " + guardar
numero = numero - 1
Do
asteriscoG = asteriscoG + " " + asterisco
txtAsterisco.Text = txtAsterisco.Text + vbCrLf + asteriscoG
i = i + 1
Loop Until (i = NC)
End Sub
End Sub
End Class
Formulario 2:
Public Class Form2
Private Sub BntResolver_Click(sender As Object, e As EventArgs) Handles
BntResolver.Click
Else
x1 = (-txtB.Text) + (Math.Sqrt(res))
x1 = x1 / (2 * txtA.Text)
x2 = (-txtB.Text) - (Math.Sqrt(res))
x2 = x2 / (2 * txtA.Text)
txtX1.Text = x1
txtX2.Text = x2
End If
End Sub
Private Sub BtnLimpiar_Click(sender As Object, e As EventArgs) Handles
BtnLimpiar.Click
txtA.Clear()
txtB.Clear()
txtC.Clear()
txtX1.Clear()
txtX2.Clear()
End Sub
Formulario 3:
Public Class Form3
Private Sub BtnResolver_Click(sender As Object, e As EventArgs) Handles
BtnResolver.Click
Dim v1, fact1, pot1 As Double
Dim v2, fact2, pot2 As Double
Dim resultado As Double
fact1 = 1
fact2 = 1
v1 = 0.0
v2 = 0.0
resultado = 0.0
v1 = txtValor1.Text
v2 = txtValor2.Text
If (RbtnSuma.Checked = True) Then
resultado = v1 + v2
txtRespuesta.Text = (txtValor1.Text + " + " + txtValor2.Text + " = " +
resultado.ToString)
resultado = v1 - v2
txtRespuesta.Text = (txtValor1.Text + " - " + txtValor2.Text + " = " +
resultado.ToString)
resultado = v1 / v2
txtRespuesta.Text = (txtValor1.Text + " / " + txtValor2.Text + " = " +
resultado.ToString)
For n = 1 To v1
fact1 = fact1 * n
Next n
For n = 1 To v2
fact2 = fact2 * n
Next n
If (fact1 > fact2) Then
txtRespuesta.Text = ("El factorial de " + v1.ToString + " que es: "
+ fact1.ToString + " es mayor que el factorial de " + v2.ToString + " que es: " +
fact2.ToString)
ElseIf (fact2 > fact1) Then
txtRespuesta.Text = ("El factorial de " + v2.ToString + " que es: "
+ fact2.ToString + " es mayor que el factorial de " + v1.ToString + " que es: " +
fact1.ToString)
End If
End Class
Formulario 3:
Public Class Form3
Private Sub BtnResolver_Click(sender As Object, e As EventArgs) Handles
BtnResolver.Click
Dim v1, fact1, pot1 As Double
Dim v2, fact2, pot2 As Double
Dim resultado As Double
fact1 = 1
fact2 = 1
v1 = 0.0
v2 = 0.0
resultado = 0.0
v1 = txtValor1.Text
v2 = txtValor2.Text
resultado = v1 + v2
txtRespuesta.Text = (txtValor1.Text + " + " + txtValor2.Text + " = " +
resultado.ToString)
resultado = v1 - v2
txtRespuesta.Text = (txtValor1.Text + " - " + txtValor2.Text + " = " +
resultado.ToString)
resultado = v1 / v2
txtRespuesta.Text = (txtValor1.Text + " / " + txtValor2.Text + " = " +
resultado.ToString)
For n = 1 To v1
fact1 = fact1 * n
Next n
For n = 1 To v2
fact2 = fact2 * n
Next n
If (fact1 > fact2) Then
txtRespuesta.Text = ("El factorial de " + v1.ToString + " que es: "
+ fact1.ToString + " ,es mayor que el factorial de " + v2.ToString + " que es: " +
fact2.ToString)
ElseIf (fact2 > fact1) Then
txtRespuesta.Text = ("El factorial de " + v2.ToString + " que es: "
+ fact2.ToString + " ,es mayor que el factorial de " + v1.ToString + " que es: " +
fact1.ToString)
End If
End Class
Formulario 4:
Public Class Form4
Private Sub BtnGenerar_Click(sender As Object, e As EventArgs) Handles
BtnGenerar.Click
If (Char.IsDigit(partes(i))) Then
num = num + " " + partes(i)
cantN = cantN + 1
ElseIf (Char.IsLetter(partes(i))) Then
palabra = palabra + " " + partes(i)
cantP = cantP + 1
End If
i = i + 1
Loop While i < partes.Length
arabigo = 0
Do
If (Char.IsUpper(partes(i))) Then
For Each letter As String In partes(i)
If letter = "I" Then
valor = 1
ElseIf letter = "V" Then
valor = 5
ElseIf letter = "X" Then
valor = 10
ElseIf letter = "L" Then
valor = 50
ElseIf letter = "C" Then
valor = 100
ElseIf letter = "D" Then
valor = 500
ElseIf letter = "M" Then
valor = 1000
End If
Next
End If
i = i + 1
Loop While i < partes.Length
txtResultado.Text = ("El número romano de la oración '" +
txtOracion.Text + "' en número arábigo es: " + arabigo.ToString)
End If
End Sub
End Sub
End Sub
End Class
Formulario 5:
Public Class Form5
cpDecimal = TxtDec.Text
While (cpDecimal <> 0)
modulo = cpDecimal Mod 2
cpDecimal = Math.Truncate(cpDecimal / 2)
Binario = modulo.ToString + Binario
End While
TxtBin.Text = Binario
End Sub
End Class