Novità

Per Favore uno script

Paki144

Senior 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 vertibile23
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 vertibile31
31 + 3 = 34 ambata seconda
Prima e Seconda ambata sulla ruota
dove si è trovata la condizione.
Grazie Forum
Saluti
 
Ultima modifica:

lotto_tom75

Advanced Premium 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 vertibile23
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 vertibile31
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...

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:

GioRyuKen72

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

Paki144

Senior Member
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 06 maggio 2021
    Bari
    29
    63
    52
    60
    85
    Cagliari
    81
    01
    26
    41
    70
    Firenze
    12
    38
    33
    57
    36
    Genova
    29
    38
    79
    37
    66
    Milano
    78
    44
    32
    66
    75
    Napoli
    50
    43
    15
    29
    16
    Palermo
    72
    70
    05
    53
    50
    Roma
    01
    69
    57
    36
    47
    Torino
    26
    69
    63
    68
    42
    Venezia
    87
    71
    31
    79
    11
    Nazionale
    27
    18
    39
    61
    86
    Estrazione Simbolotto
    Milano
    19
    36
    15
    23
    16
Alto