1 visual basic® 5/6, 1 visual basic – INFICON SQC-310 Thin Film Deposition Controller User Manual
Page 99

5 - 19
IP
N 07
4-
55
0-
P1
B
SQC-310 Operating Manual
5.4.1 Visual Basic
®
5/6
Public Sub CalcChkSumByte(ByRef ByData() As Byte, ByRef byCRC() As
Byte)
Dim CRC As Integer
Dim TmpCRC As Integer
Dim LastIndex As Long
Dim i As Integer
Dim j As Integer
LastIndex = UBound(ByData())
' Avoid on length messages
If ByData(1) > 0 Then
' Set 14 bit CRC to all ones
CRC = &H3FFF
For j = 1 To LastIndex - 2
' XOR current character with CRC
CRC = CRC Xor ByData(j)
' Go thru lower 8 bits of CRC
For i = 1 To 8
' Save CRC before shift
TmpCRC = CRC
' Shift right one bit
CRC = Shri(CRC, 1)
If (TmpCRC And 1) = 1 Then
' If LSB is 0 (before shift), XOR with hex 2001
CRC = CRC Xor &H2001
End If
Next i
Next j
' Be sure we still have 14 bits
CRC = CRC And &H3FFF
byCRC(0) = (LoByte(CRC) And &H7F) + 34
byCRC(1) = (LoByte(Shri(CRC, 7)) And &H7F) + 34
Else
' Empty message
byCRC(0) = 0
byCRC(1) = 0
End If
End Sub
Public Function LoByte(ByVal intNumber As Integer) As Byte
' Comments : Returns the low byte of the passed integer
' Parameters: intNumber - integer value for which to return the low
byte
' Returns : byte
- TGF10 Tracer Gas Filler (36 pages)
- Sensistor ILS500 F Leak Detection Filler (90 pages)
- T-Guard Leak Detection Sensor (85 pages)
- T-Guard Leak Detection Sensor Interface description (40 pages)
- Sensistor ISH2000P Hydrogen Leak Detector, Panel Model (51 pages)
- Sensistor ISH2000 HySpeed Hydrogen Leak Detector (54 pages)
- LDS3000 Modular Leak Detector (52 pages)
- LDS3000 Modular Leak Detector Interface description (56 pages)
- BM1000 Bus module (14 pages)
- I/O1000 I/O module (18 pages)
- CU1000 Control unit (24 pages)
- Helium Leak Detector Modul1000 (130 pages)
- Helium Leak Detector Modul1000 Interface description (40 pages)
- UL5000 Dry Helium Leak Detector (108 pages)
- UL5000 Dry Helium Leak Detector Interface description (14 pages)
- UL1000 Fab Dry Helium Leak Detector (119 pages)
- HLD6000 Refrigerant Leak Detector (76 pages)
- HLD6000 Refrigerant Leak Detector Interface Description (40 pages)
- IO1000 I/O module (18 pages)
- Ecotec E3000 Multigas-Sniffer-Leak Detector (92 pages)
- Ecotec E3000 Multigas-Sniffer-Leak Detector Interface description (36 pages)
- Sensistor XRS9012 Hydrogen Leak Detector User Manual (28 pages)
- Sensistor XRS9012 Hydrogen Leak Detector Maintenance manual (14 pages)
- Extrima Ex-certified Hydrogen Leak Detector (62 pages)
- Sensistor ILS500 Leak Detection System (107 pages)
- Sensistor ISH2000 Hydrogen Leak Detector (58 pages)
- Sensistor ISH2000 Hydrogen Leak Detector (108 pages)
- Sensistor Sentrac Hydrogen Leak Detector (86 pages)
- Protec P3000(XL) Helium Leak Detector (132 pages)
- Pilot Plus Vacuum Gauge (2 pages)
- CO Check Carbon Monoxide Meter (2 pages)
- GAS-Mate Combustible Gas Leak Detector (12 pages)
- Whisper Ultrasonic Leak Detector (8 pages)
- Vortex AC Refrigerant Recovery Machine 115V (20 pages)
- Vortex AC Refrigerant Recovery Machine 230V (16 pages)
- Wey-TEK Refrigerant Charging Scale & Optional Charging Module (2 pages)
- Wey-TEK Refrigerant Charging Scale & Optional Charging Module (44 pages)
- D-TEK CO2 Refrigerant Leak Detector (12 pages)
- TEK-Mate Refrigerant Leak Detector (12 pages)
- Compass Refrigerant Leak Detector (12 pages)
- D-TEK Select Refrigerant Leak Detector (12 pages)
- Explorer Portable Gas Chromatograph (369 pages)
- MicroFID II Portable Flame Ionization Detector (89 pages)
- DataFID Portable Flame Ionization Detector for Landfill Emissions Monitoring (91 pages)
- Hydrostik Hydrogen Fuel Cylinder Installation (7 pages)