Aiuto per un nuovo script

[Antonio Pagano]

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.

 

[Cinzia27]

Eccolo. Ciao

' 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

 

[Antonio Pagano]

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.

 

[Cinzia27]

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

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.

Si deve fare un altro script ?
Fammi sapere.

Ciao

 

[Antonio Pagano]

Il primo va bene ma se potessi realizzare anche il secondo ti sarei molto grato. Ciao Cinzia27

 

[Cinzia27]

Questo è il primo.

' 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

 

[Alien.]

è 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.

 

[Cinzia27]

Ciao, Alien.
Ho aggiunto la data.

' 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

 

[Cinzia27]

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.

Ciao, Antonio. dovrei avere un esempio anche immaginario.

 

[Antonio Pagano]

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

 

[Alien.]

Grazie ,Cinzia.

 

[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

 

[Antonio Pagano]

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.

 

[Cinzia27]

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.

' 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

 

[Antonio Pagano]

Grazie Cinzia va bene anche così, le frequenze le cercherò visivamente. Grazie ancora per l'impegno.

 

[joe]

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.

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

 

[Antonio Pagano]

Buonasera joe, perfetto e quello che cercavo ti ringrazio tanto e anche a Cinza27. Grazie

 

[Cinzia27]

Grande, Joe. Grazie anche da parte mia.
Così Antonio potrà fare la sua ricerca più agevolmente.