'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