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
    martedì 02 settembre 2025
    Bari
    36
    17
    23
    80
    83
    Cagliari
    06
    17
    77
    59
    86
    Firenze
    74
    11
    43
    64
    62
    Genova
    43
    31
    55
    05
    78
    Milano
    86
    04
    34
    45
    59
    Napoli
    18
    69
    05
    30
    26
    Palermo
    20
    09
    76
    80
    55
    Roma
    89
    26
    57
    75
    46
    Torino
    17
    74
    35
    12
    54
    Venezia
    18
    34
    19
    40
    66
    Nazionale
    49
    14
    32
    19
    07
    Estrazione Simbolotto
    Palermo
    13
    19
    29
    01
    33
Indietro
Alto