三角带的编程主要涉及以下几个步骤：
设计内容
已知条件：传动用途和工作条件，传动功率P，主、从带轮的转速n1，n2。
设计时需要确定的内容：三角带型号、长度和根数，带轮直径，传动中心距，带的张紧力和轴上载荷，同时还要验算带的速度和小带轮上的包角。
计算方法和步骤
计算实际中心距：根据公式计算中心距的变动范围。
验算主动带轮上的包角：根据公式计算包角。
计算皮带的初选节线长度（即计算长度）：根据公式计算。
选取带的节线长度和公称长度：根据公式计算并选取标准值。
计算从动带轮直径：根据公式计算并圆整为标准值。
计算皮带的剖面积、每米长度的质量等参数：使用子程序查取相关数据。
计算单根三角带所能传递的功率：根据公式计算。
计算工作情况系数、传动比系数和长度系数：使用子程序查取相关数据。
程序框图和子程序
设计粗、细框图：粗框图要反映主程序段的内容，输入和输出的内容，以及设计计算中的判别性内容；子程序段多在细框图中反映出来，框图的顺序可按手算步骤来决定。
子程序功能：包括根据带的型号查取带的剖面积、每米长度的质量、小带轮最小直径、标准节线长度与公称长度的差值及弯曲影响系数等。
编制程序
根据所设计的零件和框图内容来编程，确定程序变量名称。
示例代码（伪代码）
```pseudo
定义已知条件
P = 100 传动功率 （KW）
n1 = 1500 主带轮转速 （RPM）
n2 = 3000 从带轮转速 （RPM）
定义需要确定的内容
belt_type = "A型" 三角带型号
belt_length = 1000 带长 （mm）
belt_roots = 2 带根数
pulley_diameter = 200 带轮直径 （mm）
center_distance = 500 传动中心距 （mm）
tension_force = 5000 张紧力 （N）
load_on_axis = 2000 轴上载荷 （N）
计算实际中心距
amax = 520 最大中心距 （mm）
amin = 480 最小中心距 （mm）
验算主动带轮上的包角
AF = 180 包角 （度）
计算皮带的初选节线长度
Lp = 1010 初选节线长度 （mm）
选取带的节线长度和公称长度
LI = 1000 公称长度 （mm）
计算从动带轮直径
D2 = （2 * P / （AF * K）） + 2 * （D1 + D2） / （4 * C） 根据公式计算
计算皮带的剖面积和每米长度的质量
S = ... 剖面积 （mm^2）
Q1 = ... 每米长度的质量 （kg/m）
计算单根三角带所能传递的功率
P0 = ... 单根三角带传递的功率 （W）
计算工作情况系数、传动比系数和长度系数
KA = ... 工作情况系数
KI = ... 传动比系数
KL = ... 长度系数
根据计算结果选择合适的三角带型号和尺寸
```
以上步骤和示例代码提供了一个基本的编程框架，具体实现时可以根据实际需求进行调整和优化。