Campi uguali ma ripetuti - Difficile da spiegare; Meglio Leggere

di carlo pots il
6 risposte
Sto cercando di trasferire un codice di un programma scritto in linguaggio B.A.L. (che so che nessuno conosce, ma è praticamente molto affine al Basic tradizionale), ma sono arrivato a un paletto.
Cerco un aiutino a trovare il modo di definire quanto mi serve.
In linguaggio B.A.L., si dichiarano le variabili con la formula
DCL [NomeVariabile][Tipo]=[Lunghezza]
dove, nel caso, come [Tipo] io uso un "%" per una variante numerica a 8 bit, "#" per una binaria, "$" per una stringa, oppure lo lascio così se intendo definire una variabile di tipo numerico tradizionale.

Nello specifico, devo dichiarare una variabile che si chiama "COEMI" che viene moltiplicata per 40 volte dal momento che ho 40 Coefficienti Minimi (chiaro perché si chiama COEMI? ), e quindi il codice è
   DCL COEMI=5(52)
Ovvero definisco, in un'unica istruzione, la bellezza di 52 campi, di tipo numerico, che si chiamano "COEMI", ognuno di loro lungo 5 bytes

Come devo digitare la DIM della variabile (che è senza dubbio di tipo Variant) che, tengo a precisare, mi serve con il suo esatto nome?

Preciso che mi serve solo per un evento e non vado sempre a richiamarlo.

Qualcuno può darmi una mano a risolvere?
Grazie a chi mi può dare una mano

6 Risposte

  • Non ti basta un semplice vettore di 52 double?
  • Allora, considera che tutte queste variabili mi servono per un calcolo aritmetico su dei coefficienti di umidità e dovrei cercare, quanto meno, di riproporre quanto ti ho scritto, non dico in maniere fedele, ma almeno funzionale per il resto delle istruzioni che vengono dopo.

    In sostanza dovrei fare un codice tipo
     Dim COEMI .... as Double 
    e poi definirci le 52 Integer senza farle una per una (tra le COEMI e le COEMA fanno in tutto 104 variabili; non credo sia il caso) per un campo numerico (mi basta un Numerico di tipo Precisione Doppia con 4 decimali)

    Quindi, cosa intendi per un vettore di 52 double?
    Non puoi essere più chiaro?
  • Scusa ma non conosci il concetto di vettore?

    Dim COEMI(1 to 52) As Double
  • Mi sto affacciando adesso; scusami
    La provo e ti faccio sapere
    Grazie
  • Ma esistevano anche in Basic con il Commodore ...
  • Si lo so, ma non so mai spiegarmi come chiamarli
    Comunque grazie, sembra funzionare
Devi accedere o registrarti per scrivere nel forum
6 risposte