//*************************
[FONT=Arial]TITLE =Wandlung S7_Real in S5_Gleitpunkt[/FONT]
[FONT=Arial]//[/FONT]
[FONT=Arial]AUTHOR : :ROFLMAO:ROFLMAO:ROFLMAO:[/FONT]
[FONT=Arial]FAMILY : :sc4:[/FONT]
[FONT=Arial]NAME : R_to_G[/FONT]
[FONT=Arial]VERSION : 0.1[/FONT]
[FONT=Arial]VAR_INPUT[/FONT]
[FONT=Arial] S7_R_Zahl : REAL ; [/FONT]
[FONT=Arial]END_VAR[/FONT]
[FONT=Arial]VAR_OUTPUT[/FONT]
[FONT=Arial] S5_G_Zahl : DWORD ; [/FONT]
[FONT=Arial] Ueberlauf : BOOL ; [/FONT]
[FONT=Arial]END_VAR[/FONT]
[FONT=Arial]VAR_TEMP[/FONT]
[FONT=Arial] S7_Temp : REAL ; [/FONT]
[FONT=Arial] S5_Temp : DWORD ; [/FONT]
[FONT=Arial] Neg : BOOL ; [/FONT]
[FONT=Arial]END_VAR[/FONT]
[FONT=Arial]BEGIN[/FONT]
[FONT=Arial]NETWORK[/FONT]
[FONT=Arial]TITLE =[/FONT]
[FONT=Arial] SET ; [/FONT]
[FONT=Arial] R #Ueberlauf; [/FONT]
[FONT=Arial] R #Neg; [/FONT]
[FONT=Arial] L DW#16#0; [/FONT]
[FONT=Arial] T #S5_Temp; [/FONT]
[FONT=Arial] L #S7_R_Zahl; [/FONT]
[FONT=Arial] T #S7_Temp; [/FONT]
[FONT=Arial] L 1.701412e+038; [/FONT]
[FONT=Arial] >=R ; [/FONT]
[FONT=Arial] S #Ueberlauf; [/FONT]
[FONT=Arial] BEB ; [/FONT]
[FONT=Arial] L -1.701412e+038; [/FONT]
[FONT=Arial] L #S7_Temp; [/FONT]
[FONT=Arial] >=R ; [/FONT]
[FONT=Arial] S #Ueberlauf; [/FONT]
[FONT=Arial] BEB ; [/FONT]
[FONT=Arial] L 0.000000e+000; [/FONT]
[FONT=Arial] <>R ; [/FONT]
[FONT=Arial] SPB Norm; [/FONT]
[FONT=Arial] L DW#16#80000000; [/FONT]
[FONT=Arial] T #S5_G_Zahl; [/FONT]
[FONT=Arial] BEA ; [/FONT]
[FONT=Arial]Norm: U L 0.7; [/FONT]
[FONT=Arial] S #Neg; [/FONT]
[FONT=Arial] L #S7_Temp; [/FONT]
[FONT=Arial] SLD 1; [/FONT]
[FONT=Arial] T #S7_Temp; [/FONT]
[FONT=Arial] L LB 0; [/FONT]
[FONT=Arial] L 126; [/FONT]
[FONT=Arial] -I ; [/FONT]
[FONT=Arial] T LB 4; [/FONT]
[FONT=Arial] SET ; [/FONT]
[FONT=Arial] = L 0.0; [/FONT]
[FONT=Arial] R L 0.1; [/FONT]
[FONT=Arial] L #S7_Temp; [/FONT]
[FONT=Arial] SRD 2; [/FONT]
[FONT=Arial] UN #Neg; [/FONT]
[FONT=Arial] SPB Pos; [/FONT]
[FONT=Arial] NEGD ; [/FONT]
[FONT=Arial]Pos: L DW#16#FFFFFF; [/FONT]
[FONT=Arial] UD ; [/FONT]
[FONT=Arial] L #S5_Temp; [/FONT]
[FONT=Arial] +D ; [/FONT]
[FONT=Arial] T #S5_G_Zahl; [/FONT]
[FONT=Arial]END_FUNCTION[/FONT]
[FONT=Arial]FUNCTION "FC x" : VOID[/FONT]
[FONT=Arial]TITLE =Wandlung S5_Gleitpunkt in S7_Realzahl[/FONT]
[FONT=Arial]//[/FONT]
[FONT=Arial]AUTHOR : :ROFLMAO:ROFLMAO:ROFLMAO:[/FONT]
[FONT=Arial]FAMILY : :ROFLMAO:[/FONT]
[FONT=Arial]NAME : G_to_R[/FONT]
[FONT=Arial]VERSION : 0.1[/FONT]
[FONT=Arial]VAR_INPUT[/FONT]
[FONT=Arial] S5_G_Zahl : DWORD ; [/FONT]
[FONT=Arial]END_VAR[/FONT]
[FONT=Arial]VAR_OUTPUT[/FONT]
[FONT=Arial] S7_R_Zahl : REAL ; [/FONT]
[FONT=Arial] Unterlauf : BOOL ; [/FONT]
[FONT=Arial]END_VAR[/FONT]
[FONT=Arial]VAR_TEMP[/FONT]
[FONT=Arial] S5_Temp : DWORD ; [/FONT]
[FONT=Arial] S7_Temp : REAL ; [/FONT]
[FONT=Arial] Neg : BOOL ; [/FONT]
[FONT=Arial] S5_M_Bit : BOOL ; [/FONT]
[FONT=Arial]END_VAR[/FONT]
[FONT=Arial]BEGIN[/FONT]
[FONT=Arial]NETWORK[/FONT]
[FONT=Arial]TITLE =[/FONT]
[FONT=Arial] SET ; [/FONT]
[FONT=Arial] R #Neg; [/FONT]
[FONT=Arial] R #Unterlauf; [/FONT]
[FONT=Arial] L #S5_G_Zahl; [/FONT]
[FONT=Arial] T #S5_Temp; [/FONT]
[FONT=Arial] L B#16#81; [/FONT]
[FONT=Arial] L LB 0; [/FONT]
[FONT=Arial] ==I ; [/FONT]
[FONT=Arial] S #Unterlauf; [/FONT]
[FONT=Arial] BEB ; [/FONT]
[FONT=Arial] L B#16#82; [/FONT]
[FONT=Arial] ==I ; [/FONT]
[FONT=Arial] S #Unterlauf; [/FONT]
[FONT=Arial] BEB ; [/FONT]
[FONT=Arial] L #S5_Temp; [/FONT]
[FONT=Arial] UN L 1.7; [/FONT]
[FONT=Arial] SPB pos; [/FONT]
[FONT=Arial] S #Neg; [/FONT]
[FONT=Arial] NEGD ; [/FONT]
[FONT=Arial]pos: T #S7_Temp; [/FONT]
[FONT=Arial] U L 5.6; [/FONT]
[FONT=Arial] = #S5_M_Bit; [/FONT]
[FONT=Arial] SLD 1; [/FONT]
[FONT=Arial] L DW#16#7FFFFF; [/FONT]
[FONT=Arial] UD ; [/FONT]
[FONT=Arial] T #S7_Temp; [/FONT]
[FONT=Arial] L DW#16#0; [/FONT]
[FONT=Arial] <>D ; [/FONT]
[FONT=Arial] SAVE ; [/FONT]
[FONT=Arial] U BIE; [/FONT]
[FONT=Arial] O #S5_M_Bit; [/FONT]
[FONT=Arial] SPB NORM; [/FONT]
[FONT=Arial] L B#16#80; [/FONT]
[FONT=Arial] L LB 0; [/FONT]
[FONT=Arial] ==I ; [/FONT]
[FONT=Arial] L 0; [/FONT]
[FONT=Arial] SPB GPT; [/FONT]
[FONT=Arial] L B#16#0; [/FONT]
[FONT=Arial] L LB 0; [/FONT]
[FONT=Arial] ==I ; [/FONT]
[FONT=Arial] L 0; [/FONT]
[FONT=Arial] SPB GPT; [/FONT]
[FONT=Arial] L 127; [/FONT]
[FONT=Arial] L LB 0; [/FONT]
[FONT=Arial] +I ; [/FONT]
[FONT=Arial] SPA GPT; [/FONT]
[FONT=Arial]NORM: L B#16#80; [/FONT]
[FONT=Arial] L LB 0; [/FONT]
[FONT=Arial] ==I ; [/FONT]
[FONT=Arial] S #Unterlauf; [/FONT]
[FONT=Arial] BEB ; [/FONT]
[FONT=Arial] L 126; [/FONT]
[FONT=Arial] +I ; [/FONT]
[FONT=Arial]GPT: SLW 7; [/FONT]
[FONT=Arial] L W#16#FF80; [/FONT]
[FONT=Arial] UW ; [/FONT]
[FONT=Arial] SLD 16; [/FONT]
[FONT=Arial] L #S7_Temp; [/FONT]
[FONT=Arial] +D ; [/FONT]
[FONT=Arial] T #S7_Temp; [/FONT]
[FONT=Arial] U #Neg; [/FONT]
[FONT=Arial] = L 4.7; [/FONT]
[FONT=Arial] L #S7_Temp; [/FONT]
[FONT=Arial] T #S7_R_Zahl; [/FONT]
[FONT=Arial]END_FUNCTION[/FONT]
//**************************
