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 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto