x ilegend numero minimo e massimo

[Zetrix]

[CODE]

sabato, ago 12 2023



BA     83.89.70.59.05

BA     89.83.70.59.05         --->76Falso





CA     46.08.55.78.83

CA     83.78.55.46.08         --->60Falso





FI     90.12.19.35.76

FI     90.76.35.19.12         --->49Falso





GE     03.86.69.65.31

GE     86.69.65.31.03         --->82Vero





MI     39.32.76.68.27

MI     76.68.39.32.27         --->47Falso





NA     14.65.26.76.83

NA     83.76.65.26.14         --->72Falso





PA     69.43.90.31.67

PA     90.69.67.43.31         --->88Vero





RO     05.07.26.39.46

RO     46.39.26.07.05         --->33Falso





TO     60.36.79.12.10

TO     79.60.36.12.10         --->55Vero





VE     37.48.16.84.39

VE     84.48.39.37.16         --->75Falso





NZ     83.90.07.30.82

NZ     90.83.82.30.07         --->89Vero

ciao ilegend sto scrivendo una prova con verifica esito dell'ambata

ma nella tabella scrive vero o falso

la x e l'ambata



ReDim num(1)

ReDim rt(1)

num(1) = x

rt(1) = r

'sf = SerieFreq(es - 9,es,num,rt,1)

sr = SerieRitardo(es - 9,es,num,rt,1)

If sr > 0 Then



'

Scrivi SiglaRuota(r) & Space(5) & StringaNumeri(ae),0,1,6,1,3 ' estratti

Scrivi SiglaRuota(r) & Space(5) & StringaNumeri(atemp) & Space(9) & "--->" & x & VerificaEsito(num,rt,es - sr,1,DataEstrazione(es-sr)),0,1,3,1,3



Scrivi

 

[i legend]

Ciao cos devi scrivere a fianco?
Se è uscito dopo l estrazione di calcolo o se è uscito nelle estrazioni precedenti?

 

[Zetrix]

se l'ambata e uscita dopo l'estrazione di calcolo ma sembra che ho sbagliato
a scrivere ho messo sr con serie ritardo invece di mettere sf con seriefreq

'sf = SerieFreq(es - 9,es,num,rt,1)

sr = SerieRitardo(es - 9,es,num,rt,1)

If sr > 0 Then

sabato, ago 12 2023

GE     3.86.69.65.31
GE     86.69.65.31.03         --->82Falso


PA     69.43.90.31.67
PA     90.69.67.43.31         --->88Falso


TO     60.36.79.12.10
TO     79.60.36.12.10         --->55Vero


NZ     83.90.7.30.82
NZ     90.83.82.30.07         --->89Falso

se scrivo sf con seriefre da questa tabella in out..
ma e sbagliato anche cosi..
in out dello script dovrebbe scrivere la data di uscita dell'ambata
forse e scritto male la riga con verificaesito...

Scrivi SiglaRuota(r) & Space(5) & StringaNumeri(atemp) & Space(9) & "--->" & x & VerificaEsito(num,rt,es - sf,1,DataEstrazione(es - sf)),0,1,3,1,3

 

[i legend]

Se vuoi utilizzo l esempio che ti avevo postato.

 

[i legend]

. Questa sera dopo cena mi ci dedico.

 

[Zetrix]

va bene a stasera

 

[Zetrix]

Ciao cos devi scrivere a fianco?
Se è uscito dopo l estrazione di calcolo o se è uscito nelle estrazioni precedenti?

se si puo scrivere con il verificaesito entrambe e meglio
se l'ambata e uscita nelle 9 estr precedenti o dopo l'estrazione di calcolo max 9 estr..

 

[i legend]

LO SCRIPT È DA VERIFICARE FATTO DA CELLULARE, SE DA ERRORI PROVISMO AD AGGIUSTARLO.
Scopo dimostrativo, il calcolo dell ambata lo conosce Zetrix, se vorrà la inserirà lui

Sub main

Dim atemp,r,i,es, aN(1),aR(1),nclp,ncolpo,sEstr
Ncpl=9

For es= estrazionefin-17 to estrazionefin
Scrivi dataestrazione(es)
For r=1 to 11
    If r=11 then r=12
    Redim ae(0)
    Call getarraynumeriruota( es,r,ae)
    atemp= array(0,0,0,0,0,0)
        For i= 1 to 5
           Atemp(i)= ae(i)
        Next
Call ordinamatriceturbo(atemp,-1)
aN(1)= fuori90(aTemp(1)*aTemp(2)+atemp(3)+atemp(4)) ' formula casuale
Ar(1)=r
Call VerificaEsitoTurbo(aN,aR,es + 1,1,nClp,,,ncolpo,sEstr)
Scrivi siglaruota(r)&"  |"& stringanumeri(ae) ' originale
Scrivi  siglaruota(r)&"  |"& stringanumeri(atemp)&" | ",,0
Scrivi  " A: "& format2( An(1) )   & "  | clp:  " & FormatSpace(ncolpo,3) & " | " & FormatSpace(sEstr,17) & " | "
Scrivi  string(50,"_")
Next
Next

end sub

Posta un immagine per favore.

Ciao a dopo.

 

[joe]

Manca una "n" a estrazionefi ma funziona

Sub Main
   Dim atemp,r,i,es,aN(1),aR(1),nclp,ncolpo,sEstr
   Ncpl = 9
   For es = EstrazioneFin - 17 To EstrazioneFin
      Scrivi DataEstrazione(es)
      For r = 1 To 11
         If r = 11 Then r = 12
         ReDim ae(0)
         Call GetArrayNumeriRuota(es,r,ae)
        atemp = Array(0,0,0,0,0,0)
         For i = 1 To 5
            atemp(i) = ae(i)
         Next
         Call OrdinaMatriceTurbo(atemp,- 1)
         aN(1) = Fuori90(atemp(1)*atemp(2) + atemp(3) + atemp(4)) ' formula casuale
         aR(1) = r
         Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(ae,,1) ' originale
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(atemp,,1) & " | ",,0
         Scrivi Format2(aN(1)) & "  | " & FormatSpace(ncolpo,3) & " | " & FormatSpace(sEstr,17) & " | "
         Scrivi String(53,"_")
      Next
   Next
End Sub

produce :
____________________________________________________
GE |35.64.19.36.01
GE |64.36.35.19.01 | 18 | 3 | GE 18 .. .. .. .. |
____________________________________________________
MI |08.73.82.56.45
MI |82.73.56.45.08 | 57 | 10 | MI .. 57 .. .. .. |
____________________________________________________
NA |32.22.72.80.52
NA |80.72.52.32.22 | 84 | 5 | NA .. .. 84 .. .. |
____________________________________________________

 

[i legend]

Grazie joe
Ora correggo la n .
Se esce anche l ' ambata è assurdo ho messo una formula a caso, come ho scritto nello script , perché non conosco il calcolo che utilizza zetrix .
L output sembra anche ordinato, quindi direi bene.
Ancora Grazie mille joe
Un dubbio , ho messo nclp =9
Ma segna ambata a 10 colpo .
Purtroppo sto diventando vecchio , non ricordo bene come funziava la function .

 

[i legend]

X joe
In verifica esito ho messo ( es+1 )
Se avessi messo es , avrebbe contegiato il risultato se fosse uscito nell estrazione di calcolo. ?
Oppure ricordo male.?
Cmq queste finezze le può scrivere zetrix.

 

[Zetrix]

grazie Joe , volevo chiedere a ilegend forse e meglio che metto il mio script

 

[Zetrix]

Sub Main
   Dim atemp,r,i,es,ruota(5),posta(2)
   Dim a,b,c,x,rs,rk,rx
   Dim ambata(1)
   posta(1) = 1
   '
   k = 0
   For es = EstrazioneFin - 9 To EstrazioneFin
      '
      Scrivi DataEstrazione((es),1),0,1,4,1,2
      Scrivi
      For r = 1 To 11
         If r = 11 Then r = 12
         '
         ReDim ae(0)
         Call GetArrayNumeriRuota(es,r,ae)
         atemp = Array(0,0,0,0,0,0)
         For i = 1 To 5
            atemp(i) = Format2(ae(i))
         Next
         '
         Call OrdinaMatriceTurbo(atemp,- 1)
         '
         '
         a = atemp(1)
         b = atemp(2)
         c = atemp(3)
         '
         x = Fuori90(a - b + c)
         '
         ambata(1) = x
         ruota(1) = r
         '
         '
         '
         ReDim num(1)
         ReDim rt(1)
         num(1) = x
         rt(1) = r
         sf = SerieFreq(es - 9,es,num,rt,1)
         'sr = SerieRitardo(es - 9,es,num,rt,1)
         If sf > 0 Then
            'Call VerificaEsito(num,rt,es - 8,1,,,,,DataEstrazione(es))
            '
            Scrivi SiglaRuota(r) & Space(5) & StringaNumeri(ae),0,1,6,1,3 ' estratti
            Scrivi SiglaRuota(r) & Space(5) & StringaNumeri(atemp) & Space(9) & "--->" & x & VerificaEsito(num,rt,es - sf,1,DataEstrazione(es - sf)),0,1,3,1,3
            Scrivi
            Scrivi
         End If
      Next
   Next
End Sub

ilegend questo e lo script che ai fatto te , io ho aggiunto il calcolo dell'ambata
adesso si deve sistemare il verificaesito dell'ambata

si deve aggiungere questa nello script ma si devono fare delle modifiche allo script
perche e scritto diverso dal mio script..
adesso provo vedo se riesco a sistemare il verificaesito nello script..

Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
Scrivi SiglaRuota(r) & " |" & StringaNumeri(ae,,1) ' originale
Scrivi SiglaRuota(r) & " |" & StringaNumeri(atemp,,1) & " | ",,0
Scrivi Format2(aN(1)) & " | " & FormatSpace(ncolpo,3) & " | " & FormatSpace(sEstr,17) & " | "

 

[Zetrix]

ilegend ma Joe a scritto un altro script ma perche il tuo script e sbagliato
quale script devo considerare il tuo o quello di Joe

 

[Zetrix]

Sub Main
   Dim atemp,r,i,es,aN(1),aR(1),nclp,ncolpo,sEstr
   Dim a,b,c,x
   Ncpl = 9
   For es = EstrazioneFin - 17 To EstrazioneFin
      Scrivi DataEstrazione(es)
      For r = 1 To 11
         If r = 11 Then r = 12
         ReDim ae(0)
         Call GetArrayNumeriRuota(es,r,ae)
         atemp = Array(0,0,0,0,0,0)
         For i = 1 To 5
            atemp(i) = ae(i)
         Next
         Call OrdinaMatriceTurbo(atemp,- 1)
         '
         a = atemp(1)
         b = atemp(2)
         c = atemp(3)
         '
         x = Fuori90(a - b + c)
         '
         aN(1) = x
         aR(1) = r
         Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(ae,,1)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(atemp,,1) & " | ",,0
         Scrivi Format2(aN(1)) & "  | " & FormatSpace(ncolpo,3) & " | " & FormatSpace(sEstr,17) & " | "
         Scrivi String(53,"_")
      Next
   Next
End Sub

ilegend ho copiato lo script di Joe ho aggiunto il calcolo dell'ambata
dopo vedrò di sistemare meglio lo script

 

[Zetrix]

Sub Main
   Dim atemp,r,i,es,aN(1),aR(1),nclp,ncolpo,sEstr
   Dim a,b,c,x
   Ncpl = 9
   For es = EstrazioneFin - 17 To EstrazioneFin
      Scrivi DataEstrazione((es),1),0,1,3,1
      For r = 1 To 11
         If r = 11 Then r = 12
         ReDim ae(0)
         Call GetArrayNumeriRuota(es,r,ae)
         atemp = Array(0,0,0,0,0,0)
         For i = 1 To 5
            atemp(i) = ae(i)
         Next
         Call OrdinaMatriceTurbo(atemp,- 1)
         '
         a = atemp(1)
         b = atemp(2)
         c = atemp(3)
         '
         x = Fuori90(a - b + c)
         '
         aN(1) = x
         aR(1) = r
         Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(ae,,1)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(atemp,,1) & Space(4) & "-->",,0
         Scrivi Format2(aN(1)) & " " & Space(4) & " | " & FormatSpace(sEstr,17) & " | " & Space(4) & FormatSpace(ncolpo,3)
         Scrivi String(70,"_")
      Next
   Next
End Sub

ilegend ho fatto alcune modifiche nello script adesso devo colorare soltanto la tabella

grazie ilegend e anche a Joe

 

[i legend]

È lo stesso script.
Joe ha controllato se funzionava correttamente come avevo chiesto.
E lo ringrazio ancora .
Devi mettere la tua formula
Dove c'è

aN(1)= fuori90( tua formula)

scegliere il numero di colpi,
nclp= colpi che vuoi
Decidere se deve controllare dal concorso di ricavo o dall estrazione successiva. E il parametro dentro verifica esito.
Ma queste sono scelte personali tue ovviamente, non entro nel merito.

Vai nell help è studiati il significato dei parametri, altrimenti non puoi utilizzarla bene.

 

[Zetrix]

va bene ilegend la formula lo scritta nello script dopo le altre cose le devo sistemare meglio..
devo imparare a come si scrive il verificaesito perche ho diversi script che dovrei sistemare..

in spaziolight so come si scrive il verificaesito e in spaziometria che non ho mai scritto
il verificaesito dell'ambata

 

[i legend]

Zetrix hai scritto

a = atemp(1)
         b = atemp(2)
         c = atemp(3)
         '
         x = Fuori90(a - b + c)
         '
         aN(1) = x

Hai usato 5 variabili

Tutto questo è =

aN(1)= fuori90(atemp(1)-atemp(2)+atemp(3))

per colorare la tabella ho visto che sei bravo, pensaci te.
Io con il cellulare mi da noie agli occhi.
Studiati la funzione verifica esito così puoi impostare i valori che vuoi.

 

[i legend]

Per curiosità, che differenza di risultati c'è tra la tua formula e la mia fatta a caso?

Puoi fare le prove?