在编程中，建立子程序通常涉及以下步骤：
定义子程序
在主程序中定义子程序的函数或方法。子程序的具体实现可以根据功能需求选择不同的编程语言来编写。子程序的代码通常包含了特定的功能或任务，可以在主程序中被调用和执行。
声明和定义子程序
在主程序中声明和定义子程序，以便在需要时可以调用它们。子程序通常用于执行特定的功能、处理特定的任务或模块化复杂的逻辑。
编写子程序
编写子程序的逻辑控制部分。子程序可以包含输入参数、处理逻辑和输出结果。确保子程序的功能符合单一职责原则，即每个子程序只负责完成一个具体的任务。
调用子程序
在主程序合适的位置，使用合适的调用指令来调用子程序。传递需要的参数给子程序，以便子程序可以正确地执行任务。子程序完成后，返回到调用子程序的位置继续执行主程序。
传递变量
在主程序中给需要传递的变量进行赋值，并在调用子程序时将这些变量作为参数传递。这样可以确保子程序能够访问和使用这些变量。
测试和调试
调试子程序，检查输入参数和输出结果是否正确。确保子程序的功能按预期工作，并且与主程序的其他部分协同工作。
编译和上传
根据所使用的编程语言和开发环境，将主程序和子程序进行编译。然后连接PLC并将编译后的程序上传到PLC设备中。
主程序（SUB1.PRG）
```pascal
PROGRAM SUB1
VAR
V_DM: INTEGER；
END_VAR
SUBroutine测量圆（DM: INTEGER）
// 子程序逻辑
// 例如：测量圆的直径
DM := DM * 2；
END_SUBROUTINE
BEGIN
V_DM := 50；
CALL 测量圆（V_DM）；
END.
```
子程序（测量圆）
```pascal
SUBROUTINE 测量圆（DM: INTEGER）
// 子程序逻辑
// 例如：测量圆的直径
DM := DM * 2；
END_SUBROUTINE
```
调用子程序的主程序
```pascal
PROGRAM 主程序
VAR
V_DM: INTEGER；
END_VAR
SUBroutine测量圆（DM: INTEGER）
// 子程序逻辑
// 例如：测量圆的直径
DM := DM * 2；
END_SUBROUTINE
BEGIN
V_DM := 50；
CALL 测量圆（V_DM）；
END.
```
通过以上步骤，你可以在主程序中成功建立和调用子程序。确保在编写和调用子程序时，接口清晰，参数传递正确，以便子程序能够顺利执行并返回预期的结果。