Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.
I do like having bug free software where i can, just happy it was found and reported, even if I was dumb about it at first >.>
tifreak8x wrote:
Again, do you have ALL of YOUR programs on the calc in Archive, not just the ones to run LibHelper. Some of that string data is massive, and it might not all make it back to the string if you don't have enough RAM to run it.

dude ever since i found out by using doors cse i can run arced files i have EVERYTHING arced.
I hope you saw that the problem was resolved, and the program updated. All you'd have to send would be the large appvar, LIBDAT (I think it was called), though you could send it all over again, and not hurt anything.
LibHelper is receiving a minor update to add in a BASIC command that would cause errors with code using the BASIC header, mainly my omission of the End statement needed for proper version detection.

http://www.cemetech.net/programs/index.php?mode=file&id=1115
http://dcs.cemetech.net/index.php/DCSE:BasicLibs:DispColor

Need to investigate adding these color values to libhelper
Is that becase I posted about them? Rolling Eyes
I whipped up a quick program this morning, however I'm not 100% sure that this is exactly what should be. Some assistance (namely from Kerm, as he'd be the most knowledgeable about this function) would be greatly appreciative.


Code:
ClrHome
1→W:0→A:0→B
Output(2,1,"det(12,A,B
Output(9,1,"   Text         Background
Output(10,1,"A-1 : A+1        B-1 : B+1
While W=1
getKey→K
det(12,A,B
Output(1,1," Hello World!
det(12,300
Output(3,1,"A:
Output(3,4,A
Output(4,1,"B:
Output(4,4,B
A-1((K=11 and A>0)-(K=12 and A<255→A
B-1((K=14 and B>0)-(K=15 and B<255→B
If K=22:Return
End




If this is acceptable, then I can work on integrating it into libhelper and getting that updated.
Looks good! I woudn't have thought of making that way.
So, the thing you're testing there is using the OS colors for det(12,...). It also accepts 16-bit full RGB colors, which requires five instead of three arguments (but cycling through 65536 colors would take a great deal of time, so I'm not sure how you could handle that). Perhaps a 64x64 grid that captures 1/16th of the possible colors? You could use SetPixelA to draw such a grid.
Kerm: I noticed that the way I'm doing it is supposed to be for the OS colors, but if you watch the shot, I'm getting a whole lot more than just that from just the 2 numbers. I also don't understand the high-byte/low-byte stuff. :< Hence asking for clarification above.
Pinging this for great justice.

Also thought it would be useful if a person pressed A or B, then it would shoot to an input so they could jump through numbers more quickly. Thoughts?
Using the det(12,...) function, could I choose to only use two numbers, like doing det(12, 255, 0) to get white text on black, or would it have to be det(12,255,255,0,0)?
tifreak8x wrote:
I whipped up a quick program this morning, however I'm not 100% sure that this is exactly what should be. Some assistance (namely from Kerm, as he'd be the most knowledgeable about this function) would be greatly appreciative.


Code:
ClrHome
1→W:0→A:0→B
Output(2,1,"det(12,A,B
Output(9,1,"   Text         Background
Output(10,1,"A-1 : A+1        B-1 : B+1
While W=1
getKey→K
det(12,A,B
Output(1,1," Hello World!
det(12,300
Output(3,1,"A:
Output(3,4,A
Output(4,1,"B:
Output(4,4,B
A-1((K=11 and A>0)-(K=12 and A<255→A
B-1((K=14 and B>0)-(K=15 and B<255→B
If K=22:Return
End




If this is acceptable, then I can work on integrating it into libhelper and getting that updated.



Take a look at the program I made in TI-84+CSE Basic Miscellaneous programs. It is called Celtic det(12) Helper, and it works well. It looks a little bit like your program. I hope that helps!



Something got messed up on my Library Helper, and now whenever I look in xLIBC or Celtic Library, all the options are ..P:NT:FN, which I know means program not found. However, when I choose one, it has the actual content, I just don't know which one I am choosing. What is wrong? Here is the program I am having problems with:



Code:
:DCS
"CCCCCC1CCCCCCCCCCCCCC111CCCCCCCCCCCC11111CCCCCCCCCC111B011CCCCCCCC111B1B111CCCCCC8811B1B1111CCCCC8881111B1111CCCC8888111111111CCCC888811111110CCCCC888811111008CCCCC8888111008CCCCCCC88881008CCCCCCCCC888008CCCCCCCCCCC8888CCCCCCCCCCCCC88CCCCCCCCCCCCCCCCCCCCCC"
If 81>det([[20
Then
Disp "Get Doors CSE to run this:","http://dcs.cemetech.net
Return
End
FnOff
PlotsOff
ClrDraw
AxesOff
1->W:1->P
{1.01,2.02,2.03,2.04,2.05,2.06,2.07,2.08,2.09,2.10,2.11,2.12,2.13,2.14,2.15,2.16,3.17,3.18,3.19,3.20,3.21,3.22,3.23,3.24,3.25,3.26->L6
While W=1
TextColor(Black
Text(~1,0,50,"Library Helper
Text(14,15,"BASIC Header & Info
Text(26,15,"Celtic Library
Text(38,15,"xLIBC Library
Text(50,15,"xLIBC Color Table
Text(62,15,"ASCII Value Lookup
Text(74,15,"Exit
14->C
2->W
While W=2
Text(C,0,"[|>]
getKey->K
If K:Text(C,0,"   
C-12((K=25 and C>2)-(K=34 and C<86->C
If C=2:74->C
If C=86:14->C
If K=21 or K=105:Then
If C=74:Then
ClrDraw
~13.2->Xmin:13.2->Xmax:~10->Ymin:10->Ymax
AxesOnOrange
DelVar WDelVar CDelVar K
Return:End
If max(C={50,62:C->W
If max(C={14,26,38:5->W
End
End:"W=2

If W=50:Then
real(0,1,1)
real(0,3,4,255,1
real(0,3,4,255,1
real(8,1,0
0->B
For(G,16,44,4
For(F,16,140,4
real(7,9,F,G,4,4,B,0
B+1->B
End:End
0->R:0->C:0->L
Repeat K=21 or K=45 or K=105
">
real(6,0,8,15+4R,0,1,0
"<
real(6,0,144,15+4R,0,1,0
"v
real(6,0,14+4C,8,0,1,0
"^
real(6,0,13+4C,49,0,1,0
(R>3) and (remainder(C,8)>4
If Ans!=L:Then
Ans->L
real(7,9,0,60,160,60,255(1-L),0
End
real(7,9,20,65,50,50,32R+C,0
real(7,9,90,65,32,8,255(1-L),0
32R+C
real(6,1,90,65,Ans,Ans,0
Repeat K
getKey->K:End
">
real(6,0,8,15+4R,255,1,0
"<
real(6,0,144,15+4R,255,1,0
"v
real(6,0,14+4C,8,255,1,0
"^
real(6,0,13+4C,49,255,1,0
R+(K=34)-(K=25->R
C+(K=26)-(K=24->C
C+32(C=~1)-32(C=32->C
R+8(R=~1)-8(R=8->R
End
real(0,1,0,1)
ClrDraw:1->W:End
If W=62:Then
ClrHome
1->A
For(F,1,5
For(G,2,26,2
If A<64:Output(F,G,sub(" !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZtheta\]^",A,1
A+1->A
End:End
Output(9,1,"First ' is quote token
1->G:1->F
While W=62
Output(F,G,"[|>]
If (31+(G+1)/2+(F-1)*13)<95:Output(7,12,31+(G+1)/2+(F-1)*13
getKey->K
If K:Output(F,G,"
Repeat F!=5 or (F=5 and G<23
F-((K=25 and F>0)-(K=34 and F<6->F
If F=0:5->F
If F=6:1->F
G-2((K=24 and G>~1)-(K=26 and G<27->G
If G=~1:25->G
If G=27:1->G
End
If max(K={21,22,45,105:Then
ClrHome:1->W:End
End
End
While W=5
ClrDraw
SetUpEditor L5
1->dim(L5
Fill(0,L5
"rowSwap(LIBNAME"->Str0
1->G:1->P
iPart(C/12)->Z
For(F,1,dim(L6
If iPart(L6(F))=Z:Then
L6(F)->L5(G:1+G->G:End:End
dim(L5)/12->B
If fPart(B:1+iPart(B->B
6->W:While W=6
If Z=1:Text(~1,0,0,"BASIC Header
If Z=2:Text(~1,0,0,"Celtic Library
If Z=3:Text(~1,0,0,"xLIBC Library
Text(1,210,B," pages
For(F,1+12(P-1),12P
If F<dim(L5)+1:Then
|E2fPart(L5(F)
det(0)
Text(14+12(F-(12(P>1))-1),10,Str9
End
End
7->W
14->A:P->Q
While W=7
Text(A,0,"[|>]
getKey->K
If K:Text(A,0,"   
A-12((K=25 and A>14)-(K=34 and A<144-(P>1)(12)(12P-dim(L5))-((P=1)(dim(L5)>12)0)-(P=1)(dim(L5)<12)(144-dim(L5)12)->A
P-((K=24 and P>1)-(K=26 and P<B->P
If P!=Q:Then:ClrDraw:6->W:End
If K=45 or K=22:Then
ClrDraw:1->W:End
If K=21 or K=105:Then

5->W
"rowSwap(LIBDAT"->Str0
|E2fPart(L5(12P-12+((A-2)/12
det(0
{1->L1
Repeat K=45
ClrDraw
L1(dim(L1->X
inString(Str9,"@",X+1->V
DelVar BAns+1->L1(1+dim(L1
While X<V
inString(Str9,"%",X+1
If Ans>V or not(Ans:V
If not(B:Text(~1,0,0,sub(Str9,X,Ans-X
If B:Text(2+12B,1,sub(Str9,X,Ans-X
Ans+1->X
B+1->B
End
Repeat max(K={21,24,26,45,105
getKey->K:End
If K=24:Then
dim(L1
If Ans>2
Ans-2->dim(L1
End
If length(Str9)<=L1(dim(L1
45->K
End

End:"K=21
End:"W=7
End:"W=6
End:"W=5
End:"W=1
readroof2 wrote:

Something got messed up on my Library Helper, and now whenever I look in xLIBC or Celtic Library, all the options are ..P:NT:FN, which I know means program not found. However, when I choose one, it has the actual content, I just don't know which one I am choosing. What is wrong?


It seems that your Appvar got deleted. You will want to reinstall it.
Note from discussion: High and Low bytes are 0-255 for all four slots. Need to plot out some form of idea on either a grid like system similar to the xlibc color selector, or something else.
tifreak8x wrote:
Note from discussion: High and Low bytes are 0-255 for all four slots. Need to plot out some form of idea on either a grid like system similar to the xlibc color selector, or something else.
More specifically: each pair of values, the high and low 8-bit pieces, combine to form a single 16-bit piece. To form the 16-bit piece, you compute (high*256)+low. Each of those 16-bit pieces happens to be an RGB565 color code, containing 5 bits of red (0-31), 6 bits of green (0-63), and 5 bits of blue (0-31).
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 6 of 6
» All times are GMT - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement