ColoreTesto 2 :Scrivi String(37,32)&"Distanza di un Ambo by Bubu' ",1 Scrivi String(45,32)&"List. DjNomade",1 ColoreTesto 0 Sub main() Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(2),qu(4) Dim ruote(10),ruota(10) Dim poste(5),poste1(5),poste2(5),poste3(5) poste(1)=1 poste1(2)=1 poste2(2)=1 poste2(3)=1 fin=EstrazioneFin ini=fin-3 For es=ini To fin Messaggio es For r1=1 To 10 For p1=1 To 4 For p2=p1+1 To 5 n1=Estratto(es,r1,p1) n2=Estratto(es,r1,p2) n5=Distanza(n1,n2) For x=1 To 90 If n5=x Then n4=Fuori90(Massimo(n1,n2)+x) n6=Fuori90(90+Minimo(n1,n2)-x) For y=0 To 0 ' RETROATTIVITA' PER RICERCA NUMERI ex=es+y For rr=1 To 11 If rr=11 Then rr=12 'con nazionale For q1=1 To 5 e1=Estratto(ex,rr,q1): 'If (e1=n4 Or e1=n6) And (rr=r1+1 Or rr=r1-1) And (q1=p1 or q1=p2) Then qu(1)=n1:qu(2)=n2:qu(3)=n4:qu(4)=n6: If Massimo(n1,n2)=n1 and Minimo(n1,n2)=n2 Then qu(3)=n4:qu(4)=n6 If Massimo(n1,n2)=n2 and Minimo(n1,n2)=n1 Then qu(3)=n6:qu(4)=n4 'qu(1)=n1:qu(2)=n2 48.....28 28.....48 'qu(3)=n4:qu(4)=n6 68.....08 08.....68 If ((e1=qu(3)And q1=p1) Or (e1=qu(4)And q1=p2)) And rr<>r1 Then n7=Fuori90(qu(1)+qu(2))'Somme orizzontali n8=Fuori90(qu(3)+qu(4))'ambata Somme orizzontali n9=Fuori90(qu(1)+qu(3))'somme vertic n10=Fuori90(qu(2)+qu(4))'somme vertic n11=Fuori90(qu(2)+qu(3))'Somme diagonali n12=Fuori90(qu(1)+qu(4))'somme vertic casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_ " > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza < "&Format2(n5)&" >" Scrivi Scrivi" > Numeri da rintraccire < "&Format2(qu(3))&" > Posizione < "&Format2(p1)& _ "° o < "&Format2(qu(4))&" > Posizione "&Format2(p2)&"°" Scrivi Scrivi DataEstrazione(ex,1)&" < "&siglARuota(rr)& " "& StringaEstratti(ex,rr)&_ " > Num. rintracciato < "&Format2(e1)&" > Posizione < "&Format2(q1)&"°>" Scrivi String(65,"-")&" caso n° "&(casi) ruota(1)=r1:ruota(2)=rr ruote(1)=r1:ruote(2)=rr:k=13:co=0 nu1(1)=n8 ImpostaGiocata 1 ,nu1,ruota,poste,k nu2(1)=n8 nu2(2)=n9 ImpostaGiocata 2 ,nu2,ruota,poste1,k nu2(1)=n8 nu2(2)=n10 ImpostaGiocata 3 ,nu2,ruota,poste1,k nu2(1)=n8 nu2(2)=n11 ImpostaGiocata 4 ,nu2,ruota,poste1,k nu2(1)=n8 nu2(2)=n12 ImpostaGiocata 5 ,nu2,ruota,poste1,k nu3(1)=n8' nu3(2)=n9' nu3(3)=n10' nu3(4)=n11' nu3(5)=n12' ImpostaGiocata 6 ,nu3,ruote,poste2,k Gioca es+y End If Next:Next:Next End If next:next:next:next:next: ScriviResoconto End Sub
'14/01/2012 ColoreTesto 2 :Scrivi String(37,32)&"Distanza di un Ambo by Bubu' ",1 Scrivi String(45,32)&"List. DjNomade",1 ColoreTesto 0 Sub main() Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(2),qu(4) Dim ruote(10),ruota(10) Dim poste(5),poste1(5),poste2(5),poste3(5) poste(1)=1 poste1(2)=1 poste2(2)=1 poste2(3)=1 fin=EstrazioneFin ini=fin-3 For es=ini To fin Messaggio es For r1=1 To 10 For p1=1 To 4 For p2=p1+1 To 5 n1=Estratto(es,r1,p1) n2=Estratto(es,r1,p2) n5=Distanza(n1,n2) For x=1 To 90 If n5=x Then n4=Fuori90(Massimo(n1,n2)+x) n6=Fuori90(90+Minimo(n1,n2)-x) For y=0 To 0 ' RETROATTIVITA' PER RICERCA NUMERI ex=es+y For rr=1 To 11 If rr=11 Then rr=12 'con nazionale For q1=1 To 5 e1=Estratto(ex,rr,q1): If (e1=n4 Or e1=n6) And rr<>r1 And (q1=p1 or q1=p2) Then 'If (e1=n4 Or e1=n6) And (rr=r1+1 Or rr=r1-1) And (q1=p1 or q1=p2) Then qu(1)=n1:qu(2)=n2:qu(3)=n4:qu(4)=n6: If Massimo(n1,n2)=n1 and Minimo(n1,n2)=n2 Then qu(3)=n4:qu(4)=n6 If Massimo(n1,n2)=n2 and Minimo(n1,n2)=n1 Then qu(3)=n6:qu(4)=n4 'qu(1)=n1:qu(2)=n2 48.....28 28.....48 'qu(3)=n4:qu(4)=n6 68.....08 08.....68 n7=Fuori90(qu(1)+qu(2))'Somme orizzontali n8=Fuori90(qu(3)+qu(4))'ambata Somme orizzontali n9=Fuori90(qu(1)+qu(3))'somme vertic n10=Fuori90(qu(2)+qu(4))'somme vertic n11=Fuori90(qu(2)+qu(3))'Somme diagonali n12=Fuori90(qu(1)+qu(4))'somme vertic casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_ " > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza < "&Format2(n5) Scrivi DataEstrazione(ex,1)&" < "&siglARuota(rr)& " "& StringaEstratti(ex,rr)&_ " > Num. rintracciato < "&Format2(e1)&" > Posizione < "&Format2(q1)&"°>" Scrivi String(65,"-")&" caso n° "&(casi) ruota(1)=r1:ruota(2)=rr ruote(1)=r1:ruote(2)=rr:k=13:co=0 nu1(1)=n8 ImpostaGiocata 1 ,nu1,ruota,poste,k nu2(1)=n8 nu2(2)=n9 ImpostaGiocata 2 ,nu2,ruota,poste1,k nu2(1)=n8 nu2(2)=n10 ImpostaGiocata 3 ,nu2,ruota,poste1,k nu2(1)=n8 nu2(2)=n11 ImpostaGiocata 4 ,nu2,ruota,poste1,k nu2(1)=n8 nu2(2)=n12 ImpostaGiocata 5 ,nu2,ruota,poste1,k nu3(1)=n8' nu3(2)=n9' nu3(3)=n10' nu3(4)=n11' nu3(5)=n12' ImpostaGiocata 6 ,nu3,ruote,poste2,k Gioca es+y End If Next:Next:Next End If next:next:next:next:next: ScriviResoconto End Sub
'http://www.lottostudio.net/cms/index.php?option=com_kunena&func=view&catid=48&id=17068&Itemid=44#17068 Scrivi "Se esce il 90 al 3^ posto ",1 Scrivi "List DjNomade ",1 Sub main() Dim ruote(3),posta(5),nu1(10),poste(5),ruota(3),nu3(10) posta(1)=1 posta(2)=1 poste(2)=1 poste(3)=1 k=12 ce=1000 ini=EstrazioneFin -ce fin=EstrazioneFin For es =ini To fin:Messaggio es For r1=1 To 11:If r1=11 Then r1=12 For p1=3 To 3 a=Estratto(es,r1,p1) If a=90 Then casi=casi+1:Scrivi String(65,"•"),1 Scrivi DataEstrazione(es-1,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es-1,r1)&_ " ] " Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_ " ] "&format2(a)&" "&(p1)&"^ pos." Scrivi String(52,"-")&" caso n° "&(casi) ruota(1)=r1:co=0:ruote(1)=11 a1=Fuori90(Estratto(es,r1,3)-Estratto(es,r1,2)) a2=Fuori90(Estratto(es,r1,3)-Estratto(es,r1,4)) a3=Fuori90(Estratto(es,r1,3)-Estratto(es-1,r1,3)) nu3(1)=a1:nu3(2)=a2:nu3(3)=a3 co=co+1 ImpostaGiocata co,nu3,ruota,posta,k co=co+1 ImpostaGiocata co,nu3,ruote,poste,k Gioca es End If Next:Next:Next ScriviResoconto Scrivi "90 al 3^ posto ",1 Scrivi "List DjNomade ",1 End Sub
Napoli-Venezia Numero isotopo 5-5 estratto al 4° posto mar 16.10.2012 [8600] G 1: M 72.27 Na Ve 2/12 M 72 su Na 2° colpo [8602/20.10.2012] in corso (2° su 12) G 2: A 72.82 Na Ve 2/12 in corso (2° su 12) G 3: A 72.87 Na Ve 2/12 in corso (2° su 12) G 4: A 72.85 Na Ve 2/12 A 72.85 su Na 2° colpo [8602/20.10.2012] in corso (2° su 12) G 5: A 72.80 Na Ve 2/12 in corso (2° su 12) G 6: AT 27.82.80 Na Ve 2/12 in corso (2° su 12) G 7: AT 27.85.87 Na Ve 2/12 in corso (2° su 12) G 8: AT 72.27.90 Na Ve Tu 2/12 A 27.72 su Tu (Ro) 1° colpo [8601/18.10.2012] in corso (2° su 12)
'http://www.lottostudio.net/cms/index.php?option=com_kunena&func=view&catid=30&id=15404&Itemid=44#15542 ColoreTesto 1 Scrivi String(37,32) & "2 nr uguali su 2 ruote x Bubu'",1 Scrivi Scrivi String(48,32) & "Listato DjNomade",1 ColoreTesto 0 Sub main() Dim k(2),k1(3) Dim ruote(2),ruotee(10) Dim posta(5),poste(5),postee(5) posta(1)=1 poste(2)=1 postee(2)=1 postee(3)=1 tmp=CInt (InputBox ("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50)) clp=CInt (InputBox ("Per quanti colpi di gioco ?","COLPI",12)) co=0 ini=EstrazioneFin -tmp For es=ini To EstrazioneFin Messaggio (es) For r1=1 To 9 For r2=r1+1 To 10 For p1=1 To 5 n1=Estratto(es,r1,p1) n2=Estratto(es,r2,p1) If (n1)=(n2) Then co=co+1 Scrivi String(70,"="): ColoreTesto 2 Scrivi NomeRuota(r1)&"-"& NomeRuota (r2) &_ " Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1 Scrivi : ColoreTesto 0 a=91-Fuori90(n1+n2) b=Fuori90(Fuori90(a+1)+Fuori90(90+a-1))'1^ AMBATA c=Vert(b)'2^ AMBATA d=DiametraleD(Fuori90(a+1)) e=DiametraleD(Fuori90(90+a-1)) ruote(1)=r1 ruote(2)=r2 ruotee(1)=r1 ruotee(2)=r2 ruotee(3)=11 k(1)=b k(2)=c ImpostaGiocata 1, k, ruote, posta,clp k(1)=b k(2)=Fuori90(a+1) ImpostaGiocata 2, k, ruote, poste,clp k(1)=b k(2)=d ImpostaGiocata 3, k, ruote, poste,clp k(1)=b k(2)=e ImpostaGiocata 4, k, ruote, poste,clp k(1)=b k(2)=Fuori90(90+a-1) ImpostaGiocata 5, k, ruote, poste,clp k1(1)=c k1(2)=Fuori90(a+1) k1(3)=Fuori90(90+a-1) ImpostaGiocata 6, k1, ruote, postee,clp k1(1)=c k1(2)=e k1(3)=d ImpostaGiocata 7, k1, ruote, postee,clp k1(1)=b k1(2)=c k1(3)=90 ImpostaGiocata 8, k1, ruotee, postee,clp Gioca es End If Next Next : Next Next Scrivi : Scrivi "Casi Riscontrati n° "& CInt (co) ScriviResoconto ColoreTesto 1 Scrivi String(37,32) & "2 nr uguali su 2 ruote x Bubu'",1 Scrivi Scrivi String(48,32) & "Listato DjNomade",1 ColoreTesto 0 End Sub
