Microsoft Excel LIN Simulation Program

Option Explicit

Sub StartLinSimulation(ByVal mode As Byte)
    Dim dev(0 To 0) As StMPXDeviceInfo
    Dim count As Byte
    Dim ret As Long
    Dim serial As Long
    Dim p As StMPXLINParam

    ' 1) Open
    ret = MPXOpen(dev(0), 1, count)
    If ret <> E_OK Or count = 0 Then Exit Sub
    serial = dev(0).Serial

    ' 2) LIN parameter setting (mode: Monitor/Master/Slave)
    p.Mode = mode
    p.Revision = MPX_LIN_REV_21
    p.Baudrate = 19200
    p.SyncBreak = 13
    p.Delimiter = 1
    p.HeaderSpace = 1
    p.ResponseSpace = 1
    p.ByteSpace = 1
    ret = MPXLINSetParam(serial, p)
    If ret <> E_OK Then Exit Sub

    ' 3) Set log acquisition mode
    ret = MPXSetGetLogMode(serial, MPX_INNERCH_LIN, MPX_GETLOGMODE_GETLOGAPI)
    If ret <> E_OK Then Exit Sub

    ' 4) Set Master/Slave settings as needed
    ' Master: MPXLINSetMasterSchedule, MPXLINSetMasterSim, MPXLINSetStatus
    ' Slave : MPXLINSetSlaveSim

    ' 5) Start
    ret = MPXMonitorStart(serial, MPX_SYNC_MASTER)
End Sub

Sub StopLinSimulation(ByVal serial As Long)
    Dim ms As Long, us As Integer
    Call MPXMonitorStop(serial, ms, us)
    Call MPXClose
End Sub