Novità

Per Favore uno script

Paki144

Paki144

Super member
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
 
Ultima modifica:
Paki144 ha scritto:
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
Clicca per espandere...

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...

Codice: 
'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

👋:)
 
Ultima modifica:
Ciao Paki, Ciao Tom, ciao a tutti..
ecco un'altra versione dello script:
Codice: 
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.
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 20 dicembre 2025
    Bari
    40
    53
    79
    44
    62
    Cagliari
    48
    82
    88
    31
    36
    Firenze
    03
    06
    58
    02
    45
    Genova
    05
    66
    83
    58
    02
    Milano
    78
    63
    18
    36
    54
    Napoli
    34
    19
    76
    54
    90
    Palermo
    50
    75
    15
    14
    03
    Roma
    55
    77
    75
    85
    63
    Torino
    46
    61
    03
    85
    12
    Venezia
    44
    61
    23
    07
    88
    Nazionale
    67
    24
    68
    09
    41
    Estrazione Simbolotto
    Venezia
    11
    04
    17
    31
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto