Metodo INTERESSANTE Ambi Simmetrici

[jure]

Sub Main()
Dim n,t,r,n1,n2
Dim am(10)
Dim ruota(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ini= 6000
For n=ini To EstrazioneFin
Messaggio DataEstrazione
t=1
Do While RAD30(n,t,r,n1,n2)=True
If n1=Fuori90(n2+30) Then am(1)=Fuori90(n2+60)
If n1=Fuori90(n2+60) Then am(1)=Fuori90(n2+30)
zz=Posizione(n-1,r,am(1))
xx=Posizione(n+1,r,am(1))
If zz > 0 Or xx > 0 Then
Scrivi "**************************************************************"
ColoreTesto 2
If zz>0 Then Scrivi " Estrazione del "& DataEstrazione(n-1)&" num. "& am(1)&" su "& NomeRuota(r) End If
If xx>0 Then Scrivi " Estrazione del "& DataEstrazione(n+1)&" num. "& am(1)&" su "& NomeRuota(r) End If
Scrivi " Estrazione del "& DataEstrazione&" num. "& n1 &" - "& n2 &" su "& NomeRuota(r)
Scrivi
ColoreTesto 0
ruota(1)=r
am(2)=n1
am(3)=n2
ImpostaGiocata 1,am,ruota,posta,9,1
Gioca n
End If
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function RAD30(estrazione, tentativo, byref ruota, byref numero1, byref numero2)
Dim trovati,r,i,j
trovati=0
For r= 1 To 10
For i= 1 To 4
For j=i+1 To 5
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
If Distanza(a,b)=30 Then
trovati=trovati+1
If trovati=tentativo Then
numero1=Estratto(estrazione,r,i)
numero2=Estratto(estrazione,r,j)
ruota=r
RAD30=True
Exit Function
End If
End If
Next
Next
Next
RAD30=False
End Function

 

[fillotto]

è positivo anche se al posto di 30 si mette 9 e invece di 60 si mette 18 !!!!
Semplice semplice, di chi è ???

 

[rudivall]

Filotto guarda le date, è come quello che fece Claudio

 

[jure]

Rudivall l'ho copiato da un archivio di script ho visto che facendolo
girare aveva un attivo nei riscontri ma tu mi hai fatto notare che ci sono
degli errori che superficialmente non avevo notato.

 

[pigi]

è positivo anche se al posto di 30 si mette 9 e invece di 60 si mette 18 !!!!
Semplice semplice, di chi è ???

OK.... MA IN QUALE RIGO DELLO SCRIPT METTI IL 9 E IL 18 ?
GRAZIE
Giorgio

 

[fillotto]

OK.... MA IN QUALE RIGO DELLO SCRIPT METTI IL 9 E IL 18 ?
GRAZIE
Giorgio

niente guarda lo script si possono fare 5 correzioni

If n1=Fuori90(n2+30) Then am(1)=Fuori90(n2+60)
If n1=Fuori90(n2+60) Then am(1)=Fuori90(n2+30)
...............

...............
If Distanza(a,b)=30 Then
al posto del 30 metti 9 al posto di 60 metti 18 del resto anche con 18 e 32 però...però anche a me mi puzza tanto e vero che l'ho messo in una cartella denominata "FURBI"
he eh in compagnia di quello di Claudio solo che questo ogni tanto non ci azzecca al primo colpo e quindi mi aveva incuriosito .....bo. da rivedere!!

 

[Joe91]

C'era una volta ...

Gente seria che si faceva il mazzo a studiar di Lotto ...

e testare ... con i suoi script quali potessero essere i metodi buoni.

Uno di questi: Danilo.

Oggi ... sono bravi e furbi quelli che sanno canzonare il prossimo ...

e rovinare i lavori altrui.

Ecco cos'era uno script con la funzione RAD30 nel 2006

Sub Main()
Dim n,t,r,rr,n1,n2,n3,n4
Dim am(10),am1(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
ini=InputBox("Estrazione iniziale: ",,EstrazioneFin-60)
fin=InputBox("Estrazione finale: ",,EstrazioneFin)
casi=0
For n=ini To fin
   Messaggio DataEstrazione (n)
   t=1
   Do While RAD30(n,t,r,rr,n1,n2,n3,n4)=True
      casi=casi+1
      ColoreTesto 1 : Scrivi 
      Scrivi "******************************************************************"  
      Scrivi DataEstrazione(n)&"  "& FormatSpace(NomeRuota(r),10)&" "& Format2(n1)&"-"&_
       Format2(n2)&"  |  "& FormatSpace(NomeRuota(rr),10)&" "& Format2(n3)&"-"& Format2(n4)
      Scrivi : ColoreTesto 0
      s_o1=Fuori90(n1+n2) : s_o2=Fuori90(n3+n4)
      s_v1=Fuori90(n1+n3) : s_v2=Fuori90(n2+n4)
      s_d1=Fuori90(n1+n4) : s_d2=Fuori90(n3+n2)
      If s_o1=s_o2 Then m1=s_o1 End If 
      If s_v1=s_v2 Then m1=s_v1 End If 
      If s_d1=s_d2 Then m1=s_d1 End If 
      m2=Diametrale(m1)
      ruota(1)=r : ruota(2)=rr
      am(1)=m1
      p_m1=Fuori90(n1+n2)/2 : p_m2=Fuori90(n3+n4)/2
      am1(1)=p_m1 : am1(2)=Fuori90(p_m1+30) : am1(3)=Fuori90(p_m1+60)
      am1(4)=p_m2 : am1(5)=Fuori90(p_m2+30) : am1(6)=Fuori90(p_m2+60)
      Scrivi "            "&Format2(n1)&"  "&Format2(n2)&" | "&Format2(s_o1)&"  Somma O."
      Scrivi "            "&Format2(n3)&"  "&Format2(n4)&" | "&Format2(s_o2)&"  Somma O."
      Scrivi "Somma D. "&Format2(s_d2)&" ------   "&Format2(s_d1)&"  Somma D."
      Scrivi "Somma V.    "&Format2(s_v1)&"  "&Format2(s_v2)&"       Somma V."
      Scrivi : ColoreTesto 1 
      Scrivi "SOMMA COMUNE = "&Format2(m1)&"   DIAMERTALE = "&m2&"       PUNTI MEDI = "&Format2(p_m1)&"  e "&Format2(p_m2)
      Scrivi : ColoreTesto 0
      ImpostaGiocata 1,am,ruota,posta,9,1
      ImpostaGiocata 2,am1,ruota,poste,9,2
      ImpostaInterruzioni 1,2,2
      ImpostaInterruzioni 2,1,1
      Gioca n
      t=t+1
   Loop
Next
Scrivi "***************************************************"
Scrivi
Scrivi
Scrivi "Nel periodo analizzato si sono rilevati n° "&casi&" casi",1 : Scrivi  
ScriviResoconto
End Sub


Function RAD30(estrazione, tentativo, byref ruota1, byref ruota2, byref numero1, byref numero2, byref numero3, byref numero4)
Dim trovati,r,i,j
trovati=0
For r= 1 To 10
   For i= 1 To 4
       For j=i+1 To 5
            a=Estratto (estrazione,r,i)
            b=Estratto(estrazione,r,j)
         If a=Fuori90(b+30) Or a=Fuori90(b+60) Then
              If pari(a)=True Then p=1 End If 
              If pari(a)=False Then p=0 End If 
              If Fuori90(a+30)=b Then c=Fuori90(a+60) End If 
              If Fuori90(a+60)=b Then c=Fuori90(a+30) End If               
            For rr=r+1 To 10
               For ii=1 To 4
                  For jj=ii+1 To 5
                     aa=Estratto (estrazione,rr,ii)
                        bb=Estratto(estrazione,rr,jj)                     
                     If pari(aa)=True Then pp=1 End If 
                       If pari(aa)=False Then pp=0 End If 
                     If (aa=Fuori90(bb+30) Or aa=Fuori90(bb+60)) And p<>pp Then
                        If Fuori90(aa+30)=bb Then cc=Fuori90(aa+60) End If 
                          If Fuori90(aa+60)=bb Then cc=Fuori90(aa+30) End If 
                          If (Posizione(n,rr,cc)=False And Posizione(n,r,c)=False) Then                            
                           trovati=trovati+1
                             If trovati=tentativo Then
                                  numero1=Estratto(estrazione,r,i)
                                  numero2=Estratto(estrazione,r,j)
                              numero3=Estratto(estrazione,rr,ii)
                                  numero4=Estratto(estrazione,rr,jj)                              
                              ruota1=r
                              ruota2=rr
                              RAD30=True
                               Exit Function 
                             End If 
                        End If
                     End If   
                  Next
               Next
            Next
         End If           
      Next
     Next 
Next 
RAD30=False
End Function

Buona Giornata ... & meditate ... meditate ... meditate.

 

[Baffoblu]

hihihihi, come si dice......

A volte ritornano........


...e colpiscono.........