Novità

qualcuno esperto di script è realizzabile

buongiorno a tutti
il metodo di gioco che vi presento, si può mettere in gioco su qualsiasi ruota che volete
il procedimento è molto semplice
si prende unità del primo estratto sulla ruota da voi scelta , e si aggiunge 4
esempio se il primo estratto è il 12, si fa ( 2+4=6) , si metterà in gioco la cadenza 6
vi metto x semplificare le cose la tabella già compilata

unità
0
porta
cadenza
4
unità
1
porta
cadenza
5
unità
2
porta
cadenza
6
unità
3
porta
cadenza
7
unità
4
porta
cadenza
8
unità
5
porta
cadenza
9
unità
6
porta
cadenza
0
unità
7
porta
cadenza
1
unità
8
porta
cadenza
2
unità
9
porta
cadenza
3
 
continuando
io essendo 9 numeri di cadenza
li ho divisi
x 1 cinquina è x seconda cinquina
1--11--21--31--41
41--51--61--71--81
da giocare in 1-2-posizione
x un gioco di ambata determinata
ma voi potete scegliere il vostro modo di giocare , a piacimento
chiaramente il gioco posizionato ,è più difficile, ma si può guadagnare qualcosa in più,
che la solita ambata semplice
1--11--21--31--41--51--61--71--81
come estratto semplice i tempi di uscita si riducono molto
stiamo parlando dell" uscita della cadenza che ci interessa
continua...
 
qui vi metto il procedimento di qualche mese
e come detto sopra ho preso in considerazione solo 1-2-posizione
e ho spaccato i numeri in 1 cinquina e 2 cinquina

Data-bari
1-est
25/05/23
36
porta​
cadenza​
0
esce​
40
2 colpo​
in​
1-posizione​
1 cinguina​
27/05/23
54
porta​
cadenza​
8
esce​
38
8 colpo​
in​
2 posizione​
1 cinguina​
30/05/23
40
porta​
cadenza​
4
esce​
34
1 colpo​
in​
1-posizione​
1 cinguina​
01/06/23
34
porta​
cadenza​
0
esce​
40
11 colpo​
in​
2 posizione​
1 cinguina​
03/06/23
35
porta​
cadenza​
9
esce​
39
2 colpo​
in​
2 posizione​
1 cinguina​
06/06/23
63
porta​
cadenza​
7
esce​
27
2 colpo​
in​
1-posizione​
1 cinguina​
08/06/23
21
porta​
cadenza​
5
esce​
35-55
2 colpo​
in​
1-2-posizione​
1 cinguina​
10/06/23
27
porta​
cadenza​
1
esce​
41
4 colpo​
in​
1 posizione​
1 cinguina​
13/06/23
35
porta​
cadenza​
9
esce​
79
3 colpo​
in​
2 posizione​
2 cinguina​
15/06/23
12
porta​
cadenza​
6
esce​
66
13 colpo​
in​
1 posizione​
2 cinguina​
17/06/23
88
porta​
cadenza​
2
esce​
22
5 colpo​
in​
2 posizione​
1 cinguina​
20/06/23
41
porta​
cadenza​
5
esce​
5
1 colpo​
in​
1 posizione​
1 cinguina​
22/06/23
5
porta​
cadenza​
9
esce​
59
3 colpo​
in​
1 posizione​
2 cinguina​
24/06/23
85
porta​
cadenza​
9
esce​
59
2 colpo​
in​
1 posizione​
2 cinguina​
27/06/23
73
porta​
cadenza​
7
esce​
67
2 colpo​
in​
1 posizione​
2 cinguina​
29/06/23
59
porta​
cadenza​
3
esce​
33
4 colpo​
in​
2 posizione​
1 cinguina​
01/07/23
67
porta​
cadenza​
1
esce​
.11-51.
1 colpo​
in​
1-2-posizione​
1 cinguina​
04/07/23
11
porta​
cadenza​
5
esce​
35
1 colpo​
in​
2 posizione​
1 cinguina​
06/07/23
62
porta​
cadenza​
6
esce​
66
4 colpo​
in​
1 posizione​
2 cinguina​
08/07/23
83
porta​
cadenza​
7
esce​
17
2 colpo​
in​
1 posizione​
1 cinguina​
11/07/23
62
porta​
cadenza​
6
esce​
66
2 colpo​
in​
1 posizione​
2 cinguina​
13/07/23
17
porta​
cadenza​
1
esce​
31
2 colpo​
in​
2 posizione​
1 cinguina​
14/07/23
66
porta​
cadenza​
0
esce​
10
3 colpo​
in​
1 posizione​
1 cinguina​
15/07/23
19
porta​
cadenza​
3
esce​
3
12 colpo​
in​
1 posizione​
1 cinguina​
18/07/23
65
porta​
cadenza​
9
esce​
59
1 colpo​
in​
2 posizione​
2 cinguina​
20/07/23
10
porta​
cadenza​
4
esce​
14
5 colpo​
in​
2 posizione​
1 cinguina​
21/07/23
61
porta​
cadenza​
5
esce​
65
10 colpo​
in​
1 posizione​
2 cinguina​
22/07/23
21
porta​
cadenza​
5
esce​
65
9 colpo​
in​
1 posizione​
2 cinguina​
25/07/23
80
porta​
cadenza​
4
esce​
14
2 colpo​
in​
2 posizione​
1 cinguina​
27/07/23
81
porta​
cadenza​
5
esce​
65
7 colpo​
in​
1 posizione​
2 cinguina​
29/07/23
59
porta​
cadenza​
3
esce​
3
5 colpo​
in​
1 posizione​
1 cinguina​
01/08/23
68
porta​
cadenza​
2
esce​
72
1 colpo​
in​
2 posizione​
2 cinguina​
03/08/23
47
porta​
cadenza​
1
esce​
1
6 colpo​
in​
1 posizione​
1 cinguina​
05/08/23
14
porta​
cadenza​
8
esce​
38
3 colpo​
in​
2 posizione​
1 cinguina​
08/08/23
46
porta​
cadenza​
0
esce​
50
10 colpo​
in​
2 posizione​
2 cinguina​
10/08/23
3
porta​
cadenza​
7
esce​
57
4 colpo​
in​
1 posizione​
2 cinguina​
11/08/23
65
porta​
cadenza​
9
esce​
89
1 colpo​
in​
2 posizione​
2 cinguina​
12/08/23
83
porta​
cadenza​
7
esce​
57
2 colpo​
in​
1 posizione​
2 cinguina​
16/08/23
1
porta​
cadenza​
5
esce​
15
3 colpo​
in​
1 posizione​
1 cinguina​
17/08/23
57
porta​
cadenza​
1
esce​
1
14 colpo​
in​
2 posizione​
1 cinguina​
18/08/23
27
porta​
cadenza​
1
esce​
1
13 colpo​
in​
2 posizione​
1 cinguina​
19/08/23
15
porta​
cadenza​
9
esce​
39
5 colpo​
in​
1 posizione​
1 cinguina​
22/08/23
5
porta​
cadenza​
9
esce​
39
4 colpo​
in​
1 posizione​
1 cinguina​
24/08/23
16
porta​
cadenza​
0
esce​
50
1 colpo​
in​
2 posizione​
2 cinguina​
25/08/23
82
porta​
cadenza​
6
esce​
86
3 colpo​
in​
1 posizione​
2 cinguina​
26/08/23
39
porta​
cadenza​
3
esce​
13
5 colpo​
in​
1 posizione​
1 cinguina​
29/08/23
4
porta​
cadenza​
8
esce​
in​
31/08/23
86
porta​
cadenza​
0
esce​
70
2 colpo​
in​
1 posizione​
2 cinguina​
01/09/23
86
porta​
cadenza​
0
esce​
70
1 colpo​
in​
1 posizione​
2 cinguina​
02/09/23
70
porta​
cadenza​
4
esce​
44
6 colpo​
in​
2 posizione​
1 cinguina​
05/09/23
13
porta​
cadenza​
7
esce​
67
2 colpo​
in​
2 posizione​
2 cinguina​
07/09/23
40
porta​
cadenza​
4
esce​
44
4 colpo​
in​
2 posizione​
1 cinguina​
08/09/23
50
porta​
cadenza​
4
esce​
44
3 colpo​
in​
2 posizione​
1 cinguina​
09/09/23
45
porta​
cadenza​
9
esce​
in​
12/09/23
53
porta​
cadenza​
7
esce​
37
2 colpo​
in​
2 posizione​
1 cinguina​
14/09/23
66
porta​
cadenza​
0
esce​
70
3 colpo​
in​
2 posizione​
2 cinguina​
15/09/23
14
porta​
cadenza​
8
esce​
in​
16/09/23
77
porta​
cadenza​
1
esce​
in​
19/09/23
15
porta​
cadenza​
9
esce​
in​
porta​
cadenza​
esce​
in​
porta​
cadenza​
esce​
in​
 
dopo tutta sta pappardella
se qualche volenteroso volesse
fare uno script , magari di un anno
con percentuale di vincita
e con percentuale sulla 1 cinquina
oppure 2 cinquina
a voi io sono solo carta e penna
salva57
 
un altro piccolo esempio su vedete che la cadenza 8 è in ritardo
ma solo come 1-2-posizione
non come cadenza
perchè il 31-8-23 esce il 38
il 7-9-23 esce il 58
il 8-9-23 esce 8--38
così via...
 
Solo Per curiosità fatto script numeri in cadenza e verifica sortita in posizione.
La verifica è su tutta la cadenza.
Gli esiti sono in positivo al 50% e chiaramente gli utili andranno in negativo del 30-40 %.
verificate.
Codice:
Sub Main
   Dim Nu(1),Ru(1),Posta(10)
   Posta(6) = 1
   Posta(7) = 1
   Ini = EstrazioneFin - 156
   fin = EstrazioneFin
   r = ScegliRuota
   For es = Ini To fin
      k1 = k1 + 1
      a = Estratto(es,r,1)
      b = Cadenza(a + 4)
      '................................
      For n = 1 To 90
         If Cadenza(n) = b Then
            k = k + 1
            ReDim Preserve cad(k)
            cad(k) = n
         End If
      Next
      Ru(1) = r
      '.................................
      Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & a & vbTab & StringaNumeri(cad),1,,,1,3,,1
      k = 0
      ImpostaGiocata 1,cad,Ru,Posta,11,1
      Gioca es,1
      Scrivi String(140,"=") & " Caso N." & k1
   Next
   ScriviResoconto
End Sub
 
Non Lo so. Raf.
Modificare script già compilati per uno scopo , diventa complicato poi ottenere altre risultanze.
Ti metto un ' altro modus operandi che immettendo le spie in manuale (direttamente nello script con indicazioni remmate) e con scelta mese e anni come sopra, ottieni i tuoi risultati visivi e conteggiati.

Ciao
Codice:
Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(5)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 13 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = ms And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c = 1 To UBound(spia)
      Scrivi spia(c) & " = " & kk(c)
   Next
End Sub
buongiorno @Mike58 so che non ti piace rimettere mano e lo capisco..ma ti chiedo un ultima cortesia in merito
potresti aggiungere la possibilità di verifica dei numeri ripetuti anche non isotopi
grazie buona giornata

Screenshot_8.jpg
 
x Salva57
Si Te lo anche scritto, se ti serve lo te faccio anche diviso 2 cinquine come hai indicato con la numero 5 ripetuta.
Essendo 2 giocate cambiano gli esiti al 70 % mentre rischia di ridursi l'utile.
comunque eccolo.
Codice:
Sub Main
   Dim Nu(1),Ru(1),Posta(10),cinq1(5),cinq2(5)
   Posta(6) = 1
   Posta(7) = 1
   Ini = EstrazioneFin - 156
   fin = EstrazioneFin
   r = ScegliRuota
   For es = Ini To fin
      k1 = k1 + 1
      a = Estratto(es,r,1)
      b = Cadenza(a + 4)
      '................................
      For n = 1 To 90
         If Cadenza(n) = b Then
            k = k + 1
            ReDim Preserve cad(k)
            cad(k) = n
         End If
      Next
      Ru(1) = r
      cinq1(1) = cad(1) : cinq1(2) = cad(2) : cinq1(3) = cad(3) : cinq1(4) = cad(4) : cinq1(5) = cad(5)
      cinq2(1) = cad(5) : cinq2(2) = cad(6) : cinq2(3) = cad(7) : cinq2(4) = cad(8) : cinq2(5) = cad(9)
 
      '.................................
      Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & a & vbTab & StringaNumeri(cad),1,,,1,3,,1
      k = 0
      ImpostaGiocata 1,cinq1,Ru,Posta,11,1
      ImpostaGiocata 2,cinq2,Ru,Posta,11,1

      Gioca es,1
      Scrivi String(140,"=") & " Caso N." & k1
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
x Rafele
Effettivamente non mi piace rimettere mano ad uno script per uno scopo per poi estrapolare anche altri scopi e parametri.
Ci ho messo un pochetto di tempo a farlo interagire e ti posso mettere il totale dei numeri trovati nelle estrazioni in esame.
Codice:
Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(90),kkk(90)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 12 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = CInt(ms) And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               '-------------------------------------------
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
               For ccc = 1 To 90
                  If(ccc) = E Then kkk(ccc) = kkk(ccc) + 1
               Next
               '------------------------------------------
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   '------------------------------------------------
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c1 = 1 To UBound(spia)
      Scrivi spia(c1) & " = " & kk(c1)
   Next
   Scrivi
   '-------------------------------------------
   For x = 0 To 10
      For c2 = 1 To 90
         If kkk(c2) = x Then
            k1 = k1 + 1
            ReDim Preserve afreq(k1)
            afreq(k1) = c2
         End If
      Next
      If k1 > 0 Then
         Call Scrivi (FormatSpace(k1,2)  & " Con Presenza " & x & vbTab ,1,0,,2,3)
         Call Scrivi (StringaNumeri(afreq),1,1,,1,3)
      End If
      k1 = 0
   Next
End Sub
Riepilogo Numeri Spia Presenti
11 = 2
12 = 4
71 = 2
82 = 1
83 = 1

10 Con Presenza 0 3.13.18.33.40.42.43.63.70.85
27 Con Presenza 1 1.5.6.8.9.10.14.21.22.23.25.26.27.36.38.39.59.60.62.65.67.69.73.80.81.82.83
25 Con Presenza 2 4.7.11.16.19.20.28.30.31.34.41.46.47.49.54.58.64.68.71.72.74.75.77.78.90
14 Con Presenza 3 2.15.24.35.37.45.48.51.52.55.79.84.87.89
9 Con Presenza 4 12.17.29.44.50.53.57.86.88
5 Con Presenza 5 32.56.61.66.76
 
x Rafele
Effettivamente non mi piace rimettere mano ad uno script per uno scopo per poi estrapolare anche altri scopi e parametri.
Ci ho messo un pochetto di tempo a farlo interagire e ti posso mettere il totale dei numeri trovati nelle estrazioni in esame.
Codice:
Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(90),kkk(90)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 12 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = CInt(ms) And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               '-------------------------------------------
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
               For ccc = 1 To 90
                  If(ccc) = E Then kkk(ccc) = kkk(ccc) + 1
               Next
               '------------------------------------------
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   '------------------------------------------------
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c1 = 1 To UBound(spia)
      Scrivi spia(c1) & " = " & kk(c1)
   Next
   Scrivi
   '-------------------------------------------
   For x = 0 To 10
      For c2 = 1 To 90
         If kkk(c2) = x Then
            k1 = k1 + 1
            ReDim Preserve afreq(k1)
            afreq(k1) = c2
         End If
      Next
      If k1 > 0 Then
         Call Scrivi (FormatSpace(k1,2)  & " Con Presenza " & x & vbTab ,1,0,,2,3)
         Call Scrivi (StringaNumeri(afreq),1,1,,1,3)
      End If
      k1 = 0
   Next
End Sub
Riepilogo Numeri Spia Presenti
11 = 2
12 = 4
71 = 2
82 = 1
83 = 1

10 Con Presenza 0 3.13.18.33.40.42.43.63.70.85
27 Con Presenza 1 1.5.6.8.9.10.14.21.22.23.25.26.27.36.38.39.59.60.62.65.67.69.73.80.81.82.83
25 Con Presenza 2 4.7.11.16.19.20.28.30.31.34.41.46.47.49.54.58.64.68.71.72.74.75.77.78.90
14 Con Presenza 3 2.15.24.35.37.45.48.51.52.55.79.84.87.89
9 Con Presenza 4 12.17.29.44.50.53.57.86.88
5 Con Presenza 5 32.56.61.66.76
@Mike58 piu' che ringraziarti non posso fare , sei davero e te lo dico con il cuore una persona disponibile e comprensiva, ti ringrazio per il tuo impegno e per cio che rendi possibile
un abbraccio e buon fine settimana
 
Grazie Raf faccio quello che posso, ma non è facile capire tutto, comunque cerco sempre di far del mio meglio.
Fare script un pochetto mi piace ed è soprattutto una buone palestra per allenare la mente ,chiaro come dico sempre
senza presunzione di perfezione.
Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto