Junior Member
- Group:
- Member
- Posts:
- 10
- Status:
| |
| Inserisci nel listato un numero fisso, nel resoconto troverai tutti gli 89 numeri isotopi
ESEMPIO RESOCONTO DEI PRIMI NUMERI : 01 - 02 - 03 ISOTOPI AL NUMERO SCELTO : 90
CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO 1 CON 90
11.09.1926 .. VE .. 01.64.52.76.53 .. 1° Estratto .. n° 1 18.09.1926 .. VE .. 90.16.40.41.84 .. 1° Estratto .. n° 90 ---------------------------------------------------------- 04.05.1940 .. VE .. 01.26.27.79.48 .. 1° Estratto .. n° 1 11.05.1940 .. VE .. 90.10.82.65.73 .. 1° Estratto .. n° 90 ---------------------------------------------------------- 24.03.1951 .. VE .. 80.57.62.37.01 .. 5° estratto .. n° 1 31.03.1951 .. VE .. 33.39.83.56.90 .. 5° Estratto .. n° 90 ---------------------------------------------------------- 02.05.1953 .. VE .. 45.65.50.18.01 .. 5° estratto .. n° 1 09.05.1953 .. VE .. 88.69.40.74.90 .. 5° Estratto .. n° 90 ---------------------------------------------------------- 30.03.2019 .. VE .. 26.25.50.13.01 .. 5° estratto .. n° 1 02.04.2019 .. VE .. 24.80.05.86.90 .. 5° Estratto .. n° 90 ----------------------------------------------------------
CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO 2 CON 90
13.02.1881 .. VE .. 78.02.67.87.18 .. 2° estratto .. n° 2 20.02.1881 .. VE .. 35.90.06.03.59 .. 2° Estratto .. n° 90 ---------------------------------------------------------- 20.03.1909 .. VE .. 04.73.02.90.55 .. 3° estratto .. n° 2 27.03.1909 .. VE .. 44.87.90.78.47 .. 3° Estratto .. n° 90 ---------------------------------------------------------- 29.05.2018 .. VE .. 40.02.79.33.63 .. 2° estratto .. n° 2 31.05.2018 .. VE .. 15.90.81.53.34 .. 2° Estratto .. n° 90 ----------------------------------------------------------
CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO 3 CON 90
27.09.1874 .. VE .. 03.20.06.66.40 .. 1° Estratto .. n° 3 04.10.1874 .. VE .. 90.37.42.22.70 .. 1° Estratto .. n° 90 ---------------------------------------------------------- 20.10.1895 .. VE .. 25.56.03.40.83 .. 3° estratto .. n° 3 27.10.1895 .. VE .. 14.84.90.89.81 .. 3° Estratto .. n° 90 ---------------------------------------------------------- 04.09.1920 .. VE .. 39.37.03.81.01 .. 3° estratto .. n° 3 11.09.1920 .. VE .. 47.71.90.41.43 .. 3° Estratto .. n° 90 ---------------------------------------------------------- 24.10.1925 .. VE .. 03.31.87.36.85 .. 1° Estratto .. n° 3 31.10.1925 .. VE .. 90.39.83.87.42 .. 1° Estratto .. n° 90 ---------------------------------------------------------- 16.06.2001 .. VE .. 04.15.47.03.08 .. 4° estratto .. n° 3 20.06.2001 .. VE .. 56.54.35.90.31 .. 4° Estratto .. n° 90 ---------------------------------------------------------- 04.05.2005 .. VE .. 67.37.03.21.22 .. 3° estratto .. n° 3 07.05.2005 .. VE .. 05.72.90.37.67 .. 3° Estratto .. n° 90 ---------------------------------------------------------- 09.09.2008 .. VE .. 12.03.45.80.28 .. 2° estratto .. n° 3 11.09.2008 .. VE .. 45.90.15.74.52 .. 2° Estratto .. n° 90 ---------------------------------------------------------- 18.02.2012 .. VE .. 16.70.57.09.03 .. 5° estratto .. n° 3 21.02.2012 .. VE .. 19.26.62.27.90 .. 5° Estratto .. n° 90 ---------------------------------------------------------- 06.12.2018 .. VE .. 33.35.06.03.58 .. 4° estratto .. n° 3 10.12.2018 .. VE .. 60.87.42.90.26 .. 4° Estratto .. n° 90 ----------------------------------------------------------
Sub Main() For y = 1 To 89 For w = 90 To 90 Scrivi ColoreTesto 1 Scrivi"CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO " & y & " CON " & w,1 ColoreTesto 0 Scrivi For r = 10 To 10 ini = EstrazioneFin - 9906 fin = EstrazioneFin For es = ini To fin es1 = es + 1 If(Estratto(es,r,1) = y)Then If(Estratto(es1,r,1) = w)Then Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 1° Estratto .. n°",1,0 Scrivi" " & Estratto(es,r,1),1 ColoreTesto 2 Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 1° Estratto .. n°",1,0 Scrivi" " & Estratto(es1,r,1),1 ColoreTesto 0 Scrivi"----------------------------------------------------------",1 End If End If If(Estratto(es,r,2) = y)Then If(Estratto(es1,r,2) = w)Then Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 2° estratto .. n°",1,0 Scrivi" " & Estratto(es,r,2),1 ColoreTesto 2 Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 2° Estratto .. n°",1,0 Scrivi" " & Estratto(es1,r,2),1 ColoreTesto 0 Scrivi"----------------------------------------------------------",1 End If End If If(Estratto(es,r,3) = y)Then If(Estratto(es1,r,3) = w)Then Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 3° estratto .. n°",1,0 Scrivi " " & Estratto(es,r,3),1 ColoreTesto 2 Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 3° Estratto .. n°",1,0 Scrivi" " & Estratto(es1,r,3),1 ColoreTesto 0 Scrivi"----------------------------------------------------------",1 End If End If If(Estratto(es,r,4) = y)Then If(Estratto(es1,r,4) = w)Then Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 4° estratto .. n°",1,0 Scrivi " " & Estratto(es,r,4),1 ColoreTesto 2 Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 4° Estratto .. n°",1,0 Scrivi" " & Estratto(es1,r,4),1 ColoreTesto 0 Scrivi"----------------------------------------------------------",1 End If End If If(Estratto(es,r,5) = y)Then If(Estratto(es1,r,5) = w)Then Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 5° estratto .. n°",1,0 Scrivi" " & Estratto(es,r,5),1 ColoreTesto 2 Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 5° Estratto .. n°",1,0 Scrivi" " & Estratto(es1,r,5),1 ColoreTesto 0 Scrivi"----------------------------------------------------------",1 End If End If Next Next Next Next End Sub
|