dim stringhe() as string = array as string("ATSHDA10F1","ATFCSH18DA10F1","ATCRA18DAF110",PIDpressioneturbo,PIDpressioneOlio,"ATSHDA18F1","ATFCSH18DA18F1","ATCRA18DAF118",PIDcoppia)
do while ECUReading = true
for i = 0 to stringhe.lenght-1
elm327.send(Stringhe(i))
WaitingForRespose = True
'attende la risposta ELM327 prima di lanciare un altro comando
Do While WaitingForRespose = True
Sleep(0)
If ECUReading = False Then Exit
Loop
If ECUReading = False Then Exit
next
loop