La Figura del TRIANGOLO per TRE TERZINE

Imaging · 14 Agosto 2022

bubù ha scritto:
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) = 1os2(3) = 1 os3(2) = 1.80os3(3) = 1.00os3(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 & ")",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ù · 15 Agosto 2022

'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

os2(3) = 1

os3(2) = 1.80

os3(3) = 1.00

os3(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

& ")",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ù · 15 Agosto 2022

bubù ha scritto:

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 · 15 Agosto 2022

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

Imaging · 15 Agosto 2022

bubù ha scritto:
'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) = 1os2(3) = 1 os3(2) = 1.80os3(3) = 1.00os3(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 & ")",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!!!!

cosi si fa .........

Zetrix · 15 Agosto 2022

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]

Imaging · 15 Agosto 2022

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

Tu si nà cosa GRANDE.............

Imaging · 15 Agosto 2022

Zetrix ha scritto:
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 · 15 Agosto 2022

Imaging adesso e tardi non riesco a seguirti le cose che scrivi..
continuiamo domani con i cruciverba..buonanotte a tutti..

Imaging · 15 Agosto 2022

Zetrix ha scritto:
Imaging adesso e tardi non riesco a seguirti le cose che scrivi..
continuiamo domani con i cruciverba..buonanotte..

Sogni d'oro anche a Te notte???

Zetrix · 15 Agosto 2022

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

Zetrix · 15 Agosto 2022

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 · 15 Agosto 2022

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..

Zetrix · 15 Agosto 2022

[TT] [NA][.. .. .. 38 88] C.1 Ambo [04/08/2022] [10.48.04.38.88]

Imaging · 15 Agosto 2022

Buon Ferragosto a tutti .........ma il 59 dov' è ,nello schema non si vede la previsione.....

Imaging · 15 Agosto 2022

Zetrix ha scritto:
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

Imaging · 15 Agosto 2022

Imaging ha scritto:
Buon Ferragosto a tutti .........ma il 59 dov' è ,nello schema non si vede la previsione.....

Ringraziamo . . . Rudivall

Zetrix · 15 Agosto 2022

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..

Zetrix · 15 Agosto 2022

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..

Imaging · 15 Agosto 2022

Zetrix ha scritto:
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 .......

La Figura del TRIANGOLO per TRE TERZINE

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<