Per Favore uno script

[Paki144]

Ciao a tutti il Forum
prego uno script per Favore agli
Esperti Programmatori.
provo a spiegare:
in qualsiasi ruota ricercare un ambo che abbia la cadenza uguale e sia di distanza “10”.
trovata la condizione calcoliamo
esempio: 11/02/2021 Venezia //.//.13.23.//
operiamo: con il numero maggiore dell’ambo trovato, 23 vertibile = 32 al risultato prendiamo i suoi “laterali”
e li sommiamo 31 + 32 + 33 = 96 – 90 = 6
poi sommiamo il 6 al numero non fatto vertibile “23”
23 + 6 = 29 ambata prima
operiamo: con il numero minore dell’ambo
trovato, 13 vertibile = 31 al risultato prendiamo i suoi “laterali”
e li sommiamo 30 + 31 + 32 = 93 – 90 = 3 sommiamo il 3 questa volta al numero fatto vertibile “31”
31 + 3 = 34 ambata seconda
Prima e Seconda ambata sulla ruota
dove si è trovata la condizione.
Grazie Forum
Saluti

 

[lotto_tom75]

Ciao a tutti il Forum
prego uno script per Favore agli
Esperti Programmatori.
provo a spiegare:
in qualsiasi ruota ricercare un ambo che abbia la cadenza uguale e sia di distanza “10”.
trovata la condizione calcoliamo
esempio: 11/02/2021 Venezia //.//.13.23.//
operiamo: con il numero maggiore dell’ambo trovato, 23 vertibile = 32 al risultato prendiamo i suoi “laterali”
e li sommiamo 31 + 32 + 33 = 96 – 90 = 6
poi sommiamo il 6 al numero non fatto vertibile “23”
23 + 6 = 29 ambata prima
operiamo: con il numero minore dell’ambo
trovato, 13 vertibile = 31 al risultato prendiamo i suoi “laterali”
e li sommiamo 30 + 31 + 32 = 93 – 90 = 3 sommiamo il 3 questa volta al numero fatto vertibile “31”
31 + 3 = 34 ambata seconda
Prima e Seconda ambata sulla ruota
dove si è trovata la condizione.
Grazie Forum
Saluti

Ciao paki144 , incuriosito dalla complessita metodologica del tuo sommativo e per esercizio ho voluto provare a creartelo al volo... Sicuramente ci saranno errori.. di metodologia o di programmazione... ad ogni modo, in attesa che top scripters come ilegend e salvo50, joe ecc... intervengano, guarda un pò se mi ci sono almeno avvicinato...

'Option Explicit
Sub Main
   'script x Metodo di paki144
   'In qualsiasi ruota ricercare un ambo che abbia la Cadenza uguale e sia di Distanza “10”.
   'trovata la condizione calcoliamo
   'esempio: 11/02/2021 Venezia //.//.13.23.//
   'operiamo: con il numero maggiore dell’ambo trovato, 23 vertibile = 32 al risultato prendiamo i suoi “laterali”
   'e li sommiamo 31 + 32 + 33 = 96 – 90 = 6
   'poi sommiamo il 6 al numero non fatto vertibile “23”
   '23 + 6 = 29 ambata prima
   'operiamo: con il numero minore dell’ambo
   'trovato, 13 vertibile = 31 al risultato prendiamo i suoi “laterali”
   'e li sommiamo 30 + 31 + 32 = 93 – 90 = 3 sommiamo il 3 questa volta al numero fatto vertibile “31”
   '31 + 3 = 34 ambata seconda
   'Prima e Seconda ambata sulla ruota
   'dove si è trovata la condizione.
   'Grazie Forum
   'Saluti
   'estrazionivolute = 1800
   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",90)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   For es = Ini To fin
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               'If A > 0 Then
               If Differenza(A,B) = 10 Then
                  Dim Valori
                  Valori = Array(0,A,B)
                  ambata1 = Fuori90(Vert(MassimoV(Valori)) + Vert(MassimoV(Valori)) + 1 + Vert(MassimoV(Valori)) - 1 + MassimoV(Valori))
                  'For 1 To UBound(Valori)
                  ambata2 = Fuori90(Vert(MinimoV(Valori,1)) + Vert(MinimoV(Valori,1)) + 1 + Vert(MinimoV(Valori,1)) - 1 + Vert(MinimoV(Valori,1)))
                  'Next
                  ReDim ambataingioco(2)
                  ambataingioco(1) = ambata1
                  ambataingioco(2) = ambata2
                  ReDim posta(1)
                  posta(1) = 1
                  ReDim ruota(1)
                  ruota(1) = R1
                  colpi = 9
                  ImpostaGiocata 1,ambataingioco,ruota,posta,colpi
                  Gioca es,1
                  'End If
               End If
               If ScriptInterrotto Then Exit For
            Next
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
Call  ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub

👋

 

[Paki144]

Grazie lotto_tom75
va benissimo
Grazie per il tempo che hai dedicato per fare lo script
Saluti

 

[GioRyuKen72]

Ciao Paki, Ciao Tom, ciao a tutti..
ecco un'altra versione dello script:

Anticipazione (Spoiler): Ambo in cadenza

Sub Main
   ' https://forum.lottoced.com/threads/per-favore-uno-script.2199034/
   ColoreTesto 0
   Scrivi "                            Metodo Ambo in Cadenza di Paki144-- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/per-favore-uno-script.2199034/",1
   Scrivi
   ColoreTesto 0
   Dim R1,Ruo(1),Nn(2),E1,E2,P1,P2,P5,P6
   Dim ambo1(2),PostaA(2),PostaABT(1),ambata1(2),AmbataPrima,AmbataSeconda
   Dim N1N2,Som1,Som2,VertibileN2,VertibileN1,Dist,Unito
   ex = (InputBox("Quante Estrazioni Controllo?","Estrazioni",50))
      ini = EstrazioneFin - ex
   fin = EstrazioneFin
    For es = ini To fin
      Messaggio es
      For R1 = 1 To 12
         If R1 = 11 Then r2 = 12
         For P1 = 1 To 4 : For P2 = P1 + 1 To 5
            Nn(1)= Estratto(es,R1,P1) : Nn(2) = Estratto(es,R1,P2)
            tipo= ""
            If P2 = P1 + 1 Then tipo = tipo & " UNITO "
            N1N2= Distanza(Nn(1),Nn(2))
            Dist = 10
            If N1N2= Dist Then
             OrdinaMatrice Nn,1 '13-23
            VertibileN2=Vert(Nn(2)) ' 32
            Som2=Fuori90(VertibileN2*3) '96=06
            AmbataPrima=Fuori90(Nn(2)+Som2) ' 23+6=29
            VertibileN1=Vert(Nn(1)) '31
            Som1=Fuori90(VertibileN1*3) '93= 3
            AmbataSeconda=Fuori90(VertibileN1+Som1)' 31+3=34
           ' _____________________________________
               Ruo(1) = R1
               PostaABT(1) = 2
               PostaA(2)=1
                k = 13
               ambata1(1) = AmbataPrima
               ambata1(2)=AmbataSeconda
               ImpostaGiocata 1,ambata1,Ruo,PostaABT,k,1
               ambo1(1) = AmbataPrima
               ambo1(2)=AmbataSeconda
               ImpostaGiocata 2,ambata1,Ruo,PostaA,k,2
                caso = 0
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               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 = Nn(1) Or E1 = Nn(2) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(70,"-"),1
               ColoreTesto 1
               Scrivi "CONDIZIONE RILEVATA: " & Format2(Nn(1)) & " - " & Format2(Nn(2)) & "  ambo in cadenza " & Format2(Cadenza(Nn(1))) & Format2(tipo) ,1,0
               ColoreTesto 0
               Scrivi
               Gioca es,True,,1
            End If
         Next
      Next
   Next
'Next
'End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " *****  Metodo Ambo in Cadenza di Paki144 -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub

Gio.

 

[Paki144]

Ciao GioRyuKen72 Grazie per l'altra versione dello script e per il tempo dedicato
nel salutarti GioRyuKen72 mando un saluto anche a lotto_tom75
Grazie
Saluti