Tecniche di programmazione per Lotto e file di Ultimo da scaricare gratis

Club Ultimo

Scaricamento files

DBEst per Win	La versione 2.0.0 del programma per la gestione dell'archivio delle estrazioni che gestisce la Ruota Nazionale e le tre estrazioni settimanali, per gli utenti Win, ma la possono utilizzare anche gli utenti DOS.
Archivi delle estrazioni	di Ultimo aggiornati, per entrambe le versioni, Win e DOS.
FAQ di Ultimo	L'ultima versione del file con le FAQ - Frequently Asked Questions (Domande Frequenti) per gli utenti Win. Questo file può essere molto utile anche agli utenti della versione DOS, ma per consultarlo è necessario disporre di un sistema operativo a 32 bit (Win 95/.../XP).

Lo scopo di questa pagina è di aiutare gli utenti di Ultimo con poca esperienza nella programmazione. Insieme alle piccole tecniche di programmazione riportate direttamente su questa pagina, puoi scaricare anche gli esempi più complessi, contenuti nel file TP.ZIP che trovi in fondo della pagina.
Per approfondire gli esempi riportati ti consiglio di consultare anche il manuale e la guida on-line di Ultimo.

Numeri pari e dispari

Per scoprire se un numero è pari o dispari si può utilizzare l'operatore % (resto della divisione). Un numero è pari se diviso per 2 non dà il resto.

10: IMMETTI a
    SE a%2=0 ALLORA SCRIVI a;" è un numero pari."
    SE a%2 ALLORA SCRIVI a;" è un numero dispari."
    SCRIVI    
    VAIA 10

Numeri vertibili (soltanto Ultimo per DOS)

Ci sono diverse definizioni per quanto riguarda i vertibili dei gemelli ed i numeri in cadenza 9. Nel caso quando il vertibile di un gemello è il rispettivo numero in cadenza 9, ed il vertibile di un numero in cadenza 9 è il rispettivo gemello, si può procedere in questo modo:

10: IMMETTI a
    ' prima si fa il vertibile
    b = VERT(a)

    ' nel caso il numero "a" fosse un gemello si ricalcola il vertibile
    SE GEM(a) ALLORA 
      b = DEC(a)*10 + 9
      VAIA 20
    FINE SE

    ' nel caso il numero "a" fosse in cadenza 9 si ricalcola il vertibile
    ' Questo non vale per il numero 9. Il suo veritibile è 90.
    SE CAD(a)=9 & DEC(a)<>0 ALLORA b = DEC(a)*10 + DEC(a)
    
20: SCRIVI "Vertibile di";a;" è";b
    SCRIVI
    VAIA 10

Utenti di Ultimo per Win possono utilizzare la funzione VERTIB.

Distanza ciclometrica (soltanto Ultimo per DOS)

Si utilizza la funzione DIST di Ultimo. Se la distanza supera 45, la distanza si detrae da 90.

10: SCRIVI "1. numero = ";
    IMMETTI n1
    SCRIVI "2. numero = ";
    IMMETTI n2
    d = DIST(n1, n2)    ' distanza normale dei due numeri
    SE d>45 ALLORA d = 90-d
    
    SCRIVI "Distanza ciclometrica tra";n1;" e";n2;" =";d
    SCRIVI
    VAIA 10

Utenti di Ultimo per Win possono utilizzare la funzione DISTC.

Detrarre un numero da un altro evitando un risultato negativo

Detraendo due numeri il risultato può diventare negativo. Quando è necessario evitare il risultato negativo, nella relativa espressione aggiungi il fisso 90 e fai FUORI 90.

10: SCRIVI "1. numero = ";
    IMMETTI n1
    SCRIVI "2. numero = ";
    IMMETTI n2
    d = n1 - n2 + 90: FUORI 90
    SCRIVI n1;" -";n2;" =";d
    SCRIVI
    VAIA 10

Utilizzo delle condizioni implicite

Le condizioni possono essere incluse anche direttamente in un'espressione numerica (condizione implicita). Inserendo tra le parentesi un'espressione relazionale (=, >=, <=, <>) o/e logica (&, |, !) si ottiene il risultato 1 se la condizione è vera, oppure 0 se la condizione è falsa.
Esempio: Se il numero "n1" è maggiore di 45 bisogna detrarrgli 25, altrimenti bisogna sommargli 16.

' procedimento standard sarebbe
10: IMMETTI n1
    SE n1>45 ALLORA n2 = n1-25
    SE n1<=45 ALLORA n2 = n1+16
    SCRIVI "n1 =";n1;", n2 =";n2
    SCRIVI
    VAIA 10

' utilizzando la condizione implicita
10: IMMETTI n1
    n2 = n1 - 25*(n1>45) + 16*(n1<=45)
    SCRIVI "n1 =";n1;", n2 =";n2
    SCRIVI
    VAIA 10

Come estrarre le singole cifre da un numero

Per estrarre le unità e le decine si utilizzano le funzioni CAD e DEC, mentre per le altre cifre vedi l'esempio.

10: SCRIVI "Numero ";
    IMMETTI n1
    c1 = CAD(n1)      ' unità
    c2 = DEC(n1)      ' decine
    c3 = CAD(n1\100)  ' centinaia
    c4 = CAD(n1\1000) ' migliaia
    ' e così via
    SCRIVI c4; c3; c2; c1
    SCRIVI
    VAIA 10

Come gestire le estrazioni mensili (soltanto Ultimo per DOS)

Ultimo prevede, per i metodi con un passo mensile, la possibilità diretta di gestire le estrazioni delle prime quattro settimane (estrazioni), e di quella ultima del mese.

NOTA: In ULTIMO, la parola 'settimana' è sinonimo per 'estrazione'

Per gestire le altre estrazioni; quinta, sesta, settima..., si può procedere così:
Per esempio, si vuole operare soltanto nella settima settimana del mese. Si fa un normale ciclo ESTRAZIONE...PROSSIMA, senza specificare la settimana, e dopo la riga che contiene ESTRAZIONE ... DAL ... AL, si introduce un'istruzione condizionale che ANNULLA ESTRAZIONE, se l'estrazione non è quella settima.
Per controllare se l'estrazione è la settima, si confronta l'estrazione corrente (EST) con la prima settimana del mese alla quale si aggiunge 6 (prima settimana più 6, dà il numero della settima settimana).

DBASE 3
ESTRAZIONE DAL 01-01-98 AL 31-12-98
  SE EST <> PSETT+6 ALLORA ANNULLA ESTRAZIONE
  SCRIVI DATA()
PROSSIMA ESTRAZIONE

Per la penultima estrazione, si può procedere in modo analogo, diminuendo la ultima settimana di 1 (USETT), ma tenendo conto che la variabile USETT è corretta. In effetti, ULTIMO riconosce l'ultima settimana soltanto quando è inserita almeno una del mese successivo a quello con il quale si opera.

DBASE 3
ESTRAZIONE DAL 1-1-98 al 31-12-98
  SE EST <> USETT-1 ALLORA ANNULLA ESTRAZIONE
  SE USETT > NUMUEST ALLORA ANNULLA ESTRAZIONE
  SCRIVI DATA()
PROSSIMA ESTRAZIONE

Utenti di Ultimo per Win hanno a disposizione tutte le settimane.