merci pour ces infos
Lectura-Datos-V10-v2.1.zip
Sc.Print "***** Lectura Datos V10 v2.1 ******" & vbcr & vbcr
Sc.Print "***** By BJT3 *****" & vbcr & vbcr
Sc.Print "***** Gracias a buckynet y morfe
, por la info para desarrollar este Script *****" & vbcr & vbcr & vbcr
Const Ins01 = "C1 0E 00 00 08"
Const Ins02 = "C1 16 00 00 07"
Const Ins03 = "C1 12 00 00 18"
Const Ins04 = "C1 12 01 00 18"
Const Ins05 = "C1 12 02 00 18"
Const Ins06 = "C1 34 00 00 03 00 00 00"
Const Ins07 = "C1 32 00 00 20"
Const Ins08 = "C1 32 01 00 20"
Const Ins09 = "C1 32 02 00 20"
Const Ins010 = "C1 34 00 00 03 01 00 00"
Const Ins011 = "C1 34 00 00 03 03 00 01"
Const Ins012 = "C1 32 00 00 0D"
Const Ins013 = "C1 32 01 00 0D"
Const Ins014 = "C1 32 02 00 0D"
Const Ins015 = "C1 34 00 00 03 04 00 00"
Const Ins016 = "C1 34 00 00 03 04 00 01"
Const Ins017 = "C1 34 00 00 03 04 00 02"
Const Ins018 = "C1 32 00 00 FF"
Const Ins019 = "C1 32 01 00 FF"
Const Ins020 = "C1 32 02 00 FF"
Dim Count_Timer
Dim Count_TimerII
Sc.Print "*************** Actualizando Settings Winexplorer ****************" & vbcr
Wx.CommPort="Com1:"
Wx.BaudRate=9600
Wx.ResetBaudRate=9600
Wx.ResetDelay=100
Wx.ByteDelay=350
Wx.RxByteTimeout=5000
Wx.Parity=2
Wx.StopBits=2
Wx.FlushBeforeWrite=0
Wx.FlushEchoByte=0
Wx.DTRControl=1
Wx.RTSControl=0
Wx.ResetMode=1
Wx.IgnoreTimeouts=1
Wx.ResetAfterTimeout=0
Wx.ResetLine=0
Wx.LogTransactions=0
Wx.DisplayUSW=0
Wx.DisplayFuse=0
Wx.ByteConvention=1
Sub Main()
Dim Temp
Dim i
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins01)
Sc.Read(&H0E)
for i =10 to 13
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr +vbcr
Sc.Print "Numero De Serie: " & (Temp)+vbcr+vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins02)
Sc.Read(&H0D)
Temp=""
For i =8 to 9
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Numero de Proveedores : " & Mid(Temp,1,4)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins03)
Sc.Read(&H1E)
Temp=""
For i =6 to 29
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Datos Proveedor 00 -> "+ vbcr+ vbcr
Sc.Print "ID Proveedor: " & Mid(Temp,1,4)+ vbcr+ vbcr
Sc.Print "PPUA: " & Mid(Temp,37,8)+ vbcr+ vbcr
Sc.Print "Fecha: " & Mid(Temp,45,4)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins04)
Sc.Read(&H1E)
Temp=""
For i =6 to 29
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Datos Proveedor 01 -> "+ vbcr+ vbcr
Sc.Print "ID Proveedor: " & Mid(Temp,1,4)+ vbcr+ vbcr
Sc.Print "PPUA: " & Mid(Temp,37,8)+ vbcr+ vbcr
Sc.Print "Fecha: " & Mid(Temp,45,4)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins05)
Sc.Read(&H1E)
Temp=""
For i =6 to 29
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Datos Proveedor 02 -> "+ vbcr+ vbcr
Sc.Print "ID Proveedor: " & Mid(Temp,1,4)+ vbcr+ vbcr
Sc.Print "PPUA: " & Mid(Temp,37,8)+ vbcr+ vbcr
Sc.Print "Fecha: " & Mid(Temp,45,4)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Sc.write(Ins06)
Sc.Read(&H09)
Sc.Read(&H02)
Sc.Print" "+ vbcr + vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins07)
Sc.Read(&H26)
Temp=""
For i =7 to 14
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "PBM Proveedor 00: " & Mid(Temp,1,16)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins08)
Sc.Read(&H26)
Temp=""
For i =7 to 14
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "PBM Proveedor 01 : " & Mid(Temp,1,16)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins09)
Sc.Read(&H26)
Temp=""
For i =7 to 14
Temp = Temp & HexString(Sc.GetByte(i),2)
Next
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "PBM Proveedor 02: " & Mid(Temp,1,16)+ vbcr+ vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Sc.write(Ins010)
Sc.Read(&H09)
Sc.Read(&H02)
Sc.Print" "+ vbcr + vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins012)
Sc.Read(&H13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins013)
Sc.Read(&H13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins014)
Sc.Read(&H13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Sc.write(Ins011)
Sc.Read(&H09)
Sc.Read(&H02)
Sc.Print" "+ vbcr + vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins018)
Sc.Read(&h105)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins019)
Sc.Read(&h105)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins020)
Sc.Read(&h105)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Sc.write(Ins016)
Sc.Read(&H09)
Sc.Read(&H02)
Sc.Print" "+ vbcr + vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins012)
Sc.Read(&h13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Sc.write(Ins017)
Sc.Read(&H09)
Sc.Read(&H02)
Sc.Print" "+ vbcr + vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins012)
Sc.Read(&h13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins013)
Sc.Read(&h13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
Count_Timer = Timer()
Sc.write(Ins014)
Sc.Read(&h13)
Sc.Read(&H02)
Count_TimerII = Timer()
Sc.Print" "+ vbcr + vbcr
Sc.Print "Tiempo de Ejecucion " & ((Count_TimerII-Count_Timer)*1000) & " msg" & vbcr & vbcr
'========================================================================================================
End Sub
Function HexString(Number,Length)
Dim RetVal
Dim CurLen
RetVal=Hex(Number)
CurLen=Len(RetVal)
If CurLen<Length Then
RetVal=String(Length-CurLen,"0") & RetVal
End If
HexString=RetVal
End Function