'LE 3 PIRAMIDI CON L'AMBO RIPETUTO BY ENZOB
'https://oltreillotto.forumfree.it/?t=80234278#lastpost
'https://enzob-metodieprevisioni.forumfree.it/?t=80218114#newpost
'09-05-2024
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1715198400.jpg
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1714402094.jpg
ColoreTesto 2 :Scrivi String(37,32)&" LE 3 PIRAMIDI CON L'AMBO RIPETUTO BY ENZOB",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0

Sub main()
Dim c1(),c2()
Dim no1(3),no2(4),posta(1),poste(3),ruota(3),ruote(1)
posta(1)=1:poste(2)=1:poste(3)=1


ce=InputBox("Quante estrazione vuoi controllare? ","estrazione",100)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 10
For r2=r1+1 To 12
If r2=11 Then r2=12
For p=1 To 4
For p1 = p+1 To 5
aa=Estratto(es,r1,p) : bb=Estratto(es,r1,p1)
For pp=1 To 4
For pp1 = pp+1 To 5

cc=Estratto(es,r2,pp) : dd=Estratto(es,r2,pp1)
If (cc = aa And bb = dd) Or (cc = bb And dd = aa) Then



Scrivi String(70,"=")
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" - "&stringaestratti(es,r1)&" ]" &aa&" "&bb,1
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" - "&stringaestratti(es,r2)&" ]" &cc&" "&dd,1

Scrivi
ColoreTesto 2
If (Distanza(p,p1)=1 And Distanza(pp,pp1)=1)Or (p=1 And p1=5 And pp=1 And pp1=5) Then Scrivi " > AMBI UNITI ",1
If p=pp And p1=pp1 Then Scrivi" > AMBI ISOTOPI ",1
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
Scrivi String(70,"-")

'--------------------------------
'piramide 1
nu1=aa& 3 &bb
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide
For a= 1 To Len (nu1)
Next
For fine = Len(nu1) To 3 step-1
Sp1 =S1p + 1 : For pir1 = 1 To sp1
Next
x1 = fine : np1 = "" : Redim c1(x1)
For a1 = 1 To x1 : c1(a1) = Mid (nu1,a1,1) : Next
For a1 = 1 To x1-1
If c1(a1)+c1(a1+1)=0 Then t1=0 Else t1=Fuori9(c1(a1)+c1(a1+1))
np1 = np1 & t1
Next
Scrivi FormatSpace(np1,1,1) 'metti un' apice per non vedere la piramide
nu1=np1
Next
'---------------------------------------------------
'piramide 2
Scrivi String(15,"-")
nu2=aa& 6 &bb
Scrivi FormatSpace(nu2,1,1) 'metti un' apice per non vedere la piramide
For a= 1 To Len (nu2)
Next
For fine = Len(nu2) To 3 step-1
Sp2 = Sp2 + 1 : For pir2 = 1 To sp2
Next
x2 = fine : np2 = "" : Redim c2(x2)
For a2 = 1 To x2 : c2(a2) = Mid (nu2,a2,1) : Next
For a2 = 1 To x2-1
If c2(a2)+c2(a2+1)=0 Then t2=0 Else t2=Fuori9(c2(a2)+c2(a2+1))
np2 = np2 & t2
Next
Scrivi FormatSpace(np2,1,1) 'metti un' apice per non vedere la piramide
nu2=np2
Next
'--------------------------------
'---------------------------------------------------
'piramide 3
Scrivi String(15,"-")
nu3=aa&9&bb
Scrivi FormatSpace(nu3,1,1) 'metti un' apice per non vedere la piramide
For a= 1 To Len (nu3)
Next
For fine = Len(nu3) To 3 step-1
Sp3 = Sp3 + 1 : For pir3 = 1 To sp3
Next
x3 = fine : np3 = "" : Redim c3(x3)
For a3 = 1 To x3 : c3(a3) = Mid (nu3,a3,1) : Next
For a3 = 1 To x3-1
If c3(a3)+c3(a3+1)=0 Then t3=0 Else t3=Fuori9(c3(a3)+c3(a3+1))
np3 = np3 & t3
Next
Scrivi FormatSpace(np3,1,1) 'metti un' apice per non vedere la piramide
nu3=np3
Next
'--------------------------------
If np1=np2 And np2=np3 Then
amb=Fuori90(np1+3)
amb1=Fuori90(np1+6)
amb2=Fuori90(np1+9)

Scrivi String(70,"-")
ruota(1)=r1:ruota(2)=r2:ruota(3)=r3:ruote(1)=11




no1(1)=np1

ImpostaGiocata 1,no1,ruota,posta,k
no2(1)=np1
no2(2)=amb
no2(3)=amb1
no2(4)=amb2
ImpostaGiocata 2,no2,ruota,poste,k
ImpostaGiocata 3,no2,ruote,poste,k
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi " PIRAMIDARE Scritto da Joe91 09/03/2007 V.3.0 ",1
Scrivi " Aggiunta Funzione Fuori9 24/07/2007 Rosanna ",1
Scrivi " Nuova Impaginazione risultati 25/07/2007 Joe91 ",1
Scrivi " Metodo giocate 29/04/2010 fermento ",1
Scrivi " Script 29/04/2010 maxma62 ",1
End Sub

'--------------------------------
Function Fuori9(nn)
If Nn-(9*Int(nn/9))=0 Then Fuori9=9 Else Fuori9=(Nn-(9*Int(nn/9)))
End Function

'https://image.forumfree.it/1/3/1/4/0/5/5/6/1711722292.jpg
'https://enzob-metodieprevisioni.forumfree.it/?t=80175393#newpost

'30-03-2024
Sub Main()
Scrivi " Metodo Due Numeri Somma 90 Isotopi di Enzob",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
Scrivi
Dim ruote(10),ambata(2),ambo1(2),ambo2(3),ambo3(2),quartina(5),ruota(10),h,y,posta(1),poste(2),postee(4)
posta(1) = 1 : poste(2) = 1: postee(2) = 1 : postee(3) = 1
EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","DjNomade",150)
k = CInt(InputBox("QUANTI COLPI ?","DjNomade",9))

fin = EstrazioneFin
ini = fin - estrazionilotto '
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
For p1 = 1 To 5

n1 = Estratto(es,r1,p1)

r2 = r1 + 1


n2 = Estratto(es,r2,p1)

If Fuori90(n1+n2)=90 Then

nw1 = Abs(n1-n2)'ambata
If Abs(n1-n2)=0 Then nw1 =90
nw2 = 91-nw1



casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" >< " & Format2(n1) ,1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" >< " & Format2(n2) & " > somma < " & Format2(Fuori90(n1+n2)),1

ColoreTesto 0
Scrivi




ruota(1) = r1 : ruota(2) = r2 :
ruote(1) = r1:ruote(2) = r2:ruote(3) = 11:ruote(4) = 12:co = 0 :

'----------------------------------------
ambata(1) = nw1
ImpostaGiocata 1,ambata,ruota,posta,k
ambo2(1) =nw1
ambo2(2) = nw2
ImpostaGiocata 2,ambo2,ruote,poste,k



Gioca es
End If

Next

Next

Next



ScriviResoconto
End Sub

'https://image.forumfree.it/1/3/1/4/0/5/5/6/1709106497.jpg
'https://oltreillotto.forumfree.it/?t=80134215#lastpost
'https://enzob-metodieprevisioni.forumfree.it/?t=80134207#newpost
'29-02-2024
ColoreTesto 2 :Scrivi String(27,22)&" Distanza Orizzontale 20 IN 3°-4° POSIZ. NAPOLI by Enzob ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste1(5),poste2(5),poste3(5)
posta(1)=1
posta(8)=1
posta(9)=1
poste(2)=1
poste1(3)=1
poste1(2)=1

fin=EstrazioneFin
ini=10107'
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=6 To 6

n1=Estratto(es,r1,3)
n2=Estratto(es,r1,4)



n5=Distanza(n1,n2)

If n5=20 Then


a1=Fuori90(Estratto(es,5,2)+38)'
a2=Fuori90(Estratto(es,2,1)+28)'
a3=Fuori90(Estratto(es,2,2)+80)'
a4=Fuori90(Estratto(es,1,1)+35)'





casi=casi+1:Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2(n1)&"."&Format2 (n2)&" > DISTANZA..."&Format2 (n5),1



ruota(1)=r1:ruota(2)=r2
ruote(1)=r1:ruote(2)=r2
ruote(3)=11:ruote(4)=12
:k=8:co=0








nu1(1)=a1

ImpostaGiocata 1 ,nu1,ruota,posta,k



nu2(1)=a1
nu2(2)=a2
ImpostaGiocata 2 ,nu2,ruote,poste,k

nu2(1)=a1
nu2(2)=a3
ImpostaGiocata 3 ,nu2,ruote,poste,k
nu2(1)=a1
nu2(2)=a4
ImpostaGiocata 4 ,nu2,ruote,poste,k




Gioca es
End If
Next
Next

ScriviResoconto
End Sub

'https://image.forumfree.it/1/3/1/4/0/5/5/6/1640009611.jpg
'https://enzob-metodieprevisioni.forumfree.it/?t=78872169#newpost
'07-01-2024
ColoreTesto 2: Scrivi
Scrivi String(30," ") & " VINCITE INFALLIBILI COL GIOCO DELL'AMBATA ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
ColoreTesto 0: Scrivi
Sub main()
Dim amb(2),ambo1(4),ambo2(5),ambo3(6),ambo4(2),lg(10),nc(4),nr(1)
Dim ruote(11),ruota(11),posta(10),poste1(5),poste2(5),poste(5)
posta(1)=1
posta(2)=1
poste(2)=1
poste1(2)=1
poste2(2)=1 : poste2(3)=1
t=0
im=InputBox("Pronostico dall'estrazione mensile numero? ( Scrivi 0=ultima estrazione mese Scrivi da 1 a 19= indice mensile Scrivi 20= ad ogni estrazione )",">",1)

r=InputBox("RUOTA DI CALCOLO E GIOCO ",">",1)
ff=InputBox ("Digita le 3 Posizioni per il Calcolo","Posizioni Estratti","1.2.5")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))



fisso=InputBox("FISSO DA SOMMARE ",">",1)

cl=InputBox("COLPI DI GIOCO ",">",13)



ini=9972'10140
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es

If eval(im)<20 Or eval(im)=0 Or eval(im)=20 Then

If (eval(im)=0 And IsUltimaDelMese(es))Or (eval(im)>0 And IndiceMensile(es)=eval(im))Or (eval(im)=20 And es=es) Then
'For r=1 To 12
'If r=11 Then r=12



n13=Fuori90(Figura(Estratto(es,r,f1))+Figura(Estratto(es,r,f2))+Figura(Estratto(es,r,f3))+fisso)
n14=Fuori90(90+n13-1)
n15=Fuori90(n13+1)





ruote(1)=r


t=t+1
Scrivi "------------------------------------------------------------",1

If (eval(im)=0 And IsUltimaDelMese(es)) Then Scrivi "---------------------------prima del Mese --- Giocata n° "& Format2(t),1
If (eval(im)>0 And IndiceMensile(es)=eval(im)) Then Scrivi "---------------"&IndiceMensile(es)&"° ESTRAZIONE del Mese Giocata n° "& Format2(t),1
If (eval(im)=20 And es=es) Then Scrivi "---------------"&IndiceMensile(es)&"° ESTRAZIONE del Mese Giocata n° "& Format2(t),1
Scrivi
ColoreTesto 1

Scrivi DataEstrazione(es,1)&" "&siglaRuota(r)&" - "& StringaEstratti(es,r)&" ESTRATTI IN "&f1&"°-"&f2&"°-"&f3&"° Posizione * FISSO "&fisso,1
ColoreTesto 0
Scrivi
ambo1(1) = n14
ambo1(2) = n13
ambo1(3) = n15
ImpostaGiocata 1,ambo1,ruote,posta,cl

ambo3(1) = Figura(Estratto(es,r,f1))
ambo3(2) = Figura(Estratto(es,r,f2))
ambo3(3) = Figura(Estratto(es,r,f3))
ambo3(4) = n13
ambo3(5) = n14
ambo3(6) = n15
ImpostaGiocata 2,ambo3,ruote,poste2,cl
Gioca es
End If
End If
Next

ScriviResoconto
End Sub
'Funzione realizzata dal bravissimo Joe
Function IsUltimaDelMese (idEstr)

Dim sData , sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr) , "." , "/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay (sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti =2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd( "d" , gMancanti ,sData)

If Month (sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function

'20-12-2023
'https://enzob-metodieprevisioni.forumfree.it/?t=80034703#newpost
'https://oltreillotto.forumfree.it/?t=80034708#lastpost
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1703088030.jpg
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1703088029.jpg

ColoreTesto 2 :Scrivi String(37,32)&" CICLICA ALGORITMICA 9 ESTRAZIONI X BARI-ROMA by Enzob",1

Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4),nu(4),nr(5)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),posta(5)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
poste2(3)=1.5
poste2(4)=.3
poste2(5)=.2
fin=EstrazioneFin
ini=10301
For es=ini To fin step 9
AvanzamentoElab ini,fin,es

nr(1)=Fuori90(Estratto(es,1,1)+DiametraleD(Estratto(es,8,5))+0)
nr(2)=31
nr(3)=32
nr(4)=38
nr(5)=35

'**********************************************************


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 04 ' numeri totali 7-1=6
For y = x + 1 To 5 ' 7 perche i numeri in totale sono 7
If nr( = nr(y) Then nr(y) = Fuori90(nr(y) + 1)
Next
Next
Wend
End If
Rem fine formula


'*****************************************************

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi)

Scrivi
ruote(1)=1:ruote(2)=8:k=9:co=0




nu1(1)=nr(1)
ImpostaGiocata 1 ,nu1,ruote,posta,k

nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(3)
nu3(4)=nr(4)
ImpostaGiocata 2 ,nu3,ruote,poste1,k
nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(3)
nu3(4)=nr(5)
ImpostaGiocata 3 ,nu3,ruote,poste1,k
nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(4)
nu3(4)=nr(5)
ImpostaGiocata 4 ,nu3,ruote,poste1,k
Gioca es

Next

ScriviResoconto
End Sub

'https://enzob-metodieprevisioni.forumfree.it/?t=80006050#newpost
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1701287794.jpg
'https://oltreillotto.forumfree.it/?t=80008830#lastpost
'30-11-2023


Scrivi" SOMMA ESTRATTI 216 BARI by ENZOB",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
Sub Main()
Dim posta(10)
Dim poste(5),poste1(5)
Dim ruote(5),ruota(2)
Dim am(10)
Dim n1(10),n2(10),n3(10)

poste(2) = 1
poste1(2) = 1
poste1(3) = 1
posta(1) = 1
posta(2) = 1

casi = 0

fin = EstrazioneFin
ini = 8410
For es = ini To fin

k = 10
a1 = SommaEstratti(es,1)'ambata
If (a1)= 216 Then

a = Abs(Estratto(es,1,1)-Estratto(es,1,5))
'a = Fuori90(90+Estratto(es,1,1)-Estratto(es,1,5))'ambata
b = Diametrale(a)'ambata
casi = casi + 1
ColoreTesto 0 :Scrivi "-----------------------------Caso n. "&casi,1

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & _
" > Somma Estratti < " & Format2(a1),1

ColoreTesto 0
ruote(1) = 1



n1(1) = a
n1(2) = b
ImpostaGiocata 1,n1,ruote,posta,k

Gioca es

End If

Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : " & CInt(casi)
ScriviResoconto
End Sub