TECNICA : Una Fetecchia -.-'

Roby · 10 Agosto 2006

Non esiste nessun metodo che vi farà vincere ... lasciate perdere il lotto ...passate al lavoro duro [8)]

empy86 · 10 Agosto 2006

ovviamente ..potete anche scrivere qualcosa -.- tanto per farmi capire qualcosa anche a me !!!! grazie

empy86 · 10 Agosto 2006

ovviamente ..potete anche scrivere qualcosa -.- tanto per farmi capire qualcosa anche a me !!!! grazie

tom19 · 10 Agosto 2006

non c'e' qualche volenteroso che fa' un listato per l8
cosi verifichiamo l' effettiva bonta' del metodo
anche perche' 280 euro non sono mica pochi......

ciao

tom19 · 10 Agosto 2006

non c'e' qualche volenteroso che fa' un listato per l8
cosi verifichiamo l' effettiva bonta' del metodo
anche perche' 280 euro non sono mica pochi......

ciao

franca46 · 11 Agosto 2006

ciao posso dirti che ho qualkosa del genere
però i listati che ho io comprendono una previsione .
Al limite tu non la consideri ,se vuoi te li metto lo stesso.

ciao

franca46 · 11 Agosto 2006

ciao posso dirti che ho qualkosa del genere
però i listati che ho io comprendono una previsione .
Al limite tu non la consideri ,se vuoi te li metto lo stesso.

ciao

solare · 11 Agosto 2006

Ciao Empy86, purtroppo io non sono in grado di fare i listati
però devo dire,che ho provato a fare delle verifiche a mano,spero che qualcuno degli esperti riesca a fare questo listato perchè ne vale proprio la pena direi che si tratta di un ottimo metodo soprattutto scieglendo la prima soluzione cioè quella del 95%.
Ciao

solare · 11 Agosto 2006

Ciao Empy86, purtroppo io non sono in grado di fare i listati
però devo dire,che ho provato a fare delle verifiche a mano,spero che qualcuno degli esperti riesca a fare questo listato perchè ne vale proprio la pena direi che si tratta di un ottimo metodo soprattutto scieglendo la prima soluzione cioè quella del 95%.
Ciao

empy86 · 11 Agosto 2006

Grazie FRANCA46 ..se puoi postali anche se io di listati ancora non capisco quasi nulla ... ci sono guide che insegnano a creare listati avendo un metodo in mano...?? ho cercato con google ma nulla :-(

empy86 · 11 Agosto 2006

Grazie FRANCA46 ..se puoi postali anche se io di listati ancora non capisco quasi nulla ... ci sono guide che insegnano a creare listati avendo un metodo in mano...?? ho cercato con google ma nulla :-(

franca46 · 11 Agosto 2006

ciao empy ho comunque girato la tua domanda a Danilo ,vediamo se ci viene a fare visita ,lui è bravissimo.

per il discorso dei listati se non conosci un pò L8 saranno arabo.

ed infine hai L8 nel tuo pc?

ciao

franca46 · 11 Agosto 2006

ciao empy ho comunque girato la tua domanda a Danilo ,vediamo se ci viene a fare visita ,lui è bravissimo.

per il discorso dei listati se non conosci un pò L8 saranno arabo.

ed infine hai L8 nel tuo pc?

ciao

empy86 · 11 Agosto 2006

si si il programma lo ho...so come inserire i listati..in uno script vuoto ed eseguirli ma non so come crearli altrimenti l'avrei fatto da solo senza dare seccature a nessuno...

empy86 · 11 Agosto 2006

si si il programma lo ho...so come inserire i listati..in uno script vuoto ed eseguirli ma non so come crearli altrimenti l'avrei fatto da solo senza dare seccature a nessuno...

franca46 · 11 Agosto 2006

Codice:

Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
posta(2)=1
y=11
For n=6876 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1)&" "&Cint(n1)&" "&Cint(n2)&"  "& NomeRuota(r2)&" "&Cint(n3)&" "&Cint(n4)
am(1)=38
am(2)=65
ImpostaGiocata 1,am,ruote,posta,y,2
am(1)=22
am(2)=32
ImpostaGiocata 2,am,ruote,posta,y,2
am(1)=24
am(2)=66
ImpostaGiocata 3,am,ruote,posta,y,2
am(1)=24
am(2)=88
ImpostaGiocata 4,am,ruote,posta,y,2
am(1)=32
am(2)=90
ImpostaGiocata 5,am,ruote,posta,y,2
am(1)=40
am(2)=88
ImpostaGiocata 6,am,ruote,posta,y,2
am(1)=76
am(2)=88
ImpostaGiocata 7,am,ruote,posta,y,2
am(1)=4
am(2)=27
ImpostaGiocata 8,am,ruote,posta,y,2
am(1)=5
am(2)=69
ImpostaGiocata 9,am,ruote,posta,y,2
am(1)=19
am(2)=27
ImpostaGiocata 10,am,ruote,posta,y,2

For a=1 To 10
For b=1 To 10
ImpostaInterruzioni a,b,2
Next
Next
Gioca n
t=t+1
Loop
Next 
ScriviResoconto
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
  For i= 1 To 4
    For j=i+1 To 5
      a=Estratto (estrazione,r,i)
      b=Estratto(estrazione,r,j)
		c=Distanza(a,b)
		If c=6 Then
        For rr=r+1 To 10
			'For ii=1 To 4
				'For jj=ii+1 To 5
					aa=Estratto(estrazione,rr,i)
					bb=Estratto(estrazione,rr,j)
					cc=Distanza(aa,bb)
					If c=cc Then
							trovati=trovati+1
    	    				If trovati=tentativo Then
        	  				numero1=Estratto(estrazione,r,i)
          					numero2=Estratto(estrazione,r,j)
							numero3=Estratto(estrazione,rr,i)
          					numero4=Estratto(estrazione,rr,j)
							ruota1=r
							ruota2=rr
							DISAMBO=True
          					Exit Function 
	  						End If 
					End If 
      			'Next
			'Next
		Next
		End If 
    Next
  Next
Next
DISAMBO=False
End Function

questo listato cerca due ambi isotopi di distanza 6 e comprende la previsione .
a questo punto tu non tenere conto della previsione e cambi il 6 con 18 .

e speriamo che qualkun altro venga in soccorso .
adesso cerco quello di ditanza 18 in diagonale

bye bye

franca46 · 11 Agosto 2006

Codice:

Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
posta(2)=1
y=11
For n=6876 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1)&" "&Cint(n1)&" "&Cint(n2)&"  "& NomeRuota(r2)&" "&Cint(n3)&" "&Cint(n4)
am(1)=38
am(2)=65
ImpostaGiocata 1,am,ruote,posta,y,2
am(1)=22
am(2)=32
ImpostaGiocata 2,am,ruote,posta,y,2
am(1)=24
am(2)=66
ImpostaGiocata 3,am,ruote,posta,y,2
am(1)=24
am(2)=88
ImpostaGiocata 4,am,ruote,posta,y,2
am(1)=32
am(2)=90
ImpostaGiocata 5,am,ruote,posta,y,2
am(1)=40
am(2)=88
ImpostaGiocata 6,am,ruote,posta,y,2
am(1)=76
am(2)=88
ImpostaGiocata 7,am,ruote,posta,y,2
am(1)=4
am(2)=27
ImpostaGiocata 8,am,ruote,posta,y,2
am(1)=5
am(2)=69
ImpostaGiocata 9,am,ruote,posta,y,2
am(1)=19
am(2)=27
ImpostaGiocata 10,am,ruote,posta,y,2

For a=1 To 10
For b=1 To 10
ImpostaInterruzioni a,b,2
Next
Next
Gioca n
t=t+1
Loop
Next 
ScriviResoconto
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
  For i= 1 To 4
    For j=i+1 To 5
      a=Estratto (estrazione,r,i)
      b=Estratto(estrazione,r,j)
		c=Distanza(a,b)
		If c=6 Then
        For rr=r+1 To 10
			'For ii=1 To 4
				'For jj=ii+1 To 5
					aa=Estratto(estrazione,rr,i)
					bb=Estratto(estrazione,rr,j)
					cc=Distanza(aa,bb)
					If c=cc Then
							trovati=trovati+1
    	    				If trovati=tentativo Then
        	  				numero1=Estratto(estrazione,r,i)
          					numero2=Estratto(estrazione,r,j)
							numero3=Estratto(estrazione,rr,i)
          					numero4=Estratto(estrazione,rr,j)
							ruota1=r
							ruota2=rr
							DISAMBO=True
          					Exit Function 
	  						End If 
					End If 
      			'Next
			'Next
		Next
		End If 
    Next
  Next
Next
DISAMBO=False
End Function

questo listato cerca due ambi isotopi di distanza 6 e comprende la previsione .
a questo punto tu non tenere conto della previsione e cambi il 6 con 18 .

e speriamo che qualkun altro venga in soccorso .
adesso cerco quello di ditanza 18 in diagonale

bye bye

franca46 · 11 Agosto 2006

Codice:

Dim n(4),nm(2),est(7)
Dim amb(1)
Dim ruote(10)
Dim ruota(10)
Dim posta(1)
Dim poste(2)
Dim poste1(2)
Dim tf(3,4),f(4)
tf(1,1)=1:tf(1,2)=4:tf(1,3)=7:tf(1,4)=0
tf(2,1)=2:tf(2,2)=5:tf(2,3)=8:tf(2,4)=0
tf(3,1)=3:tf(3,2)=6:tf(3,3)=9:tf(3,4)=0

posta(1)=1

nc=12 'Numero di colpi per Ambata
nb=12'Numero colpi per gli ambi
t=0 'Contatore per il numero di giocate
tst=" ********** "
tst1="LA DISTANZA 18"
spc1=(90-Len(tst+tst1+tst))/2
tst2="ALLA RIBALTA"
spc2=(90-Len(tst+tst2+tst))/2
Scrivi Space(spc1)&tst&tst1&tst& Chr(10),1
Scrivi Space(spc2)&tst&tst2&tst& Chr(10),1
ColoreTesto 2 : Scrivi Space((90-Len("GAETANO LAI"))/2)&"GAETANO LAI"& Chr(10),1
ColoreTesto 1 : Scrivi String(65,"*")&"listato da Franco Florindi"& Chr(10),1
ColoreTesto 0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
ini= EstrazioneFin -rs
fin= EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi String(40," ")&"****** Rendiconto ****** ",1
Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'--------------------------------------------------------------------------------
stp=InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ???"&_
Chr(13)&Chr(13)& "SI = 1" &Chr(13)& "NO = 0",,1)

For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
For r=1 To 9
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,pp)
f(1)=Figura(a)
f(2)=Figura(b)
d1=Distanza(f(1),f(2))
If d1=3 Or d1=6 Then
If Pari(a)=True And Pari(b)=True Or Pari(a)=False And Pari(b)=False Then

For rr=r+1 To 10
For q=1 To 4
For qq=q+1 To 5
c=Estratto (es,rr,q)
d=Estratto (es,rr,qq)
f(3)=Figura(c)
f(4)=Figura(d)
d2=Distanza(f(3),f(4))
If d2=3 Or d2=6 Then
If Pari(c)=True And Pari(d)=True Or Pari(c)=False And Pari(d)=False Then

s1=(a+c)
s2=(b+d)
dv1=Distanza(a,c)
dv2=Distanza(b,d)
If dv1=18 And dv2=18 Then


For x=1 To 4 : For y=1 To 3 : For j=1 To 3
If f(x)=tf(y,j) Then tf(y,4)=tf(y,4)+1
Next : Next : Next
If tf(1,4)=4 Or tf(2,4)=4 Or tf(3,4)=4 Then

df1=Abs (a-c)
df2=Abs (b-d)
If df1=72 Then sm1=Fuori90((s1/2)+45)
If df1=18 Then sm1=s1/2
If df2=72 Then sm2=Fuori90((s2/2)+45)
If df2=18 Then sm2=s2/2
'Controlla ed annulla la previsione quando l'ambata appartiene alla terna simmetrica.
dm=Distanza(sm1,sm2)
If dm<>30 Then
st=Fuori90((sm1+sm2)/2)
n(1)=st
n(2)=Diametrale(sm1)
n(3)=Diametrale(sm2)
n(4)=Diametrale(st)


amb(1)=st

ruote(1)=r
ruote(2)=rr
ruota(1)=11
co=1
ce=0
t=t+1
Scrivi
Scrivi "-------------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " " & Format2(a)& " " & Format2(b)&" Somma Media Vert. " &_
Format2(sm1)&" e "& Format2(sm2)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rr),2) & " "& Format2(c)& " "& Format2(d)&" Dist.Vert. " & Format2(dv1)
Scrivi "-------------------------------------------------------------------"&"Giocata n°"& Format2(t)

ImpostaGiocata co,amb,ruote,posta,nc,1

For x=1 To 1
nm(1)=n(x)
For y=x+1 To 4
co=co+1
nm(2)=n(y)
poste(2)=1
ImpostaGiocata co,nm,ruote,poste,nb,2
Next
Next

For x=1 To 1
nm(1)=n(x)
For y=x+1 To 4
co=co+1
nm(2)=n(y)
poste1(2)=2
ImpostaGiocata co,nm,ruota,poste1,nb,2
Next
Next


If stp=1 Then
For j=2 To 7
For z=1 To 7
ImpostaInterruzioni z,1,1
ImpostaInterruzioni z,j,2
Next
Next
End If
If es>(fin-nc) Then
Gioca es,,True
Else
Gioca es,True,True
End If

ce=0
For j=1 To 7
If Esito(j)=True Then est(j)=est(j)+1:ce=ce+1
Next
ColoreTesto 2
If ce=0 And es<(fin-nc) Then
Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+nc)
End If
If ce=0 And es>(fin-nc) Then
Scrivi String(49," ")&"Giocata in corso"
Scrivi
End If
ColoreTesto 0
Scrivi



End If
End If
End If
End If
End If
Next
For xx=1 To 3 : tf(xx,4)=0 : Next
Erase n
Next
Next
End If
End If
Next
Next
Next
Next

ScriviResoconto 1
ScriviResoconto

Sub main()

End Sub

questo è per la distanza 18 in verticale ,come s

franca46 · 11 Agosto 2006

Codice:

Dim n(4),nm(2),est(7)
Dim amb(1)
Dim ruote(10)
Dim ruota(10)
Dim posta(1)
Dim poste(2)
Dim poste1(2)
Dim tf(3,4),f(4)
tf(1,1)=1:tf(1,2)=4:tf(1,3)=7:tf(1,4)=0
tf(2,1)=2:tf(2,2)=5:tf(2,3)=8:tf(2,4)=0
tf(3,1)=3:tf(3,2)=6:tf(3,3)=9:tf(3,4)=0

posta(1)=1

nc=12 'Numero di colpi per Ambata
nb=12'Numero colpi per gli ambi
t=0 'Contatore per il numero di giocate
tst=" ********** "
tst1="LA DISTANZA 18"
spc1=(90-Len(tst+tst1+tst))/2
tst2="ALLA RIBALTA"
spc2=(90-Len(tst+tst2+tst))/2
Scrivi Space(spc1)&tst&tst1&tst& Chr(10),1
Scrivi Space(spc2)&tst&tst2&tst& Chr(10),1
ColoreTesto 2 : Scrivi Space((90-Len("GAETANO LAI"))/2)&"GAETANO LAI"& Chr(10),1
ColoreTesto 1 : Scrivi String(65,"*")&"listato da Franco Florindi"& Chr(10),1
ColoreTesto 0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
ini= EstrazioneFin -rs
fin= EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi String(40," ")&"****** Rendiconto ****** ",1
Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'--------------------------------------------------------------------------------
stp=InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ???"&_
Chr(13)&Chr(13)& "SI = 1" &Chr(13)& "NO = 0",,1)

For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
For r=1 To 9
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,pp)
f(1)=Figura(a)
f(2)=Figura(b)
d1=Distanza(f(1),f(2))
If d1=3 Or d1=6 Then
If Pari(a)=True And Pari(b)=True Or Pari(a)=False And Pari(b)=False Then

For rr=r+1 To 10
For q=1 To 4
For qq=q+1 To 5
c=Estratto (es,rr,q)
d=Estratto (es,rr,qq)
f(3)=Figura(c)
f(4)=Figura(d)
d2=Distanza(f(3),f(4))
If d2=3 Or d2=6 Then
If Pari(c)=True And Pari(d)=True Or Pari(c)=False And Pari(d)=False Then

s1=(a+c)
s2=(b+d)
dv1=Distanza(a,c)
dv2=Distanza(b,d)
If dv1=18 And dv2=18 Then


For x=1 To 4 : For y=1 To 3 : For j=1 To 3
If f(x)=tf(y,j) Then tf(y,4)=tf(y,4)+1
Next : Next : Next
If tf(1,4)=4 Or tf(2,4)=4 Or tf(3,4)=4 Then

df1=Abs (a-c)
df2=Abs (b-d)
If df1=72 Then sm1=Fuori90((s1/2)+45)
If df1=18 Then sm1=s1/2
If df2=72 Then sm2=Fuori90((s2/2)+45)
If df2=18 Then sm2=s2/2
'Controlla ed annulla la previsione quando l'ambata appartiene alla terna simmetrica.
dm=Distanza(sm1,sm2)
If dm<>30 Then
st=Fuori90((sm1+sm2)/2)
n(1)=st
n(2)=Diametrale(sm1)
n(3)=Diametrale(sm2)
n(4)=Diametrale(st)


amb(1)=st

ruote(1)=r
ruote(2)=rr
ruota(1)=11
co=1
ce=0
t=t+1
Scrivi
Scrivi "-------------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " " & Format2(a)& " " & Format2(b)&" Somma Media Vert. " &_
Format2(sm1)&" e "& Format2(sm2)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rr),2) & " "& Format2(c)& " "& Format2(d)&" Dist.Vert. " & Format2(dv1)
Scrivi "-------------------------------------------------------------------"&"Giocata n°"& Format2(t)

ImpostaGiocata co,amb,ruote,posta,nc,1

For x=1 To 1
nm(1)=n(x)
For y=x+1 To 4
co=co+1
nm(2)=n(y)
poste(2)=1
ImpostaGiocata co,nm,ruote,poste,nb,2
Next
Next

For x=1 To 1
nm(1)=n(x)
For y=x+1 To 4
co=co+1
nm(2)=n(y)
poste1(2)=2
ImpostaGiocata co,nm,ruota,poste1,nb,2
Next
Next


If stp=1 Then
For j=2 To 7
For z=1 To 7
ImpostaInterruzioni z,1,1
ImpostaInterruzioni z,j,2
Next
Next
End If
If es>(fin-nc) Then
Gioca es,,True
Else
Gioca es,True,True
End If

ce=0
For j=1 To 7
If Esito(j)=True Then est(j)=est(j)+1:ce=ce+1
Next
ColoreTesto 2
If ce=0 And es<(fin-nc) Then
Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+nc)
End If
If ce=0 And es>(fin-nc) Then
Scrivi String(49," ")&"Giocata in corso"
Scrivi
End If
ColoreTesto 0
Scrivi



End If
End If
End If
End If
End If
Next
For xx=1 To 3 : tf(xx,4)=0 : Next
Erase n
Next
Next
End If
End If
Next
Next
Next
Next

ScriviResoconto 1
ScriviResoconto

Sub main()

End Sub

questo è per la distanza 18 in verticale ,come s

franca46 · 11 Agosto 2006

Codice:

Sub main()
Dim n(2),nm(2),est(7),nr(5)
Dim amb(1)
Dim ruote(10)
Dim ruota(10)
Dim posta(1)
Dim poste(2)
Dim poste1(2)
Dim f(4)

posta(1)=1

nc=12 'Numero di colpi per Ambata
nb=12'Numero colpi per gli ambi
t=0 'Contatore per il numero di giocate 
tst=" ********** " 
tst1="LA DISTANZA 18" 
spc1=(90-Len(tst+tst1+tst))/2 
tst2="IN DIAGONALE" 
spc2=(90-Len(tst+tst2+tst))/2 
Scrivi Space(spc1)&tst&tst1&tst& Chr(10),1 
Scrivi Space(spc2)&tst&tst2&tst& Chr(10),1 
ColoreTesto 2 : Scrivi Space((90-Len("FRANCO MONGILLO"))/2)&"FRANCO MONGILLO"& Chr(10),1 
ColoreTesto 1 : Scrivi String(65,"*")&"listato da Franco Florindi"& Chr(10),1 
ColoreTesto 0 
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
ini= EstrazioneFin -rs
fin= EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi 
Scrivi String(40," ")&"****** Rendiconto ****** ",1 
Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi 
'--------------------------------------------------------------------------------
stp=InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ???"&_
Chr(13)&Chr(13)& "SI = 1" &Chr(13)& "NO = 0",,1)

For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
For r=1 To 9 : For p=1 To 4 :For pp=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,pp)
f(1)=Figura(a) : f(2)=Figura(b)
d1=Distanza(f(1),f(2))
If d1=3 Or d1=6 Then 

For rr=r+1 To 12 : For q=1 To 4 : For qq=q+1 To 5
c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
f(3)=Figura(c) : f(4)=Figura(d)
d2=Distanza(f(3),f(4))
If d2=3 Or d2=6 Then

dd1=Distanza(a,d)
dd2=Distanza(b,c)
If dd1=18 And dd2=18 Then 

'Quadratura somme
so1=Fuori90(a+b)
so2=Fuori90(c+d)
sv1=Fuori90(a+c)
sv2=Fuori90(b+d)
sd1=Fuori90(a+d)
sd2=Fuori90(b+c)

s1=Fuori90(so1+so2)
s2=Fuori90(sv1+sv2)
If s1=s2 Then 

'Quadratura differenze
do1=Abs (a-b)
do2=Abs (c-d)
dv1=Abs (a-c)
dv2=Abs (b-d)
If do1=do2 Or dv1=dv2 Then 
If do1=do2 Then nr(1)=Fuori90(do1*2) : nr(2)=dv1 : nr(3)=dv2 : nr(4)=Fuori90(dv1*2) : nr(5)=Fuori90(dv2*2) 
If dv1=dv2 Then nr(1)=Fuori90(dv1*2) : nr(2)=do1 : nr(3)=do2 : nr(4)=Fuori90(do1*2) : nr(5)=Fuori90(do2*2)

amb(1)=Diametrale(s1)

ruote(1)=r
ruote(2)=rr
ruota(1)=11
co=1
ce=0
t=t+1
'Controlla ed elimina la previsione con la presenza dell'ambata o dell'elemento somma.
n(1)=amb(1) : n(2)=s1
sf=SerieFreq(es,es,n,ruote,1)
If sf=0 Then 
ColoreTesto 1
Scrivi String(119,"-")& Chr(10)& DataEstrazione(es,1)&" "&Left(NomeRuota(r),2)&" "&_ 
Format2(a)&" "& Format2(b)&" Dist. Diag." & Format2(dd1)&" Quadr.Somme So1: "&_ 
Format2(so1)&" Sv1: "& Format2(sv1)&" Sd1: "& Format2(sd1)&" S1: "& Format2(s1)&" Quadr.Diff. Dfo1: "&_ 
Format2(do1)&" Dfv1: "& Format2(dv1)& Chr(10)&_ 
DataEstrazione(es,1)&" "&Left(NomeRuota(rr),3)&" "& Format2(c)&" "&_ 
Format2(d)&" Dist. Diag." & Format2(dd2)& Space(14)&"So2: "& Format2(so2)&_ 
" Sv2: "& Format2(sv2)&" Sd2: "& Format2(sd2)&" S2: "& Format2(s2)& Space(14)&"Dfo2: "& Format2(do2)&_ 
" Dfv2: "& Format2(dv2)& Chr(10)&_ 
String(110,"-")&"Giocata n°"& Format2(t) 
ColoreTesto 0


ImpostaGiocata co,amb,ruote,posta,nc,1

For x=1 To 1
nm(1)=amb(x)
For y=1 To 5 
co=co+1
nm(2)=nr(y)
poste(2)=1
ImpostaGiocata co,nm,ruote,poste,nb,2
Next
Next

For x=1 To 1
nm(1)=amb(x)
For y=1 To 1
co=co+1
nm(2)=nr(y)
poste1(2)=2
ImpostaGiocata co,nm,ruota,poste1,nb,2
Next
Next


If stp=1 Then 
For j=2 To 7
For z=1 To 7
ImpostaInterruzioni z,1,1
ImpostaInterruzioni z,j,2
Next
Next
End If 
If es>(fin-nc) Then 
Gioca es,,True 
Else
Gioca es,True,True
End If 

ce=0
For j=1 To 7
If Esito(j)=True Then est(j)=est(j)+1:ce=ce+1
Next
ColoreTesto 2
If ce=0 And es<(fin-nc) Then
Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+nc)
End If
If ce=0 And es>(fin-nc) Then
Scrivi String(49," ")&"Giocata in corso"
Scrivi
End If 
ColoreTesto 0
Scrivi 


End If 
End If 
End If 
End If 
End If
Next : Next : Next
End If : Next : Next : Next : Next 

ScriviResoconto 1
ScriviRes

TECNICA : Una Fetecchia -.-'

Roby

Guest

Senior Member

Senior Member

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<