Форум по ремонту банкоматов и прочей банковской техники.
https://forum.bankomatchik.ru/
Код: Выделить всё
'Store values
idNotesDisp = 5012
idNotesInCass = 5010
idNotesRej = 5016
idNotesTotal = 5026
dim myCDI
Set myCDI=CreateObject("COMCDI.COMCDIData")
dim Cntr
dim CntrBup
dim idx
dim CassInfo
dim Count
dim Total
'retrieve values previously saved
'Code here assumes a flat text file counts.txt in the same directory as the script with each line containing '15 characters: each block of 5 being a count padded to 5 digits with 0s
'Counters in order DISPENSED, CASSETTE, REJECTED
'Assumes basic use of cassette types 1 through 4 and single dispenser
' lines are cassette types 1 through 4 respectively and must exist
'e.g.
'000000000000000 - no counts for type 1
'005570034500098 - type 2 557 notes dispensed, 345 notes remaining in cassette(s), 98 notes purged
'006000030000100- type 2 600 notes dispensed, 300 notes remaining in cassette(s), 100 notes purged
'000000000000000 - no counts for type 2
'this code could be changed to retrieve values in any appropriate manner.
for idx=0 to 3
MsgBox("Type "&idx+1 &" dispensed notes is :"&Right("00000"&myCDI.ComIntegerArray(idNotesDisp, idx),5)&Chr(10)&"Type "&idx+1 &" remaining notes is :"&Right("00000"&myCDI.ComIntegerArray(idNotesInCass, idx),5)&Chr(10)&"Type "&idx+1 &" rejected notes is :" &Right("00000"&myCDI.ComIntegerArray(idNotesRej, idx),5)&Chr(10)&"Type "&idx+1 &" total notes is :" &Right("00000"&myCDI.ComIntegerArray(idNotesTotal, idx),5))
next
'Tidy UP
Set myCDI = Nothing
Set objfile = Nothing
Set fso = NothingКод: Выделить всё
'Store Values
Luno = 4007
MachineNo = 4008
'Get the values into the file
objTextFile.WriteLine("Luno: " & myCDI.ComString(Luno) & " | MachineNo: " & myCDI.ComInteger(MachineNo) & "")