CURSO DE PROGRAMACION BASICA - Cap 9

Desarrollo del proyecto

prácticoFases de desarrollo:

• 9.1 Planteamiento.

• 9.2 Análisis y diseño de la solución.

• 9.3 Desarrollo.

• 9.4 Documentación.

• 9.5 Implementación y pruebas.

Planteamiento

Filtración de registros sismicos

para simular estructuras fisicas

bajo efectos sismológicos.





• 9.3 Desarrollo.



Análisis = Que va hacer la solución.

Diseño = Como lo va hacer.

Problema

4138 puntos

Solución

75 Puntos

Análisis / Diseño





• 9.3 Desarrollo.



Traducción de la solución algoritmica a

un Lenguaje de Programación

PSeInt.psc Solución.sln

Desarrollo





• 9.3 Desarrollo.



Guia resumisa del uso de la sulución

informática.

Solución.sln ManualUsuario.docx

Documentación





• 9.3 Desarrollo.



Ejemplos de experimentos, graficas o

formulas, realizadas en EXCEL y las

obtenidas con el solución.

MACROS SOLUCIÓN

Implemt. / Test


prácticoCriterios de valoración:

• Estado

• Calidad

• Originalidad

• Diseño

• Funcionamiento

• Defensa

Estado

Iniciado, en desarrollo, finalizado



• Estado

• Calidad

• Originalidad

• Diseño

• Funcionamiento

• Defensa

POO, tiempos de respuesta,

código limpio, variables,

comentarios.

Calidad



• Estado

• Calidad

• Originalidad

• Diseño

• Funcionamiento

• Defensa

Enviados a hacer, copia, original

Originalidad



• Estado

• Calidad

• Originalidad

• Diseño

• Funcionamiento

• Defensa

Principiante (mal diseño),

moderado (bueno con fallas),

avanzado (muy bueno), excelente.

Diseño



• Estado

• Calidad

• Originalidad

• Diseño

• Funcionamiento

• Defensa

No funciona, funciona con errores,

funciona

Funcionamiento



• Estado

• Calidad

• Originalidad

• Diseño

• Funcionamiento

• Defensa

Mala, regular, buena, muy B.

Excelente.

Defenza


práctico

Calificaciones 2do. Bimestre.

• Tareas, foros y cuestionarios = 8 Puntos.

• Proyecto = 6 Puntos.

• Examen = 6 Puntos.

• Para Proyectos EXCELENTES (excesos) = 12 Puntos.

8 Puntos

20

puntos

6 Puntos 6 Puntos


práctico

Calificaciones 2do. Bimestre.

• Tareas, foros y cuestionarios = 8 Puntos.

• Proyecto = 6 Puntos.

• Examen = 6 Puntos.

• Para Proyectos EXCELENTES (excesos) = 12 Puntos.

8 Puntos 12 Puntos

20

puntos


práctico

En que consiste el proyecto.

• Los temas son libres.

• Según su area del conocimiento, pueden seleccionar un problema y darle solución implementando una herramienta automatizada.

• Todo el proyecto debe pasar por las fases de desarrollo.

• Ejemplo de un tema:

Filtración de registros sismicos EXTENSOS a

registros sismicos LIMPIOS para mejorar las

simulaciones de estructuras fisicas bajo efectos

sismológicos.


práctico

En que consiste el proyecto.

• Los temas son libres.

• Según su area del conocimiento, pueden seleccionar un problema y darle solución implementando una herramienta automatizada.

• Todo el proyecto debe pasar por las fases de desarrollo.

• Ejemplo de un tema:

Registro Sísmico ORIGINAL Registro Sísmico FILTRADO


práctico

DEMO. Filtración de Resgistros Sísmicos.

• Se ingresa el archivo de texto correspondiente al sismo.

• Se lee el archivo y se lo almacena un una matriz para luego recorrerlo y filtrarlo

• Se grafican los resultados.

Sismo.txt Solucion.VB Resultado

Cargar archivoPublic Sub CargarFiles()

Dim openFileDialog1 As New OpenFileDialog()

Dim SrFromStream As StreamReader

Dim line As String

Dim intNumLineas, i As Integer

openFileDialog1.InitialDirectory = "c:\"

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

openFileDialog1.FilterIndex = 2

openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

myStream = openFileDialog1.OpenFile()

If Not (myStream Is Nothing) Then

SrFromStream = New StreamReader(myStream)

Do

line = SrFromStream.ReadLine()

intNumLineas += 1

Loop Until line Is Nothing

myStream.Close()

myStream = openFileDialog1.OpenFile()

SrFromStream = New StreamReader(myStream)

ReDim datosSismo(intNumLineas - 1)

Do

line = SrFromStream.ReadLine()

datosSismo(i) = CInt(line)

i += 1

Loop Until line Is Nothing

myStream.Close()

End If

End If

End Sub

ConstructorPrivate Sub subConstructor()

chartUpdateTimer.Interval = CInt(samplePeriod.Value)

ReDim datosSismo(0)

ReDim datosSismo2(0)

datosSismo(0) = Nothing

datosSismo2(0) = Nothing

intContadorPuntos = 0

End Sub

GraficadorPrivate Sub subConstructor()

Private Sub establecerPropCtrlGraficos()

XYChart_Grafica_Simula = New ChartDirector.XYChart(intAnchoGraficas - 75, intAltoGraficas - 90, intColorFondo,

intColorFondo, 0) 'XYChart para el primer gráfico

CrearGraficasXYChart(50, 50, 550, 200, &HFFFFFF, -1, -1, &HCCCCCC, &HCCCCCC, Nothing, "Times New

Roman Bold", 16, 0, 0, 0, "FORCE (MN)", "Arial Bold Italic", 9, 0, 3, 20, -1, "DISPLACEMENT (mm)", "Arial Bold Italic",

9, 0, 3, 20, -1, XYChart_Grafica_Simula)

legendBox = XYChart_Grafica_Simula.addLegend(intAddLegend_Coord_x, intAddLegend_Coord_y,

bolAddLegend_Bool, strAddLegend_Font, intAddLegend_FontSize)

legendBox.setBackground(Chart.Transparent, Chart.Transparent)

Me.wcvGraficasSimula.Image = XYChart_Grafica_Simula.makeImage()

End Sub End Sub

Referencias:

Digitales

ChartDirector (2001): Advanced Software EngineeringLimited. actualizado 01 de enero de 2009 (citado 25 de Junio del 2009). Disponible a través de: http://www.advsofteng.com/

Microsoft Corporation (2008): Microsoft Document Explore Version 8.0.50727.42, actualizado 06 de diciembre de 2007 (citado 25 de Marzo del 2009). Disponible a través de: MSDN Library para Visual Studio 2005 (US).

Direcciones electrónicas

Advanced Software Engineering Limitedhttp://www.advsofteng.com/index.html

http://www.advsofteng.com/

http://www.advsofteng.com/index.html

MATRICULATE AL CURSO

CURSO DE PROGRAMACION BASICA - Cap 9

Education

Transcript of CURSO DE PROGRAMACION BASICA - Cap 9