Novità

Metodo INTERESSANTE Ambi Simmetrici

  • Creatore Discussione Creatore Discussione jure
  • Data di inizio Data di inizio

jure

Premium Member
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 (n)
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(n)&" 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
 
è positivo anche se al posto di 30 si mette 9 e invece di 60 si mette 18 !!!!
Semplice semplice, di chi è ???
 
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.
 
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:confused:. da rivedere!!
 
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


Codice:
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.
 
Ultima modifica:
hihihihi, come si dice......

A volte ritornano........


...e colpiscono.........:)
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto