Cuspinera Contreras, Víctor Hugo - Anexo B. Código de Ventanas de Diálogo - Carteras de Inversión con Escenarios Aplicando Heurísticas Report as inadecuate




Cuspinera Contreras, Víctor Hugo - Anexo B. Código de Ventanas de Diálogo - Carteras de Inversión con Escenarios Aplicando Heurísticas - Download this document for free, or read online. Document in PDF available to download.

Cuspinera Contreras, Víctor Hugo - Anexo B. Código de Ventanas de Diálogo - Carteras de Inversión con Escenarios Aplicando Heurísticas -- Licenciatura en Actuaría. - Departamento de Actuaría y Matemáticas. - Escuela de Ingeniería y Ciencias, - Universidad de las Américas Puebla.


Teaser



B Código de Ventanas de Diálogo B.1 Frame Main Public Class frmMain Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click Me.Close() End Sub Private Sub NuevaCarteraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevaCarteraToolStripMenuItem.Click Dim sol As New Solucion Solucion.iniIngresa = True Solucion.Escenarios = False sol.Principal() End Sub Private Sub CarterasPredeterminadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CarterasPredeterminadasToolStripMenuItem.Click Dim sol As New Solucion Solucion.iniIngresa = False Solucion.Escenarios = False sol.Principal() End Sub Private Sub EscenariosCPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EscenariosCPToolStripMenuItem.Click Dim sol As New Solucion Solucion.iniIngresa = True Solucion.Escenarios = True Solucion.CierraResultadoEscenarios = False sol.EscenariosCarteraPredeterminada() End Sub Private Sub EscenariosCPPredeterminadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EscenariosCPPredeterminadosToolStripMenuItem.Click Dim sol As New Solucion Solucion.iniIngresa = False Solucion.Escenarios = True Solucion.CierraResultadoEscenarios = False sol.EscenariosCarteraPredeterminada() End Sub Private Sub frmMain_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave Solucion.RendEsp = Solucion.R0 149 End Sub Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BarraProgreso.Visible = False BarraProgreso.Value = 0 'NuevaCarteraToolStripMenuItem.Visible = False 'EscenariosCPToolStripMenuItem.Visible = False End Sub Private Sub CarterasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CarterasToolStripMenuItem.Click MsgBox(-La parte de men...






Related documents