I am almost a newbie, but I would change on initialize block:
if client_bluetooth1.is connected
set batterie.text = call client_bluetooth.ReceiveText nº bytes(1)
To:
if client_bluetooth1.is connected
my_var=call client_bluetooth.ReceiveText nº bytes(1)
if var>=1 then
set batterie.text = my_var