<div dir="ltr"><div dir="ltr">Hi Peter,</div><div dir="ltr"><br></div><div dir="ltr">I changed the code to CLong, you could have done it too. :-)</div><div dir="ltr"><br></div><div>Regards</div><div>Gianluigi<br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Il giorno mer 5 feb 2020 alle ore 12:51 Peter Bauer <<a href="mailto:pebauer68@gmail.com">pebauer68@gmail.com</a>> ha scritto:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">Hello,<br><a href="http://gambaswiki.org/wiki/doc/whatisgambas?nh" target="_blank">http://gambaswiki.org/wiki/doc/whatisgambas?nh</a><br><a href="http://gambaswiki.org/wiki/doc/whatisgambas?nh#t4" target="_blank">http://gambaswiki.org/wiki/doc/whatisgambas?nh#t4</a><br><div>Gambas 3.14 output:</div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">MMain.GetUsedMemory.14: #6: Type mismatch: wanted Integer, got String instead
MMain.GetUsedMemory.14 MMain.Main.23 </span><br></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">While I do not fully understand the Type mismatch (got String !?, really ?).</span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">-When I replace </span>Cint(aRes[1]  with  CLong(aRes[1]) it works again.</div><div><br></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">Used memory: 265040 Kb    /* Output checked on Gambas Playground for stable and daily</span><br></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">
Who could please update the script on Gambaswiki ?</span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div><div>Scripting with Gambas is nice and gets the job done with good performance.<br>Just wrote a  script for testing connectivity, hopefully its useful.<br><a href="https://github.com/pebauer68/scripts/blob/master/networkcheck" target="_blank">https://github.com/pebauer68/scripts/blob/master/networkcheck</a>   <span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">Best Regards,
Peter</span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap">Working Script:</span></div><div>Function GetUsedMemory() As Integer<br>    <br>  Dim sRes As String<br>  Dim aRes As String[]<br>  Dim cVal As New Collection<br>  Dim sVal As String<br>    <br>  Exec ["cat", "/proc/meminfo"] To sRes<br>    <br>  For Each sVal In Split(sRes, "\n", "", True)<br>    aRes = Split(sVal, " ", "", True)<br>    cVal[Left$(aRes[0], -1)] = <b>CLong(aRes[1])</b><br>  Next<br>    <br>  Return cVal!MemTotal - cVal!MemFree - cVal!Buffers - cVal!Cached + cVal!SwapTotal - cVal!SwapFree - cVal!SwapCached<br>    <br>End<br>    <br>Print Subst("Used memory: &1 Kb", GetUsedMemory())<br></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div><div><span style="color:rgb(0,0,0);font-family:"Source Code Pro",monospace;font-size:14.6667px;white-space:pre-wrap"><br></span></div></div>
<br>
----[ <a href="http://gambaswiki.org/wiki/doc/netiquette" rel="noreferrer" target="_blank">http://gambaswiki.org/wiki/doc/netiquette</a> ]----<br>
</blockquote></div></div>