
Originally Posted by
woutje
@sc4nn4gr1ll1
try this for scan movexbug anwser 9028
Function TestG()
Dim ins1,entete,compt,part1,part2,part3,g1,g 2,g3,ECO,EEP,REP,pp
call reset()
Sc.print(" *** Test MovxBug ***" & vbcr)
sc.print(vbcr)
sc.print(vbcr)
sc.print " Unlooper stop when anwser = 9028" & (vbcr)
sc.print " ------------------------------"
sc.print (vbcr)
for g1=&h0500 to &h0700 step &h01
for g2=&h0900 to &h09FF step &h01
for g3=&h9DC2 to &h9DC2 step &h01
sc.verbose=1
for pp=0 to 1
Sc.Write("A1")
SendGP("100EFF018F")
sc.delay(300)
sc.write("0A 0E 20 C4 C1 0E 00 00 08 8a 00")
sc.read(13)
sc.write("20 0E 20 02 40 00 00 00 00 00 00 40 20" & (HexString(g1,4)) & "0A 20" & (HexString(g2,4)) & "0B 02 00 24 00 20 00 38 0A 20" & (HexString(g3,4)) & "0C 00")
sc.delay(3200)
sc.read(3)
GPR(0) = Sc.GetByte(0)
GPR(1) = Sc.GetByte(1)
GPR(2) = Sc.GetByte(2)
sc.print ( "Statut bug : "& HexInv(GPR(1),2) & HexInv(GPR(2),2)& vbcr)
if HexInv(GPR(1),2) & HexInv(GPR(2),2) = "9028" then
sc.print (vbcr)
sc.print "9028 FOUND" & (vbcr)
sc.print "----------------------"& (vbcr)& (vbcr)
call reset()
exit function
end if
next
sc.print (vbcr)
sc.print " !!" & (vbcr)
sc.print "--------------------------"& (vbcr)& (vbcr)
sc.print (" whe go on ")
sc.print (vbcr)
next
next
next
call reset()
End Function
'+++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++
woutje