如何创建TI-BASIC (TI-84+)输入表单？

Question

在TI-BASIC编程语言(特别是TI-84+)中，如何创建输入表单，例如在TI-84+上的默认应用程序中包含的输入表单。

这里包含的图像显示了我正在尝试创建的一个例子:一个菜单，您可以在执行函数之前自由地滚动和输入多个变量

​

​

另外，是否可以在输入变量时动态更新此菜单？

Answer 1

你已经设置了一个相当高的订单TI-基本填补。user3932000是正确的；没有内置函数来创建您请求的类型的输入表单。

但是，没有什么能阻止您自己创建一个交互式界面。从头开始创建它将是一项耗时的工作，而且它将消耗计算机上大量的内存。没有样板代码，你可以插入你的变量来得到你想要的结果，但是在我写的这个二次求解器之后，你可能会很幸运地对它建模。

ClrHome
a+bi
Output(1,1,"    QUADRATIC
Output(2,1,"    AX²+BX+C
Output(3,1,"ZEROS:
Output(6,1,"A=
Output(7,1,"B=
Output(8,1,"C=

DelVar YDelVar D
"             →Str1

While Y≠105
getKey→Y

If Ans
Then
Output(X,4,Str1
Output(3,7,Str1+Str1+Str1+"   
End

X+(Ans=34)-(Ans=25
If Ans<6:8
If Ans>8:6
Ans→X

Output(Ans,16,"◄

D(Y≠45→D

If Y=25 or Y=34
sum({A,B,C}(X={6,7,8→D

If Y=104:⁻D→D

10not(Y)+Y(102≠Y)-13int(Y/13(2>abs(5-abs(5-abs(Y-83
If Ans≤9
D10+Ans-2Ans(D<0→D

If X=6:D→A
If X=7:D→B
If X=8:D→C

If A
Then
2ˉ¹Aˉ¹(⁻B+{1,⁻1}√(B²-4AC
Else
If B
Then
⁻C/B
Else
If C
Then
"No Zeros
Else
"All Numbers
End
End
End

Output(3,7,Ans
Output(6,3,A
Output(7,3,B
Output(8,3,C
End
ClrHome
Ans

这是一个关于它对你的作用的GIF。

​

再多做点工作。该代码可以在图形屏幕上使用，而不是在主屏幕上使用，在布局和设计方面提供了更多的选择。