Novità

x Salvo

C

chicco3

Advanced Member
Rudi scusa devo toglierla la riga delle cadenze, devo farlo a aprte quello delle figure giusto quindi deve venire un'altro listato giusto confermami.
 
rudivall

rudivall

Advanced Member >PLATINUM<
si Chicco sulla riga delle cadenze metti ' (l'apice) e sotto scrivi la nuova in riga in figura cosi all'occorrenza inverti l'apice e lo script ha le due funzioni .
 
C

chicco3

Advanced Member
grazie rudi fatto va benissimo adesso lo controllo con le convergenze cosa viene fuori grazie alla prossima Ciao
Chicco
 
C

chicco3

Advanced Member
A no vero non c'è la funzione gioca quindi convergenze nisba.Lo faremo a vista in attesa che salvo possa farci il miracolo ahhh
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Fatto, spero non ci siano errori

Codice: 
 'PROGETTO - Proposto da Chicco3 -  N3
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'Aggiunto modifica proposta da Rudival, sommare il maggiore con il medio
'ed il minore con il medio e giocarli per ambata per 9 colpi
'SCRIPT BY SALVO50 con la collaborazione per il 90% di Magia
Option Explicit
Dim R1,R2,Es
Sub Main
   Dim FIn,Esq,Col,Esqcol
   Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,CA,CB,CC,CD
   FIn = EstrazioneFin : Call ScegliRange(Esq,Col,9400,FIn)
   Casi = 00 : Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol : Call Messaggio(Es) : Call AvanzamentoElab(Esq,Esqcol,Es)
      Caso = 00
      For R1 = 01 To 10 : R2 = R1 + 01
         If R2 = 11 Then R2 = 12
         For P1 = 01 To 04 : P2 = P1 + 01
            A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
            If A > 0 And B > 0 And C > 0 And D > 0 Then
               CA = Cadenza(A) : CB = Cadenza(B) : CC = Cadenza(C) : CD = Cadenza(D)
               '
               Call AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
               Call AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
               Call AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
               Call AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
               '
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Sub AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
   If CA = CB And CA = CC Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,C) : Call aMedio(ANum)
   End If
End Sub
Sub AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
   If CA = CB And CA = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,D) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
   If CA = CC And CA = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,C,D) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
   If CB = CC And CB = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,B,C,D) : Call aMedio(ANum)
   End If
End Sub
Function aMedio(ANum)
   Call OrdinaMatriceTurbo(ANum,01)
   Call Scrivi("Numero MINORE   : " & ANum(01),True)
   Call Scrivi("Numero MEDIO    : " & ANum(02),True)
   Call Scrivi("Numero MAGGIORE : " & ANum(03),True)
   Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
   Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
   Call Scrivi("MAGGIORE + MEDIO  : " & MaxMed,True)
   Call Scrivi("MEDIO + MINORE    : " & MinMed,True)
   Dim Amb(2) : Amb(1) = MaxMed : Amb(2) = MinMed
   Dim poste(2) : poste(1) = 1
   Dim Ruo(2) : Ruo(1) = R1 : Ruo(2) = R2
   ImpostaGiocata 1,Amb,Ruo,poste,9
   Gioca Es
End Function
 
Ultima modifica:
rudivall

rudivall

Advanced Member >PLATINUM<
Grazie grande Salvo ...perfetto.....Chicco ho provato ora e funziona bene....non saprei cosa consigliarti.....
 
C

chicco3

Advanced Member
Ciao Salvo nell'ultimo listato è possibile aggiungere anche la ricerca delle figure cosi si va meglio a fare le convergenze in spaziometria. Io la modifica lo fatta come dice rudival ma nelle convergenze le da separate. Quando hai tempo ovvio intanto spulciamo questo grazie di nuovo Salvo una buona serata
chicco
 
rudivall

rudivall

Advanced Member >PLATINUM<
Chicco visto ora si penso che così vada bene, controlla se trovi due previsioni in corso sulle stesse ruote e quanti colpi hanno entrambe, ne ho una in corso con 9 e 90 sulle ruote di Napoli e Palermo la prima è arrivata a undici colpi, la seconda è a due colpi penso che presto almeno uno dei dei cada....
Cattura.JPG
 
rudivall

rudivall

Advanced Member >PLATINUM<
Chicco fai due listati separati uno in figura e uno in cadenza poi per vedere le previsioni in corso e le convergenze li esegui entrambi nel programma convergenze.
 
C

chicco3

Advanced Member
Ciao rudivall a me alla 9485 non è uguale non mi esce 9 e 90 con il numero maggiore e minore ecc. a me con il calcolo a mano il 9 e 90 viene in data 12.6.2018 a NA PA dalla tripla figurale con l'elemento mancante della terzina simmetrica del 45. come mai? fammi sapere
 
C

chicco3

Advanced Member
Ciao Salvo se non ti scoccia quando hai tempo puoi fare una modifica questo listato ti faccio un esempio data 12.6.18 NA-PA rilevato fig.6 il quarto nr.45 appartiene alla terzina simmetrica 15-45-75, dovrebbe fare questo calcolo 45+30=75+30=105-90=15 poi si prende il 75+15=90 e il suo vertibile 9 si mette in gioco su NA-PA con le relative giocate x ambata e ambo. Grazie e fammi sapere quando puoi
Chicco


Codice: 
 'PROGETTO - Proposto da Chicco3 -  N3
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'Aggiunto modifica proposta da Rudival, sommare il maggiore con il medio
'ed il minore con il medio e giocarli per ambata per 9 colpi
'SCRIPT BY SALVO50
Option Explicit
Dim R1,R2,Es
Sub Main
   Dim FIn,Esq,Col,Esqcol
   Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,CA,CB,CC,CD
   FIn = EstrazioneFin : Call ScegliRange(Esq,Col,9400,FIn)
   Casi = 00 : Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol : Call Messaggio(Es) : Call AvanzamentoElab(Esq,Esqcol,Es)
      Caso = 00
      For R1 = 01 To 10 : R2 = R1 + 01
         If R2 = 11 Then R2 = 12
         For P1 = 01 To 04 : P2 = P1 + 01
            A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
            If A > 0 And B > 0 And C > 0 And D > 0 Then
               CA = Cadenza(A) : CB = Cadenza(B) : CC = Cadenza(C) : CD = Cadenza(D)

               CA = Figura(A) : CB = Figura(B) : CC = Figura(C) : CD = Figura(D)
               '
               Call AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
               Call AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
               Call AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
               Call AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
               '
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Sub AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
   If CA = CB And CA = CC Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,C) : Call aMedio(ANum)
   End If
End Sub
Sub AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
   If CA = CB And CA = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,D) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
   If CA = CC And CA = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,C,D) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
   If CB = CC And CB = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,B,C,D) : Call aMedio(ANum)
   End If
End Sub
Function aMedio(ANum)
   Call OrdinaMatriceTurbo(ANum,01)
   Call Scrivi("Numero MINORE   : " & ANum(01),True)
   Call Scrivi("Numero MEDIO    : " & ANum(02),True)
   Call Scrivi("Numero MAGGIORE : " & ANum(03),True)
   Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
   Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
   Call Scrivi("MAGGIORE + MEDIO  : " & MaxMed,True)
   Call Scrivi("MEDIO + MINORE    : " & MinMed,True)
   Dim Amb(2) : Amb(1) = MaxMed : Amb(2) = MinMed
   Dim poste(2) : poste(1) = 1
   Dim Ruo(2) : Ruo(1) = R1 : Ruo(2) = R2
   ImpostaGiocata 1,Amb,Ruo,poste,9
   Gioca Es
End Function
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Come ha già spiegato tantissime volte Mike58, fare modifiche in uno script strutturato in un certo modo, non sempre è possibile fare delle modifiche, volendo si possono fare ma si scombussola tutto il sistema, questo script è gia complicato, Magia ha dovuto dividerlo in quattro parti.

Appena posso, tempo permettendo, dò uno sguardo più approfondito e vedrò cosa posso fare, ma sarebbe preferibile da parte mia farne uno nuovo.
 
C

chicco3

Advanced Member
Ciao Salvo io ti ho messo quello di listato per farti vedere solo la ricerca sulle figure. Tu dopo fallo come vuoi. Per abbreviarti i calcoli con l'esempio sopra invece di fare +30 puoi fare anche il 4 numero e cioè 45 in questo caso x 2 la somma che esce è sempre uguale e il suo vertibile. Vedi tu io confido in te ciao buona giornata
 
rudivall

rudivall

Advanced Member >PLATINUM<
Ciao Chicco buona giornata, questo script della triade figurale sono riuscito a farlo io adattando altro script, vedi se ti va bene....
Sub Main()
Dim amb(6),lg1(4),lg2(4)
Dim ruote(3),ruota(2)
Dim posta(5),poste(4),posted(10)
posta(1) = 1
casi = 0
ColoreTesto 2
Scrivi "TRIADE FIGURALE"
ColoreTesto 0
rs = 13 'InputBox("Quante estrazioni vuoi controllare?",,13)
fin = EstrazioneFin
ini = fin - rs
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p = 1 To 5
For p1 = p + 1 To 5
a = Format2(Estratto(es,r,p)) : b = Format2(Estratto(es,r,p1))
fg1 = Figura(a):fg2 = Figura(b)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
c = Format2(Estratto(es,r1,p)):d = Format2(Estratto(es,r1,p1))
fg3 = Figura(c):fg4 = Figura(d)
If fg1 = fg3 And(fg2 = fg1 Or fg4 = fg3) Or fg2 = fg4 And(fg2 = fg1 Or fg4 = fg3) Then
If fg1 = fg3 And fg2 = fg1 Then ne = d : n1 = b : n2 = a : n3 = c
If fg1 = fg3 And fg4 = fg3 Then ne = b : n1 = d : n2 = a : n3 = c
If fg2 = fg4 And fg2 = fg1 Then ne = c : n1 = a : n2 = b : n3 = d
If fg2 = fg4 And fg4 = fg3 Then ne = a : n1 = c : n2 = b : n3 = d
ni = Fuori90(ne + 30)
na = Fuori90(ni + 30)
no = Fuori90(ni + na)
mo = Fuori90(no + Figura(n1))
'Previsione
amb(1) = no '1° Ambata
amb(2) = Vert(no) ' 2° Ambata
casi = casi + 1
Scrivi String(87,"="),1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " " & " [ " &(es) & " ]ª " & Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & _
" " & " * [ " & Format2(a) & " " & Format2(b) & " ]" & " Pos." & p & "^ " & p1 & "^ Fig. " & fg1 & "-" & fg2,1
Scrivi DataEstrazione(es,1) & " " & " [ " &(es) & " ]ª " & Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & _
" " & " * [ " & Format2(c) & " " & Format2(d) & " ]" & " Pos." & p & "^ " & p1 & "^ Fig. " & fg3 & "-" & fg4,1
ColoreTesto 0
ColoreTesto 2
Scrivi "--------------------------------------------- Ambata : " & amb(1) & " " & amb(2),1
ColoreTesto 0
ColoreTesto 2
Scrivi "--------------------------------------------> L'Intruso = " & Format2(ne) & " Num. triade figura - " & Format2(Figura(n1)),1
ColoreTesto 0
Scrivi String(71,"-") & "Previsione n° " & casi,1
ColoreTesto 0
Scrivi
Scrivi ne
Scrivi ni
Scrivi na
Scrivi no
ruota(1) = r '
ruota(2) = r1
ImpostaGiocata 1,amb,ruota,posta,13,1
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
 

Allegati

  • Triade figurale.txt
    3,2 KB · Visite: 1
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto