Novità

Aiuto per un nuovo script

A

Antonio Pagano

Super member
Buonasera a tutti. Chiedo a chi può dedicarmi un pò del suo tempo per uno script che mi dia a tutte la frequenza dei 90 numeri dell'ultima estrazione. Esempio: ultima estrazione, voglio sapere, a tutte ,quante volte è sortito il numero 1 il numero 2 e così fino al 90. Ringrazio tutti anticipatamente.
 
Eccolo. Ciao
Codice: 
' Per Antonio Pagano - frequenza in ordine decrescente dei numeri sortiti nell' ultima estrazione (Cinzia27)
Sub main()
Dim n(1),ru(1),mt(90,3)
es=EstrazioneFin
r=11
ru(1)=r
For i=1 To 90
n(1)=i
If SerieFreq(es,es,n,ru,1)>0 Then
c=c+1
fr=SerieFreq(1,es,n,ru,1)
'Scrivi Format2(n(1))&" "&formatspace(fr,4,1)
mt(c,1)=c
mt(c,2)=n(1)
mt(c,3)=fr
End If
next
OrdinaMatrice mt,-1,3
For w=1 To 90
If mt(w,3)>0 Then
Scrivi Format2(mt(w,2))&" "&formatspace(mt(w,3),4,1)
End if
next
End Sub
 
Ciao Cinzia27 grazie per il listato, forse mi sono espresso male nella richiesta. Riporto quanto scritto dall'autore Massimo Pasqualone in riguardo alla legge del TERZO. Testualmente dice :
Riportare su un foglio da 1 a 90 gli ultimi 90 estratti di tutte le ruote escluso i primi estratti di ogni ruota in più annotare i primi quattro estratti dell'estrazione precedente. Ti ringrazio per l'attenzione buona giornata.
 
Scusa, Antonio, io non ho compreso bene, ma l' ultima spiegazione è ancora un' altra cosa.

Con la prima richiesta Intendevi cercare la frequenza dei numeri usciti all' ultima estrazione ?

Per quanto riguarda invece
Antonio Pagano ha scritto:
Ciao Cinzia27 grazie per il listato, forse mi sono espresso male nella richiesta. Riporto quanto scritto dall'autore Massimo Pasqualone in riguardo alla legge del TERZO. Testualmente dice :
Riportare su un foglio da 1 a 90 gli ultimi 90 estratti di tutte le ruote escluso i primi estratti di ogni ruota in più annotare i primi quattro estratti dell'estrazione precedente. Ti ringrazio per l'attenzione buona giornata.
Clicca per espandere...
Si deve fare un altro script ?
Fammi sapere.

Ciao
 
Questo è il primo.

Codice: 
' Per Antonio Pagano - frequenza in ordine decrescente dei numeri sortiti nell' ultima estrazione (Cinzia27)
Sub Main()
Dim n(1),ru(1),mt(90,3)
es=EstrazioneFin
r=11
ru(1)=r
For i=1 To 90
n(1)=i
If SerieFreq(es,es,n,ru,1)>0 Then
c=c+1
fr=SerieFreq(es,es,n,ru,1)
mt(c,1)=c
mt(c,2)=n(1)
mt(c,3)=fr
End If
Next
OrdinaMatrice mt,-1,3
For w=1 To 90
If mt(w,3)>0 Then
Scrivi Format2(mt(w,2))&" "&FormatSpace(mt(w,3),4,1)
End If
Next
End Sub
 
è su 55 numeri de lotto ne sono usciti 23 numeri doppi ed uno triplo quindi dobbiamo indovinare 32 numeri e non 55 giusto ? Oppure faccio un pò di caos !!
Ciao Cinzia nello script ci puoi inserire la data se ti è possibile,grazie.
 
Ciao, Alien.
Ho aggiunto la data.

Codice: 
' Per Antonio Pagano - frequenza in ordine decrescente dei numeri sortiti in una certa estrazione datata(Cinzia27)
' Per variare l' estrazione andare indietro con l' archivio
Sub Main()
Dim n(1),ru(1),mt(90,3)
es=EstrazioneFin
Scrivi " Frequenza numeri usciti all' estrazione "& es &" del "& DataEstrazione (es)
Scrivi String(61,"-")
r=11
ru(1)=r
For i=1 To 90
n(1)=i
If SerieFreq(es,es,n,ru,1)>0 Then
c=c+1
fr=SerieFreq(es,es,n,ru,1)
mt(c,1)=c
mt(c,2)=n(1)
mt(c,3)=fr
End If
Next
OrdinaMatrice mt,-1,3
For w=1 To 90
If mt(w,3)>0 Then
Scrivi " "&Format2(mt(w,2))&" "&FormatSpace(mt(w,3),4,1)
End If
Next
End Sub
 
Antonio Pagano ha scritto:
Riporto quanto scritto dall'autore Massimo Pasqualone in riguardo alla legge del TERZO. Testualmente dice :
Riportare su un foglio da 1 a 90 gli ultimi 90 estratti di tutte le ruote escluso i primi estratti di ogni ruota in più annotare i primi quattro estratti dell'estrazione precedente. Ti ringrazio per l'attenzione buona giornata.
Clicca per espandere...
Ciao, Antonio. dovrei avere un esempio anche immaginario.
 
Bari 81 02 42 55 estrazione 24 luglio 2020 i primi quattro estratti estrazione precedente al 27 luglio 2020


Bari 50 65 72 26 38
Cagliari 32 59 09 87 25
Firenze 41 44 86 58 11
Genova 19 06 42 04 45
Milano 10 22 53 12 54
Napoli 05 10 41 12 58
Palermo 48 34 07 29 12
Roma 31 76 71 58 67
Torino 79 26 59 13 57
Venezia 84 24 59 64 28 estrazione martedi 27 luglio 2020

I primi estratti in rosso non vengono letti si deve considerare ogni ruota con quattro estratti.
Spero di averti dato un quadro chiaro, Ti ringrazio Cinzia27
 
Ciao, Antonio.
Ti posto uno stralcio dell' output. E' corretto?

22.07.2021 9954

Ba 56 14 65 47
Ca 04 12 64 03
Fi 74 81 36 48
Ge 31 20 67 68
Mi 15 72 33 54
Na 79 70 22 72
Pa 68 38 12 69
Ro 75 32 59 70
To 66 79 50 38
Ve 26 09 69 31
Nz 31 41 58 08

******************
24.07.2021 9955

Ba 02 42 55 79
Ca 09 15 74 56
Fi 05 07 35 37
Ge 42 13 47 34
Mi 06 39 12 89
Na 80 25 24 41
Pa 42 25 03 23
Ro 13 56 45 59
To 04 82 65 05
Ve 67 83 45 85
Nz 75 12 31 62

******************
27.07.2021 9956

Ba 65 72 26 38
Ca 59 09 87 25
Fi 44 86 58 11
Ge 06 42 04 45
Mi 22 53 12 54
Na 10 41 12 58
Pa 34 07 29 12
Ro 76 71 58 67
To 26 59 13 57
Ve 24 59 64 28
Nz 85 25 28 55
 
Ba 89 07 65 85 20/07/2021
Ba 56 14 65 47 22/07/2021
Ca 04 12 64 03
Fi 74 81 36 48
Ge 31 20 67 68
Mi 15 72 33 54
Na 79 70 22 72
Pa 68 38 12 69
Ro 75 32 59 70
To 66 79 50 38
Ve 26 09 69 31


Ba 56 14 65 47 22/07/2021
Ba 02 42 55 79 24/07/2021
Ca 09 15 74 56
Fi 05 07 35 37
Ge 42 13 47 34
Mi 06 39 12 89
Na 80 25 24 41
Pa 42 25 03 23
Ro 13 56 45 59
To 04 82 65 05
Ve 67 83 45 85


Ba 02 42 55 79 24/07/2021
Ba 65 72 26 38 27/07/2021
Ca 59 09 87 25
Fi 44 86 58 11
Ge 06 42 04 45
Mi 22 53 12 54
Na 10 41 12 58
Pa 34 07 29 12
Ro 76 71 58 67
To 26 59 13 57
Ve 24 59 64 28

Vanno letti così e voglio sapere i numeri più frequenti per ogni blocco singolo. Specificamente voglio sapere l'ultimo.
 
Ciao, Antonio.
Lo script risponde in parte alla richiesta.
Non ho idea di come ricavare i numeri più frequenti all' interno dello stesso script.
Quindi lascio spazio ai tanti bravi scripter di questo forum.

Codice: 
' Per Antonio Pagano - estrazioni con ultimi quattro estratti ed estrazione precedente di Bari( Cinzia)
Sub main()
For es=EstrazioneFin-10 To EstrazioneFin
Scrivi
Scrivi SiglaRuota(1)&" ",0,0

For p1=2 To 5
a=Estratto(es-1,1,p1)
Scrivi Format2(a)&" ",0,0
Next
Scrivi DataEstrazione(es-1)
Scrivi SiglaRuota(1)&" ",0,0

For p2=2 To 5
b=Estratto(es,1,p2)
Scrivi Format2(b)&" ",0,0
Next
Scrivi DataEstrazione(es)

For r=2 To 10
Scrivi SiglaRuota(r)&" ",0,0
For p=2 To 5
Scrivi Format2(Estratto(es,r,p))&" ",0,0
Next
Scrivi
Next
Next
End Sub
 
Ciao Cinzia, Antonio.

Mi sono permesso di rimodulare lo script

Sopratutto per avere

un ciclo per le estrazioni

uno per le ruote

uno per le (4) posizioni

Dopo (ed anche prima di questo nuovo ordine delle linee),

è sufficiente raccogliere al fianco dell'istruzione "scrivi" gli estratti presenti.

nell'estrazione , ruota e posizione.

Contarli ed ordinarli, secondo le loro presenze.

"ogni blocco singolo. Specificamente voglio sapere l'ultimo" sono affermazioni antitetiche.

E' facile averli, per ogni estrazione e poi noi scegliere di considerare l'ultimo.

Oppure calcolare solo quest'ultimo ma non è "ogni singolo blocco".

Comunque sia ho scritto questo sperando di non aver male inteso le richieste.

Codice: 
Option Explicit
Sub Main()
    ' Per Antonio Pagano -
    ' Gli ultimi 4 estratti di ogni Ruota ed i 4 precedenti di Bari (Cinzia)
    ' V.2.0 By Joe
    Dim Es,R,P,E
    For Es = EstrazioneFin - 10 To EstrazioneFin
        Scrivi String(65,"=")
        ReDim Nu(90) ' Cancella/Prepara Contenitore per 90 Lottroni  
        For R = 1 To 10
            If R = BA_ Then 'Estratti Precedenti di Bari
                Scrivi SiglaRuota(R) & " ",0,0
                For P = 2 To 5
                    E = Estratto(Es - 1,BA_,P)
                    Scrivi Format2(E) & " ",0,0
                    Nu(E) = Nu(E) + 1
                Next
                Scrivi DataEstrazione(Es - 1),0,0 ' Data precedente
                Scrivi
            End If
            ' Estratti Correnti
            Scrivi SiglaRuota(R) & " ",0,0
            For P = 2 To 5
                E = Estratto(Es,R,P)
                Scrivi Format2(E) & " ",0,0
                Nu(E) = Nu(E) + 1 
            Next
            If R = BA_ Then Scrivi DataEstrazione(Es),True,0 ' Data attuale
            Scrivi
        Next
        For P = 11 To 2 Step - 1
            For E = 1 To 90
                If Nu(E) = P Then Scrivi Format2(E) & "(" & P & "v) ",True,0
            Next
        Next
        Scrivi
    Next
    Scrivi String(65,"=")
End Sub

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto