CURSO DE PROGRAMACION BASICA - Cap 9
Descargar como PPTX, PDF0 recomendaciones949 vistas
El documento detalla el desarrollo de un proyecto práctico sobre filtración de registros sísmicos para simular estructuras físicas bajo efectos sismológicos. Se describen los objetivos, análisis, diseño, implementación y pruebas del proyecto, así como los resultados y la documentación relacionada. Incluye aspectos técnicos como el uso de algoritmos y la creación de gráficos para representar los datos sísmicos.
CURSO DE PROGRAMACION BASICA - Cap 9
- 1. UNIVERSIDAD TÉCNICA PARTICULAR DE LOJALa Universidad Católica de LojaCurso-ONLINEProgramación BásicaIng. Informático Daniel IreneCAPITULO #9:“Desarrollo del proyecto práctico”
- 3. Desarrollo del proyecto prácticoFiltración de registros sismicos para simular estructuras fisicas bajo efectos sismológicos.Planteamiento
- 4. Desarrollo del proyecto prácticoAnálisis = Quevahacer la solución.Diseño = Como lo va hacer.Análisis / DiseñoProblema4138 puntosSolución75 Puntos
- 5. Desarrollo del proyecto prácticoTraducción de la solución algoritmica a un Lenguaje de ProgramaciónDesarrolloSolución.slnPSeInt.psc
- 6. Desarrollo del proyecto prácticoGuiaresumisa del uso de la sulución informática.DocumentaciónSolución.slnManualUsuario.docx
- 7. Desarrollo del proyecto prácticoEjemplos de experimentos, graficas o formulas, realizadas en EXCEL y las obtenidas con el solución.Implemt. / TestMACROSSOLUCIÓN
- 8. Desarrollo del proyecto prácticoIniciado, en desarrollo, finalizadoEstado
- 9. Desarrollo del proyecto prácticoPOO, tiempos de respuesta, código limpio, variables, comentarios.Calidad
- 10. Desarrollo del proyecto prácticoEnviados a hacer, copia, originalOriginalidad
- 11. Desarrollo del proyecto prácticoPrincipiante (mal diseño), moderado (bueno con fallas), avanzado (muy bueno), excelente.Diseño
- 12. Desarrollo del proyecto prácticoNo funciona, funciona con errores, funcionaFuncionamiento
- 13. Desarrollo del proyecto prácticoMala, regular, buena, muy B. Excelente.Defenza
- 14. Desarrollo del proyecto práctico20 puntos6 Puntos8 Puntos6 Puntos
- 15. Desarrollo del proyecto práctico20 puntos8 Puntos12 Puntos
- 16. Desarrollo del proyecto prácticoFiltración de registros sismicosEXTENSOS a registros sismicos LIMPIOS para mejorar las simulaciones de estructuras fisicas bajo efectos sismológicos.
- 17. Desarrollo del proyecto prácticoRegistro Sísmico ORIGINALRegistro Sísmico FILTRADO
- 18. Desarrollo del proyecto prácticoSismo.txtSolucion.VBResultado
- 19. 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 ThenmyStream = openFileDialog1.OpenFile() If Not (myStream Is Nothing) ThenSrFromStream = New StreamReader(myStream) Do line = SrFromStream.ReadLine()intNumLineas += 1 Loop Until line Is NothingmyStream.Close()myStream = openFileDialog1.OpenFile()SrFromStream = New StreamReader(myStream)ReDimdatosSismo(intNumLineas - 1) Do line = SrFromStream.ReadLine()datosSismo(i) = CInt(line)i += 1 Loop Until line Is NothingmyStream.Close() End If End If End Sub
- 20. ConstructorPrivate Sub subConstructor()chartUpdateTimer.Interval = CInt(samplePeriod.Value)ReDimdatosSismo(0)ReDim datosSismo2(0)datosSismo(0) = Nothing datosSismo2(0) = NothingintContadorPuntos = 0 End SubGraficadorPrivate Sub subConstructor() Private Sub establecerPropCtrlGraficos()XYChart_Grafica_Simula = New ChartDirector.XYChart(intAnchoGraficas - 75, intAltoGraficas - 90, intColorFondo, intColorFondo, 0) 'XYChartpara el primer gráficoCrearGraficasXYChart(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
- 21. Referencias:DigitalesChartDirector (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).DireccioneselectrónicasAdvanced Software EngineeringLimitedhttp://www.advsofteng.com/index.html