scarfacetony
Senior Member
Buonasera a tutti in allegato c'è il metodo che penso qualcuno bravo,essendo io meno di un principiante,possa fare
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
scarfacetony
Senior Member
Buongiorno,vedo di fare diversamente,e' un pdf dice che è troppo grande
scarfacetony
Senior Member
Penso vada bene adesso,era di 3,5 mb non me lo faceva caricare
scarfacetony
Senior Member
Allora? Si sa...
DjNomade
Advanced Member >PLATINUM PLUS<
Piu o meno dovrebbe essere cosi
Codice:
'https://www.youtube.com/watch?v=6MoV2eAHPAk
'08-7-2024
ColoreTesto 1 :Scrivi "================ Ho'oponopono - IL METODO con il 90 by Badessa Lotto ================",1
Scrivi
Sub Main()
Dim am(5),ab(5),quartina(5),ruote(12),ruotee(12),posta(5),poste(5),postee(5),am1(4),am2(4)
posta(1) = 1
'posta(2) = 1
poste(2) = 1
postee(2) = 1: postee(3) = 1:
k = 13
For es = EstrazioneFin-186 To EstrazioneFin
Messaggio CStr(EstrazioneFin - es)
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p2 = 1 To 5
b = Estratto(es,r2,p1)
If ( p1 = p2 And ((a=9 Or a=90)And (b=9 Or b=90)) ) Then
a1 =Abs(Estratto(es,r1,2)-Estratto(es,r1,3))
a2= Vert(a1)
a3=9
a4=90
cont = cont + 1
Scrivi
ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & "" & _
Left(NomeRuota(r1),3) & "" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(3) & _
"" & Format2(a) & "" & Space(3) &"" ,1
Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & _
"" & Left(NomeRuota(r2),3) & "" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(3) & _
"" & Format2(b) & ""& Space(3) &"",1
Scrivi
ColoreTesto 2
If Distanza(r1,r2)=1 Or ((r1=1 And r2=12)Or(r1=12 And r2=1)) Then Scrivi " > RUOTE CONSECUTIVE ",1
If Distanza(r1,r2)=5 And r1<12 And r2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
If (r1+r2)=11 Then Scrivi " > RUOTE GEMELLARI ",1
ColoreTesto 0
ruotee(1) = r1 :ruotee(2) = r2:ruotee(3) = 11: ruotee(4) = 12
ruote(1) = r1 :ruote(2) = r2:
am(1) =a1
ImpostaGiocata 1,am,ruote,posta,k
am2(1) =a1
am2(2) =a4
ImpostaGiocata 2,am2,ruotee,poste,k
am1(1) =a1
am1(2) =a2
am1(3) =a3
am1(4) =a4
ImpostaGiocata 3,am1,ruotee,postee,k
Gioca es
Scrivi String(57,151)
End If
Next :Next : Next :Next : Next:
ScriviResoconto
End Subscarfacetony
Senior Member
Grazie mille,ne ho svariati,a chi interessa ho le sette meraviglie,mummy1 e 3 solo in video,chi è interessato chieda pure
Ciao, si mi servirebbero gli script di questi metodi che elenchi, è possibili averli???? grazie anticipatamente
scarfacetony
Senior Member
Ciao,se riesci a farci lo script fammelo sapere,te ne invio altri...Ciao, si mi servirebbero gli script di questi metodi che elenchi, è possibili averli???? grazie anticipatamente
scarfacetony
Senior Member
Ciao,
scusa il disturbo,ho provato a fare una variazione del metodo,praticamente l'originale dice di trovare nella stessa estrazione,ho provato a cercare con estrazioni diverse per esempio il 27.06.2024 CA 3^ era il 9, il 29.06.2024 MI 3^ era il 9,poi i calcoli rimangono invariati,si potrebbe fare questa variazione nello script?
Buona Serata
DjNomade
Advanced Member >PLATINUM PLUS<
Controlla questi
Codice:
'https://www.youtube.com/watch?v=6MoV2eAHPAk
'08-7-2024
ColoreTesto 1 :Scrivi "================ Ho'oponopono - IL METODO con il 90 by Badessa Lotto Con Riceca a Ritroso ================",1
Scrivi
Sub Main()
Dim am(5),ab(5),quartina(5),ruote(12),ruotee(12),posta(5),poste(5),postee(5),am1(4),am2(4)
posta(1) = 1
'posta(2) = 1
poste(2) = 1
postee(2) = 1: postee(3) = 1:
y = CInt (InputBox("Quante estrazioni a ritroso per la ricerca?","",2))
k = 13
For es = EstrazioneFin-186 To EstrazioneFin
Messaggio CStr(EstrazioneFin - es)
For r1 = 1 To 12
If r1=11 Then r1=12
For p1 = 1 To 5
For x= 0 To y
ex=es-x
a = Estratto(ex,r1,p1)
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
For p2 = 1 To 5
b = Estratto(es,r2,p1)
If ((ex=es And r1<r2)Or (ex<es And (r1<>r2 Or r1=r2)))And p1 = p2 And ((a=9 Or a=90)And (b=9 Or b=90))Then
a1 =Abs(Estratto(es,r1,2)-Estratto(es,r1,3))
a2= Vert(a1)
a3=9
a4=90
cont = cont + 1
Scrivi
ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(ex,1) & "" & Space(3) & "[" &(ex) & "]ª" & Space(4) & "" & _
Left(NomeRuota(r1),3) & "" & Space(3) & "" & StringaEstratti(ex,r1) & "" & Space(3) & _
"" & Format2(a) & "" & Space(3) &"" ,1
Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & _
"" & Left(NomeRuota(r2),3) & "" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(3) & _
"" & Format2(b) & ""& Space(3) &"",1
Scrivi
ColoreTesto 2
If Distanza(r1,r2)=1 Or ((r1=1 And r2=12)Or(r1=12 And r2=1)) Then Scrivi " > RUOTE CONSECUTIVE ",1
If Distanza(r1,r2)=5 And r1<12 And r2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
If (r1+r2)=11 Then Scrivi " > RUOTE GEMELLARI ",1
If ex<es Then Scrivi" CONDIZIONE RILEVATA A " &es-ex & " ESTRAZIONI A RITROSO",1
If ex=es Then Scrivi" CONDIZIONE TROVATA NELLA STESSA ESTRAZIONE",1
ColoreTesto 0
ruotee(1) = r1 :ruotee(2) = r2:ruotee(3) = 11: ruotee(4) = 12
ruote(1) = r1 :ruote(2) = r2:
am(1) =a1
ImpostaGiocata 1,am,ruote,posta,k
am2(1) =a1
am2(2) =a4
ImpostaGiocata 2,am2,ruotee,poste,k
am1(1) =a1
am1(2) =a2
am1(3) =a3
am1(4) =a4
ImpostaGiocata 3,am1,ruotee,postee,k
Gioca es
Scrivi String(57,151)
End If
Next :Next : Next :Next : Next:Next:
ScriviResoconto
End Sub
Codice:
'29/06/2022
'https://www.youtube.com/watch?v=wUexamXVgb0
ColoreTesto 1
Scrivi " MISTER 9 IN 1°POSIZIONE by SALVO BADESSA ",1
Scrivi
ColoreTesto 0
Sub main()
Dim ruote(10)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),amb(9)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1)=1
poste1(2)=1
poste(3)=1.5
poste(2)=1.3
poste(4)=.2
cp=12'InputBox("Per quanti colpi vuoi giocare?",,7)
ini=9428
fin=EstrazioneFin
For n=ini To fin
Messaggio DataEstrazione (n)
SPIA=9
ng=0
For z=1 To 12 '<----ruota di ricerca
If z=11 Then z=12
For p=1 To 1
a=Estratto(n,z,p)
a5=Estratto(n,z,5)
If a=SPIA Then
b=Fuori90(a5+1) 'A
b1=Vert(b) 'B
b2=Fuori90(b+b1)'X1
b3=Vert(b2) 'X2
b4=Fuori90(b2+b3)'X3
b5=Vert(b4) 'X4
amb(1) = b2 '1°Ambo
amb(2) = b3 '1°Ambo
amb(3) = b4 '2°Ambo
amb(4) = b5 '2°Ambo
ruote(1)=z
ruote(2)=11
ruote(3)=12
cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
Scrivi DataEstrazione (n)&" "& FormatSpace (NomeRuota(z),9)&" "&StringaEstratti(n,z),1
ColoreTesto 0 : Scrivi
numeri2(1)=amb(1)
numeri2(2)=amb(2)
ImpostaGiocata 1,numeri2,ruote,poste1,eval(cp)
numeri2(1)=amb(3)
numeri2(2)=amb(4)
ImpostaGiocata 2,numeri2,ruote,poste1,eval(cp)
numeri3(1)=amb(1)
numeri3(2)=amb(2)
numeri3(3)=amb(3)
numeri3(4)=amb(4)
ImpostaGiocata 3,numeri3,ruote,poste,eval(cp)
Gioca n
End If
Next
Next
Next
Scrivi
ScriviResoconto
ColoreTesto 2
End Subscarfacetony
Senior Member
Grazie mille,buona serata
Ciao dj , vorrei chiederti una modifica al listato che ho , invece di cercare 2 volte il 9 isotopo ,oppure due volte 90 isotopo , si può fare la ricerca di 9 e 90 isotopi su ruote non consecutive? Grazie
dj scusa ho visto che già è così
Ultima modifica:
Marco-elle
Banned
Ottimo Dj 
scarfacetony
Senior Member
Buona serata,vi allego alcuni metodi sempre di Badessa,se volete farci degli script,ho anche il decantato Uranus di Ranisio,devo trovarlo in qualche chiavetta
scarfacetony
Senior Member
La perla nera
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 19 agosto 2025Bari8516323028Cagliari5360461287Firenze5862663833Genova1324605779Milano2213382407Napoli0212511686Palermo8806260276Roma7370815136Torino0114620570Venezia8463724022Nazionale5724306809Estrazione Simbolotto
Nazionale
0341270730
