Novità

Script in Twin Basic by Mike58

Mike58

Advanced Member >PLATINUM PLUS<
In questa raccolta metto una serie di script compilati in Twin Basic per testarne i nuovi codici e magari anche la velocità.

1° script
***** Estrapola Numeri che al Ritardo corrente sono in ciclicita ******
esempio


Ruota
Numero
RcR
Estratti
Ciclicità
ciclo
Conta
Milano​
6​
67​
10068 - 06.64.08.61.26​
134​
2​
1​
Milano​
24​
39​
10046 - 07.52.64.57.24​
156​
4​
1​
Milano​
46​
122​
9958 - 54.87.85.46.08​
244​
2​
1​
Milano​
53​
47​
9920 - 53.87.28.03.48​
282​
6​
1​
Milano​
87​
45​
10112 - 30.50.87.12.80​
90​
2​
1​

46 Milano Ritardo corrente 122 è uscito 2 cicli fà al ritardo cronologico 244 (122*2) quindi futuro estratto.


Codice:
Dim ini As Long, fin As Long, r As Long, n As Long, es As Long
Dim a As Long, b As Long, er As Long, k As Long, c As Long, nu(1) As Long, ru(1)  As Long
Dim T As Variant
        ini = EstrazioniArchivio - 2000
        fin = EstrazioniArchivio
        For r = 1 To 11
        'n = InputBox("Numero in Esame",,59)       
        'T = "Num" & Space(5) & "Rit" & Space(5) & "RcR" & Space(8) & "Estratti" & Space(5) & "Ciclicità"
        'Scrivi (T,1)
        T = Array ("Ruota", "Numero", "RcR", " Estratti ", " Ciclicità", " ciclo ", " Conta ")
        Call InitTabella(T, vbGreen, , , vbWhite)
        For n = 1 To 90
            For es = ini To fin
                nu(1) = n
                ru(1) = r
                er = Ritardo (n, fin, 1, r)
                'er = EstrattoRitardo(n,r,ini,fin)
                If Posizione(es, r, n) > 0 And er > 36 Then
                    a = ((fin - es) / er)
                    b = er * Int((fin - es) / er)
                    c = b / er
                    If fin - es = b And c > 1 And c < 11 Then
                        k = k + 1
                        'Call AvanzamentoElaborazione(ini, fin)
                        'Scrivi (n & vbTab & er & vbTab & es & vbTab & StringaEstratti(es,r) & vbTab & fin - es & vbTab & c & vbTab & NomeRuota(r) )
                        'If k > 0 Then
                        T = Array(NomeRuota(r), n, er, es & " - " & StringaEstratti(es, r), fin - es, c, k)
                        Call AddRigaTabella(T)
                    End If
                End If
                'End If
                'k = 0
            Next
            'If k > 0 Then
                'Scrivi ("----------------------------------------------"  & " Numero " & n & " Casi trovati " & k )
                k = 0
            'End If
        Next
        Scrivi
        CreaTabella
        Next
        'Scrivi ("Tempo Di Elaborazione........... " & FormattaSecondi(SecondiTrascorsi))
   Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi & " Sec "
 
2° script
statistica su combinazione di Numeri in Array con verifica Posiz. e setcolorecellarighe

Codice:
Dim Ret As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
Dim Retx As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
 Dim k As Long, T As Variant
 Dim R As Long, N As Variant, p As Long
 Dim Ess As Long, riga As String, rigax As String
 Dim Nu(5) As Long, aN(2) As Long
 N = Array (9, 90)
aN(1) = 9: aN(2) = 90
'
    T = Array("Ruota", "Numeri", "PresenzeMultiple", "Ritardo Corrente", "Ritardo Max", "IncrMax", "Estratti Ultima Presenza", "Riga Verifica Posiz")
    Call InitTabella(T, vbBlack, , , vbWhite)
For R = 1 To 11
'
    Call StatisticaSingoloEsito(N, EstrazioneIni, EstrazioneFin, 2, Ret, R)
'
    Ess = EstrazioneFin - Ret.RetValori.Ritardo
For p = 1 To 5
        Nu(p) = Estratto (Ess, R, p)
'
If Nu(p) = aN(1) Or Nu(p) = aN(2) Then
    riga = riga & Format2(Nu(p)) & "."
    Else
        riga = riga & "--."
End If
Next
    rigax = RimuoviLastChar(riga, ".")
    '
    Call Messaggio("Attendere elaborazione.... " & TempoElaborazioneSecondi)
    T = Array(SiglaRuota(R), StringaNumeri(N), Ret.RetValori.PresenzeMultiple, Ret.RetValori.Ritardo, Ret.RetValori.RitardoMax, Ret.RetValori.IncrementoRitMax, StringaEstratti(Ess, R), (rigax))
Call AddRigaTabella(T)
Call SetColoreCellaRighe(1, vbBlack, vbWhite)
If Ret.RetValori.Ritardo > 1000 Then SetColoreCellaRighe(3, RGB(77, 41, 239), vbWhite)

riga = ""
Next
CreaTabella
   Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi & " Sec "

Ruota
Numeri
PresenzeMultiple
Ritardo Corrente
Ritardo Max
IncrMax
Estratti Ultima Presenza
Riga Verifica Posiz
Ba​
09.90​
31​
130​
2255​
0​
82.90.20.09.28​
--.90.--.09.--​
Ca​
09.90​
18​
451​
955​
0​
47.45.90.78.09​
--.--.90.--.09​
Fi​
09.90​
26​
693​
1794​
0​
06.43.90.74.09​
--.--.90.--.09​
Ge​
09.90​
14​
569​
1163​
0​
09.74.18.51.90​
09.--.--.--.90​
Mi​
09.90​
25​
165​
1099​
0​
82.90.64.09.37​
--.90.--.09.--​
Na​
09.90​
24​
209​
1310​
0​
63.20.09.32.90​
--.--.09.--.90​
Pa​
09.90​
20​
1613​
1336​
277​
90.63.88.09.08​
90.--.--.09.--​
Rm​
09.90​
28​
648​
1329​
0​
09.90.45.17.61​
09.90.--.--.--​
To​
09.90​
40​
174​
1088​
0​
12.01.35.90.09​
--.--.--.90.09​
Ve​
09.90​
15​
286​
1415​
0​
60.09.90.56.86​
--.09.90.--.--​
Nz​
09.90​
13​
571​
553​
18​
90.15.09.38.43​
90.--.09.--.--​
 
3° script
EstrazioneFin - PosRitardo - RitPrecedente

Codice:
Dim Nu(5) As Long, aP(5)As Long, Ru(1)As Long, T As Variant, V As Variant, Rit(5) As Long, es As Long, r As Long
Dim p As Long, x As Long, k1 As Long, k2 As Long
   Dim Ini As Long = EstrazioneFin - 1
   Dim fin As Long = EstrazioneFin
   T = Array("Ruota", "ES1", "ES2", "ES3", "ES4", "ES5", "Ruota", "PZ1", "PZ2", "PZ3", "PZ4", "PZ5", "Ruota", "Rit1", "Rit2", "Rit3", "Rit4", "Rit5")
   For es = fin To Ini Step -1
   Call InitTabella(T, vbGreen, , , vbWhite, , "arial black ")
  
      For r = 1 To 11
         Ru(1) = r
         For p = 1 To 5
            Nu(p) = Estratto(es, r, p)
            aP(p) = PosizioneNumeroRitardo(es - 1, Nu(p), r)
            Rit(p) = Ritardo(Nu(p), es - 1, 1, r)
         Next
         Call Messaggio("Script by Mike58")
         V = Array(SiglaRuota(r), Nu(1), Nu(2), Nu(3), Nu(4), Nu(5), SiglaRuota(r), aP(1), aP(2), aP(3), aP(4), aP(5), SiglaRuota(r), Rit(1), Rit(2), Rit(3), Rit(4), Rit(5))
         Call AddRigaTabella(V)
         For x = 1 To 5
         If aP(x) < 6 Then Call SetColoreCellaRighe((x), vbRed, vbYellow)
         If aP(x) > 85 Then Call SetColoreCellaRighe((x), vbBlue, vbWhite)
         If aP(x) < 6 Then k1 = k1 + 1
         If aP(x) > 85 Then k2 = k2 + 1
         If aP(x) < 6 Then Call SetColoreCellaRighe((x + 6), vbGreen, vbBlue)
        
         If aP(x) > 85 Then Call SetColoreCellaRighe((x + 6), vbMagenta, vbWhite)
         If aP(x) < 6 Then Call SetColoreCellaRighe((x + 12), vbGreen, vbBlue)
         If aP(x) > 85 Then Call SetColoreCellaRighe((x + 12), vbMagenta, vbWhite)
         If aP(x) < 6 And Rit(x) > 99 Then Call SetColoreCellaRighe((x + 12), vbRed, vbYellow)
         Call SetColoreCellaTitolo(0, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaTitolo(6, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaTitolo(12, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaRighe(0, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaRighe(6, RGB(197, 197, 197), vbWhite)
        Call SetColoreCellaRighe(12, RGB(197, 197, 197), vbWhite)

         Next
        
      Next
  Scrivi DataEstrazione(es) & Space(5) & "Q.tà Ritardari " & k1 & Space(5) & "Ripetuti a Zero " & k2, 1
   k1 = 0
         k2 = 0
        
   CreaTabella
   Scrivi
    Next
    Scrivi "Tempo di Elaborazione in secondi... " & TempoElaborazioneSecondi, 1

21/02/2023 Q.tà Ritardari 3 Ripetuti a Zero 7

Ruota
ES1
ES2
ES3
ES4
ES5
Ruota
PZ1
PZ2
PZ3
PZ4
PZ5
Ruota
Rit1
Rit2
Rit3
Rit4
Rit5
Ba​
66​
61​
81​
25​
26​
Ba​
89​
83​
78​
14​
58​
Ba​
0​
1​
2​
26​
7​
Ca​
43​
42​
87​
14​
84​
Ca​
1​
77​
27​
62​
20​
Ca​
96​
2​
21​
5​
26​
Fi​
7​
36​
13​
14​
20​
Fi​
80​
67​
53​
5​
90​
Fi​
2​
5​
9​
46​
0​
Ge​
68​
82​
62​
20​
39​
Ge​
80​
88​
23​
65​
3​
Ge​
2​
0​
24​
5​
50​
Mi​
38​
85​
5​
57​
86​
Mi​
27​
67​
20​
22​
44​
Mi​
20​
5​
23​
23​
12​
Na​
20​
14​
74​
30​
64​
Na​
41​
62​
48​
42​
59​
Na​
13​
7​
11​
13​
7​
Pa​
53​
64​
80​
58​
16​
Pa​
90​
36​
57​
64​
73​
Pa​
0​
16​
8​
6​
3​
Rm​
33​
41​
47​
79​
53​
Rm​
77​
36​
83​
51​
81​
Rm​
2​
15​
1​
10​
1​
To​
39​
52​
41​
18​
63​
To​
31​
90​
79​
89​
23​
To​
20​
0​
2​
0​
27​
Ve​
56​
54​
67​
70​
22​
Ve​
21​
45​
44​
61​
84​
Ve​
28​
12​
13​
7​
1​
Nz​
20​
6​
65​
37​
35​
Nz​
86​
25​
34​
50​
46​
Nz​
0​
28​
18​
11​
13​
 
4° script con uso EstrattoFrequenza
Analitico Ruota.
Codice:
Dim Nu(5) As Long, aN(5) As Long, Ru(1) As Long, Cad(5) As Long, aNum(5) As Long
    Dim ini As Long = EstrazioniArchivio - 250
    Dim fin As Long = EstrazioniArchivio
    Dim T As Variant ' Tabella
    Dim es As Long, r As Long, p As Long, rit As Long, ess As Long
    Dim k As Long, kk As Long, kkk As Long, rsl As Long
    Dim RigaPresenti As String, RigaCaduti As String, RigaSortiti As String
    'sNu = "-"
    'sCad = "-"
    r = InputBox("Quale Ruota ", "Scegli Ruota", 1)
    Ru(1) = r
    T = Array ("Info Estrazione", " Ruota ", "RigaPresenti", "livello", "Ritardo", "RigaCaduti", "Caduti_Progress", "Ritardo di Rigo", "Numero Sortito")
    Call InitTabella(T)
    kk = 0
    For es = fin To ini Step -1
For p = 1 To 5
    Nu(p) = Estratto(es, r, p)
    Cad(p) = Estratto(es, r, p)
    aN(p) = Estratto(es, r, p)
    If EstrattoFrequenza(r, Nu(p), es, fin) > 1 Then Nu(p) = 0'sNu
    If EstrattoFrequenza(r, Cad(p), es, fin) = 1 Then Cad(p) = 0'sCad
    If EstrattoFrequenza(r, Nu(p), es, fin) = 1 Then k = k + 1
    If Cad(p) <> 0 Then kk = kk + 1
    If EstrattoFrequenza(r, Nu(p), es, fin) = 1 Then kkk = kkk + 1
    '----------------------------------------------
    If Nu(p) > 0 Then
    RigaPresenti = RigaPresenti & Format2 (Nu(p)) & " "
    Else
    RigaPresenti = RigaPresenti & ".. "
    End If
    '----------------------------------------------
    If Nu(p) > 0 Then
    RigaCaduti = RigaCaduti & ".. "
    Else
    RigaCaduti = RigaCaduti & Format2(Cad(p)) & " "
    End If
    '----------------------------------------------
    If EstrattoFrequenza(r, Cad(p), fin, fin) > 0 Then
    RigaSortiti = RigaSortiti & Format2(Cad(p)) & " "
    Else
        RigaSortiti = RigaSortiti & ".. "
    End If
        '----------------------------------------------

    
    'rsl = RitSincronoDiLivello(Nu(p), r, fin, 1)
Next
    rit = SerieRitardo(ini, fin, aN, Ru, 1)
ess = fin - es
If k > 0 Then
T = Array(es & "-" & DataEstrazione(es), SiglaRuota(r), RigaPresenti, k, ess, RigaCaduti, kkk, rit, RigaSortiti)
Call AddRigaTabella(T)
End If
RigaPresenti = ""
RigaCaduti = ""
RigaSortiti = ""
k = 0
kk = 0
    Next
    CreaTabella

    
    Scrivi "Tempo di Elaborazione in secondi... " & TempoElaborazioneSecondi, 1


Info Estrazione
Ruota
RigaPresenti
livello
Ritardo
RigaCaduti
Caduti_Progress
Ritardo di Rigo
Numero Sortito
10203-23/02/2023​
Mi​
05 23 84 80 74​
5​
0​
.. .. .. .. ..​
5​
0​
.. .. .. .. ..​
10202-21/02/2023​
Mi​
38 85 .. 57 86​
4​
1​
.. .. 05 .. ..​
9​
0​
.. .. 05 .. ..​
10201-18/02/2023​
Mi​
31 50 29 36 64​
5​
2​
.. .. .. .. ..​
14​
2​
.. .. .. .. ..​
10200-16/02/2023​
Mi​
71 48 27 83 40​
5​
3​
.. .. .. .. ..​
19​
3​
.. .. .. .. ..​
10199-14/02/2023​
Mi​
33 .. 60 .. ..​
2​
4​
.. 48 .. 27 80​
21​
0​
.. .. .. .. 80​
10198-11/02/2023​
Mi​
.. 61 19 .. ..​
2​
5​
29 .. .. 50 27​
23​
2​
.. .. .. .. ..​
10197-09/02/2023​
Mi​
12 49 .. 26 45​
4​
6​
.. .. 74 .. ..​
27​
0​
.. .. 74 .. ..​
10196-07/02/2023​
Mi​
.. 52 35 82 ..​
3​
7​
85 .. .. .. 61​
30​
1​
.. .. .. .. ..​
10195-04/02/2023​
Mi​
59 .. 72 .. 03​
3​
8​
.. 84 .. 45 ..​
33​
0​
.. 84 .. .. ..​
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto