Novità

Aiuto script

A

Antonio Pagano

Super member
Buonasera a tutti. Avrei bisogno di uno script che mi scriva le dieci distanze ciclometriche presenti nei cinque estratti di una ruota e di poter andando a ritroso per n estrazione sapere in ordine di frequenza le distanze più frequenti. esempio
Ba
78​
53​
71​
66​
50​


BA
25​
7​
12​
28​
18​
13​
3​
5​
21​
16​

Prima estrazione e così via a ritroso per n estrazioni e poi analizzare le distanze e trascriverle in frequenze. Grazie a voi tutti.
 
Ciao.

Non è particolarmente chiaro quello che scrivi.

Nell' esempio riporti un caso vecchio che definisci

"Prima estrazione e così via a ritroso"

Mi è sembrato doversi leggere al contrario di quanto è scritto.

Se così non fosse è molto semplice invertire l'ordine delle estrazioni: Avanti/Indietro/ Spostare gli intervalli.

Pertanto lo script per ora è così e può essere sbagliato.

Codice: 
Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45)
   S = Space(1)
   For Es = 9897 To EstrazioneFin
      ColoreTesto 0
      Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
      For R = 1 To 10
         ColoreTesto 0
         Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
         For P = 1 To 4
            For Q = P + 1 To 5
               D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
               Scrivi FormatSpace(D,3,True) & S,False,False
               Dst(D) = Dst(D) + 1
            Next
         Next
         Scrivi
      Next
   Next
   OrdinaMatrice Dst,- 1
   For P = 1 To 45
      Scrivi "Dist." & S & Format2(P) & S & Dst(P) & S & "Pres"
   Next
End Sub

:)
 
Joe da controllo mi accorgo che qualcosa non và nell'orndinamento.
ho impostato il listato a 18 estrazioni e a ruota singola.
dist 1 = 7 no 8
dist 2 = 3 no 7
dist 3 = 1 no 7
controlla per favore dove sta l'errore grazie.

Option Explicit
Sub Main
Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45)
S = Space(1)
Ini = EstrazioneFin - 28
Fin = EstrazioneFin - 10
For Es = Ini To Fin
ColoreTesto 0
Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
For R = 1 To 1
ColoreTesto 0
Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
For P = 1 To 4
For Q = P + 1 To 5
D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
Scrivi FormatSpace(D,3,True) & S,False,False
Dst(D) = Dst(D) + 1
Next
Next
Scrivi
Next
Next
Scrivi
OrdinaMatrice Dst,- 1
For P = 1 To 45
Scrivi "Dist." & S & Format2(P) & S & Dst(P) & S & "Pres"
Next
End Sub
 
Ultima modifica:
Ciao Antonio.

Se non si contano i risultati in tutte,

Penso sia meglio disporre i dati con un altro schema in cui è più facile controllare.

Quando poi esigo, un controllo più dettagliato,

preferisco anche scrivere personalmente il codice necessario.

Così oltre a sentirlo "piu' mio" ne ho maggiore controllo e famigliarità.

Codice: 
Option Explicit
Sub Main
    Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45),mx
    S = Space(1)
    Ini = EstrazioneFin - 28
    Fin = EstrazioneFin - 10
    For Es = Ini To Fin
        ColoreTesto 0
        'Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
        Scrivi DataEstrazione(Es) & S,False,False
        For R = 1 To 1
            ColoreTesto 0
            Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
            For P = 1 To 4
                For Q = P + 1 To 5
                    D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
                    Dst(D) = Dst(D) + 1
                    If mx < Dst(D) Then mx = Dst(D)
                    If D = 33 Then ColoreTesto 2 Else ColoreTesto 5
                    Scrivi FormatSpace(D,3,True) & S,False,False
                Next
            Next
            Scrivi
        Next
    Next
    Scrivi
    ColoreTesto 0
    For P = mx To 1 Step - 1
        For D = 1 To 45
            If Dst(D) = P Then
                Scrivi "Dist." & S & Format2(D) & S & FormatSpace(Dst(D),3,True) & S & "Pres"
            End If
        Next
    Next
End Sub
[Code]

:)
 
Ok benissimo.

Considera che al messaggio #4 hai scritto "18 estrazioni"

mentre ... hai impartito le istruzioni perchè ne siano esposte 19.

Ini = EstrazioneFin - 28
Fin = EstrazioneFin - 10

Con una estrazione in più, il 10, ha una presenza in più e sale di un posto in graduatoria.

Immagine.jpg

:)
 
Ultima modifica:
Giusto. Infatti ho rilevato l'errore comparando il tutto con gli estratti a 18 estrazioni e non mi trovavo con le date dell'ultima estrazione. Grazie Joe.
 
Vedo che controlli con accuratezza.

Dunque non ti sarà sfuggito che nella prima (o nella Diciannovesima Estrazione)

ci sono anche l' 8 ed il 24. quest'ultimo presente 2 volte.

Dunque la graduatoria finale per questa "piccola" differenza è completamente diversa.

:)
 
Perfetta e giusta analisi. Sapessi quanti dolori per errori del genere commessi per distrazione. La legge del terzo non perdona, ricerca sbagliata pronostico sbagliato. Si vince solo con una attenta analisi di tanti fattori. Certo con l'evento della programmazione e tutto più semplificato a condizione che a chi ti programma un listato le dai i dettagli giusti per realizzare quello he cerchi. Contento di averti contattato alla prossima. Ciao joe
 
Girando ho visto questo script che hai corretto tu Joe ,

1628843452525.png


07.08.13.33.51.60.61.67

Numeri Sortiti 20

Si potrebbe realizzare a ruota leggendo le famose 18 estrazioni? Avrei a occhio gli ambi e terni verificatesi con i numeri sortiti > 1. Non voglio scocciarti se hai voglia e tempo sarebbe un aiuto in più per le mie ricerch.Ciao Joe
 
Se hai voglia di controllare,

uno script che ho finito adesso ha scritto:

BA 09.26 2
BA 44.62 2

CA 09.32 2
CA 09.56 2
CA 12.15 2
CA 12.63 2
CA 15.63 2
CA 35.73 2

FI 11.86 2
FI 20.54 2
FI 20.77 3
FI 31.60 2
FI 49.80 2
FI 54.77 2

GE 05.34 2
GE 19.42 2
GE 30.88 2

MI 01.26 2
MI 16.43 2
MI 23.41 2
MI 23.89 2

NA 29.77 2
NA 74.86 2

PA 03.25 2
PA 13.44 2
PA 17.50 2
PA 45.56 2
PA 54.86 2

RO 07.65 2
RO 24.25 2
RO 35.59 2

TO 10.47 2
TO 22.46 2
TO 29.30 2

VE 08.47 2
VE 29.40 2

:)
 
Ciao Antonio,

veramente non era perfetto perché non rilevava i terni.

Comunque sia adesso dovrebbe essere apposto.

Però al momento non lo posso pubblicare perché questo pomeriggio

non funzionano né internet né il telefono.

:)
 
Joe è vero ma per non apparire molto pignolo mi andava bene anche così. Se lo hai migliorate allora grazie e resto in attesa di testarlo.
Buona serata.
 
Codice: 
Option Explicit
Sub Main()
'Ambi e Terni Ripetuti Recenti By Joe V.1.0 del 18/08/2021 
   Dim Ini,Fin,Es,R,P,A,B,C,E(5)
   Ini = EstrazioneFin - 17 : Fin = EstrazioneFin
   Scrivi "Ambi e Terni Ripetuti (dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin) & ")",True
   Scrivi Fin - Ini + 1 & " estrazioni.",True,False
   Scrivi " Script By Joe" & Chr(10),True,,,1
   Scrivi String(13,"="),True
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi NomeRuota(R),True
      ReDim Bi(89,90)
      ReDim Ter(88,89,90)
      For Es = Ini To Fin
         For P = 1 To 5
            E(P) = Estratto(Es,R,P)
         Next
         OrdinaMatrice E,1
         For A = 1 To 4
            For B = A + 1 To 5
               Bi(E(A),E(B)) = Bi(E(A),E(B)) + 1
            Next
         Next
         For A = 1 To 3
            For B = A + 1 To 4
               For C = A + 1 To 5
                  Ter(E(A),E(B),E(C)) = Ter(E(A),E(B),E(C)) + 1
               Next
            Next
         Next
      Next
      For A = 1 To 89
         For B = A + 1 To 90
            If Bi(A,B) >= 2 Then Scrivi Format2(A) & "." & Format2(B) & " (" & Bi(A,B) & "v)",True
         Next
      Next
      For A = 1 To 88
         For B = A + 1 To 89
            For C = B + 1 To 90
               If Ter(A,B,C) >= 2 Then
                  ColoreTesto 2
                  Scrivi Format2(A) & "." & Format2(B) & "." & Format2(C) & " (" & Ter(A,B,C) & "v)",True
                  ColoreTesto 0
               End If
            Next
         Next
      Next
      Scrivi String(13,"="),True
   Next
End Sub

:)
 
Ciao Ramco.

Ti ringrazio.

Mi sai essere tuo alunno da quando gli script erano rarissimi e per me difficili.

Dunque ti sono particolarmente grato, sia per il presente che per il passato.

Ringrazio anche tutti gli altri per gli interventi e gli apprezzamenti.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 11 giugno 2026
    Bari
    53
    23
    77
    51
    86
    Cagliari
    56
    76
    85
    17
    83
    Firenze
    64
    03
    85
    23
    69
    Genova
    56
    81
    32
    38
    28
    Milano
    42
    87
    40
    53
    50
    Napoli
    10
    59
    86
    90
    33
    Palermo
    76
    59
    28
    24
    06
    Roma
    76
    55
    69
    15
    74
    Torino
    24
    79
    44
    62
    64
    Venezia
    89
    03
    23
    37
    10
    Nazionale
    34
    32
    46
    22
    69
    Estrazione Simbolotto
    Napoli
    43
    01
    21
    29
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto