362
edits
Beauchamp:TMS: Difference between revisions
From OpenWetWare
Jump to navigationJump to search
→Computer control of TMS machines
| Line 54: | Line 54: | ||
pin 5 --> pin 11 (ground) | pin 5 --> pin 11 (ground) | ||
Function CRC(InputString As String) As Integer | |||
Dim CharCount As Integer | |||
Dim CRC_init As Integer | |||
CRC_init = 0 | |||
For CharCount = 1 To Len(InputString) | |||
CRC_init = CRC_init + ASC(Mid(InputString,CharCount,1)) | |||
Next CharCount | |||
Dim CRC_Bin As String | |||
CRC_Bin = BIN(CRC_init) | |||
Dim CRC_Bin_Inv As String | |||
CRC_Bin_Inv = "" | |||
For CharCount = 1 To Len(CRC_Bin) | |||
CRC_Bin_Inv = CRC_Bin_Inv & IIf(Mid(CRC_Bin,Len(CRC_Bin)-8+CharCount,1)="0","1","0") | |||
Next CharCount | |||
Dim CRC_Bin_Inv_Dec As Integer | |||
CRC_Bin_Inv_Dec = 0 | |||
For CharCount = 1 To Len(CRC_Bin_Inv) | |||
CRC_Bin_Inv_Dec = CRC_Bin_Inv_Dec + Mid(CRC_Bin_Inv,CharCount,1) * 2^(Len(CRC_Bin_Inv)-CharCount) | |||
Next CharCount | |||
CRC = HEX(CRC_Bin_Inv_Dec) | |||
End Function | |||
'''USB CONTROL OF MAGSTIM RAPID AND NAFI'S MACHINE USING PRESENTATION SOFTWARE''' | '''USB CONTROL OF MAGSTIM RAPID AND NAFI'S MACHINE USING PRESENTATION SOFTWARE''' | ||
