/system leds
add interface=lte1 leds=led1,led2,led3,led4,led5 modem-signal-treshold=-91 type=modem-signal
/interface lte info lte1 once do={
:log info "RSRP:= $"rsrp""}/interface lte info lte1 once do={:global rsrp1 $"rsrp"};#Create "runLoop" variable
:global runLoop true
#Do the following:
:do {
#See the info of LTE interface
/interface lte info lte1 once do={
#Capture RSRP value and save as "RSRP1" variable
:global rsrp1 $"rsrp"
#Prevents high CPU utilization
:delay 100ms
#End tasks
}
#Run it while runLoop variable is true
} while=($runLoop)
{
:global runloop true
:do {
/interface lte info lte1 once do={
:global rsrp1 $"rsrp"
:delay 100ms
:if ($rsrp1 >= -80) do={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=on
} else={
:if (($rsrp1 >= -90) && ($rsrp1 <= -81)) do={
/system leds set 1 leds=led1,led2,led3,led4 type=on
} else={
:if (($rsrp1 >= -100) && ($rsrp1 <= -91)) do={
/system leds set 1 leds=led1,led2,led3 type=on
} else={
:if (($rsrp1 >= -110) && ($rsrp1 <= -101)) do={
/system leds set 1 leds=led1,led2 type=on
} else={
:if (($rsrp1 >= -120) && ($rsrp1 <= -111)) do={
/system leds set 1 leds=led1 type=on
} else={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=off
}
}
}
}
}
}
} while=($runloop)
}
{
# Set global $rsrp
#/interface lte info lte1 once do={:global RsrpLte1 $"RsrpLte1"}; # receive "-87dBm"
global RsrpLte1 "-79dBm";
set $RsrpLte1 [/pick $RsrpLte1 0 [/find $RsrpLte1 dBm]];
put $RsrpLte1; # Now it is "-87" without dBm word
#Testing line
/if ($RsrpLte1 > "-80") do={put "$RsrpLte1 is bigger then -80"} else={put "other: $RsrpLte1"};
:if ($RsrpLte1 >= -80) do={
#/system leds set 1 leds=led1,led2,led3,led4,led5 type=on
put "5led *****";
} else={
:if (($RsrpLte1 <= -81) && ($RsrpLte1 >= -90)) do={
#/system leds set 1 leds=led1,led2,led3,led4 type=on
put "4led ****";
} else={
:if (($RsrpLte1 <= -91) && ($RsrpLte1 >= -100)) do={
#/system leds set 1 leds=led1,led2,led3 type=on
put "3led ***";
} else={
:if (($RsrpLte1 <= -101) && ($RsrpLte1 >= -110)) do={
#/system leds set 1 leds=led1,led2 type=on
put "2led **";
} else={
:if (($RsrpLte1 <= -111) && ($RsrpLte1 >= -120)) do={
#/system leds set 1 leds=led1 type=on
put "1led *"
} else={
#/system leds set 1 leds=led1,led2,led3,led4,led5 type=off;
put "off";
}
}
}
}
}
}
Why? Any error, screenshot?Your script not run on my routerboard.
#/interface lte info lte1 once do={:global RsrpLte1 $"RsrpLte1"}; # receive "-87dBm"
global RsrpLte1 "-79dBm";/interface lte info lte1 once do={:global RsrpLte1 $"RsrpLte1"}; # receive "-87dBm"
#global RsrpLte1 "-79dBm";If possible then only from WinBox > System > Logging but I not see the LED topic. Search on forum or write e-mail to support.Anyway now is working perfectly except because my log is full while it's running the script.
No way to "say" that not log when I change the led values?
@Jotne in post have some interesting stuff about new option in controling LED. Action is not on/off but BLINKING the LEDs then ge GENERATE many those logs I think. Maybe (s)he can give you answer.
.Sorry, I confussed. The script runs, but no has any effect (Or at least I can't see it).
{
# Set global $rsrp
/interface lte info lte1 once do={:global RsrpLte1 $"RsrpLte1"}; # receive "-87dBm"
#global RsrpLte1 "-79dBm";
set $RsrpLte1 [/pick $RsrpLte1 0 [/find $RsrpLte1 dBm]];
put $RsrpLte1; # Now it is "-87" without dBm word
#Testing line
#/if ($RsrpLte1 > "-80") do={put "$RsrpLte1 is bigger then -80"} else={put "other: $RsrpLte1"};
:if ($RsrpLte1 >= -80) do={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=on
put "5 Led *****";
} else={
:if (($RsrpLte1 <= -81) && ($RsrpLte1 >= -90)) do={
/system leds set 1 leds=led1,led2,led3,led4 type=on
put "4 Led ****";
} else={
:if (($RsrpLte1 <= -91) && ($RsrpLte1 >= -100)) do={
/system leds set 1 leds=led1,led2,led3 type=on
put "3 Led ***";
} else={
:if (($RsrpLte1 <= -101) && ($RsrpLte1 >= -110)) do={
/system leds set 1 leds=led1,led2 type=on
put "2 Led **";
} else={
:if (($RsrpLte1 <= -111) && ($RsrpLte1 >= -120)) do={
/system leds set 1 leds=led1 type=on
put "1 Led *"
} else={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=off;
put "- Led";
}
}
}
}
}
}
If I disable the previous assignments made by me, I can use scripts in my LtAP. In my case, I no have problems with it.Your "/system leds..." command not work. From where you receive it? You tested it?
Screenshot_6.jpg
Regards.From this:Your script not run on my routerboard.
to thisCode: Select all#/interface lte info lte1 once do={:global RsrpLte1 $"RsrpLte1"}; # receive "-87dBm" global RsrpLte1 "-79dBm";
Code: Select all/interface lte info lte1 once do={:global RsrpLte1 $"RsrpLte1"}; # receive "-87dBm" #global RsrpLte1 "-79dBm";
{
:global ledsafter 10
:global ledsbefore 20
:global runloop true
:do {
/interface lte info lte1 once do={
:global rsrp1 $"rsrp"
:delay 100ms
:if ($rsrp1 >= -80) do={
:global ledsbefore 5
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=on
:global ledsafter 5
}
} else={
:delay 100ms
:if (($rsrp1 >= -90) && ($rsrp1 <= -81)) do={
:global ledsbefore 4
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3,led4 type=on
:global ledsafter 4
}
} else={
:delay 100ms
:if (($rsrp1 >= -100) && ($rsrp1 <= -91)) do={
:global ledsbefore 3
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3 type=on
:global ledsafter 3
}
} else={
:delay 100ms
:if (($rsrp1 >= -110) && ($rsrp1 <= -101)) do={
:global ledsbefore 2
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2 type=on
:global ledsafter 2
}
} else={
:delay 100ms
:if (($rsrp1 >= -120) && ($rsrp1 <= -111)) do={
:global ledsbefore 1
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1 type=on
:global ledsafter 1
}
} else={
:global ledsbefore 0
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=off
:global ledsafter 0
}
}
}
}
}
}
}
} while=($runloop)
}
{
:global ledsafter 10
:global ledsbefore 20
:global runloop true
:do {
/interface lte info lte1 once do={
:global rsrp1 $"rsrp"
:delay 100ms
:if ($rsrp1 >= -80) do={
:global ledsbefore 5
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=on
:global ledsafter 5
}
} else={
:delay 100ms
:if (($rsrp1 >= -90) && ($rsrp1 <= -81)) do={
:global ledsbefore 4
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3,led4 type=on
:global ledsafter 4
}
} else={
:delay 100ms
:if (($rsrp1 >= -100) && ($rsrp1 <= -91)) do={
:global ledsbefore 3
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3 type=on
:global ledsafter 3
}
} else={
:delay 100ms
:if (($rsrp1 >= -110) && ($rsrp1 <= -101)) do={
:global ledsbefore 2
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2 type=on
:global ledsafter 2
}
} else={
:delay 100ms
:if (($rsrp1 >= -120) && ($rsrp1 <= -111)) do={
:global ledsbefore 1
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1 type=on
:global ledsafter 1
}
} else={
:global ledsbefore 0
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1,led2,led3,led4,led5 type=off
:global ledsafter 0
}
}
}
}
}
}
}
} while=($runloop)
}:delay 100ms
:if (($rsrp1 >= -120) && ($rsrp1 <= -111)) do={
:global ledsbefore 1
:if ($ledsafter = $ledsbefore) do={
:put "nothing to do"
} else={
/system leds set 1 leds=led1 type=on
:global ledsafter 1
}
}Just create other, separated LogAction for System+Info topics, you can still see them in separate list of logs. To not duplicate it in default info just add !system.The theme is when it modifies the LED properties, I use "ledbefore" to set the quantity of leds that are on and then with "ledafter" it check if the quantity of leds has changed. With this only logs can flood it when the signal changes many times just between 2 different signal levels.
Done. No more duplicate of the same activation LED settings, only if LED count be change then it change. Look below.the logs are not flooding it
Mutch better if you run this script in /system scheduler with interval 1s or you must see 120Hz refreshing speed :).As you can see on screenshot_8, my script i'm running on terminal, the CPU consuption is not too much
First Optimization... You change simple 34 lines code into 74 lines do-if-else-loop monster :).With this I can say that works well, but anyway I receive suggestions about it.
-interface lte info lte1 once do={:global rsrp1 $"rsrp"; ...
+local Rsrp ([/interface lte info lte1 once as-value]->"rsrp")local ChangeLeds do={put "Display $1 leds"}; # $1 - first argument
$ChangeLeds 4; # Run function and say to change leds to on 4-global a "new value 1"
-global a "new value 2"
...
+set $a "new value 3"
+set $a "new value 4"
# This check is global exist, true only when global exist with any of value:
put ([system script environment find name=a]!="")
# Instead:
-:global runloop true; do {...} while={$runloop}
+do while=(1=1) {delay 1s;...} # Really, Scheduler with 1s interval.
global LedsCurrent 0
local LteRsrp -121
local ControlLed do={
if ($1 != $4) do={ system leds set 1 leds=$2 type=$3 }
return $1
}
do while=(1=1) {
delay 1s
set $LteRsrp ([/interface lte info lte1 once as-value]->"rsrp");
if ($LteRsrp >= -80) do={set $LedsCurrent [$ControlLed 5 led1,led2,led3,led4,led5 on $LedsCurrent ] };
if (($LteRsrp >= -90) && ($LteRsrp <= -81)) do={set $LedsCurrent [$ControlLed 4 led1,led2,led3,led4 on $LedsCurrent ] };
if (($LteRsrp >= -100) && ($LteRsrp <= -91)) do={set $LedsCurrent [$ControlLed 3 led1,led2,led3 on $LedsCurrent ] };
if (($LteRsrp >= -110) && ($LteRsrp <= -101)) do={set $LedsCurrent [$ControlLed 2 led1,led2 on $LedsCurrent ] };
if (($LteRsrp >= -120) && ($LteRsrp <= -111)) do={set $LedsCurrent [$ControlLed 1 led1 on $LedsCurrent ] };
if ($LteRsrp <= -121) do={set $LedsCurrent [$ControlLed 0 led1,led2,led3,led4,led5 off $LedsCurrent ] };
}
put [/interface lte get lte1 band]In notepad++ you can select few lines and press TAB to create a tab-in-many-row-at-once and SHIFT+TAB to reduce tabs in selected row. Easy.Sorry for paste here the script without using tab. For the next time I will have it present. I have Notepad++ and I understand it that you mean.
It's done by me. It must be done after doing that big/long code by you. Read one post up. Final code in red "Next Release Candidate and yes, your code have now 20 lines".About the function, more or less I understand the concept, but I not know how to do it.
Did not know. Good tips.In notepad++ you can select few lines and press TAB to create a tab-in-many-row-at-once and SHIFT+TAB to reduce tabs in selected row. Easy.
More importand it's this one: Settings -> Preferences -> Language -> Tab Settings -> Tab size: 2 + [v] Replace by space.Did not know. Good tips.
If you have LogAction not type=memory but type=remote and you send MikroTik logs to remote SYSLOG server then it's case for his storage etc.but I think that in my Syslog server anyway will shows all the logs duplicated.
PerfectAbout executing the script every 1 second, I think that is better too
This is common. Script is running as other user, *sys who haven't possibility to create global variable and few other limitation.I have problems with the startup of the script using on "Start Time" as "startup" when my routerboard boot up. Then, I think that this can solve my problem. Simply I set a new Scheduler with "Start Date" = 01/Jan/2019, "Start Time"= 00:00:00, "Interval"= 00:00:01 and "On event"=(The name of the script)
The only thing now is how can I do to that this can works when my routerboard boots up. I not know if this part is already done or not.
"start-time=startup on-event"=(delay 20s; /system script run "The name of the script")2 beers, 6h and very big happiness at the end that I can do it :). You welcome. All knowledge are written here as Step by Step to know function tricks.I tested your "Red Release Candidate Code" and works well. It's insanely optimized for me.
You welcome. Select proper post as solution.Thanks a lot for your support and the tips with Notepad++. :D
Regards.
:global lte1 false
/system leds set 1 leds=led1,led2,led3,led4,led5 type=off
:while ($lte1=false) do={
do {
:global interface1 [/interface get [find type=lte name=lte1] name]
:if ($interface1 = "lte1") do={
:put "LTE1 is now present"
:global lte1 true
}
} on-error={
:put "LTE1 is not present"
:delay 500ms
}
}
/system script run "RSRP"
:local Info [/interface lte info [find name="lte1"] once as-value]
:local isRsrp ($Info->"rsrp") ; :local isRssi ($Info->"rssi")
:if ($simSlot="up") do={ :if ($isRsrp<-105 | $isRssi<-110) do={-if ($LteRsrp >= -80) do={set $LedsCurrent [$ControlLed 5 led1,led2,led3,led4,led5 on $LedsCurrent ] };
+if ($LteRsrp >= -80 | $LteRssi >= -60) do={set $LedsCurrent [$ControlLed 5 led1,led2,led3,led4,led5 on $LedsCurrent ] };# Check this when LTE not work
put [/interface lte info [find name="lte1"] once as-value]->"rsrp")
put [typeof [/interface lte info [find name="lte1"] once as-value]->"rsrp")]P.S. I hope at the end you create a 10s movie and past it as gif/movie at some portal to share results :DNow with the variable rsrp1 that is the signal strengh I need the following:
Between -120 and -111 only led1 on.
Between -110 and -101 led1 and led2 on.
Between -100 and -91 led1, led2 and led3 on.
Between -90 and -81 led1, led2, led3 and led4 on.
major and equal that -80 the 5 leds on.
If none on these condisions are true, set 5 leds off.
Aero 2 (26017) 14154 2 3623426 = LTE1800 B3 FDD
0/5 RSRP -116(-119|-116) RSSI -81 RSRQ -14(-18|-14) SIND -2(-6|-1)
5x Speedtest.net (min-max): 100-440ms DL: 4,4-7Mbps Ul: 0,5-0,65Mbps
Aero 2 (26017) 14154 12 3623436 = LTE900 B8 FDD
1/5 RSRP -99(-100|-99) RSSI -73 RSRQ -10,1(-14|-8) SIND +3(+2|+6)
5x Speedtest.net: 20-40ms DL: 0,97-3,9Mbps Ul: 2,8-4,3Mbps
Plus (26001) 1151 62715 75494651 = LTE1800 B3 FDD
5/5 RSSI -75(-83|-60) RSCP -84(-91|-60) EcIo -6(-15|-7)
5x Speedtest.net: 36-64ms DL: 3,2-6,2Mbps Ul: 1,9-2,2Mbps/interface lte cell-monitor lte1
# PHY-CELLID:374 | BAND:B3 | EARFCN:1300
# https://wiki.mikrotik.com/wiki/Manual:Interface/LTE#Using_Cell_lock -> <band> Not in use, leave this blank.
/interface lte at-chat lte1 input="AT*Cell=2,3,,1300,374"it not work on ros 7.11I found this code that "captures the value" and sends to logs:
The problem is that I not want flood the log of my device with the value of the signal strengh.Code: Select all/interface lte info lte1 once do={ :log info "RSRP:= $"rsrp""}
Regards.
/interface/lte/monitor lte1 once do={:log info "SINR:= $"sinr""}