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. ()
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. Thanks.
Anyway, I'll work with this for now.
[EDIT]
Paste the script directly from TI-Graph Link.
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. 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.
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 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 ) |
|
Back to top |
|
|
|