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