Author Topic: help~an program for ti84/ti83 to get it's ID to Str0 (but not work)  (Read 354 times)

0 Members and 1 Guest are viewing this topic.

Offline jknear

  • LV0 Newcomer (Next: 5)
  • Posts: 4
  • Rating: +0/-0
    • View Profile
HOW TO USE IT:'( HOW TO USE IT ??? :'( :'( :'( :'(

The function of the program is to get the machine ID and store it in STR0.

Preliminary feeling is that L6 calculates problematic ID and calculates 0 10 (A) 2D16C 7EA5. These bits are correct, but why does 10 not show A?

Attached to the program is the hope of expert answers, QQ contact me: 844288567
before use it :2nd+LINK  -> sendID  then  run  GETID   

log(ID)→Str8
DelVar XDelVar L₆"→L₆
1ᴇ12(fPart(Str8)1→L₁
1ᴇ12(fPart(Str8)/1→L₂
Str8
Ans+1-1=Ans
(1)Ans(1)
If Ans or sum(iPart(10Str8)≠4 or not(fPart(1ᴇ9Str8
“ID→Str8
Repeat not(L₁(1
not(X→X
If sum(fPart(L₁)=fPart(L₂
Then
10sum(fPart(L₁→L₆(1+dim(L₆
.1iPart(L₁→L₁
Else
10sum((1+fPart(L₁→L₆(1+dim(L₆
If X
L₂+1→L₂
.1iPart(L₁)-.1→L₁6
End
.1iPart(L₂→L₂
End
"0
For(X,dim(L₆),1,⁻1
Ans+sub("0123456789ABCDEF",L₆(X)+1,1
End
DelVar L₁DelVar L₂DelVar L₆DelVar XDelVar DDelVar IDelVar Str8sub(Ans,1,length(Ans)-4)+sub(Ans,length(Ans)-1,2)+sub(Ans,length(Ans)-3,2→Str0