Per Chicco3

[salvo50]

Metto qua lo script che hai chiesto in - Script su Metodi Antichi e di Grandi Autori - perchè nel limite del possibile vorrei continuare ad attenermi al titolo.
Dimmi se ci sono errori.

 'Chiesto da Chicco3
'uno script che va a cercare sul quadro estrazionale la Distanza 1-10 e 30
'sia In orizzontale che In verticale; ti faccio un esempio data 26.5.2018
'su firenze c'e l'estratto 3-4 e su Genova l'estratto 5 quindi distanza 1.
'Oppure va bene anche in orizzontale o verticale ci sia una distanza 30 e
'l'altra 10 va bene lo stesso l'importante che rientri nei paramentri di
'quelle distanze cioè 1-10 e 30 in questo ultimo caso magari ti faccio un'altro
'esempio:- Estraz. del 24.5.2018 BA 57-47 distaz.10, mentre sulla ruota di
'CA estratto 17 dist.trà 17 e 47=30 cosi va bene lo stesso in quanto da un
'lato si viene a formare una terzina simmetrica.Ovviamente da un lato in
'isotopia, non ha importanza se le ruote sono consecutive o no. Se possibile
'si puo segnalare quando trova su ruote consecutive.
'Prima ruota 2 estratti, seconda ruota 1 estratto.
'Script by Salvo50
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,S,Ok
   Dim A,B,C,AB,AC,BC,E1,E2,P4,P5,Casi
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Casi = 0
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               AB = Distanza(A,B)
               If AB = 1 Or AB = 10 Or AB = 30 Then
                  For R2 = R1 + 1 To 10
                     'If R2 = 11 Then R2 = 12
                     For P3 = 1 To 5
                        C = Estratto(Es,R2,P3)
                        If C <> A And C <> B Then
                           AC = Distanza(A,C) : BC = Distanza(B,C)
                           Ok = 0
                           If AC = 1 Or AC = 10 Or AC = 30 Then S = AC : Ok = 1
                           If BC = 1 Or BC = 10 Or BC = 30 Then S = BC : Ok = 1
                           If Ok = 1 Then
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(60,"x") & " Caso " & FormattaStringa(Casi,"0000")
                              ColoreTesto 0
                              If R2 - R1 = 1 Then
                                 ColoreTesto 2
                                 Scrivi Space(20) & "RUOTE CONSECITIVE"
                                 ColoreTesto 0
                              End If
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                              For P4 = 1 To 5
                                 E1 = Estratto(Es,R1,P4)
                                 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(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                              For P5 = 1 To 5
                                 E2 = Estratto(Es,R2,P5)
                                 If E2 = C Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                              Scrivi Space(3) & Format2(A) & Space(17) & Format2(AB) & Space(19) & Format2(S),1
                              Scrivi Space(3) & Format2(B),1
                              Scrivi Space(3) & Format2(C),1
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub

 

[chicco3]

Ciao Salvo sei stato velocissimo lo script va bene. Ho dimenticato di dirti se a parte come le ruote consecutive la ricerca sia estesa anche sulle terzine simmetriche in quanto mi sono accorto che in data 19.5.18 non vi è la terzina simmetrica di GE E NA 27-57 E 87, quest'ultime per me sono molto importanti.Il resto va bene grazie e scusa della dimenticanza.Comunque puoi farlo con tuo comodo intanto spulcio questo che mi hai fatto grazie di nuovo ciao
chicco

 

[salvo50]

Ciao a Tutti

Mi sono stupito del fatto che non c'è la terzina simmetrica 27-57-87 perchè le 2 distanze sono 30 è 30 quindi dovrebbe esserci per forza, perciò sono andato a controllare e ho visto che 87 è nella prima ruota e 27 e 57 nella seconda ruota, negli esempi che mi hai fatto, la prima ruota ha 2 estratti e la seconda ruota un estratto, ed io ho impostato lo script con questo criterio, quindi mancheranno tutte quelle combinazioni dove la prima ruota ha un estratto e la seconda ruota 2 estratti, se per te è lo stesso a breve ti faccio un altro script che vede solo le estrazioni dove la prima ruota ha un estratto e la seconda ruota 2 estratti perchè per me è più facile devo leggermente modificare lo script già fatto invece se devo unire le due cose è un tantino più difficile.

 

[salvo50]

Altro script, con la prima ruota un estratto e la seconda ruota 2 estratti

 'Chiesto da Chicco3
'uno script che va a cercare sul quadro estrazionale la Distanza 1-10 e 30
'sia In orizzontale che In verticale; ti faccio un esempio data 26.5.2018
'su firenze c'e l'estratto 3-4 e su Genova l'estratto 5 quindi distanza 1.
'Oppure va bene anche in orizzontale o verticale ci sia una distanza 30 e
'l'altra 10 va bene lo stesso l'importante che rientri nei paramentri di
'quelle distanze cioè 1-10 e 30 in questo ultimo caso magari ti faccio un'altro
'esempio:- Estraz. del 24.5.2018 BA 57-47 distaz.10, mentre sulla ruota di
'CA estratto 17 dist.trà 17 e 47=30 cosi va bene lo stesso in quanto da un
'lato si viene a formare una terzina simmetrica.Ovviamente da un lato in
'isotopia, non ha importanza se le ruote sono consecutive o no. Se possibile
'si puo segnalare quando trova su ruote consecutive.
'Prima ruota un estratto, seconda ruota 2 estratti.
'Script by Salvo50
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,S,Ok
   Dim A,B,C,AB,AC,BC,E1,E2,P4,P5,Casi
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Casi = 0
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 9
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 10
               For P2 = 1 To 4
                  For P3 = P2 + 1 To 5
                     B = Estratto(Es,R2,P2)
                     C = Estratto(Es,R2,P3)
                     If A <> B And A <> C Then
                        AB = Distanza(A,B) : AC = Distanza(A,C) : BC = Distanza(B,C)
                        Ok = 0
                        If BC = 1 Or BC = 10 Or BC = 30 Then
                           If AB = 1 Or AB = 10 Or AB = 30 Then S = AB : Ok = 1
                           If AC = 1 Or AC = 10 Or AC = 30 Then S = AC : Ok = 1
                           If Ok = 1 Then
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(60,"x") & " Caso " & FormattaStringa(Casi,"0000")
                              ColoreTesto 0
                              If R2 - R1 = 1 Then
                                 ColoreTesto 2
                                 Scrivi Space(20) & "RUOTE CONSECITIVE"
                                 ColoreTesto 0
                              End If
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                              For P4 = 1 To 5
                                 E1 = Estratto(Es,R1,P4)
                                 If E1 = A Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                              For P5 = 1 To 5
                                 E2 = Estratto(Es,R2,P5)
                                 If E2 = B Or E2 = C Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                              Scrivi Space(3) & Format2(A) & Space(17) & Format2(BC) & Space(19) & Format2(S),1
                              Scrivi Space(3) & Format2(B),1
                              Scrivi Space(3) & Format2(C),1
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub

 

[gabriella tedde]

ciao chicco io nn sono pratica x questi lavori ma mi piacerebbe sapere come si applica un listato nel pc in modo che mi dia in automatico chio' che si gioca nei diversi metodi se uoi e vuoi mi aiuti grazie buona serata

 

[chicco3]

Ciao Salvo ho provato lo script va quasi bene poi li scelgo io. Lo so E' molto difficile fargli cercare certi numeri adesso li uso tutti e due gli script e poi vedremo; per quanto riguarda la ricerca che ti ho fatto gli esempi non c'entra niente un numero sopra e due sotto o viceversa l'importante che in certe situazioni per avere delle informazioni forti per poter giocare determinati numeri ci siano ruote consecutive e un quadrato in isotopia come l'esempio del 19.5.2018. Comunque grazie sei stato gentilissimo. Ti saluto con stima
Chicco

 

[chicco3]

Ciao Gabriella da quello che capisco che tu scrivi vuoi sapere come far girare lo script in un programma?