Attribute VB_Name = "Module1"


Public Const FCSRAM_USER_START    As Long = &H0               ' [Ü̊JnAhX(݃GA)
Public Const FCSRAM_USER_END      As Long = &H1FFFF           ' [Ü̏IAhX
Public Const FCSRAM_SYSTEM_START  As Long = &H20000           ' VXëJnAhX(݃GA)
Public Const FCSRAM_SYSTEM_END    As Long = &H3FFFF           ' VXëIAhX
Public Const FCSRAM_FREE_START    As Long = &H40000           ' 󂫗̈JnAhX
Public Const FCSRAM_FREE_END      As Long = &H7FDFF           ' 󂫗̈IAhX
Public Const FCSRAM_RECORD_SIZE   As Long = &H40              ' 1R[h̃f[^TCY


' [U`^
Type FCRAS_STATUS
  Status1 As Byte    ' A[
  Status2 As Byte    ' WDT, 荞݃ClCu, P^C}
  Status3 As Byte    ' fW^o̓f[^
  Status4 As Byte    ' WDTZbgl (High)
  Status5 As Byte    ' WDTZbgl (Low)
  Status6 As Byte    ' fW^o̓f[^
End Type
Type FCRAS_STATUSX009
  Status1 As Byte    ' A[
  Status2 As Byte    ' WDT, 荞݃ClCu, P^C}
  Status3 As Byte    ' fW^o̓f[^
  Status4 As Byte    ' WDTZbgl (High)
  Status5 As Byte    ' WDTZbgl (Low)
  Status6 As Byte    ' fW^o̓f[^
  Status7 As Byte    ' xZTE~[O{[hA[̓j^
  Status8 As Byte    ' A[̓j^2
  Status9 As Byte    ' [A[j^
End Type


' RASc[CũI[v
Declare Function fcsoftrasOpen Lib "FcSrasapiP.dll" Alias "fcsoftrasOpenP" () As Long

' RASc[CũN[Y
Declare Function fcsoftrasClose Lib "FcSrasapiP.dll" Alias "fcsoftrasCloseP" () As Long

' [UAP Window̓o^
Declare Function fcrasRegisterAlarmApWindow Lib "FcSrasapiP.dll" Alias "_fcrasRegisterAlarmApWindowP@4" (ByVal hWnd As Long) As Long

' [UAP Window̓o^
Declare Function fcrasUnregisterAlarmApWindow Lib "FcSrasapiP.dll" Alias "_fcrasUnregisterAlarmApWindowP@0" () As Long

' WDT̃ZbgX^[g
Declare Function fcrasResetAndStartWDT Lib "FcSrasapiP.dll" Alias "_fcrasResetAndStartWDTP@4" (ByVal dwWdtTimerValue As Long) As Long

' WDT̃Xgbv
Declare Function fcrasStopWDT Lib "FcSrasapiP.dll" Alias "_fcrasStopWDTP@0" () As Long

' RAS{[h̃Xe[^X1`6̎擾
Declare Function fcrasGetStatus Lib "FcSrasapiP.dll" Alias "_fcrasGetStatusP@4" (lpbyRasStatus As FCRAS_STATUS) As Long

' Digital Inf[^l̎擾
Declare Function fcrasDigitalIn Lib "FcSrasapiP.dll" Alias "_fcrasDigitalInP@4" (byDigitalInData As Byte) As Long

' Digital Outf[^̏o
Declare Function fcrasDigitalOut Lib "FcSrasapiP.dll" Alias "_fcrasDigitalOutP@4" (ByVal byDigitalOutData As Byte) As Long

' VZOf[^f[^̏o
Declare Function fcras7SegmentOut Lib "FcSrasapiP.dll" Alias "_fcras7SegmentOutP@4" (ByVal by7SegmentData As Byte) As Long

' RAS{[h̑SXe[^X̎擾
Declare Function fcrasGetStatusX009 Lib "FcSrasapiP.dll" Alias "_fcrasGetStatusX009P@4" (lpbyRasStatus As FCRAS_STATUSX009) As Long

' Ox~bgݒ
Declare Function fcrasExtLimitOut Lib "FcSrasapiP.dll" Alias "_fcrasExtLimitOutP@4" (ByVal byExtLimitData As Byte) As Long

' x~bgݒ
Declare Function fcrasIntLimitOut Lib "FcSrasapiP.dll" Alias "_fcrasIntLimitOutP@4" (ByVal byIntLimitData As Byte) As Long

' Ox~bg擾
Declare Function fcrasGetExtLimit Lib "FcSrasapiP.dll" Alias "_fcrasGetExtLimitP@4" (byExtLimitData As Byte) As Long

' x~bg擾
Declare Function fcrasGetIntLimit Lib "FcSrasapiP.dll" Alias "_fcrasGetIntLimitP@4" (byIntLimitData As Byte) As Long

' A[([Ü)̃Cg
Declare Function fcrasSRAMWrite Lib "FcSrasapiP.dll" Alias "_fcrasSRAMWriteP@4" (lpByWriteData As Byte) As Long
' A[([Ü)̃[h
Declare Function fcrasSRAMRead Lib "FcSrasapiP.dll" Alias "_fcrasSRAMReadP@12" (ByVal dwOffset As Long, lpbyDate As Byte, lpbyReadData As Byte) As Long

'@[Ü̃Jg|C^ǂݏo
Declare Function fcrasSRAMGetUserCurrent Lib "FcSrasapiP.dll" Alias "_fcrasSRAMGetUserCurrentP@4" (lpdwOffset As Long) As Long
'@VXë̃Jg|C^ǂݏo
Declare Function fcrasSRAMGetSystemCurrent Lib "FcSrasapiP.dll" Alias "_fcrasSRAMGetSystemCurrentP@4" (lpdwOffset As Long) As Long
' A[(󂫗̈)̃Cg
Declare Function fcrasSRAMReadPhy Lib "FcSrasapiP.dll" Alias "_fcrasSRAMReadPhyP@12" (ByVal Offset As Long, SramData As Byte, ByVal Size As Long) As Long

' A[(󂫗̈)̃[h
Declare Function fcrasSRAMWritePhy Lib "FcSrasapiP.dll" Alias "_fcrasSRAMWritePhyP@12" (ByVal Offset As Long, SramData As Byte, ByVal Size As Long) As Long
' A[̏
Declare Function fcrasSRAMInit Lib "FcSrasapiP.dll" Alias "_fcrasSRAMInitP@4" (ByVal wMode As Integer) As Long

