VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Sample Application"
   ClientHeight    =   3210
   ClientLeft      =   3765
   ClientTop       =   2925
   ClientWidth     =   4605
   LinkTopic       =   "Form1"
   ScaleHeight     =   3210
   ScaleWidth      =   4605
   Begin VB.CommandButton Command10 
      Caption         =   "Set HighLimit internal temp.(35)"
      Height          =   495
      Left            =   360
      TabIndex        =   9
      Top             =   2040
      Width           =   1692
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Set HighLimit internal temp.(60)"
      Height          =   495
      Left            =   2520
      TabIndex        =   8
      Top             =   2040
      Width           =   1692
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Digital Input"
      Height          =   495
      Left            =   2520
      TabIndex        =   7
      Top             =   2640
      Width           =   1692
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Status Read"
      Height          =   495
      Left            =   360
      TabIndex        =   6
      Top             =   2640
      Width           =   1692
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Set HighLimit external temp.(60)"
      Height          =   495
      Left            =   2520
      TabIndex        =   5
      Top             =   1440
      Width           =   1692
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Set HighLimit external temp.(35)"
      Height          =   495
      Left            =   360
      TabIndex        =   4
      Top             =   1440
      Width           =   1692
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Digital Output(00H)"
      Height          =   495
      Left            =   2520
      TabIndex        =   3
      Top             =   840
      Width           =   1692
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Digital Output(5AH)"
      Height          =   495
      Left            =   360
      TabIndex        =   2
      Top             =   840
      Width           =   1692
   End
   Begin VB.CommandButton Command2 
      Caption         =   "WDT Stop"
      Height          =   495
      Left            =   2520
      TabIndex        =   1
      Top             =   240
      Width           =   1692
   End
   Begin VB.CommandButton Command1 
      Caption         =   "WDT Start(10sec)"
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1692
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private defaultExtLimit As Byte ' Ox~bgl̕ۑp
Private defaultIntLimit As Byte ' x~bgl̕ۑp

Private Sub Command1_Click()
  Rem WDT̃ZbgX^[g
  Dim lRetVal1 As Long
  dwWdtTimerValue = 10000
  lRetVal1 = fcrasResetAndStartWDT(dwWdtTimerValue)
  MsgBox "Return Value =" & lRetVal1, vbInformation, "WDT Start (10sec)"
End Sub

Private Sub Command10_Click()
' x̋elݒ
  Dim lRetVal10 As Long
  byIntLimitData = 70
  lRetVal10 = fcrasIntLimitOut(byIntLimitData)
  MsgBox "Return Value =" & lRetVal10, vbInformation, "Set internal temp.(+35)"

End Sub

Private Sub Command2_Click()
' WDT̃Xgbv
  Dim lRetVal2 As Long
  lRetVal2 = fcrasStopWDT()
  MsgBox "Return Value =" & lRetVal2, vbInformation, "WDT Stop"
End Sub

Private Sub Command3_Click()
' fW^f[^̏o
  Dim lRetVal3 As Long
  byDigitalOutData = &H5A
  lRetVal3 = fcrasDigitalOut(byDigitalOutData)
  MsgBox "Return Value =" & lRetVal3, vbInformation, "Digital Output (5AH)"
End Sub

Private Sub Command4_Click()
' fW^f[^̃NA
  Dim lRetVal4 As Long
  byDigitalOutData = &H0
  lRetVal4 = fcrasDigitalOut(byDigitalOutData)
  MsgBox "Return Value =" & lRetVal4, vbInformation, "Digital Output(00h)"
End Sub

Private Sub Command5_Click()
' Ox̋elݒ
  Dim lRetVal5 As Long
  byExtLimitData = 70
  lRetVal5 = fcrasExtLimitOut(byExtLimitData)
  MsgBox "Return Value =" & lRetVal5, vbInformation, "Set external temp.(+35)"
End Sub

Private Sub Command6_Click()
' VZOf[^f[^̃NA
  Dim lRetVal6 As Long
  byExtLimitData = 120
  lRetVal5 = fcrasExtLimitOut(byExtLimitData)
  MsgBox "Return Value =" & lRetVal5, vbInformation, "Set external temp.(+60)"
End Sub

Private Sub Command7_Click()
' RAS{[h̑SXe[^X̎擾
  Dim lRetVal7 As Long
  Dim lpbyRasStatusX009 As FCRAS_STATUSX009
  IRetVal7 = fcrasGetStatusX009(lpbyRasStatusX009)
  With lpbyRasStatusX009
    MsgBox "Return Value =" & lRetVal7 & vbCrLf & "Status1 = " & (.Status1) & "(" & Hex(.Status1) & "h)" & vbCrLf & _
                                                  "Status2 = " & (.Status2) & "(" & Hex(.Status2) & "h)" & vbCrLf & _
                                                  "Status3 = " & (.Status3) & "(" & Hex(.Status3) & "h)" & vbCrLf & _
                                                  "Status4 = " & (.Status4) & "(" & Hex(.Status4) & "h)" & vbCrLf & _
                                                  "Status5 = " & (.Status5) & "(" & Hex(.Status5) & "h)" & vbCrLf & _
                                                  "Status6 = " & (.Status6) & "(" & Hex(.Status6) & "h)" & vbCrLf & _
                                                  "Status7 = " & (.Status7) & "(" & Hex(.Status7) & "h)" & vbCrLf & _
                                                  "Status8 = " & (.Status8) & "(" & Hex(.Status8) & "h)" & vbCrLf & _
                                                  "Status9 = " & (.Status9) & "(" & Hex(.Status9) & "h)", _
                                            vbInformation, "Status Read"
    End With
End Sub

Private Sub Command8_Click()
' fW^̓f[^l̎擾
  Dim lRetVal8 As Long
  Dim byDigitalInData As Byte
  lRetVal8 = fcrasDigitalIn(byDigitalInData)
  MsgBox "Return Value =" & lRetVal8 & vbCrLf & "Input Valuse = " & byDigitalInData, vbInformation, "Digital Input"
End Sub

Private Sub Command9_Click()
' x̋elݒ
  Dim lRetVal9 As Long
  byIntLimitData = 120
  lRetVal9 = fcrasIntLimitOut(byIntLimitData)
  MsgBox "Return Value =" & lRetVal9, vbInformation, "Set internal temp.(+60)"

End Sub

Private Sub Form_Load()
    If App.PrevInstance Then
        On Error Resume Next
        Call AppActivate(CStr(Me.Caption), False)
        End
    End If

    Call fcsoftrasOpen

' NɊOx^x̃~bg擾sB
    Call fcrasGetExtLimit(defaultExtLimit)
    Call fcrasGetIntLimit(defaultIntLimit)
End Sub

Private Sub Form_Unload(Cancel As Integer)
' IɊOx^x̃~bglN̒lɖ߂B
    Call fcrasExtLimitOut(defaultExtLimit)
    Call fcrasIntLimitOut(defaultIntLimit)

    Call fcsoftrasClose
End Sub
