当前位置：首页 > news >正文

博途SCL语言仿真七段数码管

news 2025/10/16 6:05:56

七段数码管

FC程序：

CASE #I_iNum OF
0:
#T_byteLightOn := 2#0000_0000;
1:
#T_byteLightOn := 2#0110_0000;//I
2:
#T_byteLightOn := 2#1011_0000;//-c
3:
#T_byteLightOn := 2#1110_1000;//h
4:
#T_byteLightOn := 2#1111_0110;//e
5:
#T_byteLightOn := 2#1010_0000;//r
6:
#T_byteLightOn := 2#0000_1010;//i
7:
#T_byteLightOn := 2#1101_1010;//s
8:
#T_byteLightOn := 2#1110_1000;//h
9:
#T_byteLightOn := 2#0110_1110;//-m
10:
#T_byteLightOn := 2#1101_1100;//y
11:
#T_byteLightOn := 2#1011_0000;//-c
12:
#T_byteLightOn := 2#1011_1110;//a
13:
#T_byteLightOn := 2#0110_1110;//m
14:
#T_byteLightOn := 2#1110_0110;//p
15:
#T_byteLightOn := 2#1110_0100;//u
16:
#T_byteLightOn := 2#1101_1010;//s
17:
#T_byteLightOn := 2#0111_0000;//-l
18:
#T_byteLightOn := 2#0000_1010;//i
19:
#T_byteLightOn := 2#1110_0010;//f
20:
#T_byteLightOn := 2#1111_0110;//e
21:
#T_byteLightOn := 2#0111_1100;//-v
22:
#T_byteLightOn := 2#1111_0110;//e
23:
#T_byteLightOn := 2#1010_0000;//r
24:
#T_byteLightOn := 2#1101_1100;//y
25:
#T_byteLightOn := 2#0110_1110;//-m
26:
#T_byteLightOn := 2#1110_0100;//u
27:
#T_byteLightOn := 2#1011_0000;//c
28:
#T_byteLightOn := 2#1110_1000;//h

ELSE
#T_byteLightOn := 2#0000_0000;
END_CASE;
#O_arrLightOn[1] := #T_byteLightOn.%X1;
#O_arrLightOn[2] := #T_byteLightOn.%X2;
#O_arrLightOn[3] := #T_byteLightOn.%X3;
#O_arrLightOn[4] := #T_byteLightOn.%X4;
#O_arrLightOn[5] := #T_byteLightOn.%X5;
#O_arrLightOn[6] := #T_byteLightOn.%X6;
#O_arrLightOn[7] := #T_byteLightOn.%X7;