richiamo di una sub

[suibaf]

Ciao,

un semplice richiamo di una sub mi và in errore se lo faccio all'interno di una condizione if:

Code: Select all


      If Contataore_send_plc = 4 Then Print #3 , Makemodbus(2 , 6 , 103 , Credito_per_plc );

      'If Contatore_send_plc = 5 Then

       Call Gestione_ricarica(mes_1)

      'End If



Così non mi và in errore, se abilito l'if e l'end if il compilatore mi dà errore. Perchè?
https://dl.dropboxusercontent.com/u/15219757/errore%20bascom2.jpg

Grazie

[deluca]

@suibaf,
quando parliamo di codice ti consiglio di allegare il listato e non una immagine..... non ce ne facciamo nulla e ovviamente non possiamo aiutarti.

[suibaf]

Deluca,

infatti ho messo il codice che và in errore. L'immagine era per mostrare l'errore che mi da! Ovviamente non ho messo il codice di tutto il prg perchè sono molte righe. La sub che và in errore è Call Gestione_ricarica(mes_1)
Com'è che non lo vedi il codice?

[deluca]

Già risolto

Code: Select all

      If Contataore_send_plc = 4 Then Print #3 , Makemodbus(2 , 6 , 103 , Credito_per_plc );
      If Contatore_send_plc = 5 Then
         Call Gestione_ricarica(mes_1)
      End If


basta cambiare il nome alla variabile "Contatore"_send_plc" ed è tutto risolto

Code: Select all

      If Contataore_send_plc = 4 Then Print #3 , Makemodbus(2 , 6 , 103 , Credito_per_plc );
      If Contataore_send_plc = 5 Then
         Call Gestione_ricarica(mes_1)
      End If