Page 1 of 1
TI Basic Help

Posted:
Dec 2, 2003 @ 6:28pm
by suchiaruzu

Posted:
Dec 2, 2003 @ 7:45pm
by Pam

Posted:
Dec 2, 2003 @ 9:15pm
by Caesar
In ti basic IIRC an "end" statement anywhere except the end of the program will cuase it to either give a syntax error or just simply stop the program there.

Posted:
Dec 3, 2003 @ 5:21pm
by suchiaruzu
Hmm yes and no. It looks like I will have to rewrite the whole thing anyway. It would be great if someone came up with a solution though, so I won't repeat the mistake...

Posted:
Dec 3, 2003 @ 10:46pm
by suchiaruzu

Posted:
Dec 6, 2003 @ 12:34am
by Caesar
Your code is so much more advanced than mine. I was playing around with my calc and a friends with a link cable and I decided I was gonna fool around with the send( and get( commands. My code is as follows:
clrhome
input "-",P
send(P)
Thats my send app, heres the recieving app:
get(p)
disp p
The app works fine, but I want to be able to send and receive in one app so you don't have to launch seperate apps to do everything. Any suggestions?

Posted:
Dec 8, 2003 @ 10:42pm
by suchiaruzu
UPDATED!!!
Well, that is what the program above is supposed to do. Here is an updated version (I am posting this here for the guys at the IRC chan as well):
[code]
()
Prgm
Lbl boot
Local id
PopUp {"Horst","Johnboy","Johnnie","Johnson"},id
If id="1" Then
DelVar schonda
schonda=getType(horst)
If schonda="NONE" Then
Local horst
CopyVar id,horst
SendChat horst
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Horst!"
EndDlog
Goto boot
EndIf
ElseIf id="2" Then
DelVar schonda
schonda=getType(johnboy)
If schonda="NONE" Then
Local johnboy
CopyVar id,johnboy
SendChat johnboy
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Johnboy!"
EndDlog
Goto boot
EndIf
ElseIf id="3" Then
DelVar schonda
schonda=getType(johnnie)
If schonda="NONE" Then
Local johnnie
CopyVar id,johnnie
SendChat johnnie
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Johnnie!"
EndDlog
Goto boot
EndIf
ElseIf id="4" Then
DelVar schonda
schonda=getType(johnson)
If schonda="NONE" Then
Local johnson
CopyVar id,johnson
SendChat johnson
Goto name
Else
Dialog
Title "Gibt's schon"
Text "Zu spät, es gibt schon einen Johnson!"
EndDlog
Goto boot
EndIf
EndIf
Lbl name
If getType(nom)

Posted:
Dec 9, 2003 @ 2:32am
by Caesar

Posted:
Dec 9, 2003 @ 3:41am
by Michael Y
What calculator are you programming this for? This looks TOTALLY different than the TI-BASIC I program on my TI-83+, and AFAIK the different calculator models have slightly different versions.

Posted:
Dec 26, 2003 @ 3:07am
by suchiaruzu

Posted:
Dec 26, 2003 @ 3:55am
by Jadam

Posted:
Jan 3, 2004 @ 8:40pm
by Caesar