I made a calendar program in ti-basic wilhe watching a movie in history (yawn) so i thought i might share it with everyone. For a picture see the attachment, it shows what it would look like on december 22nd [attachment=2531:attachment]. If anyone has any ideas feel free to share them, especially if it makes the code smaller and faster.
Controls:
DEL: exits the program - you must press del! dont break!
ARROWS: move up,down,left,and right. moving left and right at the edge will scroll to the previous or next month.
Bugs:
Feburary always has 28 days, but on the 29th it will highlight the day after the 28th
Program modifies month and year as storage - should change to using a list variable
Upcoming features:
+ and - keys move up and down days, scrolls months if you reach the 1st or the last day of the month
New christmas graphic - please sugesst a picture (12x6 pixels)
Program CALENDAR 11/21/08
Code:
0->Q
getDate->L2
Lbl 0
FnOff
Full
GridOff
AxesOff
0->Xmin
94->Xmax
0->Ymin
62->Ymax
ClrDraw
For(A,0,8)
Vertical ((A*13)+2)
End
Vertical 0
Vertical 1
Vertical 94
For(X,15,92,13)
For (Y,1,7)
 Pxl-Off(Y,X)
End
End
getDate->L1
Text(1,77,L1(1))
If L1(2)=1
Then
Text(1,4,"Janurary")
30->Z
End
If L1(2)=2
Then
Text(1,4,"February")
28->Z
End
If L1(2)=3
Then
Text(1,4,"March")
31->Z
End
If L1(2)=4
Then
Text(1,4,"April")
30->Z
End
If L1(2)=5
Then
Text(1,4,"May")
31->Z
End
If L1(2)=6
Then
Text(1,4,"June")
30->Z
End
If L1(2)=7
Then
Text(1,4,"July")
31->Z
End
If L1(2)=8
Then
Text(1,4,"August")
31->Z
End
If L1(2)=9
Then
Text(1,4,"September")
30->Z
End
If L1(2)=10
Then
Text(1,4,"October")
31->Z
End
If L1(2)=9
Then
Text(1,4,"November")
30->Z
End
If L1(2)=9
Then
Text(1,4,"December")
31->Z
End
Text(8,7,"S")
Text(8,20,"M")
Text(8,33,"T")
Text(8,46,"W")
Text(8,59,"T")
Text(8,72,"F")
Text(8,85,"S")
L1(1)->Y
L1(2)->M
1->D
2->R
prgmDAYOWEEK
2+D->D
If d>7
D-7->D
For(A,1,Z)
If int(log(a))=1
Then
 If (M=/=12) or ((M=12) and (A=/=25))
 Text(R*7+1,(D-1)*13+5,A)
End
If (M=12) and (A=25)
Then
 R*7+1->X
 (D-1)*13+5->Y
Â
 Pxl-On(X,Y+3)
 Pxl-On(X+1,Y+2)
 Pxl-On(X+1,Y+4)
 Pxl-On(X+2,Y+1)
 Pxl-On(X+2,Y+5)
 For(K,0,6)
 Pxl-On(X+4,Y+3)
 End
 Pxl-On(X+4,Y+3)
 Pxl-On(X+5,Y+3)
End
If int(log(A))=0
Text(R*7+1,(D-1)*13+7,A)
If A=L1(3)
Then
 If Q=0
 {D,R}->LC
End
D+1->D
If D=8
Then
 1->D
 1+R->R
End
End
prgmCOLORCEL
For(A,1,9)
Horizontal ((A*7)-1)
end
For(X,2,94,13)
For (Y,57,62)
 Pxl-Off(Y,X)
End
End
{0,1,2,94}->L6
For(X,1,4)
For(Y,57,62)
 Pxl-Off(Y,L6(x))
End
End
Lbl 1
Repeat Ans
getKey
End
If Ans=24
Then
If LC(1)=/=1
Then
 prgmCOLORCEL
 {LC(1)-1,LC(2)}->LC
 prgmCOLORCEL
Else
 If LC(1)=1
 Then
Â
 1->Q
 {7,LC(2)}->LC
 getDate->L1
 If L1(2)=/=1
 Then
  setDate(L1(1),L1(2)-1,L1(3))
 Else
  setDate(L1(1)-1,12,L1(3))
 End
 Goto 0
 End
End
Else
If Ans=25
Then
Â
 If LC(2)>1
 Then
 prgmCOLORCEL
 {LC(1),LC(2)-1}->LC
 prgmCOLORCEL
 End
Else
 If Ans=26
 Then
 If LC(1)=/=7
 Then
 Â
  prgmCOLORCEL
  {LC(1)+1,LC(2)}->LC
  prgmCOLORCEL
Â
 Else
  If LC(1)=7
  Then
 Â
  1->Q
  {1,LC(2)}->LC
  getDate->L1
  If L1(2)<12
  Then
   setDate(L1(1),L1(2)+1,L1(3))
  Else
   setDate(L1(1)+1,1,L1(3))
  End
  Goto 0
 Â
  End
 End
 Else
 If Ans=34
 Then
 Â
  If LC(2)<7
  Then
  prgmCOLORCEL
  {LC(1),LC(2)+1}->LC
  prgmCOLORCEL
  End
 Else
  If Ans=23
  Then
 Â
  setDate(L2(1),L2(2),L2(3))
  Return
 Â
  Else
 Â
  End
 End
 End
End
End
Goto 1
Program COLORCEL 11/20/08
Code:
If LC(2)=/=1
Then
For(X,((LC(1)-1)*13)+3,((LC(1)-1)*13)+14)
 For(Y,(LC(2)*7)+1,(LC(2)*7)+6)
 Pxl-Change(Y,X)
 End
End
End
Return
Program DAYOWEEK 11/20/08
Code:
If M<3
Then
M+12->M
Y-1->Y
End
(D+(2*M)+int(6*(M+1)/10))+Y+int((Y/4))-int((Y/100))+int((Y/400))->D
D-(7*int(D/7))->D
Last edited by Guest on 24 Nov 2008 01:07:28 pm; edited 1 time in total |
TI-Basic => TI-BASIC
I'm aware of this too, it just makes it easier for me to debug the program