Novità

x ilegend numero minimo e massimo

Codice: 
[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
 
Ciao cos devi scrivere a fianco?
Se è uscito dopo l estrazione di calcolo o se è uscito nelle estrazioni precedenti?
 
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


Codice: 
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
 
Ultima modifica:
i legend ha scritto:
Ciao cos devi scrivere a fianco?
Se è uscito dopo l estrazione di calcolo o se è uscito nelle estrazioni precedenti?
Clicca per espandere...

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..
 
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:)

Codice: 
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.
 
Ultima modifica:
Manca una "n" a estrazionefi ma funziona

Codice: 
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 .. .. |
____________________________________________________

:)
 
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 .
 
Ultima modifica:
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.
 
Codice: 
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) & " | "
 
Ultima modifica:
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
 
Codice: 
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
 
Codice: 
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
 
Ultima modifica:
È 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.
 
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
 
Ultima modifica:
Zetrix hai scritto
Codice: 
a = atemp(1)
         b = atemp(2)
         c = atemp(3)
         '
         x = Fuori90(a - b + c)
         '
         aN(1) = x
Hai usato 5 variabili

Tutto questo è =
Codice: 
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.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto