Chi riesce a fare lo script da un vecchio metodo?

Rossella35 · Ieri alle 21:59

salve, ho trovato un vecchio metodo, qualcuno riesce a fare questo script per spaziometria?

si controllano le ultime tre estrazioni e si deve trovare su due ruote, due coppie di numeri ( 2 ambi ) appartenenti alla stessa cinquina pentagonale (vedi lista sotto), il quinto non ancora sortito sara' il capogioco della nostra previsione.

esempio pratico:

estraz.del 28/5/11 su roma abbiamo avuto la coppia 86-50
estraz.del 31/5/11 su nazionale la coppia 32-68

l'elemento mancante era il 14

quindi ambata 14

1mo abbinamento il doppio dell'ambata quindi 28

2ndo il suo diametrale 73

prev.in gioco 14-28/14-73/14-28-73

in data 14 giungo sortito ambo secco 14-28 sulla nazionale

p.s.

vi ho detto di controllare solo le ultime 3 estrazioni perche' se lo fate su un numero piu' grosso non ci capite piu' niente ,ne usciranno a decine ,ciaoooo a tutti e buon divertimento

conservate questa tabella,sono le 18 cinquine pentagonali distanza 18 e della stessa figura...
1 19 37 55 73
2 20 38 56 74
3 21 39 57 75
4 22 40 58 76
5 23 41 59 77
6 24 42 60 78
7 25 43 61 79
8 26 44 62 80
9 27 45 63 81
10 28 46 64 82
11 29 47 65 83
12 30 48 66 84
13 31 49 67 85
14 32 50 68 86
15 33 51 69 87
16 34 52 70 88
17 35 53 71 89
18 36 54 72 90

grazie a chi mi aiuta

joe · Oggi alle 13:50

Ciao Rossella,

questo mioscript è orientato ed in grado di effettuare sia la ricerca

che di riprodurre, quanto da te esposto.

Tuttavia i casi sono molti e giocare tutto diventa forse troppo.

Dunque lo propongo così come è per la grande parte della ricerca

che è complicata e noiosa da farsi "ad occhio" sperando di fare cosa gradita.

Codice:

Option Explicit
Sub Main
'x Rossella35 Ricerca Ambo Pentaginale in CS Script v.0.0 By Joe
   Dim Ini,Fin,Es,R,S,E
   Dim P,Q,D
 
   Fin = 8384 'EstrazioneFin
   Ini = Fin - 2
 
   For Es = Ini To Fin
      For R = 1 To 12 : If R = 11 Then R = 12
         S = StringaEstratti(Es,R)
         E = Split("0." & S,".")
         OrdinaMatrice E,1
         For P = 1 To 4
            For Q = P + 1 To 5
               D = E(Q) - E(P)
               If D Mod 18 = 0 Then
                  Scrivi DataEstrazione(Es,,,"/") & " " & SiglaRuota(R) & " " & Format2(E(P)) & "." & Format2(E(Q)) & " ",0,0
                  Scrivi Format2(C(E(P))),1,,,2
               End If
            Next
         Next
      Next
   Next
End Sub
Function C(X)
   Do While X >= 18
      X = X - 18
   Loop
   C = X
End Function

Rossella35 · Oggi alle 14:37

joe ha scritto:
Ciao Rossella,

questo mioscript è orientato ed in grado di effettuare sia la ricerca

che di riprodurre, quanto da te esposto.

Tuttavia i casi sono molti e giocare tutto diventa forse troppo.

Dunque lo propongo così come è per la grande parte della ricerca

che è complicata e noiosa da farsi "ad occhio" sperando di fare cosa gradita.

Codice:

Option Explicit Sub Main 'x Rossella35 Ricerca Ambo Pentaginale in CS Script v.0.0 By Joe Dim Ini,Fin,Es,R,S,E Dim P,Q,D Fin = 8384 'EstrazioneFin Ini = Fin - 2 For Es = Ini To Fin For R = 1 To 12 : If R = 11 Then R = 12 S = StringaEstratti(Es,R) E = Split("0." & S,".") OrdinaMatrice E,1 For P = 1 To 4 For Q = P + 1 To 5 D = E(Q) - E(P) If D Mod 18 = 0 Then Scrivi DataEstrazione(Es,,,"/") & " " & SiglaRuota(R) & " " & Format2(E(P)) & "." & Format2(E(Q)) & " ",0,0 Scrivi Format2(C(E(P))),1,,,2 End If Next Next Next Next End Sub Function C(X) Do While X >= 18 X = X - 18 Loop C = X End Function

grazie , ma questo script evidenzia solo dove si trovano i numeri, non fa i calcoli e neppure mette i numeri da giocare....

joe · Oggi alle 15:12

Rossella35 ha scritto:
grazie , ma questo script evidenzia solo dove si trovano i numeri, non fa i calcoli e neppure mette i numeri da giocare....

Si è vero.

Formare la giocata è semplice.

Ma limitare i casi in modo da non avere

troppe giocate. ( Ovvero come scrivi tu, da non capirci più nulla)

richiede regole precise.

Lo script le applicherà con rigidità appena saranno codificate.

DATA · Oggi alle 16:43

cio joe ,ciao rossella

DATA_ script

DATA · Oggi alle 16:57

Option Explicit

Const SOLO_AMBI_ESATTI = True
Const RUOTE_DIVERSE = True

Sub Main

Dim aRuote
Dim aCin
Dim aTitoli
Dim aRiga

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

Dim cnt
Dim n1
Dim n2
Dim nMin
Dim nMax

Dim h
Dim h1
Dim h2
Dim idRiga

Dim capogioco
Dim abb1
Dim abb2

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

Dim trovato

Call CaricaRuote(aRuote)
Call CaricaCinquine(aCin)

Fine = EstrazioneFin
Inizio = Fine - 2

If Inizio < EstrazioneIni Then
Inizio = EstrazioneIni
End If

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

h = 0

For es = Inizio To Fine

For iRuota = 1 To UBound(aRuote)

Ruota = aRuote(iRuota)

For idCin = 1 To 18

cnt = 0
n1 = 0
n2 = 0

For p = 1 To 5

num = Estratto(es, Ruota, p)

If NumeroInCinquina(num, aCin, idCin) Then

cnt = cnt + 1

If cnt = 1 Then
n1 = num
ElseIf cnt = 2 Then
n2 = num
End If

End If

Next

If SOLO_AMBI_ESATTI Then

If cnt = 2 Then

Call OrdinaCoppia(n1, n2, nMin, nMax)

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

End If

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 - controllo ultime 3 estrazioni", 1
Scrivi "Range controllato: " & GetInfoEstrazione(Inizio) & " -> " & GetInfoEstrazione(Fine), 1
Scrivi

idRiga = 0
trovato = False

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(aCin, aHCin(h1), aHN1(h1), aHN2(h1), aHN1(h2), aHN2(h2))

If capogioco > 0 Then

abb1 = Doppio90(capogioco)
abb2 = Diametrale(abb1)

idRiga = idRiga + 1
trovato = True

ReDim aRiga(14)

aRiga(1) = StringaCinquina(aCin, 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(abb1)
aRiga(10) = FormatNum(abb2)
aRiga(11) = FormatNum(capogioco) & "-" & FormatNum(abb1)
aRiga(12) = FormatNum(capogioco) & "-" & FormatNum(abb2)
aRiga(13) = FormatNum(capogioco) & "-" & FormatNum(abb1) & "-" & FormatNum(abb2)
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_
aRuote(11) = NZ_

End Sub

Sub CaricaCinquine(ByRef aCin)

ReDim aCin(18, 5)

aCin(1, 1) = 1 : aCin(1, 2) = 19 : aCin(1, 3) = 37 : aCin(1, 4) = 55 : aCin(1, 5) = 73
aCin(2, 1) = 2 : aCin(2, 2) = 20 : aCin(2, 3) = 38 : aCin(2, 4) = 56 : aCin(2, 5) = 74
aCin(3, 1) = 3 : aCin(3, 2) = 21 : aCin(3, 3) = 39 : aCin(3, 4) = 57 : aCin(3, 5) = 75
aCin(4, 1) = 4 : aCin(4, 2) = 22 : aCin(4, 3) = 40 : aCin(4, 4) = 58 : aCin(4, 5) = 76
aCin(5, 1) = 5 : aCin(5, 2) = 23 : aCin(5, 3) = 41 : aCin(5, 4) = 59 : aCin(5, 5) = 77
aCin(6, 1) = 6 : aCin(6, 2) = 24 : aCin(6, 3) = 42 : aCin(6, 4) = 60 : aCin(6, 5) = 78
aCin(7, 1) = 7 : aCin(7, 2) = 25 : aCin(7, 3) = 43 : aCin(7, 4) = 61 : aCin(7, 5) = 79
aCin(8, 1) = 8 : aCin(8, 2) = 26 : aCin(8, 3) = 44 : aCin(8, 4) = 62 : aCin(8, 5) = 80
aCin(9, 1) = 9 : aCin(9, 2) = 27 : aCin(9, 3) = 45 : aCin(9, 4) = 63 : aCin(9, 5) = 81
aCin(10, 1) = 10 : aCin(10, 2) = 28 : aCin(10, 3) = 46 : aCin(10, 4) = 64 : aCin(10, 5) = 82
aCin(11, 1) = 11 : aCin(11, 2) = 29 : aCin(11, 3) = 47 : aCin(11, 4) = 65 : aCin(11, 5) = 83
aCin(12, 1) = 12 : aCin(12, 2) = 30 : aCin(12, 3) = 48 : aCin(12, 4) = 66 : aCin(12, 5) = 84
aCin(13, 1) = 13 : aCin(13, 2) = 31 : aCin(13, 3) = 49 : aCin(13, 4) = 67 : aCin(13, 5) = 85
aCin(14, 1) = 14 : aCin(14, 2) = 32 : aCin(14, 3) = 50 : aCin(14, 4) = 68 : aCin(14, 5) = 86
aCin(15, 1) = 15 : aCin(15, 2) = 33 : aCin(15, 3) = 51 : aCin(15, 4) = 69 : aCin(15, 5) = 87
aCin(16, 1) = 16 : aCin(16, 2) = 34 : aCin(16, 3) = 52 : aCin(16, 4) = 70 : aCin(16, 5) = 88
aCin(17, 1) = 17 : aCin(17, 2) = 35 : aCin(17, 3) = 53 : aCin(17, 4) = 71 : aCin(17, 5) = 89
aCin(18, 1) = 18 : aCin(18, 2) = 36 : aCin(18, 3) = 54 : aCin(18, 4) = 72 : aCin(18, 5) = 90

End Sub

Function NumeroInCinquina(num, aCin, idCin)

Dim i

NumeroInCinquina = False

For i = 1 To 5
If num = aCin(idCin, i) Then
NumeroInCinquina = True
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

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

Dim i
Dim Val

NumeroMancante = 0

For i = 1 To 5

Val = aCin(idCin, i)

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

Next

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 Diametrale(Val)

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

End Function

Function FormatNum(Val)

FormatNum = Format2(Val)

End Function

Function StringaCinquina(aCin, idCin)

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

End Function

InRicordo · 22 minuti fa

Scusate l'intromissione. Incuriosito dal metodo, sono sempre alla ricerca di metodi buoni, pessimi, non ha importanza.
Ho chiesto alla AI di farmi una macro seguendo le indicazioni di Rossella35.
Ho anche chiesto di fare un controllo sui risultati nelle 9 estrazioni successive al pronostico.
Se la AI abbia seguito scrupolosamente, oppure no, le indicazioni, travalica le mie capacità di comprensione.
Vi metto un po' di risultati compreso le ultimissime estrazioni. Riuscite a capire se sono corrette o la AI ha capito ancora meno di me?

DATA · 9 minuti fa

immagine

Cerca

Cerca

Chi riesce a fare lo script da un vecchio metodo?

Rossella35

Junior Member

joe

Advanced Member >PLATINUM PLUS<

Rossella35

Junior Member

joe

Advanced Member >PLATINUM PLUS<

DATA

Member

DATA

Member

InRicordo

Advanced Member >PLATINUM<

DATA

Member

Allegati

Ultima estrazione Lotto

Ultimi Messaggi