Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 5

PROGRAMACIÓN .

NET - I
SEMANA 2

JUAN M. LORCA GAJARDO


12.12.2021
ANTECEDENTES:
Observe el siguiente código:

Imports System

Namespace miPrograma

Public Class Programa

Public Sub ProgramaMethod()

Console.WriteLine("Este mensaje es desde Mi ProgramaMethod.")

End Sub

End Class

End Namespace

1. Responda: ¿Cree Ud. que el código anterior puede ser usado como base para la creación de un
ensamblado de aplicación? Justifique su respuesta.

2. En la empresa donde Ud. trabaja necesitan insertar tipos de ensamblados de librerías


pertenecientes a Microsoft Office, para que una aplicación permita apuntar a las aplicaciones
de Office. Investigue el mecanismo para realizar dicho desarrollo y descríbalo dentro de la
asignación.
DESARROLLO
1. Responda: ¿Cree Ud. que el código anterior puede ser usado como base para la creación de un
ensamblado de aplicación? Justifique su respuesta.

Conforme al codigo plateado anteriormente, podemos observar que este NO es factible para para su
utilización en la creación de un ensamblado de aplicación, debido a que a este código le faltan
características fundamentales para serlo, las que a continuación detallo:

 El ensamblado es una unidad lógica, que contiene código compilado orientado a .NET.
 El código de ejemplo no está compilado ni tampoco creado su ejecutable.
 El ensamblado contiene código intermedio.
 El ensamblado es autodescriptivo.
 Las librerías pueden ser almacenadas en memoria para ser utilizado con posterioridad.
 Puede ser una librería o un archivo ejecutable, el código expuesto no se presenta como archivo
para uso.
 Dentro de la metadata del código, no se encuentra el manifest, el cual permite revisar la versión
del ensamblado.

2.- En la empresa donde Ud. trabaja necesitan insertar tipos de ensamblados de librerías
pertenecientes a Microsoft Office, para que una aplicación permita apuntar a las aplicaciones de Office.
Investigue el mecanismo para realizar dicho desarrollo y descríbalo dentro de la asignación.

Al crear un nuevo proyecto de Office, Visual Studio agrega automáticamente las referencias a los
ensamblados de interoperabilidad primarios (PIA) de Microsoft Office necesario para compilar el
proyecto.

Es necesario agregar referencias a otros PIA en los escenarios siguientes:

Sí desea usar las características de otras aplicaciones de Microsoft Office en un proyecto, por ejemplo,
quizás le interese usar las características de Microsoft Office Excel en un proyecto de Microsoft Office
Word.

Microsoft cuenta con dos tipos de ensamblados principales, los tipos de ensamblado de procesos .EXE
(ejecutable), el cual es sumamente común en sistemas operativos Windows y también los tipos de
ensamblado .DLL que hace referencia a las librerías.

Cuando se utiliza el ensamblado de proceso. EXE, este ejecutara las clases definidas por las bibliotecas
.DLL.
Para hacer uso de los ensamblados desarrollados por Microsoft, en el código es necesario tener en
consideración cuál de los ensamblados de office se va a utilizar, para este ejemplo se utilizará el
ensamblado de Excel. (Excel.exe), al cual llamaremos con el siguiente código proporcionado por el sitio
oficial de Microsoft:

Imports Excel = Microsoft.Office.Interop.Excel


Module Module1
Sub Main ()
Dim values = {4, 6, 18, 2, 1, 76, 0, 3, 11}
CreateWorkbook(values, "C:\SampleFolder\SampleWorkbook.xls")
End Sub
Sub CreateWorkbook(ByVal values As Integer(), ByVal filePath As String)
Dim excelApp As Excel.Application = Nothing
Dim wkbk As Excel.Workbook
Dim sheet As Excel.Worksheet
Try
' Start Excel and create a workbook and worksheet.
excelApp = New Excel.Application
wkbk = excelApp.Workbooks.Add()
sheet = CType(wkbk.Sheets.Add(), Excel.Worksheet)
sheet.Name = "Sample Worksheet"
' Write a column of values.
' In the For loop, both the row index and array index start at 1.
' Therefore the value of 4 at array index 0 is not included.
For i = 1 To values.Length - 1
sheet.Cells(i, 1) = values(i)
Next
' Suppress any alerts and save the file. Create the directory
' if it does not exist. Overwrite the file if it exists.
excelApp.DisplayAlerts = False
Dim folderPath = My.Computer.FileSystem.GetParentPath(filePath)
If Not My.Computer.FileSystem.DirectoryExists(folderPath) Then
My.Computer.FileSystem.CreateDirectory(folderPath)
End If
wkbk.SaveAs(filePath)
Catch
Finally
sheet = Nothing
wkbk = Nothing
' Close Excel.
excelApp.Quit()
excelApp = Nothing
End Try
End Sub
End Module
REFERENCIAS BIBLIOGRÁFICAS
IACC (2016). Introducción a Microsoft. NET II. Programación .NET - I. Semana 2.

También podría gustarte