Ciao ragazzi , se possibile , chiedo a Dj Nomade un listato che trovi due ambi isotopi o meno con un numero ripetuto avente distanza ripettivamente + 18 - 9 o -18 + 9 così :
BA 46-64 --> + 18
NA 37-46 --> - 9
Rispetto al numero ripetuto 46 abbiamo il +18 -9
37-46-XX-64 -->giochiamo il mancante 55 per BANA
----------------------------------------
GE 71-53 --> - 18
RO 71-80 --> + 9
Rispetto al numero ripetuto 71 abbiamo il +9 -18
53-XX-71-80 --> giochiamo il mancante 62 per GERO
Ciaoooo
Due ambi con distanza ..
8 messaggi
• Pagina 1 di 1
Due ambi con distanza ..
da Fortuna_68 il 11/11/2023, 0:37
- Fortuna_68
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
Re: Due ambi con distanza ..
da DjNomade il 11/11/2023, 13:40
Controlla cosi
Ciauz
Ciauz
- Codice: Seleziona tutto
'11/11/2023
'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=17955&sid=91d63d04407710570946ba7e543debd4#p17955
ColoreTesto 1
Scrivi " Due ambi con distanza + 18 - 9 o -18 + 9 by Fortuna_68",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
Sub main()
Dim n(4),nn(3)
Dim num(1)
Dim nu(6)
Dim ruote(10)
Dim ruot(1)
Dim poste(1)
Dim post(5)
poste(1)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,300)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
For r1=r+1 To 10
For p=1 To 4
For p1=p+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r1,p)
n(4)=Estratto(es,r1,p1)
a=Distanza(n(1),n(2))
b=Distanza(n(3),n(4))
If(a=9 and b=18)or(b=9 and a=18)Then
If(n(1)=n(3)Or n(1)=n(4)Or n(2)=n(3)Or n(2)=n(4)) Then
If n(1)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4):
If n(1)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3):
If n(2)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4):
If n(2)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3):
Call OrdinaMatrice(nn,1)
aa=Distanza(nn(1),nn(2))
bb=Distanza(nn(2),nn(3))
cc=Distanza(nn(1),nn(3))
If aa=18 Then c1=Fuori90(nn(1)+9)
If bb=18 Then c1=Fuori90(nn(2)+9)
If cc=18 Then c1=Fuori90(nn(3)+9)
Scrivi DataEstrazione(es),1
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_
Format2(a)&" --> "&Format2(n(1))&"."&Format2(n(2)),1
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_
Format2(b)&" --> "&Format2(n(3))&"."&Format2(n(4)),1
ColoreTesto 1
Scrivi StringaNumeri (nn),1
ColoreTesto 2
Scrivi Format2(c1)&" <----- Ambata",1
ruote(1)=r
ruote(2)=r1
num(1)=c1
ImpostaGiocata 1,num,ruote,poste,12
Gioca es
Scrivi"****************************************************************"
End If
End If
'End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
- DjNomade
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
Re: Due ambi con distanza ..
da Fortuna_68 il 11/11/2023, 14:56
Grazie mille Dj , sempre gentile , buona giornata !
- Fortuna_68
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
Re: Due ambi con distanza ..
da Fortuna_68 il 12/11/2023, 2:15
Ciao Dj , controllando i vari casi non tutti risultano esatti :
16.04.2022
Ba 47.90.39.40.81 Distanza 09 --> 90.81 --> abbiamo il -9 rispetto al ripetuto OK
Ge 02.18.15.26.90 Distanza 18 --> 18.90 --> abbiamo il +18 rispetto al ripetuto OK
Abbiamo 81-90-x-18 --> gioca il 9 successivo al 90 OK
----------------------------------------------------
25.02.2023
Fi 79.55.19.49.73 Distanza 18 --> 55.73 --> abbiamo il -18 rispetto al ripetuto
Mi 65.73.19.47.64 Distanza 09 --> 73.64 --> abbiamo il -9 rispetto al ripetuto
Abbiamo il 73 ripetuto quindi dovrebbe esserci il -9 ed il +18 oppure il +9 ed il -18 , invece abbiamo il -9 e -18 rispetto al 73
In questo caso col 73 dovremmo avere questi due casi validi :
55-73 dist 18 (-18)
73-82 dist 9 (+9)
Così avremmo : 55-x-73-82 --> gioca il 64 - 46
oppure
64-73 dist 9 (-9)
73-01 dist 18 (+18)
Così avremmo 64-73-x-01 --> gioca l' 82 - 28
Praticamente rispetto al numero ripetuto avremmo da giocare sempre o il successivo o il precedente
Un' ultima richiesta se potessi anche mettere il vertibile del numero da giocare , come ho fatto sopra , così due ambate su due ruote perchè controllando ho visto che esce anche il vertibile
Grazie e ciao
16.04.2022
Ba 47.90.39.40.81 Distanza 09 --> 90.81 --> abbiamo il -9 rispetto al ripetuto OK
Ge 02.18.15.26.90 Distanza 18 --> 18.90 --> abbiamo il +18 rispetto al ripetuto OK
Abbiamo 81-90-x-18 --> gioca il 9 successivo al 90 OK
----------------------------------------------------
25.02.2023
Fi 79.55.19.49.73 Distanza 18 --> 55.73 --> abbiamo il -18 rispetto al ripetuto
Mi 65.73.19.47.64 Distanza 09 --> 73.64 --> abbiamo il -9 rispetto al ripetuto
Abbiamo il 73 ripetuto quindi dovrebbe esserci il -9 ed il +18 oppure il +9 ed il -18 , invece abbiamo il -9 e -18 rispetto al 73
In questo caso col 73 dovremmo avere questi due casi validi :
55-73 dist 18 (-18)
73-82 dist 9 (+9)
Così avremmo : 55-x-73-82 --> gioca il 64 - 46
oppure
64-73 dist 9 (-9)
73-01 dist 18 (+18)
Così avremmo 64-73-x-01 --> gioca l' 82 - 28
Praticamente rispetto al numero ripetuto avremmo da giocare sempre o il successivo o il precedente
Un' ultima richiesta se potessi anche mettere il vertibile del numero da giocare , come ho fatto sopra , così due ambate su due ruote perchè controllando ho visto che esce anche il vertibile
Grazie e ciao
- Fortuna_68
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
Re: Due ambi con distanza ..
da DjNomade il 13/11/2023, 20:11
Per il vertibile ok, ma per il resto bho
- Codice: Seleziona tutto
'11/11/2023
'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=17955&sid=91d63d04407710570946ba7e543debd4#p17955
ColoreTesto 1
Scrivi " Due ambi con distanza + 18 - 9 o -18 + 9 by Fortuna_68 Vers.2 ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
Sub main()
Dim n(4),nn(3)
Dim num(2)
Dim nu(6)
Dim ruote(10)
Dim ruot(1)
Dim poste(1)
Dim post(5)
poste(1)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,300)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
For r1=r+1 To 10
For p=1 To 4
For p1=p+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r1,p)
n(4)=Estratto(es,r1,p1)
'a=Distanza(n(1),n(2))
'b=Distanza(n(3),n(4))
df1=Abs(n(1)-n(2))
df2=Abs(n(3)-n(4))
a=n(1)
b=n(2)
c=n(3)
d=n(4)
If df1>45 And a>b Then k1="+"
If df1>45 And a<b Then k1="-"
If df1=<45 And a>b Then k1="-"
If df1=<45 And a<b Then k1="+"
If df2>45 And c>d Then k2="+"
If df2>45 And c<d Then k2="-"
If df2=<45 And c>d Then k2="-"
If df2=<45 And c<d Then k2="+"
If (k1="-" And K2="+") Or (k1="+" And K2="-") Then
If(n(1)=n(3)Or n(1)=n(4)Or n(2)=n(3)Or n(2)=n(4)) Then
If n(1)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4): '''nn(1)=n(1)ripetuto
If n(1)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3):
If n(2)=n(3)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(4):
If n(2)=n(4)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(3):
If ((Fuori90(90+nn(1)-18)=nn(2))And (Fuori90(nn(1)+9)=nn(3)))_
Or ((Fuori90(90+nn(1)-9)=nn(2))And (Fuori90(nn(1)+18)=nn(3)))_
Or ((Fuori90(90+nn(1)+9)=nn(2))And (Fuori90(nn(1)-18)=nn(3)))_
Or ((Fuori90(90+nn(1)+18)=nn(2))And (Fuori90(nn(1)-9)=nn(3)))Then
Call OrdinaMatrice(nn,1)
df11=Abs(nn(1)-nn(2))
df22=abs(nn(1)-nn(3))
'If(df11=9 And df22=18)Or(df22=9 And df11=18)Then
cc=Distanza(nn(1),nn(3))
'If aa=18 Then c1=Fuori90(nn(2)+9)
'If bb=18 Then c1=Fuori90(nn(2)+9)
'If cc=18 Then c1=Fuori90(nn(3)+9)
'If(a=9 And b=18)Or(b=9 And a=18)Then
If ((Fuori90(90+nn(2)-18)=nn(1))And (Fuori90(nn(2)+9)=nn(3))) Then c1=Fuori90(nn(2)-9)
If ((Fuori90(90+nn(2)-9)=nn(1))And (Fuori90(nn(2)+18)=nn(3))) Then c1=Fuori90(nn(2)+9)
If ((Fuori90(90+nn(3)+9)=nn(1))And (Fuori90(nn(2)+18)=nn(3))) Then c1=Fuori90(90+nn(3)-9)
If ((Fuori90(90+nn(3)-18)=nn(1))And (Fuori90(nn(2)+9)=nn(3))) Then c1=Fuori90(90+nn(3)-9)
'If ((Fuori90(n(1)+18)=n(2))And (Fuori90(90+n(3)-9)=n(4))) Then c1=Fuori90(nn(1)+9)
'If ((Fuori90(90+n(1)-18)=n(2))And (Fuori90(n(3)+9)=n(4))) Then c1=Fuori90(nn(1)-9)
caso= caso+1
Scrivi " ========================================== Caso N. "&caso,1
Scrivi DataEstrazione(es),1
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_
Format2(a)&" --> "&Format2(n(1))&"."&Format2(n(2))&" ----- "&k1,1
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_
Format2(b)&" --> "&Format2(n(3))&"."&Format2(n(4))&" ----- "&k2,1
ColoreTesto 1
Scrivi StringaNumeri (nn),1
ColoreTesto 2
Scrivi Format2(c1)&" <----- Ambata",1
ruote(1)=r
ruote(2)=r1
num(1)=c1
num(2)=Vert(c1)
ImpostaGiocata 1,num,ruote,poste,12
Gioca es
Scrivi"****************************************************************"
End If
End If
End If
'End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
- DjNomade
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
Re: Due ambi con distanza ..
da Fortuna_68 il 13/11/2023, 22:07
Ciao Dj , il procedimento è giusto , solo che in alcuni casi calcola l'ambata in maniera errata .
Ho messo i casi errati e poi in ultimo ho messo l ' ambata corretta con il colpo di uscita :
'29.08.1964
'Mi 02.15.71.27.18 Distanza 27 --> 27.18 ----- -
'Ro 67.11.27.90.18 Distanza 18 --> 90.18 ----- +
'18.27.90
'32 <----- Ambata
'Estrazione generatrice del pronostico 04886 [ 35 - 29/08/1964]
'G 0001 Numeri In gioco : 32.23 su MI RO per Estratto
'7° colpo RO 9
'------------------------------------------
'04.12.1999
'Fi 76.04.86.58.36 Distanza 76 --> 76.04 ----- +
'Mi 13.04.73.16.58 Distanza 04 --> 13.04 ----- -
'4.13.76
'76 <----- Ambata
'Estrazione generatrice del pronostico 06869 [ 97 - 04/12/1999]
'G 0001 Numeri In gioco : 76.67 su FI MI per Estratto
'3° colpo FI 85
'-------------------------------------------------------------
'08.11.2005
'Ba 25.14.59.88.05 Distanza 14 --> 14.05 ----- -
'Ve 04.77.87.60.05 Distanza 05 --> 77.05 ----- +
'5.14.77
'76 <----- Ambata
'Estrazione generatrice del pronostico 07514 [110 - 08/11/2005]
'G 0001 Numeri In gioco : 76.67 su BA VE per Estratto
'1° colpo 68 BA
'---------------------------------------------------------
'05.05.2009
'Ca 70.54.47.14.05 Distanza 14 --> 14.05 ----- -
'Ge 27.50.82.77.05 Distanza 05 --> 77.05 ----- +
'5.14.77
'19 <----- Ambata
'Estrazione generatrice del pronostico 08060 [ 54 - 05/05/2009]
'G 0001 Numeri In gioco : 19.11 su CA GE per Estratto
'4° colpo 68 CA
'---------------------------------------------------------
'02.05.2017
'Ba 86.23.39.89.05 Distanza 86 --> 86.05 ----- +
'Ca 23.04.14.86.05 Distanza 05 --> 23.05 ----- -
''5.23.86
'61 <----- Ambata
'Estrazione generatrice del pronostico 09311 [ 52 - 02/05/2017]
'G 0001 Numeri In gioco : 61.16 su BA CA per Estratto
'8° colpo 14 CA
'-----------------------------------------------
'02.11.2019
'Fi 58.75.12.73.03 Distanza 75 --> 75.03 ----- +
'Na 15.12.49.32.03 Distanza 03 --> 12.03 ----- -
'3.12.75
'77 <----- Ambata
'Estrazione generatrice del pronostico 09703 [132 - 02/11/2019]
'G 0001 Numeri In gioco : 77.79 su FI NA per Estratto
'1° colpo 84 FI
---------------------------------------------------
Grazie come sempre
Ciao
Ho messo i casi errati e poi in ultimo ho messo l ' ambata corretta con il colpo di uscita :
'29.08.1964
'Mi 02.15.71.27.18 Distanza 27 --> 27.18 ----- -
'Ro 67.11.27.90.18 Distanza 18 --> 90.18 ----- +
'18.27.90
'32 <----- Ambata
'Estrazione generatrice del pronostico 04886 [ 35 - 29/08/1964]
'G 0001 Numeri In gioco : 32.23 su MI RO per Estratto
'7° colpo RO 9
'------------------------------------------
'04.12.1999
'Fi 76.04.86.58.36 Distanza 76 --> 76.04 ----- +
'Mi 13.04.73.16.58 Distanza 04 --> 13.04 ----- -
'4.13.76
'76 <----- Ambata
'Estrazione generatrice del pronostico 06869 [ 97 - 04/12/1999]
'G 0001 Numeri In gioco : 76.67 su FI MI per Estratto
'3° colpo FI 85
'-------------------------------------------------------------
'08.11.2005
'Ba 25.14.59.88.05 Distanza 14 --> 14.05 ----- -
'Ve 04.77.87.60.05 Distanza 05 --> 77.05 ----- +
'5.14.77
'76 <----- Ambata
'Estrazione generatrice del pronostico 07514 [110 - 08/11/2005]
'G 0001 Numeri In gioco : 76.67 su BA VE per Estratto
'1° colpo 68 BA
'---------------------------------------------------------
'05.05.2009
'Ca 70.54.47.14.05 Distanza 14 --> 14.05 ----- -
'Ge 27.50.82.77.05 Distanza 05 --> 77.05 ----- +
'5.14.77
'19 <----- Ambata
'Estrazione generatrice del pronostico 08060 [ 54 - 05/05/2009]
'G 0001 Numeri In gioco : 19.11 su CA GE per Estratto
'4° colpo 68 CA
'---------------------------------------------------------
'02.05.2017
'Ba 86.23.39.89.05 Distanza 86 --> 86.05 ----- +
'Ca 23.04.14.86.05 Distanza 05 --> 23.05 ----- -
''5.23.86
'61 <----- Ambata
'Estrazione generatrice del pronostico 09311 [ 52 - 02/05/2017]
'G 0001 Numeri In gioco : 61.16 su BA CA per Estratto
'8° colpo 14 CA
'-----------------------------------------------
'02.11.2019
'Fi 58.75.12.73.03 Distanza 75 --> 75.03 ----- +
'Na 15.12.49.32.03 Distanza 03 --> 12.03 ----- -
'3.12.75
'77 <----- Ambata
'Estrazione generatrice del pronostico 09703 [132 - 02/11/2019]
'G 0001 Numeri In gioco : 77.79 su FI NA per Estratto
'1° colpo 84 FI
---------------------------------------------------
Grazie come sempre
Ciao
- Fortuna_68
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
Re: Due ambi con distanza ..
da DjNomade il 13/11/2023, 23:01
VEDI ORA
- Codice: Seleziona tutto
'11/11/2023
'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=17955&sid=91d63d04407710570946ba7e543debd4#p17955
ColoreTesto 1
Scrivi " Due ambi con distanza + 18 - 9 o -18 + 9 by Fortuna_68 ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
Sub main()
Dim n(4),nn(3)
Dim num(2)
Dim nu(6)
Dim ruote(10)
Dim ruot(1)
Dim poste(1)
Dim post(5)
poste(1)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,300)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
For r1=r+1 To 10
For p=1 To 4
For p1=p+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r1,p)
n(4)=Estratto(es,r1,p1)
aa=Distanza(n(1),n(2))
bb=Distanza(n(3),n(4))
df1=Abs(n(1)-n(2))
df2=Abs(n(3)-n(4))
a=n(1)
b=n(2)
c=n(3)
d=n(4)
If df1>45 And a>b Then k1="+"
If df1>45 And a<b Then k1="-"
If df1=<45 And a>b Then k1="-"
If df1=<45 And a<b Then k1="+"
If df2>45 And c>d Then k2="+"
If df2>45 And c<d Then k2="-"
If df2=<45 And c>d Then k2="-"
If df2=<45 And c<d Then k2="+"
If (k1="-" And K2="+") Or (k1="+" And K2="-") Then
If(n(1)=n(3)Or n(1)=n(4)Or n(2)=n(3)Or n(2)=n(4)) Then
If n(1)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4): '''nn(1)=n(1)ripetuto
If n(1)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3):
If n(2)=n(3)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(4):
If n(2)=n(4)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(3):
If ((Fuori90(90+nn(1)-18)=nn(2))And (Fuori90(nn(1)+9)=nn(3)))_
Or ((Fuori90(90+nn(1)-18)=nn(3))And (Fuori90(nn(1)+9)=nn(2)))_
Or ((Fuori90(90+nn(1)-9)=nn(2))And (Fuori90(nn(1)+18)=nn(3)))_
Or ((Fuori90(90+nn(1)-9)=nn(3))And (Fuori90(nn(1)+18)=nn(2)))_
Or ((Fuori90(90+nn(1)+9)=nn(2))And (Fuori90(nn(1)-18)=nn(3)))_
Or ((Fuori90(90+nn(1)+9)=nn(3))And (Fuori90(nn(1)-18)=nn(2)))_
Or ((Fuori90(90+nn(1)+18)=nn(2))And (Fuori90(nn(1)-9)=nn(3)))_
Or ((Fuori90(90+nn(1)+18)=nn(3))And (Fuori90(nn(1)-9)=nn(2)))Then
If ((Fuori90(90+nn(1)-18)=nn(2))And (Fuori90(nn(1)+9)=nn(3)))Then c1=Fuori90(90+nn(1)-9)
If ((Fuori90(90+nn(1)-18)=nn(3))And (Fuori90(nn(1)+9)=nn(2)))Then c1=Fuori90(90+nn(1)-9)
If ((Fuori90(90+nn(1)-9)=nn(2))And (Fuori90(nn(1)+18)=nn(3)))Then c1=Fuori90(nn(1)+9)
If ((Fuori90(90+nn(1)-9)=nn(3))And (Fuori90(nn(1)+18)=nn(2)))Then c1=Fuori90(nn(1)+9)
If ((Fuori90(90+nn(1)+9)=nn(2))And (Fuori90(90+nn(1)-18)=nn(3)))Then c1=Fuori90(90+nn(1)-9)
If ((Fuori90(90+nn(1)+9)=nn(3))And (Fuori90(90+nn(1)-18)=nn(2)))Then c1=Fuori90(90+nn(1)-9)
If ((Fuori90(90+nn(1)+18)=nn(2))And (Fuori90(90+nn(1)-9)=nn(3)))Then c1=Fuori90(nn(1)+9)
If ((Fuori90(90+nn(1)+18)=nn(3))And (Fuori90(90+nn(1)-9)=nn(2)))Then c1=Fuori90(nn(1)+9)
caso= caso+1
Scrivi " ========================================== Caso N. "&caso,1
Scrivi DataEstrazione(es),1
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_
Format2(aa)&" --> "&Format2(n(1))&"."&Format2(n(2))&" ----- "&k1,1
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_
Format2(bb)&" --> "&Format2(n(3))&"."&Format2(n(4))&" ----- "&k2,1
ColoreTesto 1
Scrivi StringaNumeri (nn),1
ColoreTesto 2
Scrivi Format2(c1)&" <----- Ambata",1
ruote(1)=r
ruote(2)=r1
num(1)=c1
num(2)=Vert(c1)
ImpostaGiocata 1,num,ruote,poste,12
Gioca es
Scrivi"****************************************************************"
End If
End If
End If
'End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
- DjNomade
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
Re: Due ambi con distanza ..
da Fortuna_68 il 14/11/2023, 6:04
SUPERDJ !
BRA-VIS-SI-MO , HAI DIPANATO LA MATASSA
GRAZIE E BUONA GIORNATA
BRA-VIS-SI-MO , HAI DIPANATO LA MATASSA
GRAZIE E BUONA GIORNATA
- Fortuna_68
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
8 messaggi
• Pagina 1 di 1
Chi c’è in linea
Visitano il forum: Nessuno e 4 ospiti