Ensambladores y Decompiladores(PARTE 2)

PONTIFICIA UNIVERSIDAD CATÓLICA DEL ECUADOR SEDE IBARRA

COMPILADORES

NOMBRE: FRANKLIN PAZMIÑO 

FECHA: 28/4/2019

PARA LOS PROGRAMAS DECOMPILADORES

1. Como sugerencia puede trabajar con el programa  Vb Decompiler lite v7.8 y usted puede
investigar un segundo programa para decompilar.

2. Presentar con pantallas el proceso de instalación de las aplicaciones, subirlas a un repositorio Digital y publicar la investigación del proceso realizado, además debe adjuntar el archivo original y el proyecto decompilado en el caso de visual, basic; de igual manera se recomienda descargar una aplicación realizada en visual basic 6.0 de sitios recomendados para la descarga de programas ya diseñados y que son recursos didácticos para la programación.

INSTALACIÓN

ARCHIVO ORIGINAL Y PROYECTO DESCOMPILADO

archivo original y descompilado


3. Presentar el código fuente de la aplicación selecciona por usted.

Nombre del autor: Luis Antonio De La Cruz Reyes.

Dim num1 As Integer
Dim num2 As Integer
Dim op As String


Private Sub Command1_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command10_Click()
num1 = Text1.Text
Text1.Text = ""
op = "/"
Text1.SetFocus
End Sub

Private Sub Command11_Click()
num1 = Text1.Text
Text1.Text = ""
op = "*"
Text1.SetFocus
End Sub

Private Sub Command12_Click()
num1 = Text1.Text
Text1.Text = ""
op = "-"
Text1.SetFocus
End Sub

Private Sub Command13_Click()
num1 = Text1.Text
Text1.Text = ""
op = "+"
Text1.SetFocus
End Sub

Private Sub Command14_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command15_Click()
If (num1 = 0) Then
MsgBox ("No se realizo una operación")
Else
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
End If
If op = "-" Then
Text1.Text = num1 - num2
End If
If op = "/" Then
Text1.Text = num1 / num2
End If
If op = "*" Then
Text1.Text = num1 * num2
End If
End If
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text & "."
End Sub

Private Sub Command17_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command18_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & 1
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & 2
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & 3
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & 4
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text & 5
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text & 6
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & 7
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & 8
End Sub

4. Adjuntar el código del programa en el archivo PDF  construido por usted en el paso número 2.
archivo original y descompilado