Universidad Politcnica Salesiana
Nombre: Bryan Rodrguez
Grupo: 3A
Fecha: 28/01/2016
VENTANA DE OPCIONES
Dim I As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
I = I + 1
If (([Link] = "Bryan") And ([Link] = "1234")) Then
[Link]()
Else
MsgBox("EL USUARIO O LA CLAVE SON INCORRECTAS, INTENTE DE NUEVO")
If I = 3 Then
MsgBox("SUPERO EL NUMERO DE INTENTOS")
End
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
[Link]
End
End Sub
End Class
Public Class Form2
Private Sub BinarioToolStripMenuItem_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
[Link]()
End Sub
Private Sub OctalToolStripMenuItem_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
[Link]()
End Sub
Private Sub MayorToolStripMenuItem_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
[Link]()
End Sub
Private Sub MesYAoToolStripMenuItem_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
meses_del_ao.Show()
End Sub
Private Sub FactorialToolStripMenuItem_Click(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
[Link]()
[Link]()
End Sub
Private Sub FibonacciToolStripMenuItem_Click(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
[Link]()
[Link]()
End Sub
Private Sub CambioDeBaseToolStripMenuItem_Click(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
End Sub
End Class
Public Class binario
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
[Link]
Dim N, N1, C, R As Integer
N = [Link]
N1 = N
While (N >= 2)
C = N \ 2
R = N Mod 2
[Link] = [Link] & Str(R)
N = C
End While
[Link] = [Link] & Str(C)
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
[Link]
[Link]()
[Link]()
End Sub
End Class
Public Class octal
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim N, N1, C, R As Integer
N = [Link]
N1 = N
While (N >= 8)
C = N \ 8
R = N Mod 8
[Link] = [Link] & Str(R)
N = C
End While
[Link] = [Link] & Str(C)
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End Sub
End Class
z = [Link]
If (x > y) And (x > z) And (y > z) Then
[Link] = x
End If
If (x > y) And (x > z) And (z > y) Then
[Link] = x
End If
If (y > x) And (y > z) And (x > z) Then
[Link] = y
End If
If (y > x) And (y > z) And (z > x) Then
[Link] = y
End If
If (z > x) And (z > y) And (x > y) Then
[Link] = z
End If
If (z > x) And (z > y) And (y > x) Then
[Link] = z
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End
End Sub
End Class
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
num = Val([Link])
Select Case num
Case "1"
[Link] = ("enero ")
Case "2"
[Link] = ("febrero ")
Case "3"
[Link] = ("marzo ")
Case "4"
[Link] = ("abril ")
Case "5"
[Link] = ("mayo")
Case "6"
[Link] = ("junio")
Case "7"
[Link] = ("julio")
Case "8"
[Link] = ("agosto")
Case "9"
[Link] = ("septiembre")
Case "10"
[Link] = ("octubre")
Case "11"
[Link] = ("noviembre")
Case "12"
[Link] = ("diciembre")
Case Else
[Link] = ("")
MsgBox("fuera de rango")
End Select
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
End Sub
End Class
Public Class factorial
Dim x, j, f As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
x = [Link]
f = 1
For j = x To 1 Step -1
f = f * j
Next
[Link] = f
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End
End Sub
End Class
Public Class fibonacci
Dim n, w, x, y, z As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
n = [Link]()
w = 0
x = 1
y = 0
z = 2
If n = 1 Then
y = 1
End If
While z <= n
y = w + x
w = x
x = y
z = z + 1
End While
[Link] = y
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End
End Sub
End Class