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 18 aprile 2026
    Bari
    42
    44
    87
    52
    39
    Cagliari
    20
    58
    64
    90
    31
    Firenze
    37
    23
    45
    36
    62
    Genova
    34
    11
    75
    81
    10
    Milano
    46
    44
    71
    59
    85
    Napoli
    69
    24
    75
    86
    20
    Palermo
    85
    60
    81
    28
    09
    Roma
    56
    71
    06
    31
    49
    Torino
    05
    15
    32
    31
    82
    Venezia
    01
    32
    27
    12
    50
    Nazionale
    59
    06
    77
    09
    18
    Estrazione Simbolotto
    Genova
    34
    30
    04
    45
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto