Novità

Richiesta script per me troppo complesso..

toon

Advanced Member
Mi servirebbe, se possibile, uno script che cerchi due numeri isotopi uguali su due ruote adiacenti,
e che poi si possa giocare lo stesso numero o il vertibile sulla ruota diametrale della prima.
Si accettano consigli migliorativi.. (y)
Ruote Diametrali da considerare,
Bari Napoli / Cagliari Palermo / Firenze Roma / Genova Torino / Milano Venezia
Se un numero isotopo esce su due ruote gemelle nella stessa estrazione
lo stesso numero o il vertibile esce in quella Diametrale alla prima
delle due ruote, normalmente entro 8/9 estrazioni. Ovviamente ho messo solo
i risultati positivi ma con lo script possiamo verificarne meglio i risultati..
Es: 04-03-2014 Na-Pa 55 Secondo colpo 55 Ba
Es: 26-04-2017 Na-Pa 04 Secondo colpo 40 Ba
Es: 29-04-2017 To-Ve 51 Terzo colpo 51 Ge
Es: 20-05-2021 Pa-Ro 71 Primo colpo Ca 71
Es: 29-06-2021 Ba-Ca 83 Sesto colpo Na 83
Es: 15-07-2021 To-17 Ve-71 Secondo colpo Ge 71-17
Es: 24-07-2021 Na-Pa 25 Quarto colpo Ba 52
Es: 11-08-2022 To-Ve 67 Primo colpo Ge 76
Es: 13-08-2022 Na-48 Pa-84 Secondo colpo Ba 84
Es: 13-08-2022 To-Ve 57 Ottavo colpo Ge 75 era uscito l'estrazione prima del 13-08-2022
Es: 31-01-2023 Ro-To 30 Ottavo colpo Fi 03 era uscito il 30 l'estrazione 28-01-2023
Es: 21-02-2023 Ca-Fi 14 Secondo colpo 41-14
Es: 07-03-2023 Mi-Na 82 ?? Ve ??
Es: 11-03-2023 Ca-Fi 04 Quarto colpo Pa 04
Es: 14-03-2023 To-Ve 24 Primo colpo Ge 42
Es: 16-03-2023 Na-Pa 13 Secondo colpo 31 Ba
 

Mike58

Advanced Member >PLATINUM PLUS<
Toon, abbastanza facile.
Ci potevi arrivare anche da solo.
Comunque eccoti una bozza.....
Per correzioni successive avete la base.

Codice:
Sub Main
   Dim Nu(2),Ru(2),aN(2),aR(1),T,Po(1)
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   T = Array(T,"Info Es","Numeri Iso","Ruote","Posiz.","Ruota Esito","Numeri in Gioco","Esito","Colpo","Id Verifica")
   Call InitTabella(T,RGB(40,40,40),,3,5,"Lucida Console")
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  Nu(1) = a
                  Nu(2) = b
                  Ru(1) = r1
                  Ru(2) = r2
                  Po(1) = p1
                  '
                  aN(1) = a
                  aN(2) = Vert(aN(1))
                  aR(1) = RuotaDiametrale(r1)
               End If
            Next
         Next
      Next
      Call VerificaEsito(aN,aR,es + 1,1,10,,esito,clp,estr,id)
      T = Array(T,GetInfoEstrazione(es),StringaNumeri(Nu),StringaRuote(Ru),Po(1),SiglaRuota(aR(1)),StringaNumeri(aN),estr,clp,GetInfoEstrazione(id))
      Call AddRigaTabella(T,,,2,,"Lucida console")
   Next
   Call SetTableWidth("100%")
   Call CreaTabella()
End Sub



Info Es​
Numeri Iso​
Ruote​
Posiz.​
Ruota Esito​
Numeri in Gioco​
Esito​
Colpo​
Id Verifica​
[10114] [ 91] 30.07.2022​
30.30​
GE.MI​
3​
TO​
30.3​
10​
[10115] [ 92] 02.08.2022​
63.63​
PA.RO​
2​
CA​
63.36​
CA .. 63 .. .. ..​
2​
[10117] [ 94] 06.08.2022​
[10116] [ 93] 04.08.2022​
27.27​
PA.VE​
3​
CA​
27.72​
CA 72 .. .. .. ..​
6​
[10122] [ 99] 18.08.2022​
[10117] [ 94] 06.08.2022​
4.4​
RO.VE​
5​
FI​
4.40​
FI 04 .. .. .. ..​
4​
[10121] [ 98] 16.08.2022​
[10118] [ 95] 09.08.2022​
15.15​
PA.RO​
4​
CA​
15.51​
10​
[10119] [ 96] 11.08.2022​
67.67​
TO.VE​
4​
GE​
67.76​
GE .. .. .. .. 76​
1​
[10120] [ 97] 13.08.2022​
[10120] [ 97] 13.08.2022​
57.57​
TO.VE​
1​
GE​
57.75​
GE .. .. 75 .. ..​
8​
[10128] [105] 01.09.2022​
[10121] [ 98] 16.08.2022​
16.16​
MI.TO​
2​
VE​
16.61​
VE .. .. 16 .. ..​
1​
[10122] [ 99] 18.08.2022​
 

toon

Advanced Member
Grazie Mike , su Te si può sempre contare, per le correzioni ci posso provare senza problemi,
ma penso che come Tuo solito andra già benissimo così, Grazie Mille e spero sia una base utile anche per altri..
(y)
💪
 

toon

Advanced Member
Mike58 , so che rompo, e ne approfitto, ma è possibile richiedere la ricerca mirata solo su ruote gemelle :
Bari-Cagliari , Firenze-Genova , Milano-Napoli , Palermo-Roma , Torino Venezia ?
Grazie in anticipo, anche a chi volesse dare suggerimenti . (y)
 

Mike58

Advanced Member >PLATINUM PLUS<
ciao Toon basterebbe sostituire la ruota diametrale
aR(1) = RuotaDiametrale(r1)
con
aR(1) = RuotaGemella(r1)
ma
le ruote gemelle che hai indicato non corrispondono alle vere ruote gemelle
ba-ve sono gemelle
ca-to sono gemelle
quelle che vedo nel tuo esempio sono ruote consecutive
in questo caso fare + 1 di Ruota R1
aR(1) = siglaruota(r1+1)

Codice:
Sub Main
  r = 2
  rd = RuotaDiametrale(r)
  rg = RuotaGemella(r)
  Scrivi "Ruota........... : " & NomeRuota(r),1
  Scrivi "Ruota Diametrale : " & NomeRuota(rd)
  Scrivi "Ruota Gemella... : " & NomeRuota(rg)
  Scrivi "Ruota Consecutiva: " & NomeRuota(r+1)
End Sub

Ruota........... : Cagliari
Ruota Diametrale : Palermo
Ruota Gemella... : Torino
Ruota Consecutiva: Firenze
 

toon

Advanced Member
Come sempre gentile e preciso come un'orologio, sempre pronto a dare una mano a tutti, sapevo come scrivere ciò che mi hai specificato,
a me servivano proprio le coppie che ho specificato, ma non so come inserirle in un'unico script..
Bari-Cagliari ,
Firenze-Genova ,
Milano-Napoli ,
Palermo-Roma ,
Torino Venezia
poi come avevi già indicato nello script, il diametrale va benissimo..
Grazie e sopportami.... volevo dire supportami..;)
(y)
 

Mike58

Advanced Member >PLATINUM PLUS<
Per Il tuo scopo potresti simularlo con un if then
ossia se r1 è dispari then aR(1) = r1+1
Codice:
Sub Main
  For r = 1 To 10
  If dispari(r) Then Scrivi NomeRuota( r) & " - " & NomeRuota(r+1)
  Next
End Sub

Bari - Cagliari
Firenze - Genova
Milano - Napoli
Palermo - Roma
Torino - Venezia
 

toon

Advanced Member
Non riesco ad applicare la Tua formula, ecco il listato, vedi se per cortesia riesci ad applicarla Tu, per favoreeee..
e fra l'altro non riesco neppure a scegliere l'indice mensile..😞

Codice:
Sub Main
   Dim aR(2),f,i,n(6)
   Dim Ruota(12),Posta(5)
   'Posta(1) = 1
   Posta(2) = 1
   '---
   Ini = EstrazioneFin - 10
   Fin = EstrazioneFin
      For es = Ini To Fin
      'If IsUltimaDelMese(es) Then
      'If IndiceMensile(es) = 1 Then
      '---
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               For p2 = 1 To 1
                  c = Estratto(es,r1,p2)
                  d = Estratto(es,r2,p2)
                  If a = b Or a + b = 90 Then
                  aR(1) = RuotaDiametrale(r1)
                   x = Fuori90((c) +(d))
                     '---
                     Ruota(1) = r1
                     Ruota(2) = r2
                     Ruota(3) = aR(1)
                     '---
                     n(1) = b
                     n(2) = a
                     n(3) = Vert(b)
                     n(4) = Vert(a)
                     n(5) = x
                     EliminaRipetuti n
                     '---
                     For f = 1 To UBound(n)
                        If Cadenza(n(f)) = 9 Then n(f) = Vert(n(f) - 1)
                     Next
                     '---
                     For i = 1 To UBound(n)
                        If Gemello(n(i)) Then n(i) =(n(i) - 10)
                     Next
                     '----
                     ImpostaGiocata 2,n,Ruota,Posta,7
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Toon vado di fretta controlla
immessa indice mensile e estrapolazione ruota consecutiva 1 ruota.

Codice:
Sub Main
   Dim aR(2),f,i,n(6)
   Dim Ruota(12),Posta(5)
   'Posta(1) = 1
   Posta(2) = 1
   '---
   Ini = EstrazioneFin - 10
   Fin = EstrazioneFin
      For es = Ini To Fin
      'If IsUltimaDelMese(es) Then
      If IndiceMensile(es) = 1 Then
      '---
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               For p2 = 1 To 1
                  c = Estratto(es,r1,p2)
                  d = Estratto(es,r2,p2)
                  If a = b Or a + b = 90 Then
                  If dispari(r1) Then aR(1)=(r1+1)
                  If pari(r1) Then aR(1) = (r1+1)
                  'aR(1) = RuotaDiametrale(r1)
                   x = Fuori90((c) +(d))
                     '---
                     Ruota(1) = r1
                     Ruota(2) = r2
                     Ruota(3) = aR(1)
                     '---
                     n(1) = b
                     n(2) = a
                     n(3) = Vert(b)
                     n(4) = Vert(a)
                     n(5) = x
                     EliminaRipetuti n
                     '---
                     For f = 1 To UBound(n)
                        If Cadenza(n(f)) = 9 Then n(f) = Vert(n(f) - 1)
                     Next
                     '---
                     For i = 1 To UBound(n)
                        If Gemello(n(i)) Then n(i) =(n(i) - 10)
                     Next
                     '----
                     Scrivi StringaRuote(Ruota) & " - Ruota consecutiva ruota 1 = " & SiglaRuota(aR(1)),1,,,1
                     ImpostaGiocata 2,n,Ruota,Posta,7
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
      End If
   Next
   ScriviResoconto
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
Toon,

secondo me devi considerare che i limiti dell'intervallo gestiti dallo script ...

cioè le 11 estrazioni potrebbero non includere un evento come

prima / ultima / ennesima Estrazione che si verifica solo ogni 13-14-15 Estrazioni.

Perché appunto quanto

Ini = EstrazioneFin - 10
Fin = EstrazioneFin

l'intervallo considerato è sempre di 11 estrazioni,

mentre, le cabale mensili hanno tempi più lunghi.

:)
 

toon

Advanced Member
Il listato impostato era esemplificativo, io le ricerche le faccio minimo su 1000 estrazioni, per una visione teorica meno approssimativa.
Grazie grande Joe per avermi apostrofato, i consigli e le dritte sono sempre ben accette.
Grazie (y)
;)
 

joe

Advanced Member >PLATINUM PLUS<
Non è una correzione.

Solo un consiglio.

E ... gli auguri di buona Pasqua.

:)
 

toon

Advanced Member
Tantissimi Auguri di cuore a Tutti, siete sempre pronti a dare una mano..
Auguri a voi e alle persone a voi più care e ancora grazie.. (y)
🍾
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto