scarfacetony
Senior Member
A chi interessa per fare script allego gemelli birbantelli di Badessa
Buona serata
Buona serata
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script
- Creatore Discussione scarfacetony
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
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:
scarfacetony
Senior Member
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
Advanced Member >PLATINUM PLUS<
Controlla cosi
' 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=10650
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)=abb2
am(2)=abb3
ImpostaGiocata 3,am,ruota,poste,k
am(1)=amb
am(2)=abb2
ImpostaGiocata 4,am,ruote,poste,k
am(1)=amb
am(2)=abb3
ImpostaGiocata 5,am,ruote,poste,k
am(1)=abb1
am(2)=abb2
ImpostaGiocata 6,am,ruote,poste,k
am(1)=abb1
am(2)=abb3
ImpostaGiocata 7,am,ruote,poste,k
cinq(1)=amb
cinq(2)=abb1
cinq(3)=abb2
cinq(4)=abb3
cinq(5)=abb4
ImpostaGiocata 8,cinq,ruote,postee,k
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
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=10650
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)=abb2
am(2)=abb3
ImpostaGiocata 3,am,ruota,poste,k
am(1)=amb
am(2)=abb2
ImpostaGiocata 4,am,ruote,poste,k
am(1)=amb
am(2)=abb3
ImpostaGiocata 5,am,ruote,poste,k
am(1)=abb1
am(2)=abb2
ImpostaGiocata 6,am,ruote,poste,k
am(1)=abb1
am(2)=abb3
ImpostaGiocata 7,am,ruote,poste,k
cinq(1)=amb
cinq(2)=abb1
cinq(3)=abb2
cinq(4)=abb3
cinq(5)=abb4
ImpostaGiocata 8,cinq,ruote,postee,k
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao DjNomade
Ciao DjNomade
Codice:
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
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 18 dicembre 2025Bari7248901452Cagliari1178874753Firenze5008327174Genova2018097607Milano1334680716Napoli7561501610Palermo3244381670Roma1367324469Torino4564493763Venezia8119307936Nazionale2185893577Estrazione Simbolotto
Venezia
3812342724
