Nombre: David Orlando Calderón Rivas.
Profesor: Lester Holtmman.
Audio: 2.
Trabajo: Investigación de Microsoft Visual
Basic.
Programa de Suma.
Interfaz:
Codificación:
Private Sub Command1_Click()
Dim a, b, c
a = Val([Link])
b = Val([Link])
c=a+b
[Link] = c
End Sub
Private Sub Command2_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End Sub
Private Sub Command3_Click()
MsgBox "Hasta la Vista"
End
End Sub
Programa de Resta.
Interfaz:
Codificación:
Private Sub Command1_Click()
Dim a, b, c
a = Val([Link])
b = Val([Link])
c=a-b
[Link] = c
End Sub
Private Sub Command2_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End Sub
Private Sub Command3_Click()
MsgBox "Hasta la Vista Baby."
End
End Sub
Programa de Multiplicación.
Interfaz:
Codificación:
Private Sub Command1_Click()
Dim a, b, c
a = Val([Link])
b = Val([Link])
c=a*b
[Link] = c
End Sub
Private Sub Command2_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End Sub
Private Sub Command3_Click()
MsgBox "Hasta la Vista Baby."
End
End Sub
Programa de Divición:
Interfaz:
Codificación:
Private Sub Command1_Click()
Dim a, b, c
a = Val([Link])
b = Val([Link])
c=a/b
[Link] = c
End Sub
Private Sub Command2_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End Sub
Private Sub Command3_Click()
MsgBox "Hasta la Vista Baby."
End
End Sub
Programa de Clave de Acceso.
Interfaz:
Codificación:
Private Sub Command1_Click()
If [Link] = "DOC" Then
MsgBox "Bienvenido"
[Link] = False
[Link] = True
Else
MsgBox "Metio la pata."
[Link] = False
[Link] = False
[Link] = ""
End If
End Sub
Private Sub Command2_Click()
Dim a, b, c, d
a = "salida"
b = vbYesNo
c = "Mensaje"
d = MsgBox(a, b, c)
If d = vbYes Then
MsgBox "Hasta pronto"
End
End If
If d = vbNo Then
[Link] = True
[Link] = True
End If
End Sub
Private Sub Text1_Change()
If [Link] <> "" Then
[Link] = True
[Link] = True
End If
End Sub
Programa de Calculadora.
Interfaz:
Codificación:
Dim OPERA As Byte
Dim NUM1, NUM2 As Double
Private Sub Command1_Click()
End Sub
Private Sub DIVDEC_Click()
NUM1 = Val([Link])
OPERA = 4
[Link] = ""
End Sub
Private Sub DIVENT_Click()
NUM1 = Val([Link])
OPERA = 5
[Link] = 5
End Sub
Private Sub Form_Load()
NUM1 = 0
NUM2 = 0
End Sub
Private Sub IGUAL_Click()
resp = 0
NUM2 = Val([Link])
If OPERA = 1 Then
resp = NUM1 + NUM2
End If
If OPERA = 2 Then
resp = NUM1 - NUM2
End If
If OPERA = 3 Then
resp = NUM1 * NUM2
End If
If OPERA = 4 Then
If NUM2 = 0 Then
MsgBox "Error...No puede dividirse por 0"
Exit Sub
End If
resp = NUM1 / NUM2
End If
If OPERA = 5 Then
If NUM2 = 0 Then
MsgBox "Error...No puede dividirse por 0"
Exit Sub
End If
resp = NUM1 \ NUM2
End If
If OPERA = 6 Then
If NUM2 = 0 Then
MsgBox "Error...No puede dividirse por 0", vbCritical
Exit Sub
End If
resp = NUM1 Mod NUM2
End If
[Link] = resp
End Sub
Private Sub Limpiar_Click()
[Link] = ""
NUM1 = 0
NUM2 = 0
resp = 0
End Sub
Private Sub MODULO_Click()
NUM1 = Val([Link])
OPERA = 6
[Link] = ""
End Sub
Private Sub MULTI_Click()
NUM1 = Val([Link])
OPERA = 3
[Link] = ""
End Sub
Private Sub N1_Click()
[Link] = [Link] + Str(1)
End Sub
Private Sub N2_Click()
[Link] = [Link] + Str(2)
End Sub
Private Sub N3_Click()
[Link] = [Link] + Str(3)
End Sub
Private Sub N4_Click()
[Link] = [Link] + Str(4)
End Sub
Private Sub N5_Click()
[Link] = [Link] + Str(5)
End Sub
Private Sub N6_Click()
[Link] = [Link] + Str(6)
End Sub
Private Sub N7_Click()
[Link] = [Link] + Str(7)
End Sub
Private Sub N8_Click()
[Link] = [Link] + Str(8)
End Sub
Private Sub N9_Click()
[Link] = [Link] + Str(9)
End Sub
Private Sub N0_Click()
[Link] = [Link] + Str(0)
End Sub
Private Sub RESTA_Click()
NUM1 = Val([Link])
OPERA = 2
[Link] = ""
End Sub
Private Sub Salir_Click()
MsgBox ".....LARGO....."
End
End Sub
Private Sub SUMA_Click()
NUM1 = Val([Link])
OPERA = 1
[Link] = ""
End Sub
Programa de Movimiento.
Interfaz:
Codificación:
Private Sub Timer1_Timer()
[Link] [Link] + 100
If [Link] > ScaleWidth Then
[Link] 0
End If
End Sub
Programa de Aritmética.
Interfaz:
Codificación:
Private Sub Command1_Click()
Dim a, b, c
a = Val([Link])
b = Val([Link])
c=a+b
[Link] = c
End Sub
Private Sub Command2_Click()
a = Val([Link])
b = Val([Link])
c=a-b
[Link] = c
End Sub
Private Sub Command3_Click()
a = Val([Link])
b = Val([Link])
c=a*b
[Link] = c
End Sub
Private Sub Command4_Click()
a = Val([Link])
b = Val([Link])
c=a/b
[Link] = c
End Sub
Private Sub Command5_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End Sub
Private Sub Command6_Click()
MsgBox "Que tenga buen día."
End
End Sub
Menú Editor.
Interfaz:
Codificación:
Private Sub Calculadora_Click()
Shell ("C:\WINDOWS\SYSTEM32\[Link]"), vbMaximizedFocus
End Sub
Private Sub Excel_Click()
Shell ("C:\STREET\Microsoft Office\Office\[Link]"), vbMaximizedFocus
End Sub
Private Sub MarioT_Click()
End Sub
Private Sub Paint_Click()
Shell ("C:\WINDOWS\SYSTEM32\[Link]"), vbMaximizedFocus
End Sub
Private Sub Word_Click()
Shell ("C:\STREET\Microsoft Office\Office\WinWord"), vbMaximizedFocus
End Sub
