Novità

Script

Ciao a Tutti

Codice:
Option Explicit
Sub Main
   Dim Caso,Casi,R1,R2,P1,P2,P3,P4,A,B,C,D
   Dim PP1,PP2,SomCD,DAB,DCD,D10Somcd,D10DCD
   Dim FIn,Es,Ini,Clp1,Clp2,EsClp1,X,E1,E2
   Dim Ambett1,Ambett2,Ambett3,Ambett4
   Dim Retnu1,Retnu2,Retnu3,Retnu4
   Dim Retvin1,Retvin2,Retvin3,Retvin4
   Dim Posta(2),Poste(4),Ruo2(2),Ruo3(3)
   Dim Ambo1(2),Ambo2(2),Quartina(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10500)'3721 primo esempio nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,10)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la quartina?",,10)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Poste(4) = 1
   For Es = Ini To FIn
      'If IsUltimaDelMese(Es) Then
      Messaggio Es & "                 " & TempoTrascorso
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               If A > 0 Then
                  B = Estratto(Es,R1,P2)
                  If Gemello(A)And Gemello(B) Then
                     DAB = Differenza(A,B)
                     For R2 = R1 + 1 To 10
                        For P3 = 1 To 4
                           For P4 = P3 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              If C > 0 Then
                                 D = Estratto(Es,R2,P4)
                                 If Gemello(C) And Gemello(D) Then
                                    DCD = Differenza(C,D)
                                    If DAB <> DCD Then
                                       SomCD = Fuori90(C + D)
                                       D10Somcd = DiametraleD(SomCD)
                                       D10DCD = DiametraleD(DCD)
                                       Ambo1(1) = DCD : Ambo1(2) = D10DCD
                                       Ambo2(1) = SomCD : Ambo2(2) = D10Somcd
                                       Quartina(1) = DCD : Quartina(2) = D10DCD
                                       Quartina(3) = SomCD : Quartina(4) = D10Somcd
                                       Ruo3(1) = R1 : Ruo3(2) = R2 : Ruo3(3) = TU_
                                       Ruo2(1) = R1 : Ruo2(2) = R2
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       ColoreTesto 1
                                       Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                       ColoreTesto 2
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                       ColoreTesto 0
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For PP1 = 1 To 5
                                          E1 = Estratto(Es,R1,PP1)
                                          If E1 = A Or E1 = B Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                       For PP2 = 1 To 5
                                          E2 = Estratto(Es,R2,PP2)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       Scrivi Space(23) & " Differenze diverse ",1,,,2
                                       Scrivi Space(20) & " Differenza tra " & Format2(A) & " e " & Format2(B) & " = ",1,0
                                       Scrivi Format2(DAB),1,,,2
                                       Scrivi Space(20) & " Differenza tra " & Format2(C) & " e " & Format2(D) & " = ",1,0
                                       Scrivi Format2(DCD),1,,,2
                                       Scrivi
                                       Scrivi Space(8) & " Differenza tra " & Format2(C) & " e " & Format2(D) & " = ",1,0
                                       Scrivi Format2(DCD) & " Diametrale in decina " & Format2(D10DCD),1
                                       Scrivi Space(8) & "      Somma  di " & Format2(C) & " e " & Format2(D) & " = ",1,0
                                       Scrivi Format2(SomCD) & " Diametrale in decina " & Format2(D10Somcd),1
                                       Scrivi
                                       ImpostaGiocata 1,Ambo1,Ruo2,Posta,Clp1
                                       ImpostaGiocata 2,Ambo2,Ruo2,Posta,Clp1
                                       ImpostaGiocata 3,Quartina,Ruo3,Poste,Clp2
                                       Gioca Es,,,1
                                       Scrivi Space(19) & "AMBETTI",1,,,2
                                       EsClp1 = Es + Clp1
                                       If EsClp1 > FIn Then EsClp1 = FIn
                                       For X = Es + 1 To EsClp1
                                          Ambett1 = VerificaAmbetto(Ambo1,R1,X,Retnu1,Retvin1)
                                          Ambett2 = VerificaAmbetto(Ambo2,R1,X,Retnu2,Retvin2)
                                          If Ambett1 > 0 Then
                                             Scrivi "Estrazione " &(X) &  " Ambetto su " & Retnu1,1,0
                                             Scrivi " Vincita di " & Retvin1,1
                                          End If
                                          If Ambett2 > 0 Then
                                             Scrivi "Estrazione " &(X) & " Ambetto su " & Retnu2,1,0
                                             Scrivi " Vincita di " & Retvin2,1
                                          End If
                                          Ambett3 = VerificaAmbetto(Ambo1,R2,X,Retnu3,Retvin3)
                                          Ambett4 = VerificaAmbetto(Ambo2,R2,X,Retnu4,Retvin4)
                                          If Ambett3 > 0 Then
                                             Scrivi "Estrazione " &(X) & " Ambetto su " & Retnu3,1,0
                                             Scrivi " Vincita di " & Retvin3,1
                                          End If
                                          If Ambett4 > 0 Then
                                             Scrivi "Estrazione " &(X) & " Ambetto su " & Retnu4,1,0
                                             Scrivi " Vincita di " & Retvin4,1
                                          End If
                                       Next
                                    End If
                                 End If
                              End If
                           Next
                        Next
                     Next
                  End If
               End If
            Next
         Next
      Next
      'End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 30 agosto 2025
    Bari
    85
    39
    37
    73
    79
    Cagliari
    73
    35
    51
    59
    10
    Firenze
    49
    44
    08
    68
    61
    Genova
    55
    05
    44
    42
    62
    Milano
    54
    79
    11
    78
    70
    Napoli
    23
    71
    09
    14
    49
    Palermo
    88
    07
    28
    30
    26
    Roma
    31
    84
    35
    48
    85
    Torino
    39
    48
    87
    16
    27
    Venezia
    56
    35
    87
    17
    73
    Nazionale
    53
    02
    90
    72
    66
    Estrazione Simbolotto
    Nazionale
    24
    15
    10
    03
    07
Indietro
Alto