Microsoft Excel版 LINシミュレーションプログラム

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パラメータ設定（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) ログ取得方式設定
    ret = MPXSetGetLogMode(serial, MPX_INNERCH_LIN, MPX_GETLOGMODE_GETLOGAPI)
    If ret <> E_OK Then Exit Sub

    ' 4) 必要に応じて Master/Slave 設定
    ' Master: MPXLINSetMasterSchedule, MPXLINSetMasterSim, MPXLINSetStatus
    ' Slave : MPXLINSetSlaveSim

    ' 5) 開始
    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