Novità

La Figura del TRIANGOLO per TRE TERZINE

Imaging

Advanced Member >PLATINUM<
Zetrix grazie per i tuoi script e per il tuo lavoro, il concetto del tuo cruciverba è molto interessante, tempo fa avevo iniziato anche io alla ricerca "del numero perduto" l'avevo chiamato così, e con l'aiuto di un caro Amico ero riuscito a fare quello che adesso ti allego. Ovviamente non è all'altezza di quello che stai facendo Tu . Buon Ferragosto a Tutti quelli che leggono

'Alla ricerca del numero perduto By BubùLotto
ColoreTesto 1
Scrivi String(17,32) & " vers,3 14-01-13 ",1

Scrivi
Scrivi String(48,32) & "Listato BubùLotto",1
ColoreTesto 0
Sub Main()
Dim am(2),ambi(5),ci(5),nn(3),ru(10),ruo(10),pos1(10),pos2(10),pos3(10)
'pos1(10)=1:
pos2(2) = 1:pos2(3) = 1 :pos3(2) = 1.80:pos3(3) = 1.00:pos3(4) = 0.20
estr = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",5))
k = CInt(InputBox("Quanti colpi di GIOCO?","colpi di GIOCO",13))
fin = EstrazioneFin
ini = fin - estr
For es = ini To fin:Messaggio(es)

For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r
For p = 1 To 5
a = Estratto(es,r,p)

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
ru(2) = r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p1)
c = Estratto(es,r1,p2)


If r <> r1 Then
cad1 = Cadenza(a):cad2 = Cadenza(b):cad3 = Cadenza(c)

dis1 = Distanza(a,b):dis2 = Distanza(b,c)
If a <> b And a <> c Then

If cad1 = cad2 And cad2 = cad3 Then

x = Fuori90(c + dis1) :x1 = Fuori90(90 + c - dis1)

dis4 = Distanza(c,x):dis41 = Distanza(c,x1)
If dis4 = dis1 And Distanza(a,x) = Distanza(b,c) Then y = x
If dis41 = dis1 And Distanza(a,x1) = Distanza(b,c) Then y = x1


For r1r = 1 To 11
If r1r = 11 Then r1r = 12
ru(3) = r1r
For p1p = 1 To 5
a1a = Estratto(es,r1r,p1p)

For r1r1 = 1 To 11
If r1r1 = 11 Then r1r1 = 12
ru(4) = r1r1
For p1p1 = 1 To 4
For p1p2 = p1p1 + 1 To 5
b1b = Estratto(es,r1r1,p1p1)
c1c = Estratto(es,r1r1,p1p2)
ruo(1) = r1
ruo(2) = r1r
ruo(3) = 11
If r <> r1 And r1r <> r1r1 And((r = r1r And r1 = r1r1)Or(r = r1r1 And r1 = r1r))Then
c1cad1 = Cadenza(a1a):c1cad2 = Cadenza(b1b):c1cad3 = Cadenza(c1c)

d1dis1 = Distanza(a1a,b1b):d1dis2 = Distanza(b1b,c1c)
If a1a <> b1b And a1a <> c1c And a <> c1c And a <> b1b And a <> a1a _
And b <> c1c And b <> b1b And b <> a1a And c > c1c And c <> b1b And c <> a1a Then

If c1cad1 = c1cad2 And c1cad2 = c1cad3 Then

x1x = Fuori90(c1c + d1dis1) :x1x1 = Fuori90(90 + c1c - d1dis1)

d1dis4 = Distanza(c1c,x1x):d1dis41 = Distanza(c1c,x1x1)
If d1dis4 = d1dis1 And Distanza(a1a,x1x) = Distanza(b1b,c1c) Then y1y = x1x
If d1dis41 = d1dis1 And Distanza(a1a,x1x1) = Distanza(b1b,c1c) Then y1y = x1x1

abb1 = Fuori90(y + 30) '35
If abb1 = a Or abb1 = b Or abb1 = c Then abb1 = 0
abb2 = Fuori90(y + 60) '65
If abb2 = a Or abb2 = b Or abb2 = c Then abb2 = 0
abb3 = Fuori90(y1y + 30) '66
If abb3 = a1a Or abb3 = b1b Or abb3 = c1c Then abb3 = 0
abb4 = Fuori90(y1y + 60)'6
If abb4 = a1a Or abb4 = b1b Or abb4 = c1c Then abb4 = 0
abb5 = 90
casi = casi + 1
Scrivi String(65,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] ",1
Scrivi
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi" " & Format2(a) & " (" & Format2(y) & ")",1
Scrivi" Distanza (" & Format2(dis1) & ") (" & Format2(dis1) & ") Distanza ",1
Scrivi" " & Format2(b) & " " & Format2(c),1
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi

Scrivi"*************************************************"
Scrivi
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi" " & Format2(a1a) & " (" & Format2(y1y) & ")",1
Scrivi" Distanza (" & Format2(d1dis1) & ") (" & Format2(d1dis1) & ") Distanza ",1
Scrivi" " & Format2(b1b) & " " & Format2(c1c),1
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi


ColoreTesto 0

co = 0
pos1(1) = 1


am(1) = y '36
am(2) = y1y '8
co = co + 1
ImpostaGiocata co,am,ru,pos1,k,1
ambi(1) = am(1) '36
ambi(2) = am(2) '5
ambi(3) = abb5 '90
ambi(4) = abb5
ambi(5) = abb5
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ru,pos2,k,3
ambi(1) = abb2 '6
ambi(2) = abb1 '66
ambi(3) = abb3 '35
ambi(4) = am(2) '5
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb5 '90
ambi(2) = am(1) '36
ambi(3) = am(2) '05
ambi(4) = abb3 '66
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb2 '06
ambi(2) = abb1 '66
ambi(3) = am(1) '36
ambi(4) = abb5 '90
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
Gioca es
End If
End If
End If

Next
Next
Next
Next
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Rimetti il listato da errori ed è sfogato grazie buon ferragosto!!
 

bubù

Advanced Member >PLATINUM PLUS<
'Alla ricerca del numero perduto By BubùLotto
ColoreTesto 1
Scrivi String(17,32) & " vers,3 14-01-13 ",1

Scrivi
Scrivi String(48,32) & "Listato BubùLotto",1
ColoreTesto 0
Sub Main()
Dim am(2),ambi(5),ci(5),nn(3),ru(10),ruo(10),pos1(10),pos2(10),pos3(10)
'pos1(10)=1:
pos2(2) = 1:pos2(3) = 1 :pos3(2) = 1.80:pos3(3) = 1.00:pos3(4) = 0.20
estr = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",5))
k = CInt(InputBox("Quanti colpi di GIOCO?","colpi di GIOCO",13))
fin = EstrazioneFin
ini = fin - estr
For es = ini To fin:Messaggio(es)

For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r
For p = 1 To 5
a = Estratto(es,r,p)

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
ru(2) = r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p1)
c = Estratto(es,r1,p2)


If r <> r1 Then
cad1 = Cadenza(a):cad2 = Cadenza(b):cad3 = Cadenza(c)

dis1 = Distanza(a,b):dis2 = Distanza(b,c)
If a <> b And a <> c Then

If cad1 = cad2 And cad2 = cad3 Then

x = Fuori90(c + dis1) :x1 = Fuori90(90 + c - dis1)

dis4 = Distanza(c,x):dis41 = Distanza(c,x1)
If dis4 = dis1 And Distanza(a,x) = Distanza(b,c) Then y = x
If dis41 = dis1 And Distanza(a,x1) = Distanza(b,c) Then y = x1


For r1r = 1 To 11
If r1r = 11 Then r1r = 12
ru(3) = r1r
For p1p = 1 To 5
a1a = Estratto(es,r1r,p1p)

For r1r1 = 1 To 11
If r1r1 = 11 Then r1r1 = 12
ru(4) = r1r1
For p1p1 = 1 To 4
For p1p2 = p1p1 + 1 To 5
b1b = Estratto(es,r1r1,p1p1)
c1c = Estratto(es,r1r1,p1p2)
ruo(1) = r1
ruo(2) = r1r
ruo(3) = 11
If r <> r1 And r1r <> r1r1 And((r = r1r And r1 = r1r1)Or(r = r1r1 And r1 = r1r))Then
c1cad1 = Cadenza(a1a):c1cad2 = Cadenza(b1b):c1cad3 = Cadenza(c1c)

d1dis1 = Distanza(a1a,b1b):d1dis2 = Distanza(b1b,c1c)
If a1a <> b1b And a1a <> c1c And a <> c1c And a <> b1b And a <> a1a _
And b <> c1c And b <> b1b And b <> a1a And c > c1c And c <> b1b And c <> a1a Then

If c1cad1 = c1cad2 And c1cad2 = c1cad3 Then

x1x = Fuori90(c1c + d1dis1) :x1x1 = Fuori90(90 + c1c - d1dis1)

d1dis4 = Distanza(c1c,x1x):d1dis41 = Distanza(c1c,x1x1)
If d1dis4 = d1dis1 And Distanza(a1a,x1x) = Distanza(b1b,c1c) Then y1y = x1x
If d1dis41 = d1dis1 And Distanza(a1a,x1x1) = Distanza(b1b,c1c) Then y1y = x1x1

abb1 = Fuori90(y + 30) '35
If abb1 = a Or abb1 = b Or abb1 = c Then abb1 = 0
abb2 = Fuori90(y + 60) '65
If abb2 = a Or abb2 = b Or abb2 = c Then abb2 = 0
abb3 = Fuori90(y1y + 30) '66
If abb3 = a1a Or abb3 = b1b Or abb3 = c1c Then abb3 = 0
abb4 = Fuori90(y1y + 60)'6
If abb4 = a1a Or abb4 = b1b Or abb4 = c1c Then abb4 = 0
abb5 = 90
casi = casi + 1
Scrivi String(65,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] ",1
Scrivi
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi" " & Format2(a) & " (" & Format2(y) & ")",1
Scrivi" Distanza (" & Format2(dis1) & ") (" & Format2(dis1) & ") Distanza ",1
Scrivi" " & Format2(b) & " " & Format2(c),1
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi

Scrivi"*************************************************"
Scrivi
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi" " & Format2(a1a) & " (" & Format2(y1y) & ")",1
Scrivi" Distanza (" & Format2(d1dis1) & ") (" & Format2(d1dis1) & ") Distanza ",1
Scrivi" " & Format2(b1b) & " " & Format2(c1c),1
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi


ColoreTesto 0

co = 0
pos1(1) = 1


am(1) = y '36
am(2) = y1y '8
co = co + 1
ImpostaGiocata co,am,ru,pos1,k,1
ambi(1) = am(1) '36
ambi(2) = am(2) '5
ambi(3) = abb5 '90
ambi(4) = abb5
ambi(5) = abb5
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ru,pos2,k,3
ambi(1) = abb2 '6
ambi(2) = abb1 '66
ambi(3) = abb3 '35
ambi(4) = am(2) '5
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb5 '90
ambi(2) = am(1) '36
ambi(3) = am(2) '05
ambi(4) = abb3 '66
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb2 '06
ambi(2) = abb1 '66
ambi(3) = am(1) '36
ambi(4) = abb5 '90
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
Gioca es
End If
End If
End If

Next
Next
Next
Next
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Spero che adesso vada meglio
Scusate
 

bubù

Advanced Member >PLATINUM PLUS<
Zetrix grazie per i tuoi script e per il tuo lavoro, il concetto del tuo cruciverba è molto interessante, tempo fa avevo iniziato anche io alla ricerca "del numero perduto" l'avevo chiamato così, e con l'aiuto di un caro Amico ero riuscito a fare quello che adesso ti allego. Ovviamente non è all'altezza di quello che stai facendo Tu . Buon Ferragosto a Tutti quelli che leggono

Codice:
'Alla ricerca del numero perduto By BubùLotto
ColoreTesto 1
Scrivi String(17,32) & " vers,3  14-01-13 ",1

Scrivi
Scrivi String(48,32) & "Listato BubùLotto",1
ColoreTesto 0
Sub Main()
Dim am(2),ambi(5),ci(5),nn(3),ru(10),ruo(10),pos1(10),pos2(10),pos3(10)
'pos1(10)=1:
pos2(2) = 1:pos2(3) = 1 :pos3(2) = 1.80:pos3(3) = 1.00:pos3(4) = 0.20
estr = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",5))
k = CInt(InputBox("Quanti colpi  di GIOCO?","colpi  di GIOCO",13))
fin = EstrazioneFin
ini = fin - estr
For es = ini To fin:Messaggio(es)

For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r
For p = 1 To 5
a = Estratto(es,r,p)

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
ru(2) = r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p1)
c = Estratto(es,r1,p2)


If r <> r1 Then
cad1 = Cadenza(a):cad2 = Cadenza(b):cad3 = Cadenza(c)

dis1 = Distanza(a,b):dis2 = Distanza(b,c)
If a <> b And a <> c Then

If cad1 = cad2 And cad2 = cad3 Then

x = Fuori90(c + dis1) :x1 = Fuori90(90 + c - dis1)

dis4 = Distanza(c,x):dis41 = Distanza(c,x1)
If dis4 = dis1 And Distanza(a,x) = Distanza(b,c) Then y = x
If dis41 = dis1 And Distanza(a,x1) = Distanza(b,c) Then y = x1


For r1r = 1 To 11
If r1r = 11 Then r1r = 12
ru(3) = r1r
For p1p = 1 To 5
a1a = Estratto(es,r1r,p1p)

For r1r1 = 1 To 11
If r1r1 = 11 Then r1r1 = 12
ru(4) = r1r1
For p1p1 = 1 To 4
For p1p2 = p1p1 + 1 To 5
b1b = Estratto(es,r1r1,p1p1)
c1c = Estratto(es,r1r1,p1p2)
ruo(1) = r1
ruo(2) = r1r
ruo(3) = 11
If r <> r1 And r1r <> r1r1 And((r = r1r And r1 = r1r1)Or(r = r1r1 And r1 = r1r))Then
c1cad1 = Cadenza(a1a):c1cad2 = Cadenza(b1b):c1cad3 = Cadenza(c1c)

d1dis1 = Distanza(a1a,b1b):d1dis2 = Distanza(b1b,c1c)
If a1a <> b1b And a1a <> c1c And a <> c1c And a <> b1b And a <> a1a _
And b <> c1c And b <> b1b And b <> a1a And c > c1c And c <> b1b And c <> a1a Then

If c1cad1 = c1cad2 And c1cad2 = c1cad3 Then

x1x = Fuori90(c1c + d1dis1) :x1x1 = Fuori90(90 + c1c - d1dis1)

d1dis4 = Distanza(c1c,x1x):d1dis41 = Distanza(c1c,x1x1)
If d1dis4 = d1dis1 And Distanza(a1a,x1x) = Distanza(b1b,c1c) Then y1y = x1x
If d1dis41 = d1dis1 And Distanza(a1a,x1x1) = Distanza(b1b,c1c) Then y1y = x1x1

abb1 = Fuori90(y + 30) '35
If abb1 = a Or abb1 = b Or abb1 = c Then abb1 = 0
abb2 = Fuori90(y + 60) '65
If abb2 = a Or abb2 = b Or abb2 = c Then abb2 = 0
abb3 = Fuori90(y1y + 30) '66
If abb3 = a1a Or abb3 = b1b Or abb3 = c1c Then abb3 = 0
abb4 = Fuori90(y1y + 60)'6
If abb4 = a1a Or abb4 = b1b Or abb4 = c1c Then abb4 = 0
abb5 = 90
casi = casi + 1
Scrivi String(65,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ]  ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ]  ",1
Scrivi
Scrivi"          Distanza (" & Format2(dis2) & ") ",1
Scrivi"                  " & Format2(a) & " (" & Format2(y) & ")",1
Scrivi"     Distanza (" & Format2(dis1) & ")       (" & Format2(dis1) & ")  Distanza ",1
Scrivi"                  " & Format2(b) & "  " & Format2(c),1
Scrivi"          Distanza (" & Format2(dis2) & ") ",1
Scrivi

Scrivi"*************************************************"
Scrivi
Scrivi"          Distanza (" & Format2(d1dis2) & ") ",1
Scrivi"                  " & Format2(a1a) & " (" & Format2(y1y) & ")",1
Scrivi"     Distanza (" & Format2(d1dis1) & ")       (" & Format2(d1dis1) & ")  Distanza ",1
Scrivi"                  " & Format2(b1b) & "  " & Format2(c1c),1
Scrivi"          Distanza (" & Format2(d1dis2) & ") ",1
Scrivi


ColoreTesto 0

co = 0
pos1(1) = 1


am(1) = y '36
am(2) = y1y '8
co = co + 1
ImpostaGiocata co,am,ru,pos1,k,1
ambi(1) = am(1) '36
ambi(2) = am(2) '5
ambi(3) = abb5 '90
ambi(4) = abb5
ambi(5) = abb5
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ru,pos2,k,3
ambi(1) = abb2 '6
ambi(2) = abb1 '66
ambi(3) = abb3 '35
ambi(4) = am(2) '5
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb5 '90
ambi(2) = am(1) '36
ambi(3) = am(2) '05
ambi(4) = abb3 '66
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb2 '06
ambi(2) = abb1 '66
ambi(3) = am(1) '36
ambi(4) = abb5 '90
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
Gioca es
End If
End If
End If

Next
Next
Next
Next
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
così forse va meglio
 

Zetrix

Advanced Premium Member
grazie bubù del listato dopo vedrò di che si tratta..
i listati mettili nella sezione apposita dove ce il simbolo codice </>
ok
 

Imaging

Advanced Member >PLATINUM<
'Alla ricerca del numero perduto By BubùLotto
ColoreTesto 1
Scrivi String(17,32) & " vers,3 14-01-13 ",1

Scrivi
Scrivi String(48,32) & "Listato BubùLotto",1
ColoreTesto 0
Sub Main()
Dim am(2),ambi(5),ci(5),nn(3),ru(10),ruo(10),pos1(10),pos2(10),pos3(10)
'pos1(10)=1:
pos2(2) = 1:pos2(3) = 1 :pos3(2) = 1.80:pos3(3) = 1.00:pos3(4) = 0.20
estr = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",5))
k = CInt(InputBox("Quanti colpi di GIOCO?","colpi di GIOCO",13))
fin = EstrazioneFin
ini = fin - estr
For es = ini To fin:Messaggio(es)

For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r
For p = 1 To 5
a = Estratto(es,r,p)

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
ru(2) = r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p1)
c = Estratto(es,r1,p2)


If r <> r1 Then
cad1 = Cadenza(a):cad2 = Cadenza(b):cad3 = Cadenza(c)

dis1 = Distanza(a,b):dis2 = Distanza(b,c)
If a <> b And a <> c Then

If cad1 = cad2 And cad2 = cad3 Then

x = Fuori90(c + dis1) :x1 = Fuori90(90 + c - dis1)

dis4 = Distanza(c,x):dis41 = Distanza(c,x1)
If dis4 = dis1 And Distanza(a,x) = Distanza(b,c) Then y = x
If dis41 = dis1 And Distanza(a,x1) = Distanza(b,c) Then y = x1


For r1r = 1 To 11
If r1r = 11 Then r1r = 12
ru(3) = r1r
For p1p = 1 To 5
a1a = Estratto(es,r1r,p1p)

For r1r1 = 1 To 11
If r1r1 = 11 Then r1r1 = 12
ru(4) = r1r1
For p1p1 = 1 To 4
For p1p2 = p1p1 + 1 To 5
b1b = Estratto(es,r1r1,p1p1)
c1c = Estratto(es,r1r1,p1p2)
ruo(1) = r1
ruo(2) = r1r
ruo(3) = 11
If r <> r1 And r1r <> r1r1 And((r = r1r And r1 = r1r1)Or(r = r1r1 And r1 = r1r))Then
c1cad1 = Cadenza(a1a):c1cad2 = Cadenza(b1b):c1cad3 = Cadenza(c1c)

d1dis1 = Distanza(a1a,b1b):d1dis2 = Distanza(b1b,c1c)
If a1a <> b1b And a1a <> c1c And a <> c1c And a <> b1b And a <> a1a _
And b <> c1c And b <> b1b And b <> a1a And c > c1c And c <> b1b And c <> a1a Then

If c1cad1 = c1cad2 And c1cad2 = c1cad3 Then

x1x = Fuori90(c1c + d1dis1) :x1x1 = Fuori90(90 + c1c - d1dis1)

d1dis4 = Distanza(c1c,x1x):d1dis41 = Distanza(c1c,x1x1)
If d1dis4 = d1dis1 And Distanza(a1a,x1x) = Distanza(b1b,c1c) Then y1y = x1x
If d1dis41 = d1dis1 And Distanza(a1a,x1x1) = Distanza(b1b,c1c) Then y1y = x1x1

abb1 = Fuori90(y + 30) '35
If abb1 = a Or abb1 = b Or abb1 = c Then abb1 = 0
abb2 = Fuori90(y + 60) '65
If abb2 = a Or abb2 = b Or abb2 = c Then abb2 = 0
abb3 = Fuori90(y1y + 30) '66
If abb3 = a1a Or abb3 = b1b Or abb3 = c1c Then abb3 = 0
abb4 = Fuori90(y1y + 60)'6
If abb4 = a1a Or abb4 = b1b Or abb4 = c1c Then abb4 = 0
abb5 = 90
casi = casi + 1
Scrivi String(65,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] ",1
Scrivi
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi" " & Format2(a) & " (" & Format2(y) & ")",1
Scrivi" Distanza (" & Format2(dis1) & ") (" & Format2(dis1) & ") Distanza ",1
Scrivi" " & Format2(b) & " " & Format2(c),1
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi

Scrivi"*************************************************"
Scrivi
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi" " & Format2(a1a) & " (" & Format2(y1y) & ")",1
Scrivi" Distanza (" & Format2(d1dis1) & ") (" & Format2(d1dis1) & ") Distanza ",1
Scrivi" " & Format2(b1b) & " " & Format2(c1c),1
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi


ColoreTesto 0

co = 0
pos1(1) = 1


am(1) = y '36
am(2) = y1y '8
co = co + 1
ImpostaGiocata co,am,ru,pos1,k,1
ambi(1) = am(1) '36
ambi(2) = am(2) '5
ambi(3) = abb5 '90
ambi(4) = abb5
ambi(5) = abb5
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ru,pos2,k,3
ambi(1) = abb2 '6
ambi(2) = abb1 '66
ambi(3) = abb3 '35
ambi(4) = am(2) '5
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb5 '90
ambi(2) = am(1) '36
ambi(3) = am(2) '05
ambi(4) = abb3 '66
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb2 '06
ambi(2) = abb1 '66
ambi(3) = am(1) '36
ambi(4) = abb5 '90
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
Gioca es
End If
End If
End If

Next
Next
Next
Next
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Spero che adesso vada meglio
Scusate
Niente scuse adesso è OK!!!!(y) cosi si fa .........
 

Zetrix

Advanced Premium Member
3845.png

Imaging vediamo se sei bravo prova a inserire questi numeri nella tabella del cruciverba..
l'ambo del cruciverba e 57 3 se non ci riesci domani la metto io la tabella con il cruciverba..

[NZ] [.. 57 03 .. ..] C.1 Ambo [28/07/2022] [80.57.03.16.02]
 
Ultima modifica:

Imaging

Advanced Member >PLATINUM<
Vedi l'allegato 2239872

Imaging vediamo se sei bravo prova a inserire questi numeri nella tabella del cruciverba..
l'ambo di calcolo del cruciverba e 57 3

[NZ] [.. 57 03 .. ..] C.1 Ambo [28/07/2022] [80.57.03.16.02]
Somma 20 ......quale e il problema ma questa sono cose teoriche tue forse non hai capito ho messo la nuova estrazione e facciamo la previsione ma il criterio di ricerca per la previsione!!!!!!chiaro
 

Zetrix

Advanced Premium Member
Imaging adesso e tardi non riesco a seguirti le cose che scrivi..
continuiamo domani con i cruciverba..buonanotte a tutti..
 
Ultima modifica:

Zetrix

Advanced Premium Member
Buon Ferragosto a tutti

Imaging ho fatto un cruciverba con le differenze invece di mettere le dist..
avete notato che il 59 non esce a tutte da 10 estr..............................................
e il cruciverva che ho fatto e incluso proprio il 59..............................................
 

Zetrix

Advanced Premium Member
Bubù ho visto lo script che ai fatto ma la prospettiva del disegno non e evidenziata bene..
per la tecnica devo vedere meglio come calcola la tecnica di gioco..
 

Imaging

Advanced Member >PLATINUM<
Buon Ferragosto a tutti

Imaging ho fatto un cruciverba con le differenze invece di mettere le dist..
avete notato che il 59 non esce a tutte da 10 estr..............................................
e il cruciverva che ho fatto e incluso proprio il 59..............................................
Qui non si vede il cruciverba con la previsione(y)
 

Zetrix

Advanced Premium Member
Imaging il cruciverba con il 59 lo vediamo stasera..

ho messo il gioco anche gli ambi a tutte che si formano con
il numero centrale (numero jolly)...
adesso vi farò un cruciverba che giocano tutti e tre gli ambi..
 
Ultima modifica:

Zetrix

Advanced Premium Member
3855.png

Numeri in gioco 55.71 su GE MI PA TT per Ambo

Numeri in gioco 04.71 su GE MI PA TT per Ambo
[TT] [VE][.. .. .. 04 71] C.5 Ambo [13/08/2022] [57.28.70.04.71]

Numeri in gioco 04.55 su GE MI PA TT per Ambo

da notare qui abbiamo le dist raddoppiate 8+8=16 e 51+51=12
questo e il cruciverba con le differenze tra i numeri estratti..
quindi se si vuole giocare solo l'ambo del cruciverba si gioca solo il 55 71
se poi si vuole giocare anche con il numero jolly allora si devono giocare
anche gli ambi 4 71 e 4 55 e il gioco vale anche a tutte..
oppure si puo giocare una sola terzina 4 55 71 per ambo e terno ma solo sulle ruote
di calcolo invece solo il terno si puo giocare solo a tutte..
 
Ultima modifica:

Imaging

Advanced Member >PLATINUM<
Imaging il cruciverba con il 59 lo vediamo stasera..

ho messo in gioco anche gli ambi che si formano con
il numero centrale (numero jolly)..
adesso vi farò un cruciverba che giocano tutti e tre gli ambi..
Penso che adesso hai pensato Bene . . . Number One ....... con ambo a tutte ho visto, .... come accennato in precedenza il centrale= Ambata...in molti casi è utile .......
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto