Richiesta script per me troppo complesso..

Sakti · 22 Marzo 2023

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

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 · 23 Marzo 2023

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

Sakti · 23 Marzo 2023

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

Sakti · 6 Aprile 2023

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 .

Mike58 · 6 Aprile 2023

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

Sakti · 6 Aprile 2023

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

Mike58 · 6 Aprile 2023

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

Sakti · 6 Aprile 2023

Grazie Mike, mo ci provo, sei sempre un grande..

Sakti · 6 Aprile 2023

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 · 7 Aprile 2023

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

Sakti · 7 Aprile 2023

Grazie mille..

joe · 7 Aprile 2023

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.

Sakti · 7 Aprile 2023

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

joe · 7 Aprile 2023

Non è una correzione.

Solo un consiglio.

E ... gli auguri di buona Pasqua.

Sakti · 7 Aprile 2023

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

Cerca

Cerca

Richiesta script per me troppo complesso..

Sakti

Advanced Member

Mike58

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

Sakti

Advanced Member

Mike58

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

Mike58

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

Sakti

Advanced Member

Mike58

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

joe

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

joe

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

Ultima estrazione Lotto

Ultimi Messaggi