Script

[scarfacetony]

A chi interessa per fare script allego gemelli birbantelli di Badessa
Buona serata

 

[salvo50]

Ciao a Tutti

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

 

[scarfacetony]

Buonasera a tutti,per chi vuole fare uno script,metodo di Badessa,dice funziona....dice...

POLIFEMO IL METODO OMAGGIO

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com