This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's Technology & Calculator Open Topic subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. Community News & Discuss Nspire => Technology & Calculator Open Topic
Author Message
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 18 Oct 2005 02:57:03 pm    Post subject:

thank you for pointing that. I miss-typed the URL, its supposed to be /members/projects/robocalc. I have fixed the link, so it points to the proper directory.
Back to top
aforsy
the leaping penguin


Active Member


Joined: 13 Jul 2004
Posts: 653

Posted: 18 Oct 2005 04:03:26 pm    Post subject:

i thank you. i like being pointed to the proper directory. (Just Joking)

Last edited by Guest on 18 Oct 2005 04:03:40 pm; edited 1 time in total
Back to top
alexrudd
pm me if you read this


Bandwidth Hog


Joined: 06 Oct 2004
Posts: 2335

Posted: 18 Oct 2005 06:48:46 pm    Post subject:

For a graphics production group, I was expecting a little better graphics... If you are trying to make something with a transparent background, set the backgroud to a color like red so pixels you missed stand out.



Nice work with 'declassifying' most of the material though, lazy people like me don't want to sign up and have yet another password to forget.
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 18 Oct 2005 08:50:12 pm    Post subject:

It was a 30 second job in Paint, cause I was on a crappy 98 machine. Im making a better one tomorrow with Photoshop, but paint was being stupid and the bucket tool wouldn't work, so I had to do it by hand.

Edit
===
Now it is a 30 hour job in Paint on XP. Much better, although saving it as a JPG seems to have caused some noise around the text....Anyway, Its a lot better looking now


Last edited by Guest on 19 Oct 2005 12:41:32 pm; edited 1 time in total
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 19 Oct 2005 01:38:21 pm    Post subject:

I have added a short, 2 minute flash movie on the members page called THE PACKAGE. For those of you who aren't members, the direct link is here: THE PACKAGE

Last edited by Guest on 19 Oct 2005 01:39:42 pm; edited 1 time in total
Back to top
Rezek
Better Than You


Calc Guru


Joined: 24 Apr 2005
Posts: 1229

Posted: 19 Oct 2005 04:17:55 pm    Post subject:

I suppose it's not bad for a first attempt. It's very slow (I was reading UTI posts while I read it, and responding, without missing anything) and isn't particularly engaging though.
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 19 Oct 2005 04:30:15 pm    Post subject:

I didn't make it. My friend Jason did. Rezek, you seem to have multiple acccounts on SFGP. Do you want me to delete the extra ones?
Back to top
aforsy
the leaping penguin


Active Member


Joined: 13 Jul 2004
Posts: 653

Posted: 19 Oct 2005 04:39:02 pm    Post subject:

it's...interesting.
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 19 Oct 2005 05:11:51 pm    Post subject:

aforsy wrote:
it's...interesting.
[post="59063"]<{POST_SNAPBACK}>[/post]


say no more....


here is my newest draft of the robocalc logo.


I did the calc screen manually.
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 25 Oct 2005 02:04:03 pm    Post subject:

I have added a new page that is under construction, and added two paes to the gallery. I have also done a demo program for the RoboCalc project which I have two last things to code. Linking has not yet been implemented, but if anyone is willing to give me some feedback on the interface, and maybe look for some optimizations, that would be great, as soon as I get it attached.

Last edited by Guest on 25 Oct 2005 02:05:39 pm; edited 1 time in total
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 25 Oct 2005 06:06:10 pm    Post subject:

All right the demo is here. So far you can edit the Output settings, view all settings, see a precalculated sensor value based on settings, and view a demo jostick panel. please test it for me. download is here. click on the zip file called RoboCalc
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 27 Oct 2005 05:34:42 pm    Post subject:

one of you optimization wizards want to run over this? thanks....


Code:
[font="courier new"]<span style='font-size:9pt;line-height:100%'>[color=darkblue]
"RoboCalc░Command░Center
AxesOff
GridOff
FnOff
PlotsOff
getKey
getKey
SetUpEditor RBCLC
18?dim(?RBCLC
{7,5,7,5,7,5,5,8,5,8,5,8,3,2,3,2,3,2?L?
seq(?RBCLC(X)?L?(X)░and░?RBCLC(X)?1,X,1,18)?L?
SortA(L?
If L?(1)=0
{7,2,7,2,7,2,1,1,1,1,1,1,3,2,3,2,3,2??RBCLC
DelVar L?DelVar L?
ClrDraw
ClrHome
Text(é1,16,24,"RoboCalc
Text(é1,24,6,"Command░Center
For(T,1,2
For(X,1,11
sub("'??oxox??'░",X,1
Text(é1,32,18,Ans+"░"+Ans+"░"+Ans+Ans+"░"+Ans+"░"+Ans
End
End
ClrDraw
ClrHome
1?I
Repeat 0
Output(8,2,"System░Settings
Output(2,2,"OUTPUT░A
Output(3,2,"OUTPUT░B
Output(4,2,"OUTPUT░C
Output(1,2,"Joystick
Output(5,2,"SENSOR░1
Output(6,2,"SENSOR░2
Output(7,2,"SENSOR░3
Output(I,1,">
DelVar K
Repeat K=21░or░K=45
getKey?K
If K=25░or░K=34
Output(I,1,"░
I+(K=34░and░I?8)-7(K=34░and░I=8)-(K=25░and░I?1)+7(K=25░and░I=1)?I
If K=25░or░K=34
Output(I,1,">
End
If K=45
Goto ND
If I=1
Then
ClrDraw
1?Ymin
63?Ymax
1?Xmin
95?Xmax
Horizontal 8
Horizontal 7
Line(23,8,23,1
Line(22,8,22,1
Text(57,0,"Config
Text(57,24,"Stop
Line(40,8,40,1
Line(41,8,41,1
Text(57,42,"TglA
Line(58,8,58,1
Line(59,8,59,1
Text(57,60,"TglB
Line(76,8,76,1
Line(77,8,77,1
Text(57,78,"TglC
Text(0,0,"Joystick░Panel░░(CLEAR░exits)
Text(6,0,"Direction

Text(12,0,"Output░A

Text(18,0,"Output░B

Text(24,0,"Output░C

Text(30,0,"Sensor░1

Text(36,0,"Sensor░2

Text(42,0,"Sensor░3

StorePic 1
DelVar K
Repeat K=45
getKey?K
If K=11
Then
ClrDraw
Text(1,1,"Joystick░Config(CLEAR░exits)
1?O
8?R
Text(é1,R,0,"-
DelVar K
Repeat K=45
getKey?K
If K=25░or░K=34
Then
Text(é1,R,0,"░
R-8(K=25░and░R?8)+16(K=25░and░R=8)+8(K=34░and░R?24)-16(K=34░and░R=24)?R
Text(é1,R,0,"-
End
If K=21░and░R=8
O+(O?3)-2(O=3)?O
If K=21░and░R=16
Then
?RBCLC(13+2(O-1??
?+(??3)-2(?=3??RBCLC(13+2(O-1
End
If K=21░and░R=24
Then
?RBCLC(12+2O??
?+(?=1)-(?=2??RBCLC(12+2O
End
Text(é1,8,8,"Output
░",sub("ABC",O,1
Text(é1,16,8,"Mode
░",sub("DRVSTRLGT",3(?RBCLC(13+2(O-1))-1)+1,3
Text(é1,24,8,"Reverse?░",sub("TRUE░FALSE",5(?RBCLC(12+2O)-1)+1,5
End
ClrDraw
RecallPic 1
DelVar K
End
End
End
If I?5░and░I?7
Then
Repeat getKey=21
Output(I,11,10?RBCLC(2(I-1)-1)+?RBCLC(2(I-1))
End
Output(I,11,"░░
End
If I=8
Then
ClrDraw
Text(é1,0,0,"Settings

Outpts
For(A,1,5,2
Text(é1,8A,6,sub("ABC",(A+1)/2,1),"
Power=",?RBCLC(A)
End
8?R
DelVar K
Repeat K=21
getKey?K
Text(é1,R,0,">
If K=25░or░K=34
Then
Text(é1,R,0,"░
R+16(K=34░and░R?40)-32(K=34░and░R=40)-16(K=25░and░R?8)+32(K=25░and░R=8?R
End
R/8?T
?RBCLC(T??
?+(K=26░and░??7)-6(K=26░and░?=7)-(K=24░and░??1)+6(K=24░and░?=1??RBCLC(T
Text(é1,R,54,?RBCLC(T
End
DelVar K
ClrDraw
For(A,1,5,2
Text(é1,0,0,"Settings

Sensrs
Text(é1,8A,6,(A+1)/2,"
Type=",sub("NONELGHTTCH░RTTNTEMP",4(?RBCLC(A+6)-1)+1,4
Text(é1,8A+8,18,"Mode=",sub("RAW░PLSEPCTGBOOLEDGERTTNûF░░ûC░░",4(?RBCLC(A+7)-1)+1,4
End
8?R
0?C
Repeat K=21
getKey?K
Text(é1,R,C,">
If K=34░or░K=25
Then
Text(é1,R,C,"░
R+8(K=34░and░R?48)-40(K=34░and░R=48)-8(K=25░and░R?8)+40(K=25░and░R=8?R
C+12not©-12(C=12?C
End
6+R/8?T
?RBCLC(T??
If C=0
Then
?+(K=26░and░??5)-4(K=26░and░?=5)-(K=24░and░??1)+4(K=24░and░?=1??RBCLC(T
Text(é1,R,48,sub("NONELGHTTCH░RTTNTEMP",4(?RBCLC(T)-1)+1,4
End
If C=12
Then
?+(K=26░and░??8)-7(K=26░and░?=8)-(K=24░and░??1)+7(K=24░and░?=1??RBCLC(T
Text(é1,R,48,sub("RAW░PLSEPCTGBOOLEDGERTTNûF░░ûC░░",4(?RBCLC(T)-1)+1,4
End
End
End
If I?2░and░I?4
Then
DelVar K
Repeat K=21░or░K=25░or░K=34
getKey?K
?RBCLC(2(I-1??
Output(I,11,sub("--ff<<>>??",2(?-1)+1,2
?+(K=26░and░??5)-4(K=26░and░?=5)-(K=24░and░??1)+4(K=24░and░?=1??RBCLC(2(I-1
End
Output(I,11,"░░
End
End
Lbl ND
ClrDraw
ClrHome
Output(1,1,"░Programmed░by
░Thomas░Dickerson░(ElfPrince13)░░░░░░░░░Of░░░░░░░░░StickFigure░░░░░░░Graphic░░░░░░░Productions
For(X,1,500
End
ClrHome
Output(1,1,"Special░Thanks

Output(3,1,"░SuperGoose

Output(4,1,"For░the░flashy░░stars░routine
Output(7,1,"░Dave░Baum
░░░░░For░NQC
For(X,1,500
End
ClrHome
Output(1,1,"░Sami░Khawam
░░░IR░hardware░help
Output(4,1,"Dad

Output(5,1,"For░the░LEGOs░░░and░teaching░me░how.
For(X,1,500
End
ClrHome
Output(1,1,"░Google
░░░░░░░░For░having░a░░░░great░search░░░░engine.
For(X,1,500
End
ClrHome
Output(1,1,"Most░Especially
The░TI░CommunityFor░all░your░░░░support!
For(X,1,500
End
For(X,1,11,1
"'??oxox??'░
sub(Ans,X,1
Output(4,9,Ans+Ans+Ans+Ans
End
ClrHome
Output(1,1,"[/color][/font]</span>

<span style='font-size:8pt;line-height:100%'>Converted into BBCode by [url="http://brazucs.unitedti.org/codeconverter.html"]Brazucs[/url]</span>


Last edited by Guest on 27 Oct 2005 06:15:09 pm; edited 1 time in total
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 27 Oct 2005 05:52:33 pm    Post subject:

It looks like the code got tangled inside two tags at once. :biggrin:

Hmm... There's also no way to distunguish between lists, and the store arrows de-existified. Could you run it through the converter again, and make sure it works correctly in the forums? Disable those pesky emoticons, too. Laughing Thanks.

Anyway, I'll work with this for now.

[EDIT]

Paste the script directly from TI-Graph Link. Smile


Last edited by Guest on 27 Oct 2005 06:03:41 pm; edited 1 time in total
Back to top
alexrudd
pm me if you read this


Bandwidth Hog


Joined: 06 Oct 2004
Posts: 2335

Posted: 27 Oct 2005 06:22:38 pm    Post subject:

Supergoose wrote:
It looks like the code got tangled inside two tags at once. :biggrin:
... Disable those pesky emoticons, too. Laughing Thanks.  [post="59757"]<{POST_SNAPBACK}>[/post]
If you want anything done, you have to do it yourself.

Some quick things I noticed:

Code:
getkey
getkey
Huh?


Code:
DelVar K
Repeat K=21░or░K=45
No need for DelVar K here, Repeats (and the getkey as a result) always are executed at least once.


Code:
If K=45
Goto ND
Don't use two-letter Lbl names until you've gone through all the one letter ones. :)


Code:
O+(O?3)-2(O=3)?O
This piece of code is going to thank you when that evil ending parenthesis is amputated.


Code:
For(X,1,500
End
Send(X or rand(<value> should do the trick.
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 27 Oct 2005 06:39:54 pm    Post subject:

Quote:
If you want anything done, you have to do it yourself.
This isn't the TI-Basic forum, so I have no such privilege. :)

The original code is necessary. There's no telling of what is meant by some of the question marks.

More optimizations to add:

[font="courier new"]If Ln(1)=0 ≡
[font="courier new"]If not(Ln(1
---
[font="courier new"]DelVar LnDelVar LnClrDraw
---
[font="courier new"]For(X,1,7
Output(X,2,sub("JoystickOUTPUT░AOUTPUT░BOUTPUT░CSENSOR░1SENSOR░2SENSOR░3",8X-7,8
End
Output(8,2,"System░Settings

---
[font="courier new"]Repeat K=21░or░K=45 ≡ [font="courier new"]Repeat 12=abs(K-33
---
[font="courier new"]Text(57,0,"Config░░░Stop░░░TglA░░░TglB░░░TglC
---
[font="courier new"]For(X,1,6
Text(6X+6,0,sub("Output░Sensor░",1+7(X>3),7)+sub("ABC123",X,1
End


Try to revise your [font="courier new"]getKey method. It's quite confusing as it is right now. Cool

Last edited by Guest on 27 Oct 2005 06:44:08 pm; edited 1 time in total
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 27 Oct 2005 07:33:28 pm    Post subject:

Here it is.

@Goose: The getKey method is uber-optimized. I dont think Im going to change it because its pretty much as small as it can get. ps.. I hope you read the credits ;)

@alex: the double getkey is for MOS support to eliminate an annoying to tendency to hand down an extraneous key click at beginning of program.

Thanks both of you guys.


Code:

:"RoboCalc Command Center
AxesOff
GridOff
FnOff
PlotsOff
getKey:getKey
SetUpEditor RBCLC
18?dim(?RBCLC
{7,5,7,5,7,5,5,8,5,8,5,8,3,2,3,2,3,2?L?
seq(?RBCLC(X)?L?(X) and ?RBCLC(X)?1,X,1,18)?L?
SortA(L?
If not(L?(1)
{7,2,7,2,7,2,1,1,1,1,1,1,3,2,3,2,3,2??RBCLC
DelVar L?DelVar L?ClrDraw
ClrHome
Text(–1,16,24,"RoboCalc
Text(–1,24,6,"Command Center
For(T,1,2
For(X,1,11
sub("·??oxox??· ",X,1
Text(–1,32,18,Ans+" "+Ans+" "+Ans+Ans+" "+Ans+" "+Ans
End
End
ClrDraw
ClrHome
1?I
Repeat 0
Output(8,2,"System Settings
For(X,1,7
Output(X,2,sub("JoystickOUTPUT AOUTPUT BOUTPUT CSENSOR 1SENSOR 2SENSOR 3",8X-7,8
End
Output(I,1,">
DelVar K
Repeat 12=abs(K-33
getKey?K
If K=25 or K=34
Output(I,1,"
I+(K=34 and I?8)-7(K=34 and I=8)-(K=25 and I?1)+7(K=25 and I=1)?I
If K=25 or K=34
Output(I,1,">
End
If K=45
Goto ND
If I=1
Then
ClrDraw
1?Ymin
63?Ymax
1?Xmin
95?Xmax
Horizontal 8
Horizontal 7
Line(23,8,23,1
Line(22,8,22,1
Text(57,0,"Config   Stop   TglA   TglB   TglC
Line(40,8,40,1
Line(41,8,41,1
Line(58,8,58,1
Line(59,8,59,1
Line(76,8,76,1
Line(77,8,77,1
Text(0,0,"Joystick Panel  (CLEAR exits)
Text(6,0,"Direction:
For(X,1,6
Text(6X+6,0,sub("Output Sensor ",1+7(X>3),7)+sub("ABC123",X,1
End
StorePic 1
DelVar K
Repeat K=45
getKey?K
If K=11
Then
ClrDraw
Text(1,1,"Joystick Config(CLEAR exits)
1?O
8?R
Text(–1,R,0,"-
DelVar K
Repeat K=45
getKey?K
If K=25 or K=34
Then
Text(–1,R,0,"
R-8(K=25 and R?8)+16(K=25 and R=8)+8(K=34 and R?24)-16(K=34 and R=24)?R
Text(–1,R,0,"-
End
If K=21 and R=8
O+(O?3)-2(O=3?O
If K=21 and R=16
Then
?RBCLC(13+2(O-1??
?+(??3)-2(?=3??RBCLC(13+2(O-1
End
If K=21 and R=24
Then
?RBCLC(12+2O??
?+(?=1)-(?=2??RBCLC(12+2O
End
Text(–1,8,8,"Output: ",sub("ABC",O,1
Text(–1,16,8,"Mode: ",sub("DRVSTRLGT",3(?RBCLC(13+2(O-1))-1)+1,3
Text(–1,24,8,"Reverse? ",sub("TRUE FALSE",5(?RBCLC(12+2O)-1)+1,5
End
ClrDraw
RecallPic 1
DelVar K
End
End
End
If I?5 and I?7
Then
Repeat getKey=21
Output(I,11,10?RBCLC(2(I-1)-1)+?RBCLC(2(I-1))
End
Output(I,11," 
End
If I=8
Then
ClrDraw
Text(–1,0,0,"Settings::Outpts
For(A,1,5,2
Text(–1,8A,6,sub("ABC",(A+1)/2,1),":Power=",?RBCLC(A)
End
8?R
DelVar K
Repeat K=21
getKey?K
Text(–1,R,0,">
If K=25 or K=34
Then
Text(–1,R,0,"
R+16(K=34 and R?40)-32(K=34 and R=40)-16(K=25 and R?8)+32(K=25 and R=8?R
End
R/8?T
?RBCLC(T??
?+(K=26 and ??7)-6(K=26 and ?=7)-(K=24 and ??1)+6(K=24 and ?=1??RBCLC(T
Text(–1,R,54,?RBCLC(T
End
DelVar K
ClrDraw
For(A,1,5,2
Text(–1,0,0,"Settings::Sensrs
Text(–1,8A,6,(A+1)/2,":Type=",sub("NONELGHTTCH RTTNTEMP",4(?RBCLC(A+6)-1)+1,4
Text(–1,8A+8,18,"Mode=",sub("RAW PLSEPCTGBOOLEDGERTTN°F  °C  ",4(?RBCLC(A+7)-1)+1,4
End
8?R
0?C
Repeat K=21
getKey?K
Text(–1,R,C,">
If K=34 or K=25
Then
Text(–1,R,C,"
R+8(K=34 and R?48)-40(K=34 and R=48)-8(K=25 and R?8)+40(K=25 and R=8?R
C+12not©-12(C=12?C
End
6+R/8?T
?RBCLC(T??
If C=0
Then
?+(K=26 and ??5)-4(K=26 and ?=5)-(K=24 and ??1)+4(K=24 and ?=1??RBCLC(T
Text(–1,R,48,sub("NONELGHTTCH RTTNTEMP",4(?RBCLC(T)-1)+1,4
End
If C=12
Then
?+(K=26 and ??8)-7(K=26 and ?=8)-(K=24 and ??1)+7(K=24 and ?=1??RBCLC(T
Text(–1,R,48,sub("RAW PLSEPCTGBOOLEDGERTTN°F  °C  ",4(?RBCLC(T)-1)+1,4
End
End
End
If I?2 and I?4
Then
DelVar K
Repeat K=21 or K=25 or K=34
getKey?K
?RBCLC(2(I-1??
Output(I,11,sub("--ff<<>>??",2(?-1)+1,2
?+(K=26 and ??5)-4(K=26 and ?=5)-(K=24 and ??1)+4(K=24 and ?=1??RBCLC(2(I-1
End
Output(I,11," 
End
End
Lbl ND
ClrDraw
ClrHome
Output(1,1," Programmed by: Thomas Dickerson (ElfPrince13)         Of         StickFigure       Graphic       Productions
For(X,1,500
End
ClrHome
Output(1,1,"Special Thanks:
Output(3,1," SuperGoose:
Output(4,1,"For the flashy  stars routine
Output(7,1," Dave Baum:     For NQC
For(X,1,500
End
ClrHome
Output(1,1," Sami Khawam:   IR hardware help
Output(4,1,"Dad:
Output(5,1,"For the LEGOs   and teaching me how.
For(X,1,500
End
ClrHome
Output(1,1," Google:        For having a    great search    engine.
For(X,1,500
End
ClrHome
Output(1,1,"Most Especially:The TI CommunityFor all your    support!
For(X,1,500
End
For(X,1,11,1
"·??oxox??·
sub(Ans,X,1
Output(4,9,Ans+Ans+Ans+Ans
End
ClrHome
Output(1,1,"


Last edited by Guest on 27 Oct 2005 07:54:41 pm; edited 1 time in total
Back to top
alexrudd
pm me if you read this


Bandwidth Hog


Joined: 06 Oct 2004
Posts: 2335

Posted: 27 Oct 2005 07:54:17 pm    Post subject:

elfprince13 wrote:
@alex: the double getkey is for MOS support to eliminate an annoying to tendency to hand down an extraneous key click at beginning of program.[post="59767"]<{POST_SNAPBACK}>[/post]
That's what I figured. But why two?

Code:
getKey?K
If K=25 or K=34
Use Ans here.

Code:
getKey?K
If  Ans=25 or Ans=34
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 27 Oct 2005 08:15:25 pm    Post subject:

for people who accidentally double click Smile I figured the extra two bytes is worth saving the aggravation, of accidentally loading the joystick panel, and its made up for in the optimzing everywhere else.
Back to top
Brazucs
I have no idea what my avatar is.


Super Elite (Last Title)


Joined: 31 Mar 2004
Posts: 3349

Posted: 07 Nov 2005 04:44:41 pm    Post subject:

elfprince13 wrote:

Code:
[font="courier new"]<span style='font-size:9pt;line-height:100%'>[color=darkblue]
"RoboCalc░Command░Center
AxesOff
GridOff
FnOff
PlotsOff
getKey
getKey
SetUpEditor RBCLC
18?dim(?RBCLC
{7,5,7,5,7,5,5,8,5,8,5,8,3,2,3,2,3,2?L?
seq(?RBCLC(X)?L?(X)░and░?RBCLC(X)?1,X,1,18)?L?
SortA(L?
If L?(1)=0
{7,2,7,2,7,2,1,1,1,1,1,1,3,2,3,2,3,2??RBCLC
DelVar L?DelVar L?
ClrDraw
ClrHome
Text(é1,16,24,"RoboCalc
Text(é1,24,6,"Command░Center
For(T,1,2
For(X,1,11
sub("'??oxox??'░",X,1
Text(é1,32,18,Ans+"░"+Ans+"░"+Ans+Ans+"░"+Ans+"░"+Ans
End
End
ClrDraw
ClrHome
1?I
Repeat 0
Output(8,2,"System░Settings
Output(2,2,"OUTPUT░A
Output(3,2,"OUTPUT░B
Output(4,2,"OUTPUT░C
Output(1,2,"Joystick
Output(5,2,"SENSOR░1
Output(6,2,"SENSOR░2
Output(7,2,"SENSOR░3
Output(I,1,">
DelVar K
Repeat K=21░or░K=45
getKey?K
If K=25░or░K=34
Output(I,1,"░
I+(K=34░and░I?8)-7(K=34░and░I=8)-(K=25░and░I?1)+7(K=25░and░I=1)?I
If K=25░or░K=34
Output(I,1,">
End
If K=45
Goto ND
If I=1
Then
ClrDraw
1?Ymin
63?Ymax
1?Xmin
95?Xmax
Horizontal 8
Horizontal 7
Line(23,8,23,1
Line(22,8,22,1
Text(57,0,"Config
Text(57,24,"Stop
Line(40,8,40,1
Line(41,8,41,1
Text(57,42,"TglA
Line(58,8,58,1
Line(59,8,59,1
Text(57,60,"TglB
Line(76,8,76,1
Line(77,8,77,1
Text(57,78,"TglC
Text(0,0,"Joystick░Panel░░(CLEAR░exits)
Text(6,0,"Direction

Text(12,0,"Output░A

Text(18,0,"Output░B

Text(24,0,"Output░C

Text(30,0,"Sensor░1

Text(36,0,"Sensor░2

Text(42,0,"Sensor░3

StorePic 1
DelVar K
Repeat K=45
getKey?K
If K=11
Then
ClrDraw
Text(1,1,"Joystick░Config(CLEAR░exits)
1?O
8?R
Text(é1,R,0,"-
DelVar K
Repeat K=45
getKey?K
If K=25░or░K=34
Then
Text(é1,R,0,"░
R-8(K=25░and░R?8)+16(K=25░and░R=8)+8(K=34░and░R?24)-16(K=34░and░R=24)?R
Text(é1,R,0,"-
End
If K=21░and░R=8
O+(O?3)-2(O=3)?O
If K=21░and░R=16
Then
?RBCLC(13+2(O-1??
?+(??3)-2(?=3??RBCLC(13+2(O-1
End
If K=21░and░R=24
Then
?RBCLC(12+2O??
?+(?=1)-(?=2??RBCLC(12+2O
End
Text(é1,8,8,"Output
░",sub("ABC",O,1
Text(é1,16,8,"Mode
░",sub("DRVSTRLGT",3(?RBCLC(13+2(O-1))-1)+1,3
Text(é1,24,8,"Reverse?░",sub("TRUE░FALSE",5(?RBCLC(12+2O)-1)+1,5
End
ClrDraw
RecallPic 1
DelVar K
End
End
End
If I?5░and░I?7
Then
Repeat getKey=21
Output(I,11,10?RBCLC(2(I-1)-1)+?RBCLC(2(I-1))
End
Output(I,11,"░░
End
If I=8
Then
ClrDraw
Text(é1,0,0,"Settings

Outpts
For(A,1,5,2
Text(é1,8A,6,sub("ABC",(A+1)/2,1),"
Power=",?RBCLC(A)
End
8?R
DelVar K
Repeat K=21
getKey?K
Text(é1,R,0,">
If K=25░or░K=34
Then
Text(é1,R,0,"░
R+16(K=34░and░R?40)-32(K=34░and░R=40)-16(K=25░and░R?8)+32(K=25░and░R=8?R
End
R/8?T
?RBCLC(T??
?+(K=26░and░??7)-6(K=26░and░?=7)-(K=24░and░??1)+6(K=24░and░?=1??RBCLC(T
Text(é1,R,54,?RBCLC(T
End
DelVar K
ClrDraw
For(A,1,5,2
Text(é1,0,0,"Settings

Sensrs
Text(é1,8A,6,(A+1)/2,"
Type=",sub("NONELGHTTCH░RTTNTEMP",4(?RBCLC(A+6)-1)+1,4
Text(é1,8A+8,18,"Mode=",sub("RAW░PLSEPCTGBOOLEDGERTTNûF░░ûC░░",4(?RBCLC(A+7)-1)+1,4
End
8?R
0?C
Repeat K=21
getKey?K
Text(é1,R,C,">
If K=34░or░K=25
Then
Text(é1,R,C,"░
R+8(K=34░and░R?48)-40(K=34░and░R=48)-8(K=25░and░R?8)+40(K=25░and░R=8?R
C+12not©-12(C=12?C
End
6+R/8?T
?RBCLC(T??
If C=0
Then
?+(K=26░and░??5)-4(K=26░and░?=5)-(K=24░and░??1)+4(K=24░and░?=1??RBCLC(T
Text(é1,R,48,sub("NONELGHTTCH░RTTNTEMP",4(?RBCLC(T)-1)+1,4
End
If C=12
Then
?+(K=26░and░??8)-7(K=26░and░?=8)-(K=24░and░??1)+7(K=24░and░?=1??RBCLC(T
Text(é1,R,48,sub("RAW░PLSEPCTGBOOLEDGERTTNûF░░ûC░░",4(?RBCLC(T)-1)+1,4
End
End
End
If I?2░and░I?4
Then
DelVar K
Repeat K=21░or░K=25░or░K=34
getKey?K
?RBCLC(2(I-1??
Output(I,11,sub("--ff<<>>??",2(?-1)+1,2
?+(K=26░and░??5)-4(K=26░and░?=5)-(K=24░and░??1)+4(K=24░and░?=1??RBCLC(2(I-1
End
Output(I,11,"░░
End
End
Lbl ND
ClrDraw
ClrHome
Output(1,1,"░Programmed░by
░Thomas░Dickerson░(ElfPrince13)░░░░░░░░░Of░░░░░░░░░StickFigure░░░░░░░Graphic░░░░░░░Productions
For(X,1,500
End
ClrHome
Output(1,1,"Special░Thanks

Output(3,1,"░SuperGoose

Output(4,1,"For░the░flashy░░stars░routine
Output(7,1,"░Dave░Baum
░░░░░For░NQC
For(X,1,500
End
ClrHome
Output(1,1,"░Sami░Khawam
░░░IR░hardware░help
Output(4,1,"Dad

Output(5,1,"For░the░LEGOs░░░and░teaching░me░how.
For(X,1,500
End
ClrHome
Output(1,1,"░Google
░░░░░░░░For░having░a░░░░great░search░░░░engine.
For(X,1,500
End
ClrHome
Output(1,1,"Most░Especially
The░TI░CommunityFor░all░your░░░░support!
For(X,1,500
End
For(X,1,11,1
"'??oxox??'░
sub(Ans,X,1
Output(4,9,Ans+Ans+Ans+Ans
End
ClrHome
Output(1,1,"[/color][/font]</span>

<span style='font-size:8pt;line-height:100%'>Converted into BBCode by [url="http://brazucs.unitedti.org/codeconverter.html"]Brazucs[/url]</span>

[post="59755"]<{POST_SNAPBACK}>[/post]

A lil' late, I know... but yay :biggrin:

EDIT:
:( <-- dead emoticon, they mess up code and therefore must die. :P


Last edited by Guest on 07 Nov 2005 08:20:38 pm; edited 1 time in total
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 07 Nov 2005 05:23:35 pm    Post subject:

thanks.



A new news update: For the next week or so exepct random errors on pages as I attempt to hack various parts of my website to be more compatible with each other and merge the login databases for the main website and for the forum (betcha didn't even know there was one installed Smile)
Back to top
Display posts from previous:   
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
    » Goto page Previous  1, 2, 3  Next
» View previous topic :: View next topic  
Page 2 of 3 » All times are UTC - 5 Hours

 

Advertisement