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

 

[DjNomade]

Controlla cosi

Anticipazione (Spoiler): Polifemo by S.Badessa

' 12-09-2025

Scrivi "============================= POLIFEMO by BADESSA LOTTO",1

Scrivi String(70,"="),1
Sub main()
Dim posta(10)
Dim poste(5),postee(5)
Dim ruote(5),ruota(5)

Dim am(10),cinq(10)
posta(1)=1
posta(6)=1
posta(10)=1

poste(2)=1

postee(2)=1
postee(3)=1
postee(4)=0.5

casi=0
cont=0
k=13
fin=EstrazioneFin
ini=8705
For es=ini To fin



a=1 'numero spia


For r= 1 To 12
If r=11 Then r=12
If Posizione(es,r,a)=1 Then


amb=Fuori90(a+Estratto(es,r,5))
abb1=Diametrale(Estratto(es,r,5))
abb2=Vert(amb)
abb3=Vert(abb1)



cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r) & " " & StringaEstratti(es,r),1

ruota(1)=r
ruote(1)=r
ruote(2)=11 'si puo'aggiungere altre ruote



am(1)=amb
am(2)=abb1
ImpostaGiocata 1,am,ruota,posta,k
am(1)=amb
am(2)=abb1
ImpostaGiocata 2,am,ruote,poste,k
am(1)=amb
am(2)=abb2
ImpostaGiocata 3,am,ruote,poste,k
am(1)=amb
am(2)=abb3
ImpostaGiocata 4,am,ruote,poste,k
am(1)=abb1
am(2)=abb2
ImpostaGiocata 5,am,ruote,poste,k
am(1)=abb1
am(2)=abb3
ImpostaGiocata 6,am,ruote,poste,k


cinq(1)=amb
cinq(2)=abb1
cinq(3)=abb2
cinq(4)=abb3
cinq(5)=abb4

ImpostaGiocata 7,cinq,ruote,postee,k


Gioca es

End If

Next
Next
ScriviResoconto

End Sub

 

[salvo50]

Ciao a Tutti
Ciao DjNomade

Option Explicit
Sub Main
   Dim Caso,Casi,Es,R1,P1,P2,A,B
   Dim Fin,Ini,Clp,E1
   Dim Num1,Num2,Num3,Num4
   Dim Ambo1(2),Ambo2(2),Qua(4)
   Dim Posta(2),Pos15(10),Ruo1(1),Ruo2(2)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10650)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(18) & "Metodo Polifemo di Badessa - Script Salvo50" & Space(18),1,,4,,3,,1
   Pos15(6) = 1
   Pos15(10) = 1
   Posta(2) = 1
   ResetTimer
   For Es = Ini To Fin
      ' If IsUltimaDelMese(Es) Then
      Messaggio Es & "                 " & TempoTrascorso
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R1,5)
         If A = 1 Then
            Num1 = Fuori90(A + B)
            Num2 = Diametrale(B)
            Num3 = Vert(Num1)
            Num4 = Vert(Num2)
            Ambo1(1) = Num1 : Ambo1(2) = Num2
            Ambo2(1) = Num3 : Ambo2(2) = Num4
            Qua(1) = Num1 : Qua(2) = Num2 : Qua(3) = Num3 : Qua(4) = Num4
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"o") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P2 = 1 To 5
               E1 = Estratto(Es,R1,P2)
               If E1 = A Then ColoreTesto 2
               If E1 = B Then ColoreTesto 1
               If E1 <> A And E1 <> B Then ColoreTesto 0
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi
            Scrivi Space(9) & Format2(A) & " + " & Format2(B) & " = " & Format2(Num1) & "   1° Numero Ambo Principale",1
            Scrivi Space(9) & Format2(B) & " + 45 = " & Format2(Num2) & "   2° Numero Ambo Principale",1
            Scrivi " Vertibile di " & Format2(Num1) & " = " & Format2(Num3) & "   1° Numero Ambo Secondario",1
            Scrivi " Vertibile di " & Format2(Num2) & " = " & Format2(Num4) & "   2° Numero Ambo Secondario",1
            Scrivi
            Ruo1(1) = R1
            Ruo2(1) = R1
            Ruo2(2) = TT_
            ImpostaGiocata 1,Ambo1,Ruo1,Pos15,Clp
            ImpostaGiocata 2,Ambo1,Ruo2,Posta,Clp
            ImpostaGiocata 3,Ambo2,Ruo2,Posta,Clp
            ImpostaGiocata 4,Qua,Ruo2,Posta,Clp
            Gioca Es,,,1
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub