Calculate RL resistor for LEDs diodes - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: HP Prime Software Library (/forum-15.html) +--- Thread: Calculate RL resistor for LEDs diodes (/thread-274.html) Calculate RL resistor for LEDs diodes - ArielPalazzesi - 12-29-2013 07:56 PM Hello! I leave the link to a small program I wrote to calculate the current limiting resistor for a given number of LED diodes in series. http://www.ucontrol.com.ar/forosmf/tutoriales-guias-y-cursos-en-ucontrol/calculo-de-resistencia-limitadora-para-leds-en-serie-con-hp-prime/msg82727/#msg82727 It's in Spanish, but if you think you need someone can translate it to English language. I hope you find it useful. Code: ``` ﻿EXPORT resistencia_led() BEGIN //Declaro variables: local RL, VLED, NLED, ILED,VCC,POT; local lista1, lista2; lista1 := {"Vcc:", "VLED:", "ILED:","nLED:"}; lista2 := {"Tensión de la fuente (V)","Tensión del LED (V)","Corriente del LED (A)","Número de LEDs conectados en serie"}; INPUT ({VCC,VLED, ILED,NLED},"Cálculo resistencia limitadora (Ohms)",lista1, lista2); RL := (VCC-VLED*NLED)/ILED; IF RL<0 THEN   MSGBOX("El número de LEDs excede la tensión de la fuente."); ELSE   POT := (ILED^2)*RL;   RL := ROUND(RL,0);   POT := ROUND(POT,1);   print (RL);   print (POT);   MSGBOX("La resistencia limitadora debe ser de "+ RL +" Ohm(s) y al menos " + POT+ " Watt(s)."); END; END;``` Greetings.