惠普HP Prime可编程计算器之添加坐标表及写入与读取

1、创建一个新表

按Apps键进入应用列表界面，用方向键找到“电子表格”，点击左下角的“保存”命令，在随后界面输入表名“Points”，则应用列表中多出一个名为“Points”的电子表格：

输入表名：

保存后出现在列表中：

2、用下列代码向表中写入数据

EXPORT 控制点()
BEGIN
Points.A1:="DB01";
Points.B1:=3743706.357;
Points.C1:=268916.356;
Points.D1:=2659.461;

Points.A2:="DB02";
Points.B2:=3743548.524;
Points.C2:=268610.543;
Points.D2:=2764.479;

Points.A3:="DB03";
Points.B3:=3743400.114;
Points.C3:=268599.882;
Points.D3:=2764.737;

Points.A4:="DB04";
Points.B4:=3743088.292;
Points.C4:=268638.100;
Points.D4:=2673.991;

Points.A5:="III14";
Points.B5:=3742787.169;
Points.C5:=268728.4778;
Points.D5:=2658.436;

Points.A6:="II17";
Points.B6:=3742702.4638;
Points.C6:=268672.7797;
Points.D6:=2762.770;

Points.A7:="LIII37";
Points.B7:=3745684.856;
Points.C7:=247946.293;
Points.D7:=2802.464;

Points.A8:="LIII39";
Points.B8:=3746535.540;
Points.C8:=246709.521;
Points.D8:=2846.699;

Points.A9:="II22";
Points.B9:=3743924.1343;
Points.C9:=269080.5565;
Points.D9:=2784.724;

Points.A10:="II11";
Points.B10:=3744094.454;
Points.C10:=269230.420;
Points.D10:=2882.874;

Points.A11:="II06";
Points.B11:=3742513.0166;
Points.C11:=269351.6005;
Points.D11:=2920.656;

Points.A12:="II04";
Points.B12:=3742229.1747;
Points.C12:=269430.2706;
Points.D12:=3012.752;

Points.A13:="II14";
Points.B13:=3742696.6192;
Points.C13:=269332.7309;
Points.D13:=2916.646;

Points.A14:="II09";
Points.B14:=3744023.3003;
Points.C14:=268488.0585;
Points.D14:=2988.623;

Points.A15:="III29";
Points.B15:=3744183.570;
Points.C15:=268685.282;
Points.D15:=2790.267;
END;

注意：以上代码中的“Points”为电子表格名，如建表时名称与此不同，则要将代码中作相应修改。

3、从表中读取数据

EXPORT 读取已知点()
BEGIN
LOCAL i,ch,pointNames:=Points.A:A;
LOCAL pointN:=Points.B:B;
LOCAL pointE:=Points.C:C;
LOCAL pointH:=Points.D:D;

CHOOSE(ch,"请选择一个已知点",pointNames);

IF ch>0 THEN
PRINT();
PRINT("点名:"+pointNames[ch]);
PRINT("N:"+pointN[ch]);
PRINT("E:"+pointE[ch]);
PRINT("H:"+pointH[ch]);
END;
END;

注意代码中使用数组来读取表中整一列数据。