Until Event = #PB_Event_CloseWindow Quit on any window close Project Arc-Flash.pbf The main event loop, calls the automatically generated event procedure. RT.d = ValD(GetGadgetText(#String_Rating)) PPE category rating in calories, convert to joules The user is changing from joules to calories so convert the number in the box SetGadgetText(#Text_Energy_Incident_75, 'Cal/cm² :') Text_Energy_Incident_75 SetGadgetText(#Text_Energy_Incident_100, 'Cal/cm² :') Text_Energy_Incident_100 SetGadgetText(#Text_Energy_Normailsed_75, 'Cal/cm² :') Text_Energy_Normailsed_75 SetGadgetText(#Text_Energy_Normalised_100, 'Cal/cm² :') Text_Energy_Normalised_100 SetGadgetText(#Text_PPE_Rating, 'PPE Rating (Cal/cm²) :') SetGadgetText(#String_Rating, StrD(RT.d)) The user is changing from calories to joules so convert the number in the box SetGadgetText(#Text_Energy_Incident_75, 'J/cm² :') Text_Energy_Incident_75 SetGadgetText(#Text_Energy_Incident_100, 'J/cm² :') Text_Energy_Incident_100 SetGadgetText(#Text_Energy_Normailsed_75, 'J/cm² :') Text_Energy_Normailsed_75 SetGadgetText(#Text_Energy_Normalised_100, 'J/cm² :') Text_Energy_Normalised_100 SetGadgetText(#Text_PPE_Rating, 'PPE Rating (J/cm²) :') If GetGadgetState(#Checkbox_Distance) = #PB_Checkbox_Checked MessageRequester('Lee Checkbox Error!', 'Unckeck Lee Method checkbox first!', #MB_ICONERROR | #MB_TOPMOST) Checkbox for setting the distance factor to manual mode. SetGadgetState(#Checkbox_Distance, #PB_Checkbox_Unchecked) SendMessage_(GadgetID(#String_Distance_Factor), #EM_SETREADONLY, #True, #False) Enable read only status SendMessage_(GadgetID(#String_Distance_Factor), #EM_SETREADONLY, #False, #False) Remove read only status SetGadgetState(#Checkbox_Distance, #PB_Checkbox_Checked) If GetGadgetState(#Checkbox_Lee) = #PB_Checkbox_Checked SetGadgetText(#String_Distance_Factor, '1.641')ĮlseIf GetGadgetState(#Combo_Equipment_Type) = 3 Cables If kV.d >= 0.208 And kV.d 1 And kV.d <= 15ĮlseIf GetGadgetState(#Combo_Equipment_Type) = 2 MCC and panels SetGadgetText(#String_Distance_Factor, '2.000')ĮlseIf GetGadgetState(#Combo_Equipment_Type) = 1 Switchgear SetGadgetState(#Combo_Equipment_Type, -1)ĮlseIf GetGadgetState(#Combo_Equipment_Type) = 0 Open air MessageRequester('Voltage Error!', 'Set voltage between 0.208 and 15kV or set the distance factor checkbox to manual mode.', #MB_ICONERROR | #MB_TOPMOST) If kV.d > 1 For systems under 1 For systems under 15 3) Third part is the calculation to work out the incident energy at working distance. If GetGadgetState(#Checkbox_Lee) = #PB_Checkbox_Unchecked Check to see if the user wants to use the Lee Method for the incident energy calculation. SetGadgetText(#Answer_Normalised, StrD(NormalisedEnergy.d*0.238902957619, Integer)) Display answer in calories SetGadgetText(#Answer_Normalised, StrD(NormalisedEnergy.d, Integer)) Display answer in joules If GetGadgetState(#Checkbox_Joules) = #PB_Checkbox_Unchecked NormalisedEnergy.d = NormalisedEnergy.d + 0 NormalisedEnergy.d = NormalisedEnergy.d + -0.113ĮlseIf GetGadgetState(#Combo_Grounding) = 1 If GetGadgetState(#Combo_Grounding) = 0 K2 = 0 for ungrounded or high resistance ground systems and -0.113 for grounded systems

If GetGadgetState(#Combo_Equipment) = 0 K1 = -0.792 for open configurations and -0.555 for boxed configurationsĮlseIf GetGadgetState(#Combo_Equipment) = 1 2) Second part of the equation is the normalised energy calculation. SetGadgetText(#Answer, StrD(ArcFaultCurrent.d, Integer)) RT.d = ValD(GetGadgetText(#String_Rating)) PPE category rating in joules, convert to caloriesĪrcFaultCurrent.d = 0.00402 + 0.983*Log10(kA.d)ĪrcFaultCurrent.d = Pow(10, ArcFaultCurrent.d) RT.d = ValD(GetGadgetText(#String_Rating)) PPE category rating in joules Checkbox to see if we want results in joules or calories. Integer = GetGadgetState(#TrackBar_Integer) KA.d = ValD(GetGadgetText(#String_Current)) Ibf - three phase fault current (kA)ĭP.d = ValD(GetGadgetText(#String_Distance_Person)) Distance from arc point to the person ĭF.d = ValD(GetGadgetText(#String_Distance_Factor)) Distance factor - dependent on equipment type & voltage (IEEE 1584-2002, pg 12) ĪT.d = ValD(GetGadgetText(#String_Arching_Time)) Arcing time Mm.d = ValD(GetGadgetText(#String_Gap)) G - Conductor gap (mm) KV.d = ValD(GetGadgetText(#String_Voltage)) V - system voltage (kV) Protected ArcFaultCurrent.d, NormalisedEnergy.d, IncidentEnergy.d, FlashBoundary.d SetGadgetText(#String_Arching_Time, '0.10') SetGadgetText(#String_Distance_Factor, '0.973') SetGadgetText(#String_Distance_Person, '500') XIncludeFile 'Project Arc-Flash.pbf' GUI built using the Form Designer tool Code: Select all Title: Project Arc-Flash v0.02 Alpha

Arc flash boundary calculator