在 TI-BASIC 中检查计算器类型
Checking Calculator Type in TI-BASIC
我一直在寻找用 TIBASIC 编写的程序，它可以评估代码 运行ning 来自哪种计算器，无需汇编。因为我认为没有任何东西可以从关于屏幕获取信息。这是我想出的一段代码：
:ClrDraw
:Text(0,0,0
:PxlTest(6,1
根据 运行 使用的计算器，这将有不同的输出。有没有其他类似的技巧，或者有更好的方法吗？
好问题！我唯一能想到的就是处理器速度差异（或 RAM/ROM 差异，但我想不出一种方法来测试它而无需组装）。不幸的是，TI-83 没有内置时钟，但像这样的一些代码应该能够区分 TI-84 和 TI-84 SE：
:startTmr→T
:For(I,1,99
:e^9
:End
:sub("TI-84+ SE",1,6+3(19>T
这里有一种简单快速的方法来区分 TI-84 和 TI-84 CE。另一个答案似乎侧重于区分 SE 和 non-SE。既然你批准了（一年前就问过），我不知道这对你是否有用，但就这样吧。
: 0→Xmin
: 1→ΔX
: If Xmax=264
: Disp "TI-84 CE
因为 CE 屏幕更宽，auto-generated 最大值设置为比普通 TI-84 更高的值 (264)。您还可以将使用的 window 变量设置为其他内容并在之后恢复它们以保持图形屏幕不受影响。
我一直在寻找用 TIBASIC 编写的程序，它可以评估代码 运行ning 来自哪种计算器，无需汇编。因为我认为没有任何东西可以从关于屏幕获取信息。这是我想出的一段代码：
:ClrDraw
:Text(0,0,0
:PxlTest(6,1
根据 运行 使用的计算器，这将有不同的输出。有没有其他类似的技巧，或者有更好的方法吗？
好问题！我唯一能想到的就是处理器速度差异（或 RAM/ROM 差异，但我想不出一种方法来测试它而无需组装）。不幸的是，TI-83 没有内置时钟，但像这样的一些代码应该能够区分 TI-84 和 TI-84 SE：
:startTmr→T
:For(I,1,99
:e^9
:End
:sub("TI-84+ SE",1,6+3(19>T
这里有一种简单快速的方法来区分 TI-84 和 TI-84 CE。另一个答案似乎侧重于区分 SE 和 non-SE。既然你批准了（一年前就问过），我不知道这对你是否有用，但就这样吧。
: 0→Xmin
: 1→ΔX
: If Xmax=264
: Disp "TI-84 CE
因为 CE 屏幕更宽，auto-generated 最大值设置为比普通 TI-84 更高的值 (264)。您还可以将使用的 window 变量设置为其他内容并在之后恢复它们以保持图形屏幕不受影响。