Interrupt PORTB_Change(2)
    Save(0)                                   // Save the system variables
    If RBIF = 1 Then                          // Check if the interrupt was a PORTB change
	RBIF = 0
        WREG = PORTB                          // Be sure to read the contents of PORTB to clear the mismatch (hardware requirement)
	If RPM.Pin <> RPM.LastPin Then        // Check if the RPM has changed
		RPM.Counter = RPM.Counter + 1
		RPM.LastPin = RPM.Pin
	EndIf
	If DYNO.Pin <> DYNO.LastPin Then      // Check if the DYNO signal has changed
		DYNO.Counter = DYNO.Counter + 1
		DYNO.LastPin = DYNO.Pin
	EndIf
    EndIf Restore                                   // Restore system variables
End Interrupt

Interrupt TMR2_Interrupt(1)
    Save(0)                             // Back up system variables
    If TMR2IF = 1 Then                  // Check if the interrupt was from TMR2
        TMR2IF = 0                      // Clear the TMR2 interrupt flag
        Inc(mS)                         // Increment the mS counter
        If mS = 1000 Then               // Check if one second has occured
                Disable(PORTB_Change)   // If so, then turn off the interrupts
                Disable(TMR2_Interrupt) //
                Done = True             // and set the Done flag
        EndIf EndIf                     //
    Restore                             // Restore system variables
End Interrupt

Include "USART.bas"
Include "Convert.bas"

USART.Write(RPM   = ", Convert.DecToStr(RPM.Counter))
USART.Write(DYNO  = ", Convert.DecToStr(DYNO.Counter))

' vendor and product IDs
Private Const VendorID = 6017
Private Const ProductID = 2000

' read and write buffers
Private Const BufferInSize = 8
Private Const BufferOutSize = 8
Dim BufferIn(0 To BufferInSize) As Byte
Dim BufferOut(0 To BufferOutSize) As Byte

' ****************************************************************
' when the form loads, connect to the HID controller - pass
' the form window handle so that you can receive notification
' events...
'*****************************************************************
Private Sub Form_Load()
   ' do not remove!
   ConnectToHID (Me.hwnd)
End Sub

'*****************************************************************
' disconnect from the HID controller...
'*****************************************************************
Private Sub Form_Unload(Cancel As Integer)
   DisconnectFromHID
End Sub

'*****************************************************************
' a HID device has been plugged in...
'*****************************************************************
Public Sub OnPlugged(ByVal pHandle As Long)
   If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then
      ' ** YOUR CODE HERE **
   End If
End Sub

'*****************************************************************
' a HID device has been unplugged...
'*****************************************************************
Public Sub OnUnplugged(ByVal pHandle As Long)
   If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then
      ' ** YOUR CODE HERE **
   End If
End Sub

'*****************************************************************
' controller changed notification - called
' after ALL HID devices are plugged or unplugged
'*****************************************************************
Public Sub OnChanged()
   Dim DeviceHandle As Long
   
   ' get the handle of the device we are interested in, then set
   ' its read notify flag to true - this ensures you get a read
   ' notification message when there is some data to read...
   DeviceHandle = hidGetHandle(VendorID, ProductID)
   hidSetReadNotify DeviceHandle, True
End Sub

'*****************************************************************
' on read event...
'*****************************************************************
Public Sub OnRead(ByVal pHandle As Long)
   
   ' read the data (don't forget, pass the whole array)...
   If hidRead(pHandle, BufferIn(0)) Then
      ' ** YOUR CODE HERE **
      ' first byte is the report ID, e.g. BufferIn(0)
      ' the other bytes are the data from the microcontrolller...
   End If
End Sub

'*****************************************************************
' this is how you write some data...
'*****************************************************************
Public Sub WriteSomeData()
   BufferOut(0) = 0   ' first by is always the report ID
   BufferOut(1) = 10  ' first data item, etc etc

   ' write the data (don't forget, pass the whole array)...
   hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub