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
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto