Novità

una mano x un listato a gentile richiesta

tiberio1

Member
un grazie a chi vorra' dare il suo personale contributo
 

Allegati

  • richiesta1.jpg
    richiesta1.jpg
    104 KB · Visite: 36
  • richiesta2.jpg
    richiesta2.jpg
    151,2 KB · Visite: 31
un grazie a chi vorra' dare il suo personale contributo
Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,xX,X,yY,Y,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim DiBC,DiEF,Abb1,Abb2,Abb3
   Dim Ruo(2),Po1(1),Po2(2),Num(4)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9840))'6284 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Chiesto da Tiberio1, Titolo... Autore... Script Salvo50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            P2 = P1 + 1
            B = Estratto(Es,R1,P1)
            C = Estratto(Es,R1,P2)
            DiBC = Differenza(B,C)
            If pari(DiBC) Then
               For R2 = R1 + 1 To 10
                  For P3 = 1 To 4
                     P4 = P3 + 1
                     E = Estratto(Es,R2,P3)
                     F = Estratto(Es,R2,P4)
                     DiEF = Differenza(E,F)
                     If DiEF = DiBC Then
                        If B > 0 And E > 0 Then
                           xX =(B + C) : X = xX / 2
                           A = Diametrale(X)
                           If Cadenza(X) <> 0 Then
                           Ruo(1) = R1 : Ruo(2) = R2
                              Amba(1) = X
                              If SerieFreqTurbo(Es - 4,Es,Amba,Ruo,1) = 0 Then
                                 yY =(E + F) : Y = yY / 2
                                 D = Diametrale(Y)
                                 Abb1 = Fuori90(A + D)
                                 Abb2 = Fuori90((90 + Abb1) - 1)
                                 Abb3 = Fuori90(Abb1 + 1)
                                 'B---C
                                 '|   |
                                 'E---F
                                
                                 Num(1) = X : Num(2) = Abb1 : Num(3) = Abb2 : Num(4) = Abb3
                                 If SerieFreqTurbo(Es,Es,Num,Ruo,1) = 0 Then
                                    Ambo1(1) = X : Ambo1(2) = Abb1
                                    Ambo2(1) = X : Ambo2(2) = Abb2
                                    Ambo3(1) = X : Ambo3(2) = Abb3
                                    Caso = Caso + 1
                                    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 = B Or E1 = C Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Differenza Pari " & Format2(DiBC),1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P6 = 1 To 5
                                       E2 = Estratto(Es,R2,P6)
                                       If E2 = E Or E2 = F Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Differenza Pari " & Format2(DiEF),1
                                    Scrivi
                                    Scrivi Space(6) & Format2(B) & " + " & Format2(C) & " = " & Format2(xX) & " / 2 = " & Format2(X),1,0
                                    Scrivi Space(20) & Format2(E) & " + " & Format2(F) & " = " & Format2(yY) & " / 2 = " & Format2(Y),1
                                    Scrivi
                                    Scrivi Space(14) & Format2(A) & Space(42) & Format2(D),1
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(10) & Format2(B) & Space(6) & Format2(C) & Space(34) & Format2(E),1,0
                                    Scrivi Space(6) & Format2(F),1
                                    Scrivi Space(14) & Format2(X) & " <-Ambata " & Space(32) & Format2(Y),1
                                    Scrivi
                                    Scrivi Space(24) & Format2(A) & " + " & Format2(D) & " = " & Format2(Abb1) & " Abbinamento 1",1
                                    Scrivi Space(24) & Format2(Abb1) & " - " & Format2(01) & " = " & Format2(Abb2) & " Abbinamento 2",1
                                    Scrivi Space(24) & Format2(Abb1) & " + " & Format2(01) & " = " & Format2(Abb3) & " Abbinamento 3",1
                                    Scrivi
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                    ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                    ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                    ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                    Gioca Es
                                 End If
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto