FICO
FICO Xpress Optimization Examples Repository
FICO Optimization Community FICO Xpress Optimization Home
Back to examples browser

Working with models, data and dynamic libraries in Mosel

Description
ExSet.vb: Using sets in Mosel (requires burglari.mos)
  • retrieve a set by its model name
  • get the set size
  • get first and last set element
  • get the name or index of a set element
ExAs.vb: Using arrays with index sets (requires trans.mos)
  • get indexing sets of an array
  • get array type
  • enumerate array entries in usual and transposed order
  • enumerate true array entries
ExProb.vb: Accessing problems and solution information with Mosel (requires blend2.mos)
  • export problem to a file (MPS or LP format)
  • get problem status
  • get objective function value
  • get primal/dual solution values, and constraint activity
ExLib.vb: Working with models and accessing dynamic libraries in Mosel
  • load and unload BIM models
  • run a model in Mosel
  • display information about loaded models
  • display information about additional libraries required by the loaded models
DispMod.vb: Display the contents of a model; the information is read from a bim file
  • display run-time parameters, requirements, symbols, package/module dependencies, annotations
DispDso.vb: Display the contents of a module
  • display constants, types, control paramters, subroutines, I/O drivers
ExDrvs*.cb.: Use I/O drivers to handle Mosel output with a callback function, compile a model from memory to memory, load a bim file from memory, initialise arrays in the Model program from .NET objects and retrieve information from the model through memory.
  • ExDrvsCallback.vb: using 'dotnet:' I/O driver for data exchange via callbacks
  • ExDrvsRaw.vb: using 'dotnetraw:' I/O driver for data exchange in memory
  • ExDrvsStream.vb: using 'dotnetstream:' I/O driver working with streams for data exchange in memory
These .vb files can be run from the VB.NET project Mosel-VB.NET.vbproj (required auxiliary files: frmMain.vb, frmMain.resx, OptimizerLog.vb).

mmexdatavb.zip[download all files]

Source Files
By clicking on a file name, a preview is opened at the bottom of this page.
ExSet.vb[download]
ExAs.vb[download]
ExProb.vb[download]
ExLib.vb[download]
DispMod.vb[download]
DispDso.vb[download]
ExDrvsCallback.vb[download]
ExDrvsRaw.vb[download]
ExDrvsStream.vb[download]
OptimizerLog.vb[download]
frmMain.vb[download]
frmMain.resx[download]
Mosel-VB.NET.vbproj[download]

Data Files
burglari.mos[download]
trans.mos[download]
blend2.mos[download]
chess2.mos[download]




frmMain.vb

Public Class frmMain
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    Friend WithEvents tbxLog As System.Windows.Forms.TextBox
    Friend WithEvents cmdRun As System.Windows.Forms.Button
    Friend WithEvents lblInstructions As System.Windows.Forms.Label
    Friend WithEvents radDispDso As System.Windows.Forms.RadioButton
    Friend WithEvents radDispMod As System.Windows.Forms.RadioButton
    Friend WithEvents radExAs As System.Windows.Forms.RadioButton
    Friend WithEvents radExLib As System.Windows.Forms.RadioButton
    Friend WithEvents radExProb As System.Windows.Forms.RadioButton
    Friend WithEvents radExSet As System.Windows.Forms.RadioButton
    Friend WithEvents radExDrvsCallback As System.Windows.Forms.RadioButton
    Friend WithEvents radExDrvsRaw As System.Windows.Forms.RadioButton
    Friend WithEvents radExDrvsStream As System.Windows.Forms.RadioButton
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.radDispDso = New System.Windows.Forms.RadioButton
        Me.radDispMod = New System.Windows.Forms.RadioButton
        Me.radExAs = New System.Windows.Forms.RadioButton
        Me.radExLib = New System.Windows.Forms.RadioButton
        Me.radExDrvsCallback = New System.Windows.Forms.RadioButton
        Me.tbxLog = New System.Windows.Forms.TextBox
        Me.cmdRun = New System.Windows.Forms.Button
        Me.lblInstructions = New System.Windows.Forms.Label
        Me.radExProb = New System.Windows.Forms.RadioButton
        Me.radExSet = New System.Windows.Forms.RadioButton
        Me.radExDrvsRaw = New System.Windows.Forms.RadioButton
        Me.radExDrvsStream = New System.Windows.Forms.RadioButton
        Me.SuspendLayout()
        '
        'radDispDso
        '
        Me.radDispDso.Location = New System.Drawing.Point(16, 32)
        Me.radDispDso.Name = "radDispDso"
        Me.radDispDso.Size = New System.Drawing.Size(136, 16)
        Me.radDispDso.TabIndex = 0
        Me.radDispDso.Text = "DispDSO"
        '
        'radDispMod
        '
        Me.radDispMod.Location = New System.Drawing.Point(16, 56)
        Me.radDispMod.Name = "radDispMod"
        Me.radDispMod.Size = New System.Drawing.Size(136, 16)
        Me.radDispMod.TabIndex = 1
        Me.radDispMod.Text = "DispMod"
        '
        'radExAs
        '
        Me.radExAs.Location = New System.Drawing.Point(160, 32)
        Me.radExAs.Name = "radExAs"
        Me.radExAs.Size = New System.Drawing.Size(136, 16)
        Me.radExAs.TabIndex = 2
        Me.radExAs.Text = "ExAs"
        '
        'radExLib
        '
        Me.radExLib.Location = New System.Drawing.Point(304, 32)
        Me.radExLib.Name = "radExLib"
        Me.radExLib.Size = New System.Drawing.Size(136, 16)
        Me.radExLib.TabIndex = 3
        Me.radExLib.Text = "ExLib"
        '
        'radExDrvsCallback
        '
        Me.radExDrvsCallback.Location = New System.Drawing.Point(448, 56)
        Me.radExDrvsCallback.Name = "radExDrvsCallback"
        Me.radExDrvsCallback.Size = New System.Drawing.Size(136, 16)
        Me.radExDrvsCallback.TabIndex = 4
        Me.radExDrvsCallback.Text = "ExDrvsCallback"
        '
        'tbxLog
        '
        Me.tbxLog.Location = New System.Drawing.Point(16, 120)
        Me.tbxLog.Multiline = True
        Me.tbxLog.Name = "tbxLog"
        Me.tbxLog.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.tbxLog.Size = New System.Drawing.Size(520, 224)
        Me.tbxLog.TabIndex = 5
        Me.tbxLog.Text = ""
        '
        'cmdRun
        '
        Me.cmdRun.Location = New System.Drawing.Point(416, 88)
        Me.cmdRun.Name = "cmdRun"
        Me.cmdRun.Size = New System.Drawing.Size(120, 24)
        Me.cmdRun.TabIndex = 6
        Me.cmdRun.Text = "Run"
        '
        'lblInstructions
        '
        Me.lblInstructions.Location = New System.Drawing.Point(16, 8)
        Me.lblInstructions.Name = "lblInstructions"
        Me.lblInstructions.Size = New System.Drawing.Size(512, 16)
        Me.lblInstructions.TabIndex = 7
        Me.lblInstructions.Text = "Select the example to run..."
        Me.lblInstructions.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'radExProb
        '
        Me.radExProb.Location = New System.Drawing.Point(16, 80)
        Me.radExProb.Name = "radExProb"
        Me.radExProb.Size = New System.Drawing.Size(136, 16)
        Me.radExProb.TabIndex = 8
        Me.radExProb.Text = "ExProb"
        '
        'radExSet
        '
        Me.radExSet.Location = New System.Drawing.Point(448, 32)
        Me.radExSet.Name = "radExSet"
        Me.radExSet.Size = New System.Drawing.Size(136, 16)
        Me.radExSet.TabIndex = 9
        Me.radExSet.Text = "ExSet"
        '
        'radExDrvsRaw
        '
        Me.radExDrvsRaw.Location = New System.Drawing.Point(304, 56)
        Me.radExDrvsRaw.Name = "radExDrvsRaw"
        Me.radExDrvsRaw.Size = New System.Drawing.Size(136, 16)
        Me.radExDrvsRaw.TabIndex = 10
        Me.radExDrvsRaw.Text = "ExDrvsRaw"
        '
        'radExDrvsStream
        '
        Me.radExDrvsStream.Location = New System.Drawing.Point(160, 56)
        Me.radExDrvsStream.Name = "radExDrvsStream"
        Me.radExDrvsStream.Size = New System.Drawing.Size(136, 16)
        Me.radExDrvsStream.TabIndex = 11
        Me.radExDrvsStream.Text = "ExDrvsStream"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(552, 349)
        Me.Controls.Add(Me.radExDrvsStream)
        Me.Controls.Add(Me.radExDrvsRaw)
        Me.Controls.Add(Me.radExSet)
        Me.Controls.Add(Me.radExProb)
        Me.Controls.Add(Me.lblInstructions)
        Me.Controls.Add(Me.cmdRun)
        Me.Controls.Add(Me.tbxLog)
        Me.Controls.Add(Me.radExDrvsCallback)
        Me.Controls.Add(Me.radExLib)
        Me.Controls.Add(Me.radExAs)
        Me.Controls.Add(Me.radDispMod)
        Me.Controls.Add(Me.radDispDso)
        Me.Name = "frmMain"
        Me.Text = "Mosel VB.NET Examples"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub cmdRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRun.Click
        Dim Log As OptimizerLog
        Log = New OptimizerLog(Me.tbxLog)
        Me.Cursor = Cursors.WaitCursor
        If Me.radDispDso.Checked Then
            Log.WriteLine("Running DispDSO...")
            Log.WriteLine("")
            DispDso.RunDispDso("mmxprs", Log)
        ElseIf Me.radDispMod.Checked Then
            Log.WriteLine("Running DispMod...")
            Log.WriteLine("")
            DispMod.RunDispMod("Models\blend2.mos", Log)
        ElseIf Me.radExAs.Checked Then
            Log.WriteLine("Running ExAs...")
            Log.WriteLine("")
            ExAs.RunExAs(Log)
        ElseIf Me.radExLib.Checked Then
            Log.WriteLine("Running ExLib...")
            Log.WriteLine()
            ExLib.RunExLib(Log)
        ElseIf Me.radExSet.Checked Then
            Log.WriteLine("Running ExSet...")
            Log.WriteLine()
            ExSet.RunExSet(Log)
        ElseIf Me.radExProb.Checked Then
            Log.WriteLine("Running ExProb...")
            Log.WriteLine()
            ExProb.RunExProb(Log)
        ElseIf Me.radExDrvsStream.Checked Then
            Log.WriteLine("Running ExDrvsStream...")
            Log.WriteLine()
            ExDrvsStream.RunExDrvsStream(Log)
        ElseIf Me.radExDrvsCallback.Checked Then
            Log.WriteLine("Running ExDrvsCallback...")
            Log.WriteLine()
            ExDrvsCallback.RunExDrvsCallback(Log)
        ElseIf Me.radExDrvsRaw.Checked Then
            Log.WriteLine("Running ExDrvsRaw")
            Log.WriteLine()
            ExDrvsRaw.RunExDrvsRaw(Log)
        Else
            Log.WriteLine("ERROR: No example selected.")
            MsgBox("Please select which example you wish to execute")
        End If
        Log.WriteLine()
        Log.WriteLine("Example ended.")
        Me.Cursor = Cursors.Default
    End Sub
End Class
Back to examples browser
© Copyright 2024 Fair Isaac Corporation.