Chi riesce a fare lo script da un vecchio metodo?

[DATA]

ciao rosella hai fatto girare il mio su spaziometria? controlla le ultime tre estrazioni e si deve trovare su due ruote, due coppie di numeri ( 2 ambi ) appartenenti alla stessa cinquina pentagonale, il quinto non ancora sortito sara' il capogioco della previsione

 

[joe]

grazie salvo50 , questo tuo metodo fa la ricerca nella stessa estrazione, in realtà la ricerca si fa controllando le ultime tre estrazioni e si deve trovare su due ruote, due coppie di numeri ( 2 ambi ) appartenenti alla stessa cinquina pentagonale, il quinto non ancora sortito sara' il capogioco della nostra previsione., Da questo listato come si fà la modifica? ti ringrazio per quello che fai...

E' una descrizione piuttosto diversa da quella iniziale o da come l'avevo capita.

Essa richiede un altro script, perché modificare quello esistente è più complicato che riscriverlo

con queste regole.

 

[salvo50]

Dalle previsioni del 30/06 PA/NA 87.84-87.39 ha dato terno a ruota all'ottavo colpo

Ciao Rossella35, ho fatto la previsione nei 3 colpi precedenti, ma il terno da te menzionato, non c'è
Quindi dovresti mettere oltre all'estrazione 30/06 anche l'anno e anche la cinquina pentagonale
di cui hai ricavato i numeri del terno, per poter capire dove sto sbagliando

 

[Rossella35]

Ciao Rossella35, ho fatto la previsione nei 3 colpi precedenti, ma il terno da te menzionato, non c'è
Quindi dovresti mettere oltre all'estrazione 30/06 anche l'anno e anche la cinquina pentagonale
di cui hai ricavato i numeri del terno, per poter capire dove sto sbagliando

mi spiego meglio se ci riesco: nell'estrazione del 30/5 a palermo sono usciti i numeri 15 e 33, nell'estrazione del 26/5 a napoli sono usciti i numeri 51e 69, la previsione era 87.84 e 87.39 uscita a palermo il 13/06/2026, la ricerca oltre alla ultima estrazione si fa anche nelle 3 estrazioni precedenti

 

[Rossella35]

un esempio, estrazione del 23/06/2026 escono fuori le seguenti previsioni:
CA/NZ 58.26 58.71
BA/FI 78.66 - 78.21
PA/VE 36.72 - 36.27
PA/NZ 36.72 - 36.27
io purtroppo non riuscendo a fare un listato per spaziometria, faccio tutto con carta e penna.

 

[DATA]

 

[DATA]

ora c e anche nz , e per calcolare 3 estrazioni indietro , si usa l ultima - 3
Option Explicit

Const RUOTE_DIVERSE = True
Const ESTRAZIONI_A_RITROSO = 4

Sub Main

Dim aRuote
Dim aTitoli
Dim aRiga

Dim Fine
Dim Inizio
Dim es
Dim iRuota
Dim Ruota
Dim p
Dim num
Dim idCin

Dim aCnt()
Dim aN1()
Dim aN2()

Dim h
Dim hCap
Dim h1
Dim h2
Dim idRiga

Dim capogioco
Dim doppio
Dim Diametrale

Dim aHData()
Dim aHRuota()
Dim aHCin()
Dim aHN1()
Dim aHN2()

Dim trovato

Call CaricaRuote(aRuote)

Fine = EstrazioneFin
Inizio = Fine - ESTRAZIONI_A_RITROSO

If Inizio < EstrazioneIni Then
Inizio = EstrazioneIni
End If

h = 0
hCap = 128

ReDim aHData(hCap)
ReDim aHRuota(hCap)
ReDim aHCin(hCap)
ReDim aHN1(hCap)
ReDim aHN2(hCap)

For es = Inizio To Fine

For iRuota = 1 To UBound(aRuote)

Ruota = aRuote(iRuota)

ReDim aCnt(18)
ReDim aN1(18)
ReDim aN2(18)

For p = 1 To 5

num = Estratto(es, Ruota, p)
idCin = IdCinquinaDaNumero(num)

aCnt(idCin) = aCnt(idCin) + 1

If aCnt(idCin) = 1 Then
aN1(idCin) = num
ElseIf aCnt(idCin) = 2 Then
aN2(idCin) = num
End If

Next

For idCin = 1 To 18

If aCnt(idCin) = 2 Then

Call AggiungiAmboEsatto( _
h, hCap, _
aHData, aHRuota, aHCin, aHN1, aHN2, _
es, Ruota, idCin, aN1(idCin), aN2(idCin) _
)

End If

Next

Next

Next

ReDim aTitoli(14)

aTitoli(1) = "Cinquina"
aTitoli(2) = "Data 1"
aTitoli(3) = "Ruota 1"
aTitoli(4) = "Coppia 1"
aTitoli(5) = "Data 2"
aTitoli(6) = "Ruota 2"
aTitoli(7) = "Coppia 2"
aTitoli(8) = "Capogioco"
aTitoli(9) = "Doppio"
aTitoli(10) = "Diametrale"
aTitoli(11) = "Ambo 1"
aTitoli(12) = "Ambo 2"
aTitoli(13) = "Terno"
aTitoli(14) = "Ruote"

Call InitTabella(aTitoli, vbCyan)

Scrivi "Metodo cinquine pentagonali - ultima estrazione + 3 a ritroso", 1
Scrivi "Range controllato: " & GetInfoEstrazione(Inizio) & " -> " & GetInfoEstrazione(Fine), 1
Scrivi

trovato = False
idRiga = 0

For h1 = 1 To h - 1

For h2 = h1 + 1 To h

If aHCin(h1) = aHCin(h2) Then

If RUOTE_DIVERSE = False Or aHRuota(h1) <> aHRuota(h2) Then

If QuattroDiversi(aHN1(h1), aHN2(h1), aHN1(h2), aHN2(h2)) Then

capogioco = NumeroMancante( _
aHCin(h1), _
aHN1(h1), aHN2(h1), _
aHN1(h2), aHN2(h2) _
)

If capogioco > 0 Then

doppio = Doppio90(capogioco)
Diametrale = Diametrale90(doppio)

idRiga = idRiga + 1
trovato = True

ReDim aRiga(14)

aRiga(1) = StringaCinquina(aHCin(h1))
aRiga(2) = GetInfoEstrazione(aHData(h1))
aRiga(3) = SiglaRuota(aHRuota(h1))
aRiga(4) = FormatNum(aHN1(h1)) & "-" & FormatNum(aHN2(h1))

aRiga(5) = GetInfoEstrazione(aHData(h2))
aRiga(6) = SiglaRuota(aHRuota(h2))
aRiga(7) = FormatNum(aHN1(h2)) & "-" & FormatNum(aHN2(h2))

aRiga(8) = FormatNum(capogioco)
aRiga(9) = FormatNum(doppio)
aRiga(10) = FormatNum(Diametrale)

aRiga(11) = FormatNum(capogioco) & "-" & FormatNum(doppio)
aRiga(12) = FormatNum(capogioco) & "-" & FormatNum(Diametrale)
aRiga(13) = FormatNum(capogioco) & "-" & FormatNum(doppio) & "-" & FormatNum(Diametrale)

aRiga(14) = SiglaRuota(aHRuota(h1)) & "-" & SiglaRuota(aHRuota(h2))

Call AddRigaTabella(aRiga, , "center")

End If

End If

End If

End If

Next

Next

If trovato Then
Call CreaTabella
Else
Scrivi "Nessun segnale trovato con i parametri attuali.", 1
End If

End Sub


Sub CaricaRuote(ByRef aRuote)

ReDim aRuote(11)

aRuote(1) = BA_
aRuote(2) = CA_
aRuote(3) = FI_
aRuote(4) = GE_
aRuote(5) = MI_
aRuote(6) = NA_
aRuote(7) = PA_
aRuote(8) = RO_
aRuote(9) = TO_
aRuote(10) = VE_

' Slot array 11.
' Non è la ruota Tutte.
' Qui dentro viene messa la Nazionale/RN.
aRuote(11) = NZ_

End Sub


Sub AggiungiAmboEsatto( _
ByRef h, ByRef hCap, _
ByRef aHData, ByRef aHRuota, ByRef aHCin, ByRef aHN1, ByRef aHN2, _
es, Ruota, idCin, n1, n2 _
)

Dim nMin
Dim nMax

Call OrdinaCoppia(n1, n2, nMin, nMax)

h = h + 1

If h > hCap Then

hCap = hCap + 128

ReDim Preserve aHData(hCap)
ReDim Preserve aHRuota(hCap)
ReDim Preserve aHCin(hCap)
ReDim Preserve aHN1(hCap)
ReDim Preserve aHN2(hCap)

End If

aHData(h) = es
aHRuota(h) = Ruota
aHCin(h) = idCin
aHN1(h) = nMin
aHN2(h) = nMax

End Sub


Function IdCinquinaDaNumero(num)

IdCinquinaDaNumero = ((num - 1) Mod 18) + 1

End Function


Function NumeroCinquina(idCin, pos)

NumeroCinquina = idCin + ((pos - 1) * 18)

End Function


Function StringaCinquina(idCin)

StringaCinquina = _
FormatNum(NumeroCinquina(idCin, 1)) & "-" & _
FormatNum(NumeroCinquina(idCin, 2)) & "-" & _
FormatNum(NumeroCinquina(idCin, 3)) & "-" & _
FormatNum(NumeroCinquina(idCin, 4)) & "-" & _
FormatNum(NumeroCinquina(idCin, 5))

End Function


Function NumeroMancante(idCin, n1, n2, n3, n4)

Dim pos
Dim Val

NumeroMancante = 0

For pos = 1 To 5

Val = NumeroCinquina(idCin, pos)

If Val <> n1 And Val <> n2 And Val <> n3 And Val <> n4 Then
NumeroMancante = Val
Exit Function
End If

Next

End Function


Function QuattroDiversi(a, b, c, d)

QuattroDiversi = False

If a = b Then Exit Function
If a = c Then Exit Function
If a = d Then Exit Function
If b = c Then Exit Function
If b = d Then Exit Function
If c = d Then Exit Function

QuattroDiversi = True

End Function


Sub OrdinaCoppia(n1, n2, ByRef nMin, ByRef nMax)

If n1 <= n2 Then
nMin = n1
nMax = n2
Else
nMin = n2
nMax = n1
End If

End Sub


Function Doppio90(Val)

Doppio90 = ((Val * 2 - 1) Mod 90) + 1

End Function


Function Diametrale90(Val)

If Val <= 45 Then
Diametrale90 = Val + 45
Else
Diametrale90 = Val - 45
End If

End Function


Function FormatNum(Val)

FormatNum = Format2(Val)

End Function

 

[DATA]

 

[DATA]

Const ESTRAZIONI_A_RITROSO = 3 basta cambiare questo numero

 

[Rossella35]

Const ESTRAZIONI_A_RITROSO = 3 basta cambiare questo numero

Grazie, ma c'è il modo di vedere quanti colpi si devono ancora giocare (di solito 12 colpi)e quando sono usciti? Calcolando le spese e se c'è guadagno?

 

[InRicordo]

dopo 47566 macro che facevano di tutto, anche andare al bar a bere una birra, dopo minacce e contumelie inenarrabili, scontri di bit, byte e pesci in faccia, ho ottenuto qualcosa, nel caso non fosse corretta non me lo dite! Potrei commettere un AIcidio!
Dallo script differisce solo la previsione del 20 cm, che lo script considera e la macro no, perchè ha un imperativo occorro SEMPRE 3 estrazioni, e l'estrazione del 20/06/2023 dopo sè ne ha una sola, quindi viene esclusa, se è corretta bene, se è sbagliata bene. non la tocco più, neanche sotto tortura.

 

[salvo50]

Ciao a Tutti

Confesso che sono negato a leggere le tabelle
per inRicordo e Data, non riesco a capire nelle tabelle
o script da voi postate, in quale colonna sono gli esiti
positivi.
Grazie

 

[InRicordo]

Ciao a Tutti

Confesso che sono negato a leggere le tabelle
per inRicordo e Data, non riesco a capire nelle tabelle
o script da voi postate, in quale colonna sono gli esiti
positivi.
Grazie

Ciao Salvo50, intanto complimenti per i tuoi Script,
Nel file fatto da me (una fatica enorme spiegare alla AI qualcosa che non avevo capito!), le ultime 2 colonne sono dedicate all'uscita, o meno, dell'ambata e dell'ambo:



I numeri indicano dopo quante estrazioni è uscita la previsione (entro 9 estrazioni), Non esce non ha bisogno di spiegazioni.
Non ha ancora controllato l'esattezza di quello che la macro tira fuori, salvo pochi casi (corretti).
Questo è l'output completo:

 

[salvo50]

Per inRicordo, Grazie

per Rossella35, avevo chiesto ulteriori spiegazioni perché tu nel Post 13 avevi messo la data del 30/ 6
cioè trenta barra sei ma siccome ancora al giorno 30 non è arrivato, ne ho dedotto che era di un anno
passato, comunque non è successo niente, con le tue ultime spiegazioni ho capito dove sbagliavo
nello script ho messo un altro InputBox, alla terza domanda ti chiede quante estrazioni indietro vuoi
fare la ricerca dell'altro ambo, io per default l'ho messo a 3, ma tu puoi cambiarlo a piacere


Ecco lo script salvo errori o dimenticanze

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,R1,R2,R3,P1,P2,P3,P4,P5,P6
   Dim A,B,C,D,K1,K2,Casi,Caso,E1,E2,Es2,Ind
   Dim Salvo50,Clp1,Abb1,Abb2,k
   Dim Num(5),Nu(5),Ambo1(2),Ambo2(2),Terno(3)
   Dim Ruo(2),Posta(2),Poste(3)
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10750)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,10)
   Ind = InputBox(" Quante estrazioni a ritroso vuoi cercare gli ambi? ",,3)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(6) & " Per Rossella 35 - Metodo Sulle Cinquine Pentagonali - Script Salvo50" & Space(6),1,,4,,3,,1
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If Distanza(A,B) = 18 Or Distanza(A,B) = 36 Then
                  k = CInt(Es - Ind )
                  For Es2 = Es  To k Step - 1
                     For R2 = 1 To 12
                        If R2 = 11 Then R2 = 12
                        If R2 <> R1 Then
                           For P3 = 1 To 4
                              For P4 = P3 + 1 To 5
                                 C = Estratto(Es2,R2,P3)
                                 D = Estratto(Es2,R2,P4)
                                 If(A <> C And B <> C And A <> D And B <> D) Then
                                    If(Distanza(A,C) = 18 Or Distanza(A,C) = 36) And(Distanza(B,C) = 18 Or Distanza(B,C) = 36) _
                                       And(Distanza(A,D) = 18 Or Distanza(A,D) = 36) And(Distanza(B,D) = 18 Or Distanza(B,D) = 36)Then '<<<<<
                                       Num(1) = A
                                       Nu(1) = A
                                       For K1 = 2 To 5
                                          Num(K1) = Fuori90(Num(K1 - 1) + 18)
                                          Nu(K1) = Num(K1)
                                       Next
                                       For K2 = 1 To 5
                                          If Num(K2) = A Or Num(K2) = B Or Num(K2) = C Or Num(K2) = D Then Num(K2) = 0
                                       Next
                                       OrdinaMatrice Nu,1
                                       OrdinaMatrice Num,- 1
                                       Abb1 = Fuori90(Num(1) * 2)
                                       Abb2 = Diametrale(Abb1)
                                       Ambo1(1) = Num(1) : Ambo1(2) = Abb1
                                       Ambo2(1) = Num(1) : Ambo2(2) = Abb2
                                       Terno(1) = Num(1) : Terno(2) = Abb1 : Terno(3) = Abb2
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       ColoreTesto 1
                                       Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                       ColoreTesto 2
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                       ColoreTesto 0
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es,R1,P5)
                                          If E1 = A Or E1 = B Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es2,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       Scrivi " Cinquina Pentagonale Completa ",1,0
                                       Scrivi StringaNumeri(Nu," ",True),1,0,,1
                                       Scrivi "  Il numero mancante è  ",1,0
                                       Scrivi Format2(Num(1)),1,,,2
                                       Scrivi
                                       Ruo(1) = R1 : Ruo(2) = R2
                                       ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp1
                                       ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp1
                                       ImpostaGiocata 3,Terno,Ruo,Poste,Clp1
                                       Gioca Es,1
                                    End If
                                 End If
                              Next
                           Next
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub