IF haluk_78 doesnt know assembly and have an electronics background he will really struggle to implement the software
The meters on the website still use the old 16f microchips and I am certain the programming is done in assembly
Writing the the software to read the data is easy but (there is always a but) there must be a hardware interface between the milk readers and the pc
If there is a hardware interface he must use Hyper Terminal(900,N,1 comms port settings) to check the responses from the readers and from there he can write an interface in any high level language
examples Command:- “e”
Syntax:- “11e”
where "11" = whatever adress is allocated on the memory chip
This is actually a very technichal subject and Ive tried to put it as simple as I can
Many years ago at my previous company we designed time and attendance readers and everything except the software for the attendance program was done in assembly
Here is an CRC Checking example in Vb
Function Odd_Parity(ByVal Dat As Long) As Long
Dim n As Long
Dim i As Long
n = 0
For i = 0 To 7
n = n + Dat And 1
Dat = (Dat And 65534) / 2
Next i
Odd_Parity = n And 1
End Function
Function DoCRC16(ByVal Dat As Long) As Long
Dat = (Dat Xor (CRC16 And 255)) And 255
CRC16 = (CRC16 And 65280) / 256
If (Odd_Parity(Dat)) = 1 Then CRC16 = CRC16 Xor 49153
Dat = (Dat * 64) And 65535
CRC16 = CRC16 Xor Dat
Dat = (Dat * 2) And 65535
CRC16 = CRC16 Xor Dat
CRC_Test = CRC16
End Function
Sub CRC()
Dim crc_lsb As Long
Dim crc_msb As Long
Dim X As Long
Dim i As Integer
crc_lsb = Asc(Mid$(InString, 32, 1))
crc_msb = Asc(Mid$(InString, 34, 1))
CRC_Long = (crc_lsb * 256) + crc_msb
CRC16 = 0
For i = 1 To 30
X = Asc(Mid$(InString, i, 1))
DoCRC16 X
Next i
End Sub
Submit an article or tip